SRL Archive - RS3 Outdated / Broken Scripts

AWE
A:Auto
W:Willow Chopper
E:Evolution

I Have Updated it out of beta. Hopefully it will work nicely now. I am working on AWE 2 which will be a pay script. Post your proggies :)

Vesrion History:
V0.1B -It compiles :)
V0.1 -It works, hopefully :)
V2 -Coming soon, it will be l337

//              ____
//             / _  \
//            / |_|  \
//           /   __   \__      __
//           |  /  \  |\ \ /\ / /____
//           |  |  |  | \ V  V //  -_)
//           |__|  |__|  \_/\_/ \____|

//                    AND NOW A BANKER!
//                      ~Remastered~
//[------------------| Details |------------------]
//[         Title: Akarims PowerCutter            ]
//[         Version: Version 3.5                  ]
//[         Creator: Akarim                       ]
//[         Contact: [email]Jiwman88@hotmail.com[/email]         ]
//[---------------| Description |-----------------]
//[ This script will automaticly cut the trees    ]
//[ in draynor and (Willow) then once your pack is]
//[ full it will bank the logs, Thus gaining exp  ]
//[ in the Woodcutting skill. This script has SRL ]
//[ with anti-randoms and anti-fights. Have Fun :)]
//[---------------| Instructions |----------------]
//[ 1) Start next to the tree you want to cut     ]
//[ 2) Fill in the setup on lines -----           ]
//[ 3) Fill in lines -------------                ]
//[ 4) Set Ent color in line ---                  ]
//[ 5) Drag the crosshair onto Runescape          ]
//[ 6) V-Bright, 32 bitcolor                      ]
//[ 7) Press play and watch it cut and drop 1 load]
//[ Have Fun, to post all bugs and reports please ]
//[-----------------------------------------------]
//[ Official Web-Thread-none yet                  ]
//[                                               ]
//[-----------------------------------------------}
program WillowExtreme;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

const
////////////////SET THESE UP/////////////
Username='Woo';
Nick='Woow';
Waittime=3000;  //<--3 Seconds Default
WC1=1;           //<--Set Willow Color
WC2=2;           //<--Set Willow Color
WC3=3;           //<--Set Willow Color=
BC1=9;           //<--Set Color Of Banker
BC2=10;           //<--Set Color Or Banker
BC3=11;           //<--Set Color of Banker
Tri=12;           //<--Set how many trips to do
LC1=13;           //<--Set Log Color
LC2=14;           //<--Set Log Color
LC3=15;           //<--Set Log Color

var
L:integer;
T:integer;
E:integer;

Procedure DeclarePlayers;
begin
     HowManyPlayers  :=4;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Loc  :='';
     Players[0].Skill:='';
     Players[0].Active:=True;

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

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

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


Procedure Printout;

begin
 WriteLn(' _____                        _____      _   _             ')
 WriteLn('|  __ \                      / ____|    | | | |            ')
 WriteLn('| |__) |____      _____ _ __| |    _   _| |_| |_ ___ _ __  ')
 WriteLn('|  ___/ _ \ \ /\ / / _ \ ''__| |   | | | | __| __/ _ \ ''__| ')
 WriteLn('| |  | (_) \ V  V /  __/ |  | |___| |_| | |_| ||  __/ |    ')
 WriteLn('|_|   \___/ \_/\_/ \___|_|   \_____\__,_|\__|\__\___|_|    ')
 WriteLn('                      ~Remastered~')
 WriteLn('                       NOW BANKS!')
end;

Procedure Updates;
begin
 WriteLn('Hello, thank you for using A.W.E.')
 WriteLn('Check for updates regularly!')
 WriteLn('Thanks to Arr0w for autoresponder :)');
end;

Procedure LoadBTMPS;
 var BankSymbol, FishSymbol :integer;
 begin
        FishSymbol := BitmapFromString(21, 17, 'z78DAEDD5D10A80200C' +
       '05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B9052' +
       '9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D57F9' +
       '1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A2387' +
       '8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA2E43' +
       'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDCE6BE' +
       '7BFBBCFBF72E2D8CFB8053C63B21E');

         BankSymbol := BitmapFromString(22, 24, 'z78DAED95D10A80200C' +
       '457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C0E65' +
       '46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA2DD3' +
       'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6DE80A' +
       '148E730402E76BCF7715D5E318097BB2418A87EA06AD1968122A1' +
       'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A1870169' +
       '50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B7F13' +
       '');
       
 end;


Procedure Setup2;
 begin
  setupsrl;
  highestangle;
  MakeCompass('N');
  FindEnt(WC1);
  FindEnt(WC2);
  FindEnt(WC3);
  findnormalrandoms;
  Findmaze;
  findmime;
  findlamp('Woodcutting');
  FindHead;
  AttachHead;
  TalkToRand;
  DwarfItem;
  SolvePinBall;
  FindScapeRune;
  SolveFrog;
  If (FindFight) Then
  Runawaydirection('N')
  Wait(25000+Random(5000))
  RunBack;
  If (Finddead) then
  RandomNextPlayer(True);
 end;

Procedure Responder;
begin
  if (InChat('Mining lvls') or
    InChat('Mining lvls?') or
    InChat('Mine lvls') or
    Inchat('Mine lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Mining')))
  end;

  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')))
  end;
  if (InChat('Fish lvls') or
    InChat('Fish lvls?') or
    InChat('Fishin lvls') or
    InChat('Fishin lvls?') or
    InChat('Fishing lvls') or
    InChat('Fishing lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Fishing')))
  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')))
  end;

  if (InChat('Strengh lvls') or
    InChat('Strengh lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Strengh')))
  end;

  if (InChat('Defenc lvls') or
    InChat('Defenc lvls?') or
    InChat('Defence lvls') or
    InChat('Defence lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Defence')))
  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')))
  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')))
  end;

  if (InChat('Pray lvls') or
    InChat('Pray lvls?') or
    InChat('Prayer lvls') or
    InChat('Prayer lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Prayer')))
  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')))
  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')))
  end;

  if (InChat('Fletch lvls') or
    InChat('Fletch lvls?') or
    InChat('Fletching lvls') or
    InChat('Fletching lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Fletching')))
  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')))
  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')))
  end;

  if (InChat('Smelt lvls') or
    InChat('Smelt lvls?') or
    InChat('Smelting lvls') or
    InChat('Smelting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Smelting')))
  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')))
  end;

  if (InChat(UserName + '?')) then
  begin
    TypeSend('Yeah?')
  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')
  end;

  if (InChat('Hi' + UserName) or
    InChat('Hey' + UserName) or
    InChat('Hello' + UserName)) Then
  begin
    TypeSend('Hi')
  end;

  if (InChat('You are a noob' + UserName) or
    InChat( UserName + 'you are a noob')) then
  begin
    TypeSend('Okay')
  end;

  if (InChat('What music do you people like?') or
    InChat('Wat music do you guys like?') or
    InChat('What music you ppl like?') or
    InChat('Wat music do yoo  peeps like')) then
  begin
    TypeSend('Rock FTW!!')
  end;
end;

Procedure Notban;
 var
 NoBan : Integer;
  begin
   if ( not ( LoggedIn )) then Exit;
   NoBan:=Random(50)
    case NoBan of
     1: RandomRClickEvery(2 + Random(15));
     2: hoverskill('woodcutting', false);
     3: hoverskill('random', false);
     4: DoEmote(1 + Random(20));
     5: BoredEvery(9 + Random (21));
     6: PickUpMouse;
     7: LeaveScreenEvery(10 + Random(5));
     8: RotateEvery(20 + Random(5));
    end;
   end;


Procedure NexttotreeCheck;
 var FishSymbol, x, y: Integer;
 begin
  FishSymbol := BitmapFromString(21, 17, 'z78DAEDD5D10A80200C' +
       '05D05FDA0A713D9AD1FF7F528485A33529B6822085FB50D2B9052' +
       '9C03F2E0F6CCE87C544298E414BD601BDDCB6A836A91DF04D57F9' +
       '1A5FD01517724AF39E18E2DCEBE2F1EE8D0E42E7A24C4D27A2387' +
       '8E89B5566AB03EF69D7013B9A0E2975B9664DBF773F7FFEBA2E43' +
       'C962ED570CBADAA15A5CE4C9DBD63E7E7F9CB4B434E9F6BDCE6BE' +
       '7BFBBCFBF72E2D8CFB8053C63B21E');
      if(findbitmap(FishSymbol, x, y))then
      MakeCompass('N');
      WriteLn('Found the tree spot.');
      Setup2;
 end;

Procedure Findandchop;
var x,y :integer;
begin
  Notban;
  setup2;
  Responder;
  If (FindFight) Then
   begin
     Runawaydirection('N')
     Wait(25000+Random(5000))
     RunBack;
   end;
  if findcolorspiral(x,y,WC1,3,3,515,336)or
     findcolorspiral(x,y,WC2,3,3,515,336)or
     findcolorspiral(x,y,WC3,3,3,515,336) then
   begin
     Notban;
     Responder;
     Case Random(20) of
       0:TypeSend('lalala');
       1:TypeSend('Yes WC lvl!');
       2:TypeSend('Hey Hey everyone');
       3:TypeSend('700 more to go....');
       4:TypeSend('Bored....');
       5:TypeSend('Almost there!');
       6:TypeSend('he he he');
       7:TypeSend('I whish i was a higher lvl');
     end;
     mmouse(x,y,2,2)
     if(IsUpTextMulti('Chop','op','Ch')) then
      getmousepos(x,y);
      Mouse(x,y,0,0,true)
      Begin
        Case random(3) of
          1: hoverskill('woodcutting', false);
          2: PickUpMouse;
          3: LeaveScreenEvery(10 + Random(5));
        end;
      end;
      wait((WAITTIME*1000)+Random(500))
      if not loggedin then
       RandomNextPlayer(True);
      L := L*28;
      T := T+1;
   end;
end;

Procedure Bank;
  var BankSymbol, x, y: Integer;
begin
  Setup2;
  Notban;
  Responder;
  BankSymbol := BitmapFromString(22, 24, 'z78DAED95D10A80200C' +
       '457F494B141F53F3FF3FA960040B59AD74F69057B844A0F7C0E65' +
       '46A68A8424EE97D51DE2537DA90C31A9C8FF3C9E1BF080FCA2DD3' +
       'D79CB449373CC2E9A5BB688D9A16EBB33F4804187016FEC6DE80A' +
       '148E730402E76BCF7715D5E318097BB2418A87EA06AD1968122A1' +
       'EA22C7C0EF8D2A06C6DDE433544D89CBBBC9EF87B6930A1870169' +
       '50E2E31B1C1E17C6A2EF57FBFBABE9B43DFE8A735DD006D2B7F13' +
       '');
  if(findbitmap(BankSymbol, x, y))then
   wait(3000)
  Begin
    Case random(4) of
      1: MMouse(x,y,3,3)
      2: MMouse(X,y,4,4)
      3: MMouse(x,y,5,5)
      4: MMouse(x,y,6,6)
    end;
    getmousepos(x,y);
    Mouse(X,y,3,3,true)
    wait(7000)
    if findcolorspiral(x,y,BC1,3,3,515,336)or
       findcolorspiral(x,y,BC2,3,3,515,336)or
       findcolorspiral(x,y,BC3,3,3,515,336) then
     MMouse(X,y,3,3)
    getmousepos(x,y);
    Mouse(X,y,3,3,true)
    if(IsUpTextMulti('Bank','Ba','nk')) then
     Getmousepos(x,y);
     Mouse(x,y,0,0,true)
    if findcolorspiral(x,y,LC1,3,3,515,336)or
       findcolorspiral(x,y,LC2,3,3,515,336)or
       findcolorspiral(x,y,LC3,3,3,515,336) then
     getmousepos(x,y);
     Mouse(X,Y,3,3,true)
    getmousepos(x,y);
    Mouse(X,y,3,3,true)
    if(IsUpTextMulti('Deposit All', 'All', 'Al')) then
     getmousepos(x,y);
     Mouse(X,y,0,0,false)
    Begin
      Case random(50) of
        1: hoverskill('woodcutting', false);
        2: PickUpMouse;
        3: LeaveScreenEvery(10 + Random(5));
        4:TypeSend('lalala')
        5:TypeSend('Yes WC lvl!')
        6:TypeSend('Hey Hey everyone')
        7:TypeSend('700 more to go....')
        8:TypeSend('Bored....')
        9:TypeSend('Almost there!')
        10:TypeSend('he he he')
        11:TypeSend('I whish i was a higher lvl')
      end;
      begin
        if not loggedin then
         RandomNextPlayer(True);
      end;
    end;
  end;
end;

Procedure ProgressReport;
 begin
  WriteLn('==================================');
  WriteLn('Thanks for using my WillowChopper.');
  WriteLn('It has cut' + inttostr(l) + 'Loads.');
  WriteLn('It has done' + inttostr(t) + 'Trips.');
  WriteLn('==================================');
 end;
begin
repeat
DeclarePlayers;
Printout;
Updates;
LoadBTMPS;
Setup2;
Nexttotreecheck;
FindandChop;
until (InvFull) then
Bank;
ProgressReport;
until(L>Tri*27);
end.

//(C) Akriam/G.A.S.P. Inc. 2006
//Thanks to everyone who  helped :)

Progress Reports (post yours):

Bugs:

AWE 2 Info:
Me and G.A.S.P. (C) Staff are workin on AWE2, the next generation of log cutters. It will most likely be a pay script for anywhere from 500k-1M. It will also have 'extensions' you can purchase such as log burners and maybe a powerminer.

It will have:
-Auto Color
-DTMS
-Another Mouse Procedure option (Auose)
-VERY random walking
-VERY random Banking
-An overall great script!

Everyone, it is out of BETA! (I would appreciate some feedback, since no one even posted about the beta ;))

whats a mm color??
for bank and tree

MM is bank, 1 second Im updating it, just realized an error.

EDIT: Try it now ;)

Line 498: [Error] (16364:17): Identifier expected in script

i always get this error

when i run it it does not bank them it gets stuck in bank

getting the same error on compiling:

Line 523: Identifier expected in script.

From: durkaman13
when i run it it does not bank them it gets stuck in bank

So you got it to run ;) Also what was the error, i tried alot of different ways. And about the bank, I will update that next time, does it cut okay though?