burnout
2007-03-10 23:43:21
hey all you C-Ball Smelters here it is the beta version
i just finished the basic script last night im taking a break, also this is my first script i tested for around 5-8 hours and the only problems it currently has is the colors are manual, and it is extremely hard to find the right main screen color for the furnace
! ! ! ! P L E A S E ! ! ! ! L E A V E ! ! ! ! F E E D B A C K ! ! ! !
if you wish to assist me in my quest to perfect this then please pm me as i will be selling the finished copy and you may be entitled to sell with me:sasmokin:
this is my beta version so it is not extremely finished this is just the basic working motor functions and if you stay near your pc when you auto you will be fine just make sure your volume is up so you can hear when a random is trying to get your attention. im sorry for this and i will be working on it agian very soon.
problems: needs autocolor sometimes you cant get the right color should probally switch worlds or reload current world, no multiplayer, no antirandoms
all these problems will be addressed in the next few updates i will update one at a time, the autocolor update will be posted free, i will not release the multiplayer and antirandom procedures at the same time but will not be free
just give it a try make sure you follow color guidelines and you should be fine accept for furnace some times its impossible to get the right color.
i just finished the basic script last night im taking a break, also this is my first script i tested for around 5-8 hours and the only problems it currently has is the colors are manual, and it is extremely hard to find the right main screen color for the furnace
! ! ! ! P L E A S E ! ! ! ! L E A V E ! ! ! ! F E E D B A C K ! ! ! !
if you wish to assist me in my quest to perfect this then please pm me as i will be selling the finished copy and you may be entitled to sell with me:sasmokin:
this is my beta version so it is not extremely finished this is just the basic working motor functions and if you stay near your pc when you auto you will be fine just make sure your volume is up so you can hear when a random is trying to get your attention. im sorry for this and i will be working on it agian very soon.
problems: needs autocolor sometimes you cant get the right color should probally switch worlds or reload current world, no multiplayer, no antirandoms
all these problems will be addressed in the next few updates i will update one at a time, the autocolor update will be posted free, i will not release the multiplayer and antirandom procedures at the same time but will not be free
just give it a try make sure you follow color guidelines and you should be fine accept for furnace some times its impossible to get the right color.
// 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.