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' +
'A34183B9272FDFF4FB2504C3AE8EAE20D1DDE11689026729C 4663' +
'D9C704658A6457536C56AD02DD03AC367C4E76BAABE76E315 2E27' +
'C78C8C3FD9FBF1B921D84A0BDED96DBFFFCC90586F17B6F') ;
Furnace := BitmapFromString(9, 8, 'z78DA3330000113171373202' +
'4823440526F666962626C440C896C0244C4CDCDDCD1C81C17 4948' +
'97A3B991B31B10181AC3D8B4D3459A0B490D0D524900ED6F5 EC3');
Rock := DTMFromString('78DA638C66626008604001D9EE8A609A11C A6' +
'70C05AAF14755737C6311AA9A58A01A6F026A12806A4250D5 9CDA' +
'5C8CAA261A530D86396140356104D4C463FA0BDD2E001D6C1 12D');
AmmoMould := BitmapFromString(27, 20, 'z78DAAD566DAEE3200C' +
'BC52F8B0213F9386DCFF484B3D5E6910E16DFBB4B584226AC 7E3F' +
'160B2C5EDD9DEBFA0592E79E53DBF7F773EF22E4542B797A8 A846' +
'39E5D4AAA1DBD537A46EE5FDCBFAEA867DACA7A66E58CD539 A54A' +
'9AA724BAB52CE6E47892594A047378B82CF96273384EE4908 D395' +
'6AAA22B9E526BBA46EC8623E9EFDD6A2A5C6B2971DCFF9CAA 51BA' +
'AA3588E7284ADF4F28B6AEB35582CFC7F46089FAC39744BA9 A536' +
'649C715AED881DA2987FF813F3F0AF5AAEF2024E74E701A16 18B2' +
'986183C3BF5D473614576432B319FF9E4EC58E109E6D18581 4356' +
'8831E6FCD77297867F97EC998A3C97E5F5B75947867E418D6 0CF1' +
'4C5AACB5B3ABB1D2977D31452F05A3EC089BC7E22983D8D39 6667' +
'983B88EC96D7F5493BFE66EC20D69023161C02E1D0F159CFC 4C30' +
'AA19F41CBC5353E544DBCF919442CD08213F3F15E582CF81C 946C' +
'484A2D9BDE58F10646C5CFFE66C3F0A031EE29E97C9824F67 E478' +
'B1D70CB4AC0BE65F1EAA846D4F2D0DF23762764F44A4D4583 C219' +
'21779C756E736675829C7F308FD9F22AA91B56E37085D0F56 9EFF' +
'4E9F7A5C291053B0FD36F9A2DFE4C3851F5DCDFD8E219CFE1 7400' +
'A7F1F0A070668674EE2A3286E7D9FE70664921B889B033B06 7E69' +
'E7C129117B31A386785232F6227350ECCAF344CCC6385CF8C D055' +
'6A770DB43AA80B79F14ED63C38A1759ED5ABD932A8914E311 8981' +
'142DBACD52FD03236CC4030C677E5742F3BE774EAB13E4C18 203C' +
'6AA81BEE4447CBA78C31335AEE2C4DBF6162935A66F6783AF 937C' +
'C84CD756851B5D55CFFA2B59B11DF1BFE3505CC3FEBE163CC 33CE' +
'871B64BA8B6793F7F76073B4C4B06306C32BCC33DA95866D7 F53B' +
'315C2952D90774DF5CBFB1F7AF88461C2FC35B65F2187F549 B8A7' +
'F1DC7D80F63F23FC15FE14FACDD06686C31DAE70FD8CF00FE 227B' +
'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.


Reply With Quote








