Hopefully I can get some more help!
I am following this guide:
Code:program PowerChopper; //{$DEFINE SMART8} {$i SRL\SRL.simba} Const SRLStats_Username = '';// Your SRL Stats Username SRLSTats_Password = '';// Your SRL Stats Password BreakEvery = 120; //How many minutes to break after Breakfor = 5; //How long to break for Version = '1.0'; NumbOfPlayers = 1; //How many players you are using StartPlayer = 0; //Player to start auting with (0 means first char) Procedure DeclarePlayers; var i:integer; begin NumberOfPLayers(NumbOfPlayers); CurrentPLayer := StartPlayer; for i := 0 to NumbOfPlayers-1 do Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins']; with Players[0] do begin Name := ''; //Player username. Pass := ''; //Player Password. Active := True; Integers[1] := 4; //1=BrightCopper, 2=DarkCopper, 3=Tin, 4=Iron. Integers[2] := 4; //Seconds to try mining rock before clicking another. end; end; Procedure StatsGuise(wat:String); Begin Status(wat); Disguise(wat); end; Function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean) :Boolean; Begin MMouse (x, y, 5, 5); If WaitUptext (UpText, 1500+Random(500)) Then Begin Result:=True; GetMousePos (x, y); If RClick Then Begin Mouse (x, y, 0, 0, False); Result := WaitOption (Option, 2000); If Result then FFlag (0); End Else Begin Mouse (x, y, 0, 0, True); Wait (100+Random(50)); FFlag(0); End; End; End; Procedure Antiban; Begin Case Random(250) of 0: Begin StatsGuise ('AntiBan') Gametab(tab_Stats) Hoverskill('Woodcut', False) GameTab(28) End; 1: Begin StatsGuise ('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End; 2: Begin StatsGuise ('AntiBan') GameTab (tab_Inv) ExamineInv; GameTab(28) End; 3: Begin StatsGuise ('Antiban') RandomAngle (1); End; 4: Begin StatsGuise ('Antiban') GameTab (Tab_Stats); Wait(3000 + Random(500)); GameTab (28); End; 5: Begin StatsGuise ('Antiban') GameTab(Tab_Stats); HoverSkill ('Random', False); GameTab (28); End; End; End; Procedure Failsafe(Reason:String); Begin Players[CurrentPlayer].Loc:=Reason; Logout; Stats_Commit; //ProgressReport; TerminateScript; End; Function Chopdown:Boolean; Var X, Y, PlusOne, Treecounter: Integer; Begin PlusOne:= InvCount + 1; If FindObjCustom(X, Y, ['Chop', 'Down', 'p' ,'d'], [3627896, 3166827, 3627896, 1454376, 269596, 2044719 ], 10) Then Begin StatsGuise('This is the start of something Great!'); GetMousePos(X, Y); Case Random(1) of 0: Mouse(x, y, 5, 5, True); 1: Begin Mouse(x, y, 5, 5, False); WaitOption('Chop', 500); End; End; Repeat MarkTime(TreeCounter); Antiban; Wait(100); If InvCount=Plusone Then WriteLn('We got one'); Until (InvCount=Plusone) or (TimeFromMark(TreeCounter) > 7000) End; end; begin SetupSRL; DeclarePlayers; SetAngle(SRL_ANGLE_LOW); //Repeat ChopDown //Until(False); end.
My first problem is the
SetAngle(SRL_ANGLE_LOW); It does not put the angle all the way down when I execute the script. I orignally tried using SetAngle(False); But then I get this compiling error
[Error] C:\Simba\Scripts\powerchopper.simba(112:17): Type mismatch at line 111
Compiling failed.
Also when I try to get it to write "We got one" using the WriteLn command nothing gets written.
Another problem is that when
Case Random(1) of
0: Mouse(x, y, 5, 5, True);
1: Begin
Mouse(x, y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;
if It chooses the 1 instead of 0 it does not click Chop Down it just opens up the drop down menu (From when you rightclick in runescape) but dosnt do anything
Code:Function Chopdown:Boolean; Var X, Y, PlusOne, Treecounter: Integer; Begin PlusOne:= InvCount + 1; If FindObjCustom(X, Y, ['Chop', 'Down', 'p' ,'d'], [3627896, 3166827, 3627896, 1454376, 269596, 2044719 ], 10) Then Begin StatsGuise('This is the start of something Great!'); GetMousePos(X, Y); Case Random(1) of 0: Mouse(x, y, 5, 5, True); 1: Begin Mouse(x, y, 5, 5, False); WaitOption('Chop', 500); End; End; Repeat MarkTime(TreeCounter); Antiban; Wait(100); If InvCount=Plusone Then WriteLn('We got one'); Until (InvCount=Plusone) or (TimeFromMark(TreeCounter) > 7000) End; end;


Reply With Quote
