Simba Code:
program FishTheiver;
var
x, y: Integer;
c, d: Integer;
xp: Integer;
theives: Integer;
mode: Integer;
ms: Integer;
brawler: Integer;
coins: Integer;
gaingp: Integer;
const
BRAWLERCOLOR = 602420; //602420 brown, 6439284 purple.
BORDERWIDTH = 16; //Black border around game.
BRAWLERS = 'No'; //Use brawlers? 'Yes' or 'No'
procedure CheckBrawlers;
begin
if (BRAWLERS = 'Yes') then
begin
if FindColorTolerance(x, y, BRAWLERCOLOR, 568+(BORDERWIDTH), 371, 599+(BORDERWIDTH), 396, 10 ) = false then
begin
PressKey(112);
repeat
Wait(50);
until(FindColorTolerance(x, y, 1482692, 550+(BORDERWIDTH), 205, 735+(BORDERWIDTH), 461, 10) = true);
if FindColorTolerance(x, y, BRAWLERCOLOR, 550+(BORDERWIDTH), 205, 735+(BORDERWIDTH), 461, 10) = true then
begin
MoveMouse(x, y);
repeat
wait(100);
until(FindColorTolerance(c, d, 3768029, 0+(BORDERWIDTH), 1, 246+(BORDERWIDTH), 27, 30) = true);
ClickMouse(x, y, 1);
repeat
wait(50);
until(FindColorTolerance(c, d, 3768029, 0+(BORDERWIDTH), 1, 246+(BORDERWIDTH), 27, 30) = false);
PressKey(113);
repeat
wait(50);
until(FindColorTolerance(x, y, BRAWLERCOLOR, 570+(BORDERWIDTH), 368, 602+(BORDERWIDTH), 400, 10) = true);
IncEx(brawler, 1);
end;
end;
end;
end;
procedure Theive;
begin
if FindColorTolerance(x, y, 9611960, 0, 0, 513+(BORDERWIDTH), 332, 5) = true then
begin
MoveMouse(x, y);
wait(100);
if (FindColorTolerance(c, d, 15724822, 0+(BORDERWIDTH), 1, 246+(BORDERWIDTH), 27, 40) = true) then
begin
ClickMouse(x, y, 1);
repeat
wait(50);
until(FindColorTolerance(c, d, 15724822, 0+(BORDERWIDTH), 1, 246+(BORDERWIDTH), 27, 40) = false);
IncEx(xp, mode);
IncEx(theives, 1);
IncEx(coins, gaingp);
wait(500);
end;
end;
end;
procedure Paint;
var
cph, rph, xph: extended;
begin
ms:= GetTimeRunning;
if ms < 1 then exit;
cph := 3600*(coins)/(ms/1000);
rph := 3600*(theives)/(ms/1000);
xph := 3600*(xp)/(ms/1000);
if (ms > 0) then
begin
Writeln('--------------------------------------------------')
Writeln('----------Dinosaurrr Soulsplit Theiving-----------')
Writeln('Time ran: ' + ToStr(Round(ms/1000/60)) + ' Minutes.')
Writeln('Gained exp: ' + ToStr(xp))
Writeln('Exp per hour: ' + ToStr(xph));
Writeln('Runs: ' + ToStr(theives))
Writeln('Runs per hour: ' + ToStr(rph));
Writeln('Gained coins: ' + ToStr(coins))
Writeln('Coins per hour: ' + ToStr(cph));
if (BRAWLERS=('yes')) then
begin
Writeln('Brawlers used:' + Tostr(brawler))
end;
Writeln('--------------------------------------------------')
end;
if (ms = 0) then
begin
Writeln('--------------------------------------------------')
Writeln('----------Dinosaurrr Soulsplit Theiving-----------')
Writeln('-------Please give paint a momment to begin.------')
Writeln('--------------------------------------------------')
end;
end;
begin
xp:=0;
theives:=0;
mode:= 208;
coins:=0;
gaingp:=30313;
repeat
CheckBrawlers;
Theive;
ClearDebug;
Paint;
until(false);
end.