SRL Archive - First Scripts

Steth1010's Rimmington Willow Chopper
This is my first script and it works good. It's my first version and will be making more.

_________________________________________________________________

It doesn't have to be in rimmington but it's better there because around 5-6 willows and rarely people there, also in my last version i'll be making it sell to the store (in rimmington)

EDIT: I releaded out Version 1.7! Fixed some of the problems you guys said I was having
Now for dropping uses DTM's and is a lil laggier there but either than that works great. This is just a simple woodcutter don't expect much. Works well though

EDIT2: Version 1.7 fixed. Made way less repedative. Only 1 chop procedure new randoms, anti ban, working on walk to store + sell.


Version 1.0(Released)

* Chopping Willows
* AntiBan
* Uses FindColor
* Uses DropTo(2,28);
* Progress Report
* Multipul Players
* SRL Random Report
* Basic Randoms


Version 1.5(Released)
Added
* Better Anti Randoms
* Better Progress Report
* Logs out after how ever many loads
* Finds Bird Nests
* Runs from Fights

Version 1.7(Released)
Added
* Better AntiRandoms + Ban
* Better Drop
* AutoResponder

Version 2.0(Not Released)
Adding
* DTM's
* Sell at Store



Would perfer version 1.7 but doesn't matter (In version 2.0-Last Version - will have Walk to and sell at store - )



Please post your proggy reports and comments of how the script works, also suggestions are needed (Remeber first script)

Version 1.0:

program Steth1010_Willow_Chopper;

{                 Rimmington Willow + Dropper
                This script is made by Steth1010

*******************************************************************
                         INSTRUCTIONS
___________________________________________________________________
 1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
 2)Start Loggout
 3)Axe in first Inv spot
 4)Setup lines 28-61
 5)Watch no tree ent Random Yet

                      Anti-Ban/Randoms
 Anti-ban Rotates screen abit then makes north. Also Talks
 Uses Basic Randoms
___________________________________________________________________

*******************************************************************
}

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////

const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)

var
 Clicks, Loads:Integer;


 procedure DeclarePlayers;
begin
  HowManyPlayers := 4; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';//Your Name
  Players[0].Pass :='';//Your Password
  Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
  Players[0].Active:=True;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active:=True;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Active:=True;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Active:=True;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure ProgressReport;
 begin
    Writeln('[]========================================[]');
    Writeln('---------------->Willow Chooper<----------------');
    Writeln('  Chopped Aprox ' + IntToStr(Loads) + ' Loads' + '    ');
    Writeln('---------------------------------------------');
    Writeln('  Did Aprox ' + IntToStr(Clicks) + ' Clicks' + '   ');
    Writeln('[]========================================[]');
end;

procedure Chop;
 begin
  writeln('Found Willow Color, Now chopping');
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(1000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  wait(3000+random(200));
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(3000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
end;

Procedure Ban;
 Begin
  RotateEvery(4+random(3));
  wait(500+Random(200));
  RandomRClickEvery(2+random(3));
  AntiBan;
  findtalk;
  findnormalrandoms;
end;

procedure Chop2;
 begin
 repeat
  MakeCompass('N')
  wait(3000+random(200));
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(3000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  wait(3000+random(200));
  RotateEvery(4+random(3));
  wait(500+Random(200));
  MakeCompass('N');
  RandomRClickEvery(2+random(3));
  FindBirdsNest;
  EnglishWords;
  Ban;
  AntiBan;
  Clicks:=Clicks+1;
 until(InvFull);
end;

procedure Drop;
 begin
 if(InvFull)then
  DropTo(2,28);
  Loads:=Loads+1;
end;

procedure Login;
 begin
  loginplayer;
end;

procedure Angle;
 begin
  HighestAngle;
  MakeCompass('N');
end;

procedure LogsOut;
 begin
  Logout;
end;

procedure Report;
 begin
   SRLRandomsReport;
end;

begin
  SetupSRL;
 repeat
  DeclarePlayers;
  Login;
  Angle;
  Chop;
  Ban;
  Chop2;
  Drop;
  ProgressReport;
  Report;
  LogsOut;
 until(false);
end.

Version 1.5

program Steth1010_Willow_Chopper;

{                 Rimmington Willow + Dropper
                This script is made by Steth1010

*******************************************************************
                         INSTRUCTIONS
___________________________________________________________________
 1)Start in Rimminton at Willows (Doesn't have to be rimmingtion just better there)
 2)Start Loggout
 3)Axe in first Inv spot
 4)Setup lines 28-61
 5)Watch no tree ent Random Yet

                      Anti-Ban/Randoms
 Anti-ban Rotates screen abit then makes north. Also Talks
 Uses Basic Randoms
___________________________________________________________________

*******************************************************************
}

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////

const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)

var
 Clicks, Loads:Integer;


 procedure DeclarePlayers;
begin
  HowManyPlayers := 4; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';//Your Name
  Players[0].Pass :='';//Your Password
  Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
  Players[0].Integer1 := 2;//Loads For Player
  Players[0].Active:=True;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Integer1 := 2;
  Players[1].Active:=True;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Integer1 := 5;
  Players[2].Active:=True;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Integer1 := 5;
  Players[3].Active:=True;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure ProgressReport;
 begin
    Writeln('[]========================================[]');
    Writeln('---------------->Willow Proggy<----------------');
    Writeln('  Chopped Aprox ' + IntToStr(Loads) + ' Loads' + '    ');
    Writeln('  Worked For : ' + ScriptTime2(2))
    Writeln('  Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + '   ');
    Writeln('[]========================================[]');
end;

//------------------------------------------------------------------------\\
{                 FindFastRandoms - By WT-Fakawi.                         ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 9 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7:  If NoGameTab then
           Result := True;
     8:  If InBlack then
            Result := True;
     9: If FindTalk then
          Result := True;
    end;
    wait(1);
  end;
end;

procedure Chop;
 begin
  writeln('Found Willow Color, Now chopping');
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(1000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  wait(3000+random(200));
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(3000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
end;

Procedure Ban;
 Begin
  RotateEvery(4+random(3));
  wait(500+Random(200));
  RandomRClickEvery(2+random(3));
  AntiBan;
  findtalk;
  findnormalrandoms;
  FindFastRandoms;
  If (FindFight) then
 begin
   RunawayDirection('w');
   Wait(3000+random(750));
   RunBack;
  end;
end;

procedure Chop2;
 begin
 repeat
  MakeCompass('N')
  wait(3000+random(200));
  if(FindColor(x,y,WillowColor,0,0,600,600)) then
  wait(3000+random(200));
  MMouse(x,y,0,0);
  wait(3000+random(200));
  Mouse(x,y,0,0,true);
  wait(3000+random(200));
  RotateEvery(4+random(3));
  wait(500+Random(200));
  MakeCompass('N');
  RandomRClickEvery(2+random(3));
  FindBirdsNest;
  EnglishWords;
  Ban;
  AntiBan;
  Clicks:=Clicks+1;
 until(InvFull);
end;

procedure Drop;
 begin
 if(InvFull)then
  DropTo(2,28);
  Loads:=Loads+1;
end;

procedure Login;
 begin
  loginplayer;
end;

procedure Angle;
 begin
  HighestAngle;
  MakeCompass('N');
end;

procedure LogsOut;
 begin
  If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
 begin
  Logout;
end;
end;

procedure Report;
 begin
   SRLRandomsReport;
end;

begin
  SetupSRL;
 repeat
  DeclarePlayers;
  Login;
  Angle;
  Chop;
  Ban;
  Chop2;
  Drop;
  ProgressReport;
  Report;
  LogsOut;
 until(false);
end.

Version 1.7

program Steth1010_Willow_Chopper;

{                 Rimmington Willow + Dropper
                This script is made by Steth1010

*******************************************************************
                         INSTRUCTIONS
___________________________________________________________________
 1)Start in Rimminton at Willows
 2)Start Loggout
 3)Axe in first Inv spot
 4)Setup lines 28-61
 5)Watch no tree ent Random Yet

                      Anti-Ban/Randoms
 Anti-ban Rotates screen abit then makes north. Also Talks
 Uses Basic Randoms
___________________________________________________________________

*******************************************************************
}

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines 28-61///////////////////////////////

const
WillowColor= 2785392;//Willow color (Color should already work)
Log= 1589319;//Willow color in Inv (Color should already work)
Responder = True;//Do You Want To AutoTalk
var
 Clicks, Loads, Talked:Integer;

//////////////////////////////////////////////////////////////////////
///////////////////////////Players///////////////////////////////////
////////////////////////////////////////////////////////////////////


 procedure DeclarePlayers;
begin
  HowManyPlayers := 4; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';//Your Name
  Players[0].Pass :='';//Your Password
  Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
  Players[0].Integer1 := 2;//Loads For Player
  Players[0].Active:=True;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Integer1 := 2;
  Players[1].Active:=True;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Integer1 := 5;
  Players[2].Active:=False;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Integer1 := 5;
  Players[3].Active:=False;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////
///////////////////////////Proggy Report/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure ProgressReport;
 begin
    Writeln('[]========================================[]');
    Writeln('---------------->Willow Proggy<----------------');
    Writeln('  Chopped Aprox ' + IntToStr(Loads) + ' Loads' + '    ');
    Writeln('  Worked For : ' + ScriptTime2(2))
    Writeln('  Dropped Aprox ' + IntToStr(Clicks) + ' Logs' + '   ');
    Writeln('[]========================================[]');
end;

//------------------------------------------------------------------------\\
{                 FindFastRandoms - By WT-Fakawi.                         ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 9 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7:  If NoGameTab then
           Result := True;
     8:  If InBlack then
            Result := True;
     9: If FindTalk then
          Result := True;
    end;
    wait(1);
  end;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Auto Responder////////////////////////////
////////////////////////////////////////////////////////////////////

procedure AutoResponder;
 Var
  Talked: integer;
 begin
  if(Responder = True)then
 begin

  if (InChat('Wc lvls') or
    InChat('Wc lvls?') or
    InChat('Woodcut lvls') or
    InChat('Woodcut lvls?') or
    InChat('Woodcutting lvls') or
    InChat('Woodcutting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
    Talked:= Talked + 1;
  end;

  if (InChat('Attack lvls') or
    InChat('Attack lvls?') or
    InChat('Atack lvls') or
    InChat('Atack lvls?') or
    InChat('Attac lvls') or
    InChat('Attac lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Attack')))
   Talked:= Talked + 1;
  end;

  if (InChat('Defenc lvls') or
    InChat('Defenc lvls?') or
    InChat('Defence lvls') or
    InChat('Defence lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Defence')))
    Talked:= Talked + 1;
  end;

  if (InChat('Hp lvls') or
    InChat('Hp lvls?') or
    InChat('Hitpoint lvls') or
    InChat('Hitpoint lvls?') or
    InChat('Hitpoints lvls') or
    InChat('Hitpoints lvls?') or
    InChat('Hitp lvls') or
    InChat('Hitp lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
    Talked:= Talked + 1;
  end;

  if (InChat('Range lvls') or
    InChat('Range lvls?') or
    InChat('Rangin lvls') or
    InChat('Rangin lvls?') or
    InChat('Ranged lvls') or
    InChat('Ranged lvls?') or
    InChat('Ranging lvls') or
    InChat('Ranging lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Ranged')))
    Talked:= Talked + 1;
  end;

  if (InChat('Pray lvls') or
    InChat('Pray lvls?') or
    InChat('Prayer lvls') or
    InChat('Prayer lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Prayer')))
    Talked:= Talked + 1;
  end;

  if (InChat('Mage lvls') or
    InChat('Mage lvls?') or
    InChat('Mag lvls') or
    InChat('Mag lvls?') or
    InChat('Magic lvls') or
    InChat('Magic lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Magic')))
    Talked:= Talked + 1;
  end;

  if (InChat('Cook lvls') or
    InChat('Cook lvls?') or
    InChat('Cookin lvls') or
    Inchat('Cookin lvls?') or
    InChat('Cooking lvls') or
    InChat('Cooking lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Cooking')))
    Talked:= Talked + 1;
  end;

  if (InChat('Fletch lvls') or
    InChat('Fletch lvls?') or
    InChat('Fletching lvls') or
    InChat('Fletching lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Fletching')))
    Talked:= Talked + 1;
  end;

  if (InChat('Firemaking lvls') or
    InChat('FireMaking lvls?') or
    Inchat('Fire making lvls') or
    InChat('Fire making lvls')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Firemaking')))
    Talked:= Talked + 1;
  end;

  if (InChat('Craft lvls') or
    InChat('Craftt lvls?') or
    InChat('Craftin lvls') or
    InChat('Crafting lvls?') or
    InChat('Crafting lvls') or
    InChat('Crafting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Crafting')))
    Talked:= Talked + 1;
  end;

  if (InChat('Smelt lvls') or
    InChat('Smelt lvls?') or
    InChat('Smelting lvls') or
    InChat('Smelting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Smelting')))
    Talked:= Talked + 1;
  end;

  if (InChat('Rc lvls') or
    InChat('Rc lvls?') or
    InChat('Runecraft lvls') or
    InChat('Runecraft lvls?') or
    InChat('Runecrafting lvls') or
    InChat('Runecrafting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Runecraft')))
    Talked:= Talked + 1;
  end;

  if (InChat('Wna b freinds?') or
    InChat('Wna be freinds?') or
    InChat('Wana b freinds?') or
    InChat('Wana be freinds?') or
    InChat('Want 2 b freinds?') or
    InChat('Want 2 be freinds?') or
    InChat('Want to b freinds?') or
    InChat('Want to be freinds?')) then
  begin
    TypeSend('No ty')
    Talked:= Talked + 1;
  end;

   if (InChat(Players[CurrentPlayer].Name)) then
  begin
    TypeSend('Yeah?')
    Talked:= Talked + 1;
  end;

  if (InChat('lol') or
    InChat('lmao') or
    InChat('rofl') or
    InChat('haha'))then
  begin
    TypeSend('lolz')
    Talked:= Talked + 1;
  end;

  if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
    InChat('Hey' + (Players[CurrentPlayer].Name)) or
    InChat('Hello' + (Players[CurrentPlayer].Name))) then
  begin
    TypeSend('Hi')
    Talked:= Talked + 1;
  end;
  end;

if(not(Responder = True))then
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Chop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Chop;
 begin
 repeat
  if(FindColorTolerance(x,y,WillowColor,0,0,600,600,3)) then
  writeln('Found Willow Color, Now chopping');
  wait(1000+random(200));
  MMouse(x,y,0,0);
  wait(2000+random(200));
  Mouse(x,y,0,0,true);
  wait(2000+random(200));
  if(FindColorTolerance(x,y,WillowColor,0,0,600,600,3)) then
  wait(2000+random(200));
  MMouse(x,y,0,0);
  wait(2000+random(200));
  Mouse(x,y,0,0,true);
  RotateEvery(4+random(3));
  wait(500+Random(200));
  RandomRClickEvery(2+random(3));
  FindFastRandoms;
  AutoResponder;
 until(InvFull);
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Drop Willows//////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Drop;
 begin
  if(InvFull)then
  DropAllLogs;
  Clicks:=Clicks+27;
  Loads:=Loads+1;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player In/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Login;
 begin
  loginplayer;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Arrange Angle/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Angle;
 begin
  HighestAngle;
  MakeCompass('N');
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Log Player Out////////////////////////////
////////////////////////////////////////////////////////////////////

procedure LogsOut;
 begin
  If(LoggedIn) and (Loads >= Players[CurrentPlayer].Integer1)then
 begin
  Logout;
end;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Random Report/////////////////////////////
////////////////////////////////////////////////////////////////////

procedure Report;
 begin
   SRLRandomsReport;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////Repeat Script/////////////////////////////
////////////////////////////////////////////////////////////////////

begin
  SetupSRL;
 repeat
  DeclarePlayers;
  Login;
  Angle;
  FindFastRandoms;
  Chop;
  Drop;
  ProgressReport;
  Report;
  LogsOut;
 until(false);
end.

Next script is a Nature Rune Crafter + Zanaris Banker :) Working well so far.
My nature script so far. If have any suggestions or want to help just tell me under your post

program Nature_RuneCrafter;

{                     Nature Rune Crafter
                This script is made by Steth1010

*******************************************************************
                         INSTRUCTIONS
___________________________________________________________________
 1)Start at Zanaris Bank
 2)Start Logged out
 3)Have Pouches or not and the staff for fairy rings weilded
 4)Setup lines
 5)Set detail low and V-Bright on
 6)Turn P-Chat,Trade,Pub-Chat off


                        **Routine**

 1)Starts at bank
 2)Takes out pure ess and puts in pouches if have any
 3)Turns run on
 4)Runs to fairy ring
 5)Does Code walks to Crafter
 6)Makes nats, Takes pure ess out of pouches, makes nats
 7)Walks to bank, repeats

                        **Includes**
 1)Randoms
 2)Anti Ban
 3)Proggy Report
 4)FindColorTolerance
 5)Multipul Players
 6)Forms
 7)Autotalk/Respond


                      Anti-Ban/Randoms
 Anti-ban Rotates screen abit then makes north. Also Talks
 Uses Basic Randoms
___________________________________________________________________

*******************************************************************
}

//////////////////////////////////////////////////////////////////////
////////////////////////////SET UP///////////////////////////////////
//////////////////////////lines ///////////////////////////////

Const
BankSymbol= 0;//Bank Symbol on MiniMap
FairyRingSymbol= 0;//Fairy Ring on MiniMap


procedure DeclarePlayers;
 begin
  HowManyPlayers := 4; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';//Your Name
  Players[0].Pass :='';//Your Password
  Players[0].Nick :='';//3-4 letters - E.G - Name = yummy, Nick = umm
  Players[0].Integer1 := 2;//Loads For Player
  Players[0].Active:=True;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Integer1 := 2;
  Players[1].Active:=True;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Integer1 := 5;
  Players[2].Active:=True;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Integer1 := 5;
  Players[3].Active:=True;
end;

//////////////////////////////////////////////////////////////////////
///////////////////////////END SET UP////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure ProgressReport;
 begin
    Writeln('[]========================================[]');
    Writeln('---------------->Willow Proggy<----------------');
    Writeln('  Banked Aprox ' + IntToStr(Loads) + ' Times' + '    ');
    Writeln('  Worked For : ' + ScriptTime2(2))
    Writeln('  Made Aprox ' + IntToStr(Clicks) + ' Natures' + '   ');
    Writeln('[]========================================[]');
end;

//------------------------------------------------------------------------\\
{                 FindFastRandoms - By WT-Fakawi.                         ||
\\------------------------------------------------------------------------//}
function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 9 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7:  If NoGameTab then
           Result := True;
     8:  If InBlack then
            Result := True;
     9: If FindTalk then
          Result := True;
    end;
    wait(1);
  end;
end;

Procedure Bank;
 begin

I don't know if you will like it. It's my first script so please give some suggestions. Thanks

Ahh! a remmington chopper! Looks a bit good so far

Expect a proggy later :P

I have a lil proggy, says how many loads its done and how many willows it chopped. Well please post your proggy reports and your random reports.

Next version coming out in about 2 days keep a look out! Its way better

why rimmington only? if it is a powerchopper, can't it run anywhere?

Oh it can, just rimmington is a better place. Around 5-6 willows and barely anyone there + one of my versions im going to be making is that it walks to store and sells (Store is very close there)

EDIT: Made a better proggie next version i am only adding FindcolorTolerance and Sell at Store!
Thats the only things im adding then im done for that script!

WORKS FOR HRS! Proggie report

Chopped Aprox 83 Loads
Worked For : 1 Hours 17 Minutes 13 Seconds
Dropped Aprox 1328 Logs

ARG!! MY PURE WCER GOT SCAMMED! PISSED OFF AND WAS STOLEN BY A SRL MEMBER! I GOT PROOF (WELL MY MISTAKE ALITTLE BIT)

hey, looks pretty good, only thing i would suggest is using maybe dtms for dropping?. theres a very good tut somewhere about them in intermediate scetion i think.


also, when u put writeln found willow shouldn't u put that after it has found the colour and not before?

lol thanks ya just I did that because im editing it and making it do end else. I know how to do all that stuff just got no time. Ill fix that and alright ill try DTMs for dropping. Please post Proggie Reports :)

Well if DTMs dont work out for you, DropAllLogs; would use DTMs to drop all your logs, maybe a bit easier? I would like a version that cuts and sells. I will have to get an oak cutter and seller to get my lvl up and some moneys :p I might try it out when it is intents.

Ya my next version i am making it sell at store, and use DTM drops..

Post Proggies please!! :)

nice sounds really good :)

Ya i got brand new randoms and im using DropAllLogs; now just needa make it walk.. Im probably going to use find water symbol then general store symbol then guy and stuff. I might need some help aslo if you want to help.

ya sure, ill help u out

WOW! Nice job.. I cant wait for it to sell…

I didnt even knwo there was willow trees in rimmington.. Great script!

Thanks for the complements and Wobbii I don't really know how to make it walk so you could maybe teach and we can work together.. You got MSN?

Hope this works good

I could help but i dont have much time lately, i wont be on today at all, but tomorrow around 5 or 6 PM (AST) i might be on. I will PM my msn.

aight sweet. All i need help is to use radialwalk and sell at store thats all.

From: steth1010
aight sweet. All i need help is to use radialwalk and sell at store thats all.

Read my tut then :D Learning the things to become a SRL member. That may help you in learning radial walk. Should especially help you when not walking on road/by water, because thats the most complicated.

You cannot become a SRL Member before you make script that doesn't click every 4 sec, but instead waits untill the tree is gone or something..

looks nice

I am finished Version 2.0 just I need to fix one little bug. Will be released tonight probably:) thanks for the suggestions and complements, please post proggies reports

Hmmm… did you realease 2.0 then un-release? cause for some reason I have 2.0…… strange…

EDIT: I have been using 2.0 for a few hours… it is uber ;) Onyl problem I see is 1. Ents, 2. (SRL I THINK) Lags A LOT when sees username. 3. Auto-responder BROKEN.

THas no ent protection- ent ate my mith axe.

Hello?? ..

lol sry ill fix it, how long did it work for tho

Like 20 mins because it broke..

pretty basic.. add failsafes and it would be better

Failed when compiling
Line 51: [Error] (51:1): Unknown identifier 'MMouse' in script C:\Program Files\SCAR 3.11\includes\srl\srl\extended\xObject.scar


UH????

Hello all, i'm waiting for so long time for a good chopper im lvl58 and i need to train more for yews so can you help me plz and i havenow a error on line 134 unknow indifinder 'rotateEvery' in script, can you help me, thanks

Buddy, you should really add those in attachments.:)

omfg excellent excellent excellent 5 star great work!

yea, hi

i'm new to all this scar stuff, buy when i try to run your 1.7 version, it comes up with

'Line 51: [Error] (14947:12): Unknown identifier 'INTEGER' in script'

Any tips on what i should do?