Simba Code:
{/////////////////////Set_Up///////////////////////////
SoulWars Bank, North, all the way up.
Fixed screen
Logs, row 2 slot 10
//////////////////////////////////////////////////////}
program new;
{$DEFINE SMART}
{$i srl/srl.scar}
var x,y:integer;
/////////////////////////////////////////////////////
Procedure Open_Bank;
begin
repeat
MMouse(259, 137,20,20)
sleep(200+random(100))
until(FindColorSpiralTolerance(x,y,14606081, 42, 8, 67, 24, 20))
or(FindColorSpiralTolerance(x,y,13027588, 42, 8, 67, 24, 20))
if(FindColorSpiralTolerance(x,y,14606081, 42, 8, 67, 24, 25))
or(FindColorSpiralTolerance(x,y,13027588, 42, 8, 67, 24, 20))then
begin
getmousepos(x,y)
Mouse(x,y,0,0,true)
sleep(200+random(500))
repeat
sleep(100+random(200))
until(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 20))
end;
end;
procedure Deposit_Stuff;
begin
if(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 20))then
begin
mouse(578, 263,6,6,false)
sleep(300+random(300))
begin
mouse(x, y,5,5,true)
sleep(500+random(500))
end;
end;
end;
procedure Withdraw_Stuff;
begin
if(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 10))then
begin
//get Logs, row 2 slot 10; Suppy tab
mouse(448,151,5,5,false)
sleep(500+random(200))
mouse(x,y+76,6,4,true)
sleep(500+random(200))
//Close Bank
mouse(488,35,6,6,true)
sleep(1000+random(500))
end;
end;
procedure Fletch;
begin
mouse(578, 230,5,5,true)
sleep(300+random(100))
mouse(578,264,5,5,true)
sleep(500+random(500))
mouse(257,442,20,10,true)
sleep(9000+random(1000))
end;
begin
ClearDebug();
SetupSRL();
repeat
Open_Bank;
Deposit_Stuff;
Withdraw_Stuff;
Fletch;
sleep(39000+random(1000))
until(false)
end.
SCAR Code:
{/////////////////////////Set_Up//////////////////////////////
SoulWars Bank, North, all the way up.
Fixed screen
Logs, row 2 slot 10
////////////////////////////////////////////////////////////}
program New;
var x,y:integer;
Procedure Open_Bank;
begin
repeat
MoveMouseSmoothEX(259+10-random(20), 137+10-random(20),1,3,5,20,10)
wait(200+random(100))
until(FindColorSpiralTolerance(x,y,14606081, 42, 8, 67, 24, 20))
or(FindColorSpiralTolerance(x,y,13027588, 42, 8, 67, 24, 20))
if(FindColorSpiralTolerance(x,y,14606081, 42, 8, 67, 24, 25))
or(FindColorSpiralTolerance(x,y,13027588, 42, 8, 67, 24, 20))then
begin
getmousepos(x,y)
clickmouse(x,y,true)
wait(200+random(500))
repeat
wait(100+random(200))
until(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 20))
end;
end;
procedure Deposit;
//var Deposit_All:integer;
begin
//Deposit_All:= BitmapFromString(28, 6, 'beNqb07hkTuNSIJrbyI' +
// 'AKls5tWjyjGlMcDoAagQqAJBxBNc7BYhQaA64SaP5SJL1LUPUCzYe' +
// 'rhLiToJlY3YmVCzcNYQv1zISHG1XMxOV3iOPxxxF2MwESPVXu');
if(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 20))then
begin
//repeat
movemousesmoothEX(578+3-random(6), 263+3-random(6),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,false)
wait(300+random(300))
//until(FindBitmapToleranceIn(Deposit_All,x,y,470,214,755,499,30))
//if(FindBitmapToleranceIn(Deposit_All,x,y,470,214,755,499,30))then
begin
movemousesmoothEX(x+5-random(10), y+78-random(4),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,true)
wait(500+random(500))
end;
end;
end;
procedure Withdraw;
begin
if(FindColorSpiralTolerance(x,y,4106994, 193, 27, 226, 36, 10))then
begin
//get Logs, row 2 slot 10; Suppy tab
movemousesmoothEX(448+5-random(10), 151+5-random(10),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,false)
wait(500+random(200))
movemousesmoothEX(x+8-random(10), y+78-random(4),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,true)
wait(500+random(200))
//Close Bank
movemousesmoothEX(488+3-random(6), 35+3-random(6),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,true)
wait(1000+random(500))
end;
end;
procedure Fletch;
begin
movemousesmoothEX(578+5-random(10), 230+5-random(10),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,true)
wait(500+random(200))
movemousesmoothEX(578+5-random(10), 264+5-random(10),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,true)
wait(1000+random(200))
movemousesmoothEX(257+15-random(30), 442+10-random(20),1,3,5,20,10)
wait(200+random(100))
getmousepos(x,y)
clickmouse(x,y,true)
wait(9000+random(1000))
end;
begin
repeat
Open_Bank;
Deposit;
Withdraw;
Fletch;
wait(39000+random(1000))
until(false)
end.