SRL Archive - RS3 Outdated / Broken Scripts

Maple Power Chopper Or PowerChopper/Banker

RiSe AgAiNsT

2007-07-18 22:14:59

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

// "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

// "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.

tb71290bt

2007-07-19 00:59:16

finds the trees and cuts fine but doesnt bank?

BobboHobbo

2007-07-19 05:30:48

Wheres the failsafe? say it cant find the bank, it will just stuff up :)

Also about this

Note: Some Of The Script Was Taken From One Of JAD'S Tutorial, If Im Not Aloud To Do This, Just Post It And I Will Remove This Thread Imediately!

Its a tutorial your allowed to use examples and stuff.

RiSe AgAiNsT

2007-07-19 09:10:02

Ok first there is 2 different scripts. First script just power cuts the maple logs and then drops them and starts cutting maple trees again. Now the second script banks the maple logs it cuts then goes back and cuts some more. So don't be so quick to judge peoples work tb71290bt, I am still learning to script. And I will try to learn how to add failsafe's, I don't know how to do it off the top of my head.

jeffreytuner

2007-07-19 09:53:47

cool script i will try it when im done autoing ess :D

RiSe AgAiNsT

2007-07-19 14:06:24

Thanks for the nice comment jefferytuner :P.

cyclone2527

2007-07-19 22:12:11

You put up a poll about whether something works or not, so its assumed that we are going to judge it and give suggestions.