SRL Archive - RS3 Outdated / Broken Scripts

Um…ya I forgot to release this but this pretty much power chopps yews in LUMBRIDGE. If you guys like it enough I will update. All I know is it compiles, I have gotten reports that it works good, but I dunno.

program LumbyYewChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

Const YC1=3563608;
Const YC2=1929312;
Const YC3=4025733;
Const Waittime=1000;
Const Username='******';


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('')
end;

Procedure Updates;
begin
 WriteLn('Hello, thank you for using Lumbridge Yew Terror!')
 WriteLn('Check for updates regularly!')
 WriteLn('Thanks to Arr0w for autoresponder :)');
end;

Procedure Setup2;
 begin
  setupsrl;
  highestangle;
  MakeCompass('N');
  FindEnt(YC1);
  FindEnt(YC2);
  FindEnt(YC3);
  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 TreeSymbol, x, y: Integer;
 begin
        TreeSymbol := BitmapFromString(21, 16, 'z78DABD955B0EC42008' +
       '45B784DAFAF8B48DEE7F49E3844E42C390DA8AC5E4FE9870F0A20' +
       '870330298B6249D1124FFEEB7BA15496754C22906BC0763200244' +
       'AA7F2A1938EF29DBBEE42F91704372936AE8A10B9A7DAAE929FD8' +
       '22BD0D18792EB6FF7A1032374D60B2DFA85F3021DBBA04DEFEDFE' +
       '389DD78039176B1D1CF925AED6DD43A599299DEFEABE38AE9C2E4' +
       'E3FA59973CCBAD42C0E485F8B8B362A733BE63CF5F974BB5EF971' +
       '5EFAE3A6C507E9A39CCE');
      if(findbitmap(TreeSymbol, 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,YC1,3,3,515,336)or
     findcolorspiral(x,y,YC2,3,3,515,336)or
     findcolorspiral(x,y,YC3,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;

begin
DeclarePlayers;
Printout;
Updates;
Setup2;
repeat
Responder;
Notban;
nexttotreecheck;
Findandchop;
until (Invfull)
DropTo(2,28)
end.

w00t 1st post, ill try it out. also, i didnt see a report procedure, would it be okay if i added one and then reposted in this thread?

Sure, this is something I just dug up, lol, never really worked on it but it happened to work, so I posted it. If people like it i I will make it tele to lumby if lost, bank, and walk back from lumby….If I have the time :)

Lol ok I'll test it out tmarow mabey

Ya lol sorry everyone I posted that it chopped in Varrock, but it chops in lumbridge…although, it will probably work in varrock too.

i hav no idea why anyone wud want to drop yews.

This script is dumb… I rather drop willows and oaks or trees instead of yews!!!

Nice script… But yews are slow to chop and worth big bucks, so its not really a good idea to drop them ;) U should make banking i guess..

Looks good, but u could make it bank the yews, or sell them to general store(if u would have time to do tht):D

hmm ill test it but there all right. why drop yews?

From: fastdude11
…why drop yews?

So I can pick them up :p

Powercutting yews makes me cry :(
But wouldn't be too hard to change it to bank in draynor

I will try it out when i get home tonight.

I was just thinking instead of telling him to put the bank procedure in, you could not be lazy and watch the script and pause it when you have a full load and bank then and go back and restart it.

From: Deni_mulic
Powercutting yews makes me cry :(
But wouldn't be too hard to change it to bank in draynor

yea but when making it bank in draynor its hard because the road changes alot when the cam moves and also the bank sign has started to move also so it would take soem time to script.
just to let you know lol=D

but yea excellant script i used it and its works but i only did it till it got to the yews because like poeple say whats the point of dropping yews =D

Yea it doesn't banks the yews :D

Lol.

Just saying but it looks like when you do…

const color = 2949
const color1 = 3989
or whatever you used to script in VB1 (Virtual basic 1-4 editions) I relize that because I used to be a virtual basic scripter at the age of…5…-.-:sasmokin:

seling noob lvl 3 with mining 60 ore wc 61 !!! msg me !

From: hakeris15
seling noob lvl 3 with mining 60 ore wc 61 !!! msg me !

The forum rules clearly state that any kind of selling on the forums is not allowed

From: hakeris15
seling noob lvl 3 with mining 60 ore wc 61 !!! msg me !

Oh, and also, please don't bump old threads…its 'aight if you're posting something that's reasonable, useful, etc; but its quite rude to bump an old post with spam.

if your going to make a script at least put some time into it so it is not just a waste of precious time.:google:

Thats just a waste and ull get reported or banned faster if someone sees u dropping yews….thats silly

wont work for me
yet to find another yew chopper and banker since the interface update