Nothing special, just ground this out to remember SRL's functions for the most part. Thanks to Coh3n (tut) and Harry (read his fishing script).
No anti-ban movements because I don't believe it helps from my experience with neXus, but in my next (more useful) release anti-ban will be present.
It's actually great XP when run here:
Code:program qWillows; {$i srl/srl/misc/smart.scar} {$i srl/srl.scar} procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; // Username Players[0].Pass := ''; // Password Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection Players[0].Active := True; // Set to true if you want to use Player 0 Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin end; function FindWillows(): Boolean; var x, y : Integer; begin repeat FindNormalRandoms; if InvFull then begin Wait(200 + Random(100)) DropAll; end; Wait(2000+Random(2000)) FindObjCustom(x, y, ['hop'], [2379075, 4349771, 3231832], 5); Mouse(x, y, 5, 5, true); until False; end; procedure Bot; begin SetAngle(true) SetRun(true) FindWillows; end; begin Smart_Server := 152; Smart_Members := False; Smart_Signed := True; Smart_SuperDetail := False; ClearDebug; SetupSRL; DeclarePlayers; LoginPlayer; Bot; end.




Reply With Quote












