RiSe AgAiNsT's Maple Power Chopper Or PowerChopper/Banker
Note: I Am Still Learning How To Script! So Don't Be That Harsh Please...Maple Power Chopper
SCAR Code:// "INSTRUCTIONS"
// - Just Start In Camelot Bank
Program MaplePowerChopper;
{.Include SRL/SRL.scar}
Var ClickedMapleTree: Integer;
Loads: Integer;
Const MapleTree = 0; // Set Color Of Maple Tree.
Procedure DoAntiRandoms;
Begin
FindTalk;
FindNormalRandoms;
If (FindFight = True) Then
Begin
RunAwayDirection('N');
Wait(10000 + Random(2000));
RunBack;
End;
End;
Procedure FindMapleTrees;
Begin
If FindSymbol(X,Y,'Tree') Then
Mouse(X,Y,0,0,True);
Wait(10000);
End;
Procedure ProgressReport;
Begin
ClearDebug;
Writeln(' Did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln(' Clicked' + IntToStr(ClickedMapleTree) + 'Trees' + ' ');
End;
Procedure ClickingTree;
Begin
Repeat
If FindColor(X,Y,MapleTree,4,2,764,499)Then
Mouse(X,Y,0,0,True);
Wait(10000);
DoAntiRandoms;
ClickedMapleTree:=ClickedMapleTree+1;
Until(InvFull);
End;
Procedure Drop;
Begin
DropTo(2,28);
Loads:=Loads+1;
End;
Begin
SetupSRL;
Repeat
FindMapleTrees;
ClickingTree;
ProgressReport;
Until(False);
End.
Maple Power Chopper & Banker
SCAR Code:// "INSTRUCTIONS"
// - Just Start In Camelot Bank
Program MapleChopperAndBanker;
{.Include SRL/SRL.scar}
Var ClickedMapleTree: Integer;
Loads: Integer;
Const MapleTree = 0; // Set Color Of Maple Tree.
Procedure DoAntiRandoms;
Begin
FindTalk;
FindNormalRandoms;
If (FindFight = True) Then
Begin
RunAwayDirection('N');
Wait(10000 + Random(2000));
RunBack;
End;
End;
Procedure FindMapleTrees;
Begin
MakeCompass('S');
If FindSymbol(X,Y,'Tree') Then
Mouse(X,Y,0,0,True);
Wait(10000);
End;
Procedure ProgressReport;
Begin
ClearDebug;
Writeln(' Did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln(' Clicked' + IntToStr(ClickedMapleTree) + 'Trees' + ' ');
End;
Procedure ClickingTree;
Begin
Repeat
If FindColor(X,Y,MapleTree,4,2,764,499)Then
Mouse(X,Y,0,0,True);
Wait(10000);
DoAntiRandoms;
ClickedMapleTree:=ClickedMapleTree+1;
Until(InvFull);
End;
Procedure BankMapleLogs;
Begin
If FindSymbol(X,Y,'Bank') Then
Mouse(X,Y,0,0,True);
Wait(10000);
OpenBank;
Deposit(2,28,2);
CloseBank;
End;
Begin
SetupSRL;
Repeat
FindMapleTrees;
ClickingTree;
BankMapleLogs;
ProgressReport;
Until(False);
End.


Reply With Quote





