it works fine till it actually gets the ores any help then i get the errorCode:{.include srl/srl.scar} procedure DeclarePlayers;//add more if needed begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; Players[0].Pass := ''; Players[0].Nick := ''; Players[0].Active := True; // Use this account? Players[0].strings[0]:= 'bronze'; // what bar to smith players[0].pin:='';//bank pin Players[0].BoxRewards := ['XP', 'ostume', 'mote', 'Gem', 'ithril', 'oal']; end; procedure banker; begin openbankfast('akb'); if bankscreen or pinscreen then begin writeln('opened bank'); end else openbankglass('akb', true, true); if bankscreen or pinscreen then begin writeln('opened bank'); end else Writeln('could not open bank.'); if pinscreen then inpin(players[0].strings[1]); end; procedure getore; var mainamount, secamount : integer; begin case (Lowercase(Players[CurrentPlayer].Strings[0])) of 'bronze': begin mainamount := 14; secamount:= 14; end; 'iron': begin mainamount := 28; // Fill the acutal amounts in for the following though. secamount:= 0; end; 'steel': begin mainamount := 9; secamount:= 18; end; 'mithril': begin mainamount := 5; secamount:= 20; end; 'addy': begin mainamount := 4; secamount:= 24; end; 'runite': begin mainamount := 3; secamount:= 24; end; end; Withdraw(1, 1, mainamount); wait(100 + random(200)); Withdraw(1, 2, secamount); end; procedure tofurnace; var cactusbmp : integer; begin makecompass('n') cactusbmp := BitmapFromString(12, 11, 'beNr7/x8NuKTKrOxMBCL' + 'fUjMgWtQSC0RoaiBSyAqAjPX9qXCErACiBsIAGo5VAVwWzoaoQXMM' + 'VjWYdkGsQ3MnJsLqHTSL0NSgqQeqQQ4cTDUQxyCrgbgZUz0IAABC6' + 's+J'); RadialWalk(AutoColorThis(cactusBmp, 15, MMX1, MMY1, MMX2, MMY2), 0, 120, 65, -1, 1) flag; writeln('to the cactus'); writeln('crap didnt work') end; begin setupsrl; activateclient; banker; getore; tofurnace; end.




Reply With Quote













