Hello i just make my first script, its a heater you need to start at west varrock bank and have the iron / gold ore on the first tab.
Code:program script; {$DEFINE SMART} {$i SRL/srl.simba} procedure DeclarePlayers; Begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; With Players[0] Do Begin Name := ''; //Player username. Pass := ''; //Player password. Nick := ''; //Player nickname - 3-4 letters of Player username. Active := True; End; End; procedure SetupChar; begin SetupSRL(); SetAngle(0); //ClickNorth(0); end; procedure Startup; begin Smart_Server := 69; Smart_Members:= true; Smart_Signed := true; SetupSRL; DeclarePlayers; LogInPlayer; MouseSpeed := 500; wait(100+random(100)); end; Function Bank: boolean; Var x, y: integer; begin if OpenBank('vwb', false, false) then //Varrock West Bank, vwb begin WriteLn('opened bank'); wait(500 + random(550)); end end; Procedure WithdrawOre; begin If BankScreen then begin Mouse(624, 230, 0, 0, False); WaitOption('All', 400); Wait(1000); Withdraw(1, 0, 18); Wait(500); Withdraw(0, 0, 18); Wait(500); end; CloseBank; end; Procedure Heat; Var J:Integer; Begin J := 0 Repeat MMouse(743, 187, 2, 2); ClickMouse2(True); Wait(1500 + Random(25)); MMouse(621, 327, 1, 1); ClickMouse2(True); Wait(1500 + Random(25)); MMouse(702, 446, 2, 2); ClickMouse2(True); Inc(J); Wait(1500 + Random(25)); Until (J = 9); End; begin Startup; SetupChar; repeat Heat; Wait(1000); //this is the number it takes to heat all items! Bank; Wait(1243 + Random (250)); WithdrawOre; Wait(1243 + Random (250)); until (not LoggedIn); end.


Reply With Quote
