Why wont my script bank i used this exact same thing for my toad picker!?!?!Code:program SnapeGrass; {$define SMART} {$i srl/srl.scar} {$i sps/sps.simba} Procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; with Players[0] do begin Name := ''; Pass := ''; Pin := ''; BoxRewards := ['XP','xp','lamp']; LampSkill := 'Runecrafting'; Active := True; end; end; Procedure Antiban; Begin case Random(250) Of 0: HoverSkill('random', False); 1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End; 2: ExamineInv; 3: RandomAngle(1); 4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End; 5: HoverSkill('random', False); End; End; Procedure StatsGuise(wat:String); begin Status(wat); Disguise(wat); end; Procedure StartScript; Begin SetUpSRL; MouseSpeed := 15; ActivateClient; DeclarePlayers; If (Not LoggedIn) then LoginPlayer; SPS_Setup(RUNESCAPE_SURFACE, ['13_4']); SetAngle(True); MakeCompass('n'); End; Function WalkToBank: Boolean; var Path:TPointArray; Begin SPS_Setup(RUNESCAPE_SURFACE, ['13_4']); If Not FindNormalRandoms Then Begin Path := [Point(5608, 1844), Point(5622, 1803), Point(5620, 1778), Point(5617, 1763)]; StatsGuise('Heading to Banker'); If SPS_WalkPath(Path) Then StatsGuise('Arrived at Banker'); result := True; End; End; Function Bank: Boolean; Var x, y:Integer; Begin If WalkToBank Then begin If FindObjCustom(x, y, ['anker'], [10117444], 5) Then begin; MMouse(x, y, 1, 1); Wait(200+RandomRange(50,100)); Mouse(x, y, 0, 0, False); Wait(200+Randomrange(100,150)); ChooseOption('ank Frem'); if PinScreen then if (Players[CurrentPlayer].Pin <> '') then InPin(Players[CurrentPlayer].Pin) else TerminateScript; end; end; end; begin StartScript; WalkToBank; Bank; end.


Reply With Quote





