Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program PowerChopper;
- //{$define SMART8}
- {$I SRL-OSR/SRL.Simba}
- {$I SRL-OSR/SRL/Misc/SmartGraphics.Simba}
- Const
- SRLStats_Username = '';
- SRLStats_Password = '';
- NumberOfPlayers =1;
- StartPlayer =0;
- procedure DeclarePlayers;
- var i:integer;
- begin
- NumberOfPlayers(1);
- CurrentPlayer := StartPlayer;
- with Players[0] do
- begin
- name := '';
- Pass := '';
- Active := True;
- Integers[1] := 4;
- Integers[2] := 4;
- end;
- end;
- Function CheckAndClick(UpText, Option:String: X, Y:Integer: RClick:Boolean) :Boolean;
- Begin
- Mmouse(x, y 5, 5);
- If WaitUpText, 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;
- Function ChopDown;
- Var
- X, Y: Integer;
- Begin
- If FindobjCustom(x, y, ['Chop', 'down', 'p d'], [3826047, 3826047, 3627638, 4023941, 4287885, 4221835], 30) Then
- WriteLn('horray, we found a tree');
- End;
- begin
- SetupSRL;
- Repeat
- Chopdown;
- Until(false);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement