This is my first script EVA.
It's a willow power chopper, Works best in Draynor Manor but I'd assume it'd work anywhere where the willows grow.
-HAVE HATCHET EQUIPPED OR IT'LL BE DROPPED!!-
Simba Code:
Program imalosersCHOPtilUdrop;
{$i srl/srl/misc/smart.scar}
{$loadlib sps}
{$i srl/srl.scar}
{$i sps/sps.simba}
{$i SRL/SRL/Misc/stats.simba}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'uby'];
End;
Procedure Failsafe(reason:string);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
TerminateScript;
End;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Antiban;
Begin
If(Not(LoggedIn))Then
Exit;
Case Random(4) Of
0:
Begin
StatsGuise ('Performing Antiban Procedures')
Hoverskill('Woodcutting', False);
Wait(2400+Random(250));
FindNormalRandoms;
End;
1: PickUpMouse;
2: BoredHuman;
3:
Begin
MakeCompass('W');
wait(100+random(133));
MakeCompass('E');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
End;
End;
End;
Procedure DropLogs;
Var I: integer;
Begin
for I:= 0 To 2 Do
StatsGuise ('Dropping Bodies..');
Begin
DropPattern(Random(2) + 1);
If InvCount = 0 Then
End;
End;
Procedure ChopTree;
Var X,Y:integer;
Begin
StatsGuise ('Locating Targets')
Begin
if FindObjcustom(x, y, ['hop', 'illow'], [3227713, 1252377], 30) then
Mouse(x, y, 3, 3, true);
ChooseOption('hop');
StatsGuise ('Targets Located')
Repeat
Wait(1200+random(250));
Until not IsUpText('hop') or (InvFull);
End;
End;
Procedure SettingUp;
Begin
MouseSpeed := 16;
GameTab(tab_Inv);
MakeCompass('N');
SetAngle(False);
End;
Begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
SettingUp;
Repeat;
Antiban;
ChopTree;
If InvFull Then
Droplogs;
Until(False);
End.
As I stated this is my first Script, Might be some flaws but I'm willing to take in any tips and advice (:
TO SAVE & ADD SCRIPT
Copy and Paste the code into 'Notepad'
Save as 'imalosersCHOPtilUdrop.simba' and save it to C:\Simba\Scripts
&There ya have it
!