Code:
// CANNON BALL EXPRESS //
// BY Burnout //
program CannonBallExpress;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Smithing.scar}
// Cannon Ball Express brought to you exclusively by Burnout //
// beta version //
// this is not a script you can leave running for more //
// then 5 minuets without checking it //
// no multiplayer and must set own colors will update soon //
// that one out ill update it //
// start in ak west bank (closest one to the furnace) //
// loged in //
//___________________________________________________________//
//___________________________________________________________//
// walk to furnace //
procedure WalkToFurnace1;
begin
makecompass('n')
if(findmmcolortol(x,y,1022492,8)) Then
begin
mmouse(x,y,1,1+random(15))
mouse(x,y,1,1+random(15),true)
wait(10000+random(2000));
if(findsymbol(x,y,'furnace')) Then
mmouse(x+(10),y,1,1)
mouse(x+(10),y,1,1,true)
wait(10000+random(2000));
MakeCompass('W')
end;
end;
// walk to bank //
procedure WalkTobank1;
begin
makecompass('n')
wait(1000+random(500));
mouse(647,144,2,2,true)
wait(10000+random(2000));
if(findsymbol(x,y,'bank')) Then
mouse(x,y,1,1,true)
wait(10000+random(2000));
MakeCompass('W')
wait(500)
end;
// smelter \\
procedure SmeltCBall;
begin
openfurnace;
repeat
wait(200+random(100));
mouseitem(28,true)
wait(500+random(500));
MMouse(274,104, 2, 2)
Mouse(274,104, 2, 2, true)
wait(1500+random(1000));
mmouse(256,442,1,1)
mouse(256,442,2,2,false)
mmouse(228,427,1,1)
mouse(228,427,1,1,true)
wait(40000+random(2000))
until (not(existsitem(28)))
end;
// ammount to withdraw //
procedure withdrawbars;
begin
mmouse(94,77,2,2)
mouse(94,77,2,2,false)
Wait(100);
mmouse(78,145,0,10);
mouse(78,145,0,10,true);
FFlag(0);
Wait(2000 + Random(500));
mmouse(485,41,2,2)
mouse(485,41,2,2,true)
end;
// opening bank //
procedure openbankfast;
begin
lowestangle;
if Findmscolortol(x,y, bwcolor,4) then
begin
MMouse(x, y, 4, 4);
if IsUpTextMulti('ank', 'booth', 'ooth') then
begin
Mouse(x, y, 0, 0, False);
Wait(100);
ChooseOption(x, y, 'uickly');
FFlag(0);
Wait(2000 + Random(500));
end;
end;
end;
//////////////// M A I N L O O P \\\\\\\\\\\\\\\\\\
begin
setupsrl;
activateclient;
loaddtm;
wait(500)
MakeCompass('w')
openbankfast;
withdrawbars;
repeat
walktofurnace1;
wait(500)
highestangle;
smeltcball;
walktobank1;
openbankfast;
withdrawbars;
until(not(existsitem(28)))
end.