Runningun01
2007-05-20 12:53:24
Hi. I Was Wondering If Anyone Could Help Me Out With This Script. Thanks.
BTW, I Dont Know If THis Is The Correct Section, Sorry For Any Inconvenience.
BTW, I Dont Know If THis Is The Correct Section, Sorry For Any Inconvenience.
Program PowerChopper;
{.include SRL/SRL.scar}
Const
Tree = 4025476; {Setup This Constant With The Color Of Your Tree}
Procedure AntiRandoms;
Begin
FindTalk;
FindNormalRandoms;
if(FindFight=True) then
Begin
RunAwayDirection('E');
Wait(10000+random(3000));
RunBack;
End;
Procedure Cut;
Begin
SetupSRL;
Repeat
if(FindColor(x,y,Tree,3,3,532,-140)) then
MMouse(x,y,0,0);
Wait(200+random(100));
Mouse(x,y,0,0,True);
Wait(200+random(100));
AntiRandoms;
Until(InvFull);
End;
Procedure Drop;
Begin
DropAll;
End;
Begin
Repeat
Cut;
Drop;
Until(False);
End.