Simba Code:
program Simple_eater_and_prayer;
{$i srl/srl.simba}
var
shark,one_dose,two_dose,three_dose,four_dose,x, y,count : integer;
const //credit goes to hoodz from villavu forums for this
USERNAME = '';//type account username in here
PASSWORD = '';//type account password in here
function IsLoggedIn: boolean;//credit goes to hoodz
begin
if findcolortolerance(x, y, 6256642, 696, 136, 713, 150, 5) then
begin
result := true
end
else
begin
result := false
end;
end;
procedure LoggingIn;//credit goes to hoodz
begin
Wait(200);
movemouse(376, 188);
writeln('entering username');
Wait(200);
clickmouse(x, y, mouse_left);
count := 0;
repeat
Inc(count);
PressKey(VK_Back);
until count > 25;
Wait(250);
sendkeys(USERNAME, 0, 0);
Wait(1000);
writeln('entering password');
movemouse(376, 233);
Wait(200);
clickmouse(x, y, Mouse_left);
Wait(200);
count := 0;
repeat
PressKey(VK_Back);
Inc(count);
until count > 25
sendkeys(PASSWORD, 50, 25);
writeln('logging in');
Wait(1000);
movemouse(377, 271);
Wait(1000);
ClickMouse(x, y, mouse_left);
Wait(8000);
writeln('logged in! (?)')
end;
Function compass_reset:Boolean;
begin
wait(500);
Mouse(542,20,2,2,True);
result:=True
end;
Function Lowish_hp: boolean;
begin
if findcolortolerance(x, y, 255, 724, 26, 742, 38, 5) or
findcolortolerance(x, y, 2070783, 724, 26, 742, 38, 5) or
findcolortolerance(x, y, 65535, 724, 26, 742, 38, 5) then
Begin
Writeln('Health Point is low');
Begin
Result:=True
End
End Else
Writeln('Health point not low');
End;
Function Lowish_prayer: boolean;
begin
if findcolortolerance(x, y, 65535, 736, 66, 757, 80, 5) then
begin
Writeln('Pray Point is low');
Begin
Result:=True
End
End Else
Writeln('Pray Point is not low');
End;
function eating_sharks: boolean;
var
shark, x, y:integer;
begin
shark:= DTMFromString('mbQAAAHicY2VgYHBkYmCwBWIbIPYEYi8gfgwUfwnE96EYxA5x0GfICHFlqE0LZoj0sGaYUBrPgA0wYsFgAAD8AgsP');
if FindDTM(shark, x, y, 548, 206, 734, 459) then
begin
Wait (100 + random(200));
Writeln('Eating Shark');
MMouse(x, y, 2, 2);
begin
Mouse(x, y, 2, 2, true);
Result := True;
end
end else
Writeln('couldn''t eat shark');
end;
function restoring_prayer: Boolean;
var
x, y : Integer;
begin
wait(100);
One_dose := DTMFromString('mbQAAAHicY2VgYHBgYmBwBGJ3ILYFYlcgfgMUfwzEH4D4PRC/AOLqbUsYUtOyGLT6MhmqtixmcHPzZMAGGLFgMAAAZ38Mxg==');
Two_dose := DTMFromString('mbQAAAHicY2VgYMhmYmDIBeICIE4D4iwgfgsUfwTE74D4AxC/AGKrA30MwSHhDHqzihgs9/cyVKydx4ANMGLBYAAAt4MNyg==');
Three_dose:= DTMFromString('mWAAAAHicY2FgYJjMxMAwHYinAfEMIH4LFHsExO+B+BUQWx2awBAcEs5gubeHwXR9EwM6YETDIAAAkb4Lgw==');
Four_dose := DTMFromString('mWAAAAHicY2FgYDjIBMF7gPgQEL8Eij0C4tdA/A6ITdY1MBitqGWwOT4ZzEYHjGgYBADOZwxm');
if FindDTM(one_dose, x, y, 548, 206, 734, 459) or
FindDTM(two_dose, x, y, 548, 206, 734, 459) or
FindDTM(three_dose, x, y, 548, 206, 734, 459) or
FindDTM(four_dose, x, y, 548, 206, 734, 459) then
begin
Wait (100 + random(200));
Writeln('Drinking Pray Potion');
MMouse(x, y, 2, 2);
begin
Mouse(x, y, 2, 2, true);
Result := True;
end
end else
Writeln('Can''t drink on Pray Potion');
end;
procedure free_the_slaves;
begin
FreeDtm(shark);
FreeDtm(one_dose);
FreeDtm(two_dose);
freedtm(three_dose);
freedtm(four_dose);
writeln('freed the slaves')
end;
begin
mousespeed := 35
repeat
if not isloggedin then
begin
loggingin;
Wait (500 + random(200));
compass_reset;
end;
if lowish_hp then eating_sharks;
if lowish_prayer then restoring_prayer;
free_the_slaves;
until(false)
end.