Hello i was making my first script and i finished it, but when i click run i got a crash smart, heres the script so you can put it on simba and click run and see the error.
Code:program Draynorcutter; {$DEFINE SMART} {$i srl/srl.simba} {$i sps/sps.simba} var WalkToBank:TPointarray; WalkToTree:TPointarray; procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; //Your Runescape username here. Players[0].Pass := ''; //Your Runescape password here. Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player. Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN. end; Procedure AntiBan; begin if(not(LoggedIn)) then Exit; Case Random(250) of 0: begin WriteLn('AntiBan Enabled - Randomized Human Action'); RandomRClick; end; 10: begin WriteLn('AntiBan Enabled - Randomized Human Action'); HoverSkill('Woodcutting', false); wait(1634+Random(2169)); end; 30: begin WriteLn('AntiBan Enabled - Randomized Human Action'); PickUpMouse; end; 40: begin WriteLn('AntiBan Enabled - Randomized Human Action'); MakeCompass('N'); wait(100+random(433)); MakeCompass('S'); wait(50+random(124)); MakeCompass('N'); FindNormalRandoms; end; 50: begin WriteLn('AntiBan Enabled - Randomized Human Action'); ExamineInv; end; end; end; Procedure ChopTree; Var x, y: integer; Begin if FindObj (x, y, 'Willow', 3227713, 10) then Begin repeat FindNormalRandoms; ToggleXpBar(True); Begin WriteLn('Tree Found Clicking it.'); Mouse(x, y, 0, 0, True); ChooseOption('willow'); end; repeat Wait(500) Until Not isuptext ('willow') Or (invfull); Until(InvFull); end; end; Procedure WalkBank; begin if(not(LoggedIn))then exit; FindNormalRandoms; AntiBan; SPS_Setup (RUNESCAPE_SURFACE, ['10_9']); WriteLn('Your inventory is full. Walking to Bank.'); MakeCompass ('N'); SetAngle (SRL_ANGLE_HIGH); WalkToBank := [Point(4165, 3703), Point(4162, 3662), Point(4165, 3647), Point(4190, 3647), Point(4188, 3668)]; SPS_WalkPath (WalkToBank); WriteLn('Made it to the bank.'); end; Procedure BankLog; begin if(not(LoggedIn))then exit; FindNormalRandoms; AntiBan; MakeCompass('N') SetAngle (SRL_ANGLE_HIGH); WriteLn('Searching Bank') if FindBank ('db') then WriteLn ('Found Bank.'); if OpenBank ('db', False, True) then WriteLn ('Banking Log.'); Deposit(2, 28, True); CloseBank; AntiBan; WriteLn('Finished banking'); end; Procedure WalkTree; begin if(not(LoggedIn))then exit; FindNormalRandoms; SPS_Setup (RUNESCAPE_SURFACE, ['10_9']); WriteLn ('Returning to Tree.'); MakeCompass('N'); SetAngle (SRL_ANGLE_HIGH); WalkToTree := [Point(4188, 3666), Point(4188, 3647), Point(4167, 3647), Point(4163, 3665), Point(4162, 3699)]; SPS_WalkPath (WalkToTree); WriteLn('Made it to Tree.'); end; begin DeclarePlayers; LoginPlayer; repeat ChopTree; WalkBank; BankLog; WalkTree; until AllPlayersInactive; end.
any help will be apreciated.


Reply With Quote
