SRL Archive - RS3 Outdated / Broken Scripts

ok so ive noticed i had a few bad things in there and ive done a lot more editing and heres what i have now

THIS IS NOW MY 4TH DAY SCRIPTING

im having problems with line 103 says does not allow drawling in line 103


// 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 //

// i do not know if i added any antirandoms… //

// might want to check //

// that one out ill update it //

// start in ak west bank (closest one to the furnace) //

// loged out //
//___________________________________________________________//
//___________________________________________________________//



var
Bank, Furnace, Trip, Rock, AmmoMould:integer;
Acc, Angle:Extended;



// waiting //


procedure Waiting;
begin
wait(400+random(300));
end;



// loading bitmaps //




procedure LoadBMPs;
begin
Bank := BitmapFromString(5, 18, 'z78DAE5D0B10E80200C04D05F3' +
'A34183B9272FDFF4FB2504C3AE8EAE20D1DDE11689026729C4663' +
'D9C704658A6457536C56AD02DD03AC367C4E76BAABE76E3152E27' +
'C78C8C3FD9FBF1B921D84A0BDED96DBFFFCC90586F17B6F');

Furnace := BitmapFromString(9, 8, 'z78DA3330000113171373202' +
'4823440526F666962626C440C896C0244C4CDCDDCD1C81C174948' +
'97A3B991B31B10181AC3D8B4D3459A0B490D0D524900ED6F5EC3');

Rock := DTMFromString('78DA638C66626008604001D9EE8A609A11CA6' +
'70C05AAF14755737C6311AA9A58A01A6F026A12806A4250D59CDA' +
'5C8CAA261A530D86396140356104D4C463FA0BDD2E001D6C112D');

AmmoMould := BitmapFromString(27, 20, 'z78DAAD566DAEE3200C' +
'BC52F8B0213F9386DCFF484B3D5E6910E16DFBB4B584226AC7E3F' +
'160B2C5EDD9DEBFA0592E79E53DBF7F773EF22E4542B797A8A846' +
'39E5D4AAA1DBD537A46EE5FDCBFAEA867DACA7A66E58CD539A54A' +
'9AA724BAB52CE6E47892594A047378B82CF96273384EE4908D395' +
'6AAA22B9E526BBA46EC8623E9EFDD6A2A5C6B2971DCFF9CAA51BA' +
'AA3588E7284ADF4F28B6AEB35582CFC7F46089FAC39744BA9A536' +
'649C715AED881DA2987FF813F3F0AF5AAEF2024E74E701A1618B2' +
'986183C3BF5D473614576432B319FF9E4EC58E109E6D185814356' +
'8831E6FCD77297867F97EC998A3C97E5F5B75947867E418D60CF1' +
'4C5AACB5B3ABB1D2977D31452F05A3EC089BC7E22983D8D396667' +
'983B88EC96D7F5493BFE66EC20D69023161C02E1D0F159CFC4C30' +
'AA19F41CBC5353E544DBCF919442CD08213F3F15E582CF81C946C' +
'484A2D9BDE58F10646C5CFFE66C3F0A031EE29E97C9824F67E478' +
'B1D70CB4AC0BE65F1EAA846D4F2D0DF23762764F44A4D4583C219' +
'21779C756E736675829C7F308FD9F22AA91B56E37085D0F569EFF' +
'4E9F7A5C291053B0FD36F9A2DFE4C3851F5DCDFD8E219CFE17400' +
'A7F1F0A070668674EE2A3286E7D9FE70664921B889B033B067E69' +
'E7C129117B31A386785232F6227350ECCAF344CCC6385CF8CD055' +
'6A770DB43AA80B79F14ED63C38A1759ED5ABD932A8914E3118981' +
'142DBACD52FD03236CC4030C677E5742F3BE774EAB13E4C18203C' +
'6AA81BEE4447CBA78C31335AEE2C4DBF6162935A66F6783AF937C' +
'C84CD756851B5D55CFFA2B59B11DF1BFE3505CC3FEBE163CC33CE' +
'871B64BA8B6793F7F76073B4C4B06306C32BCC33DA95866D7F53B' +
'315C2952D90774DF5CBFB1F7AF88461C2FC35B65F2187F549B8A7' +
'F1DC7D80F63F23FC15FE14FACDD06686C31DAE70FD8CF00FE227B' +
'253');

end;




// free bitmaps //




procedure FreeBMPs;
begin
FreeBitmap(Rock);
FreeBitmap(Bank);
FreeBitmap(Furnace);
FreeBitmap(AmmoMould);
end;




// walk to furnace (sorry only one path so far) //




procedure walktofurnace;
begin
wait(10+random(30));
if(FindDeformedBitmapToleranceIn(rock, x, y, 582, 37, 763, 155, 70, 1, True, acc)) then
begin
mmouse(x,y+random(2),5,10);
wait(100+random(100));
mouse(x,y,0,0,true);
wait(7000+random(1000));
if(finddeformedbitmaptolerancein(furnace, x, y, 582, 37, 763, 155, 70, 1,true, acc)) then
begin
mmouse(x,y+random(1),5,10);
mouse(x,y,0,0,true);
wait(10000+random(1000));
end;
end;
end;


// walk to bank (sorry only one path so far) //




procedure walktobank;
begin
if(FindDeformedBitmapToleranceIn(rock, x, y, 582, 37, 763, 155, 70, 1, True, acc)) then
begin
mmouse(x,y+random(2),5,10);
wait(100+random(100));
mouse(x,y,0,0,true);
wait(10000+random(1500));
if(FindDeformedBitmapToleranceRotationIn(bank,x, y, 582, 37, 763, 155, 170, 0, acc, PI/10, 0, 2*PI, angle)) then
begin
mmouse(x,y+random(1),5,10);
mouse(x,y,0,0,true);
wait(6000+random(1000));
end;
end;
end;



// smelter \\




procedure SmeltCBall;
begin
wait(200+random(100));
if(existsitem(28)) then
begin
mouseitem(28,true)
wait(1000+random(500));
if (FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20)) then
begin
MMouse(x, y, 2, 2)
if (IsUpText('eel')) then
Mouse(x + Random(15), y, 2, 2, True);
wait(1500+random(1000));
clickoption('steel bar',1);
wait(6000+random(1500));
repeat until(false)
end;
if(not(FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20))) then
writeln('cannot find furnace')
end;
if(not(existsitem(28))) then
WalkToBank;
end;




// ammount to withdraw //



Procedure WithdrawBmpAmmount(Bitmap, Amount : Integer); // Thanks to fawki
var
TimesChecked : Integer;
Begin
if(BankScreen)and(TimesChecked < 26)then
Begin
TimesChecked := TimesChecked+1;
if(FindBitMapToleranceIn(steelbar, X, Y, 5, 5, 498, 323, 10))then
Begin
Wait(200+Random(300));
MMouse(X, Y, 8, 8);
wait(200);
Mouse(X, Y, 8, 8, False);
wait(200);
ClickOption('Withdraw X',1);
wait(1000+random(500));
Begin
Wait(400);
TypeSEnd(IntToStr(Amount));
Wait(400);
End;
End;
End;
End;




// checking if items are in inventory //




procedure CheckIfInInv;
begin
if(existsitem(steelbar))then
begin
writeln('walking to bank');
end;
if(not(existsitem(SteelBar))) then
WalkToBank;
end;




//////////////// M A I N L O O P \\\\\\\\\\\\\\\\\\


begin
setupsrl;
waiting;
loadbmps;
waiting;
begin
CheckIfInInv;
waiting;
smeltcball;
waiting
walktobank;
waiting;
openbank;
waiting;
WithdrawBmpAmmount(SteelBar, 26);
waiting;
end;
repeat until(false)
waiting;
freebmps;
end.

Er i dno if it works, but it doesn't have multi player or basic anti bans, Pretty good starter script from what i can see :o

thank you ive gotten it all the way to the end debugging it at the end i can figure out what identifier i need or whatever i edited it above please look agian also note that i plan to add anti bann and multipul chars but i want the basic script working first

I HAVE ONLY BEEN SCRIPTING FOR 3 DAYS BEFORE I MADE THIS!!!

begin
setupsrl;
loadbmps;//do it once for less lag
repeat
If(ExistsItem(28)) Then
begin
 walktofurnace;
 smeltcball;
 walktobank;
 openbank;
 wait(400+random(200));
 WithdrawBmpAmmount(SteelBar, 26);
 wait(300+random(400));
end;
if(not(existsitem(28))) then
begin
 openbank;
 wait(300+random(300));
 WithdrawBmpAmmount(SteelBar, 26);
 wait(300+random(400));
 walktofurnace;
 smeltcball;
 walktobank
end;
until(false)//repeat with no until? you can make it repeat until loads = loadstodo or watever so if will stop after so many loads.
freebmps; //once when its finished
end;//dont know if you need this, if you ge an error take it out
end.

ok, you had repeats but they had no untils. it should work with this new main loop, i alse reordered it a bit so is a bit easier. please use standards, capitalise words like gotobank; GoToBank; is so much easier to read and looks alot better. also for moving the mouse use MMouse(x,y,0,0) the 0,0 is randomness in clicking, set it to like 3-10 depending on the accuracy you need. for clicking the mouse use Mouse(x,x,0,0,true), true is left or right, everythig else is explained in MMouse. the procedures you currently use are very detectable and will get you banned. Nice first script to, very nice infact.

Edit:use scar tags for posting scripts please, edit the post with tags around the script. if you dont know how then you put [CAR]Script here[/CAR] but instead of CAR put SCAR

^ Yeah im not much of a scripter but i can do mean 12 hour proggies :)
If it had good anti ban and multi player i'd help test for u

put this in script help section