SRL Archive - Archive

Mod Mopar - SRL Member Application Form
Mod Mopar

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
I know the basics of HTML

Other Communitys
Moparisthebest.com

How Long have You Played Runescape
More then 4 years now =D

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

In November i heard about RuneScape Private servers. A friend told me to go to moparisthebest.com as it is an good RuneScape Private Server Community, and after exploring I also found the SCAR section on Moparisthebest.com. I think I saw the link of this forum on a post at Moparisthebest.com, and so I came up here. They have great TUT's here, like "Drigers SCAR Tutorial". I think i learned most of that one :)

And now I am here, in this form, typing my history ^^

Everything I didn't learned from "Drigers SCAR Tutorial" did I learn in the "Free SRL Scripts" - Section, and now I am ready for the big scripts =P


P.S. I don't know how I came up with tis name, but whatever, it is stupid.. Please don't vote because this name is stupid, as I would change it if possible.

~Mod Mopar~

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 +-+                       - AutoFighter By Mod Mopar +                                    +-+
 +-+                       +-+-+-+-+-+-+-+-+-+-+-+-+-+-                                    +-+
 +-+                                                                                       +-+
 +-+              Will fight any monster, aslong you set the colors correct!               +-+
 +-+                                                                                       +-+
 +-+                            - With AntiRandom!                                         +-+
 +-+                            - With AntiBan!                                            +-+
 +-+                                                                                       +-+
 +-+                                                                                       +-+
 +-+                                                                                       +-+
 +-+                   1. Fill in the setup (lines 33 -> 88 ).                             +-+
 +-+                   2. Play RuneScape in Low Detail                                     +-+
 +-+                   3. Find yourself a quiet place to Autofight :)                      +-+
 +-+                   4. Drag crosshair over runescape window & press "Play".             +-+
 +-+                                                                                       +-+
 +-+                                   EnJoY!                                              +-+
 +-+                                                                                       +-+
 +-+                                                                                       +-+
 +-+                   No longer use then 8 hours for your own safety ;)                   +-+
 +-+                                                                                       +-+
 +-+                   Thanks to Arr0w For using his Auto-Responder!                       +-+
 +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
 +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }

{.include SRL\SRL.scar}

var
  z, AttackTime, i: Integer;

const
  MonsterColor1     = 0;            // A color of the monster
  MonsterColor2     = 0;            // Another color of the monster
  MonsterColor3     = 0;            // Another color of the monster...
  MonsterColor4     = 0;            // Another color of the monster!
  FoodColor         = 0;            // The color of your food
  ArrowColor        = 0;            // The color of 1 of your arrows
  Range             = False;        // Will you range?
  PickUpArrows      = False;        // Do you want to pick up your arrows?
  BeginPlayer       = 0;            // With what player do you want to start?
  Chat1             = 'hide';       // First chat option, anti-randoms might not work if you don't set at hide
  Chat2             = 'friends';    // Second chat option
  Chat3             = 'off';        // Third chat option
  AutoRespond       = True;         // You want to use Arr0w's Auto-Responder?
  MonstersToKill    = 100;          // How many monsters do you want to kill?
  HPBelow           = 10;           // If your hp drops below this, the script will eat for you
  MonsterWaitTime   = 5;            // How many seconds before clicking on next monster?
  LampSkil          = 'Strength';   // What lamp skill to choose when you get a Genie Lamp?
  BMouse            = True;         // BenMouse, true or false?

Procedure DeclarePlayers;

begin
HowManyPlayers :=6;
CurrentPlayer := BeginPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='RS UserName';  // Typ Here Your RuneScape Username
Players[0].Pass :='RS PassWord';  // Typ here your RuneScape PassWord
Players[0].Nick :='Nick';         // Typ here the 2e, 3e & 4e letter of your RuneScape Username
Players[0].Active:=True;          // Do You Want to use this player? (True = yes, False = no)
Players[0].Skill := 'Strength';   // In what mode do you want to fight? Attack, Strength , Controlled or Defence

Players[1].Name :='RS UserName';  // Typ Here Your RuneScape Username
Players[1].Pass :='RS PassWord';  // Typ here your RuneScape PassWord
Players[1].Nick :='Nick';         // Typ here the 2e, 3e & 4e letter of your RuneScape Username
Players[1].Active:=True;          // Do You Want to use this player? (True = yes, False = no)
Players[1].Skill := 'Strength';   // In what mode do you want to fight? Attack, Strength , Controlled or Defence

Players[2].Name :='RS UserName';  // Typ Here Your RuneScape Username
Players[2].Pass :='RS PassWord';  // Typ here your RuneScape PassWord
Players[2].Nick :='Nick';         // Typ here the 2e, 3e & 4e letter of your RuneScape Username
Players[2].Active:=True;          // Do You Want to use this player? (True = yes, False = no)
Players[2].Skill := 'Strength';   // In what mode do you want to fight? Attack, Strength , Controlled or Defence

Players[3].Name :='RS UserName';  // Typ Here Your RuneScape Username
Players[3].Pass :='RS PassWord';  // Typ here your RuneScape PassWord
Players[3].Nick :='Nick';         // Typ here the 2e, 3e & 4e letter of your RuneScape Username
Players[3].Active:=True;          // Do You Want to use this player? (True = yes, False = no)
Players[3].Skill := 'Strength';   // In what mode do you want to fight? Attack, Strength , Controlled or Defence

Players[4].Name :='RS UserName';  // Typ Here Your RuneScape Username
Players[4].Pass :='RS PassWord';  // Typ here your RuneScape PassWord
Players[4].Nick :='Nick';         // Typ here the 2e, 3e & 4e letter of your RuneScape Username
Players[4].Active:=True;          // Do You Want to use this player? (True = yes, False = no)
Players[4].Skill := 'Strength';   // In what mode do you want to fight? Attack, Strength , Controlled or Defence

Players[5].Name :='RS UserName';  // Typ Here Your RuneScape Username
Players[5].Pass :='RS PassWord';  // Typ here your RuneScape PassWord
Players[5].Nick :='Nick';         // Typ here the 2e, 3e & 4e letter of your RuneScape Username
Players[5].Active:=True;          // Do You Want to use this player? (True = yes, False = no)
Players[5].Skill := 'Strength';   // In what mode do you want to fight? Attack, Strength , Controlled or Defence
end;

procedure LoginIfNeeded;
begin
if LoggedIn=false then LoginPlayer;
end;

procedure Ranging;
var
  ax, ay: integer;
begin
  if (Range = true) and
    (PickUpArrows = true) then
  begin
    if (FindColorSpiral(ax, ay, ArrowColor, 0, 0, 644, 394)) then
    begin
      Wait(5 + random(20));
      Mouse(ax, ay, 3, 3, true);
      Wait(240 + random(180));
    end;
  end;
end;

procedure FindRandoms;
begin
  SetRun(True)
  FindNormalRandoms;
  ClickToContinue;
  CloseWindow;
  FindLamp(LampSkill);
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindDemon;
end;

procedure FindInvRandoms;
begin
  if (Random(4) = 0) then
  begin
    Wait(1);
    FindNewBox
      Wait(1);
    FindLamp(LampSkil);
    wait(1);
  end;
end;

procedure Eat;
begin
  Wait(250 + Random(150))
    GetHP;
  if (GetHP < HPBelow) then
    repeat
      GameTab(4);
      FindInvRandoms;
      if (FindColorSpiral(x, y, FoodColor, 560, 210, 730, 460)) then
      begin
        ClickItemColor(FoodColor, true);
        wait(3000 + random(250));
        z := z + 1;
      end;
    until (GetHP > HPBelow);
end;

procedure IdleMouse;
begin
  SleepAndMoveMouse(500);
  Wait(250);
end;

procedure IdleCamera;
begin
  SendArrowSilentWait(Random(4)+1, 810+Random(122));
end;

procedure Attack;
begin
  if (LoggedIn) then
  begin
    SetChat(Chat1, 1);
    SetChat(Chat2, 2);
    SetChat(Chat3, 3);
  end;
  if (FindColorSpiral(x, y, MonsterColor1, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, MonsterColor2, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, MonsterColor3, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, MonsterColor4, 4, 4, 515, 338)) then
  begin
    FindRandoms;
    FindInvRandoms;
    MMouse(x, y, 3, 3);
    if (IsUpText('Attack')) then
    begin
      Wait(5 + Random(10));
      Mouse(x, y, 3, 3, true);
      FindRandoms;
      FindInvRandoms;
      MarkTime(AttackTime);
      IdleMouse;
      Ranging;
      IdleCamera;
      if (TimeFromMark(AttackTime) = MonsterWaitTime * 1000) then
        i := i + 1;
    end;
    if FindColorSpiral(x, y, MonsterColor1, 4, 4, 515, 338) or
      (FindColorSpiral(x, y, MonsterColor2, 4, 4, 515, 338)) or
      (FindColorSpiral(x, y, MonsterColor3, 4, 4, 515, 338)) or
      (FindColorSpiral(x, y, MonsterColor4, 4, 4, 515, 338)) = False then
      IdleCamera;
    Wait(150 + random(31));
    IdleMouse;
  end;
end;

procedure FightMode;
begin
  if Players[CurrentPlayer].Skill = 'Attack'  then SetFightMode(1);
  if Players[CurrentPlayer].Skill = 'Strength' then SetFightMode(2);
  if Players[CurrentPlayer].Skill = 'Controlled' then SetFightMode(3);
  if Players[CurrentPlayer].Skill = 'Defence' then SetFightMode(4);
end;

procedure AntiBann;
begin
 RotateEvery((5) + random(10));
 AntiBan;
 FindMod;
 BoredHuman;
 RandomMovement;
 end;

Procedure AutoResponderByArrow;
Begin
if (AutoRespond= True) Then
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(Players[CurrentPlayer].Name)) 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') or
    InChat('Hey') or
    InChat('Hello') Then
  begin
    TypeSend('ey')
  end;

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


procedure ProgressReport;
begin
  Cleardebug;
  Writeln('+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+')
  Writeln('+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+')
  Writeln('+-+                Progress report...                 +-+');
  Writeln('+-+                                                   +-+');
  Wait(1000)
  Writeln('+-+    You are using an AutoFighter by Mod Mopar!     +-+');
  Writeln('+-+                                                   +-+');
  Wait(1000)
  Writeln('         This script is running since ' + TimeRunning);
  Writeln('         The currect time is ' + TheTime);
  Writeln('         You have killed ' + inttostr(i) + ' monsters!');
  Writeln('+-+                                                   +-+');
  if (z > 0) and (z = 1) then
    Writeln('+-+         You only ate 1 peice of food!           +-+');
  if (z > 1) then
    Writeln('+-+            You ate ' + IntToStr(a) + ' peices of food.            +-+');
    Writeln('+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+')
    Writeln('+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+')
end;

begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  LoginIfNeeded;
  Ranging;
  repeat
    Attack;
    AutoResponderByArrow;
    AntiBann;
  until (i = MonstersToKill)or (isFKeyDown(10))
  ProgressReport;
  Logout;
  if(not(isFKeyDown(10)))then NextPlayer(True)

end.

One thing: I used Arr0w's AutoResponder with his permission :)

——————————————————

Why you have multiple player forms when theres no multiplay added ?
Also, It doesn't have rotates if monster not found.
I think you should look into SRL more.


For now, I say - no

Oke, it is your choice :)
But what do you mean with there is no MultiPlayer added?

I checked, double checked and three double checked the script before posting, man i am nervious =P

Allready 2 No's :( I worked hard for this, and i know the main SRL rule is multiplayer, thats why i added it.

Not the worst i've seen, but Dawu is right, if im not mistaking it never switches players, nevertheless a yes from me.

But atleast can you explain what i have to do? I am checken the free script section, but i can't find my fault! =/

Look at your favorite script, near the bottom is NextPlayer(true).

OMG ! I TOTALY FORGET !!

But i know that !! because i also made a powerchopper that has it in it !! Oh please, next people , don't vote no for this!!

Oh man, i am stupid :(

Oke, I updated my script to prove i know how to do it !! Please, believe me :( Man, I have screwed it up :(

In a week, 2 votes will be a small percentage.

it wont do anything after the nextplayer(true); ^^ so you should put it in the main loop:) if you manage to do that:) its SRL anyways there is something that is called a edit button… and it is there for a reason

@ Boreas & iloveit = I love these people :)


I just hope I don't get many no's because if this :( People told me so much "Srl is multiplayer, Srl is multipl.."

Its not a end of a world if you won't get in now :)
It took like 5 tries for me before I got in.

5 tries? :eek: In Boreas tread it says you almost can't get in if your first try isn't good :confused:

I did?


edit: V V ah ok

Oh, i confused with another DO & DON'T:

- DO wait a while before trying again if you get rejected.

'-> I confused with this one

DON'T copy scripts. First of all we will catch you. Second it will probably hurt your chances of being accepted next time, even if you do write your own script. It's not worth it, it wastes your time and ours.

I am leaving the pc now - I 'll check this trad tomorrow :)
~Cya all

I am back :)
It's 1 - 4 :( Oh well ..

~Me :D

Sorry, no from me. But keep working on the script. And btw, dont do triple and double posts, You have many of them here…

Oke, sorry

~:(

(*********************************************************************
:o) An Un-Named production                         ^^^             (o:
:o)                                                 |              (o:
:o) Please setup consts on lines 37-53.             |              (o:
:o)                                                 |              (o:
:o) Instructions:                                   \______        (o:
:o)   Please use no more than 9 hours for your own safety. \       (o:
:o)   Start near monsters with color's set                 |       (o:
:o)   Drag The crosshair to the RuneScape window   >_______/       (o:
:o)   32-Bit colors                                                (o:
:o)   Press play                                                   (o:
:o)   Make a cup of tea and relax :)                               (o:
:o)                                                                (o:
:o) Version History:                                               (o:
:o)   Version 1: Initial release                                   (o:
:o)   Version 2: Added ranger support                              (o:
:o)   Version 2.2: Better wait before attacking procedures         (o:
:o)   Version 2.4: Stuff :p                                        (o:
:o)                                                                (o:
:o) Bug reports:                                                   (o:
:o)   Please send all bug reports to Niallcoates@msn.com           (o:
:o)                                                                (o:
:o) Const:                                                         (o:
:o)   Please setup all of the const properly.                      (o:
:o)                                                                (o:
:o) Testers:                                                       (o:
:o)   ChunkyLover                                                  (o:
:o)                                                                (o:
*********************************************************************)

{.include SRL\SRL.scar}

var
  a, AttackTime, i: Integer;

const
  Col1 = 3894656; // First monster color
  Col2 = 4224136; // Second monster color
  Col3 = 3234154; // Third monster color
  Col4 = 3498354; // Fourth monster color
  FoodCol = 0; // Food color
  ArrowCol = 0; // Arrow color
  C1 = 'on'; // 1St chat option, anti-randoms might not work if not at hide
  C2 = 'on'; // 2Nd chat option
  C3 = 'on'; // 3Rd chat option
  MTK = 100; // Monsters to kill,
  HPE = 10; // If your hp drops below this, the script will eat for you
  HPS = 20; // If your health gets greater than this, the script won't eat
  Range = False; // Are you using range?
  BMouse = True; // BenMouse, true or false? Ty SDcit for the idea!
  WaitTime = 4; // Seconds before clicking on next monster
  PUA = False; // Pick up arrows
  LampSkil = 'Strength'; // Lamp skill

procedure IdleMouse;
begin
  SleepAndMoveMouse(500);
  Wait(250);
end;

procedure IdleCamera;
begin
  SendArrowSilentWait(Random(4)+1, 810+Random(122));
end;

procedure ForRangers;
var
  ax, ay: integer;
begin
  if (Range = true) and
    (PUA = true) then
  begin
    if (FindColorSpiral(ax, ay, ArrowCol, 0, 0, 644, 394)) then
    begin
      Wait(4 + random(18));
      Mouse(ax, ay, 3, 3, true);
      Wait(239 + random(178));
    end;
  end;
end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  FindLamp(LampSkill);
end;

procedure FindInvRandoms;
begin
  if (Random(4) = 0) then
  begin
    Wait(1);
    FindNewBox
      Wait(1);
    FindLamp(LampSkil);
    wait(1);
  end;
end;

procedure Eat;
begin
  Wait(247 + Random(148))
    GetHP;
  if (GetHP < HPE) then
    repeat
      GameTab(4);
      FindInvRandoms;
      if (FindColorSpiral(x, y, FoodCol, 560, 210, 730, 460)) then
      begin
        ClickItemColor(FoodCol, true);
        wait(3000 + random(250));
        a := a + 1;
      end;
    until (GetHP > HPS);
end;


procedure Attack;
begin
  if (LoggedIn) then
  begin
    SetChat(C1, 1);
    SetChat(C2, 2);
    SetChat(C3, 3);
  end;
  if (FindColorSpiral(x, y, Col1, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, Col2, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, Col3, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, Col4, 4, 4, 515, 338)) then
  begin
    FindRandoms;
    FindInvRandoms;
    MMouse(x, y, 3, 3);
    if (IsUpText('Attack')) then
    begin
      Wait(5 + Random(10));
      Mouse(x, y, 3, 3, true);
      //Eat;
      FindRandoms;
      FindInvRandoms;
      MarkTime(AttackTime);
      IdleMouse;
      ForRangers;
      IdleCamera;
      if (TimeFromMark(AttackTime) = WaitTime * 1000) then
        i := i + 1;
    end;
    if FindColorSpiral(x, y, Col1, 4, 4, 515, 338) or
      (FindColorSpiral(x, y, Col2, 4, 4, 515, 338)) or
      (FindColorSpiral(x, y, Col3, 4, 4, 515, 338)) or
      (FindColorSpiral(x, y, Col4, 4, 4, 515, 338)) = False then
      IdleCamera;
    Wait(150 + random(31));
    IdleMouse;
  end;
end;

procedure ProgressReport;
begin
  Cleardebug;
  Writeln('Progress report...');
  Writeln(' ');
  Writeln('Time since script started: ' + TimeRunning);
  Writeln('The current time is: ' + TheTime);
  Writeln('Killed ' + inttostr(i) + ' monsters');
  if (a > 0) and (a = 1) then
    Writeln('Ate 1 peice of food!');
  if (a > 1) then
    Writeln('Ate ' + IntToStr(a) + ' peices of food.');
end;

begin
  ActivateClient;
  SetupSRL;
  ForRangers;
  repeat
    Attack;
  until (i = MTK)
    ProgressReport;
end.

You copied The Un-Named's WHOLE SCRIPT then added a player array and arrows responder! How pitiful.. Your such an asshole.

Absolutely NO.

Omg !
Nice Job White
No Fo Sho!

this is getting to be a pretty bad problem
there should be a new rule:
if you EVER copy a script then you get a new cup called noob leecher cup and never get accepted into srl member uncles you make something VERY VERY nice.

From: yohojo8
Omg !
Nice Job White
No Fo Sho!

this is getting to be a pretty bad problem
there should be a new rule:
if you EVER copy a script then you get a new cup called noob leecher cup and never get accepted into srl member uncles you make something VERY VERY nice.

Agreed with noob leecher cup. :D

I'm adding something to my guide.

From: WhiteShadow

(*********************************************************************
:o) An Un-Named production                         ^^^             (o:
:o)                                                 |              (o:
:o) Please setup consts on lines 37-53.             |              (o:
:o)                                                 |              (o:
:o) Instructions:                                   \______        (o:
:o)   Please use no more than 9 hours for your own safety. \       (o:
:o)   Start near monsters with color's set                 |       (o:
:o)   Drag The crosshair to the RuneScape window   >_______/       (o:
:o)   32-Bit colors                                                (o:
:o)   Press play                                                   (o:
:o)   Make a cup of tea and relax :)                               (o:
:o)                                                                (o:
:o) Version History:                                               (o:
:o)   Version 1: Initial release                                   (o:
:o)   Version 2: Added ranger support                              (o:
:o)   Version 2.2: Better wait before attacking procedures         (o:
:o)   Version 2.4: Stuff :p                                        (o:
:o)                                                                (o:
:o) Bug reports:                                                   (o:
:o)   Please send all bug reports to Niallcoates@msn.com           (o:
:o)                                                                (o:
:o) Const:                                                         (o:
:o)   Please setup all of the const properly.                      (o:
:o)                                                                (o:
:o) Testers:                                                       (o:
:o)   ChunkyLover                                                  (o:
:o)                                                                (o:
*********************************************************************)

{.include SRL\SRL.scar}

var
  a, AttackTime, i: Integer;

const
  Col1 = 3894656; // First monster color
  Col2 = 4224136; // Second monster color
  Col3 = 3234154; // Third monster color
  Col4 = 3498354; // Fourth monster color
  FoodCol = 0; // Food color
  ArrowCol = 0; // Arrow color
  C1 = 'on'; // 1St chat option, anti-randoms might not work if not at hide
  C2 = 'on'; // 2Nd chat option
  C3 = 'on'; // 3Rd chat option
  MTK = 100; // Monsters to kill,
  HPE = 10; // If your hp drops below this, the script will eat for you
  HPS = 20; // If your health gets greater than this, the script won't eat
  Range = False; // Are you using range?
  BMouse = True; // BenMouse, true or false? Ty SDcit for the idea!
  WaitTime = 4; // Seconds before clicking on next monster
  PUA = False; // Pick up arrows
  LampSkil = 'Strength'; // Lamp skill

procedure IdleMouse;
begin
  SleepAndMoveMouse(500);
  Wait(250);
end;

procedure IdleCamera;
begin
  SendArrowSilentWait(Random(4)+1, 810+Random(122));
end;

procedure ForRangers;
var
  ax, ay: integer;
begin
  if (Range = true) and
    (PUA = true) then
  begin
    if (FindColorSpiral(ax, ay, ArrowCol, 0, 0, 644, 394)) then
    begin
      Wait(4 + random(18));
      Mouse(ax, ay, 3, 3, true);
      Wait(239 + random(178));
    end;
  end;
end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  FindLamp(LampSkill);
end;

procedure FindInvRandoms;
begin
  if (Random(4) = 0) then
  begin
    Wait(1);
    FindNewBox
      Wait(1);
    FindLamp(LampSkil);
    wait(1);
  end;
end;

procedure Eat;
begin
  Wait(247 + Random(148))
    GetHP;
  if (GetHP < HPE) then
    repeat
      GameTab(4);
      FindInvRandoms;
      if (FindColorSpiral(x, y, FoodCol, 560, 210, 730, 460)) then
      begin
        ClickItemColor(FoodCol, true);
        wait(3000 + random(250));
        a := a + 1;
      end;
    until (GetHP > HPS);
end;


procedure Attack;
begin
  if (LoggedIn) then
  begin
    SetChat(C1, 1);
    SetChat(C2, 2);
    SetChat(C3, 3);
  end;
  if (FindColorSpiral(x, y, Col1, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, Col2, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, Col3, 4, 4, 515, 338)) or
    (FindColorSpiral(x, y, Col4, 4, 4, 515, 338)) then
  begin
    FindRandoms;
    FindInvRandoms;
    MMouse(x, y, 3, 3);
    if (IsUpText('Attack')) then
    begin
      Wait(5 + Random(10));
      Mouse(x, y, 3, 3, true);
      //Eat;
      FindRandoms;
      FindInvRandoms;
      MarkTime(AttackTime);
      IdleMouse;
      ForRangers;
      IdleCamera;
      if (TimeFromMark(AttackTime) = WaitTime * 1000) then
        i := i + 1;
    end;
    if FindColorSpiral(x, y, Col1, 4, 4, 515, 338) or
      (FindColorSpiral(x, y, Col2, 4, 4, 515, 338)) or
      (FindColorSpiral(x, y, Col3, 4, 4, 515, 338)) or
      (FindColorSpiral(x, y, Col4, 4, 4, 515, 338)) = False then
      IdleCamera;
    Wait(150 + random(31));
    IdleMouse;
  end;
end;

procedure ProgressReport;
begin
  Cleardebug;
  Writeln('Progress report...');
  Writeln(' ');
  Writeln('Time since script started: ' + TimeRunning);
  Writeln('The current time is: ' + TheTime);
  Writeln('Killed ' + inttostr(i) + ' monsters');
  if (a > 0) and (a = 1) then
    Writeln('Ate 1 peice of food!');
  if (a > 1) then
    Writeln('Ate ' + IntToStr(a) + ' peices of food.');
end;

begin
  ActivateClient;
  SetupSRL;
  ForRangers;
  repeat
    Attack;
  until (i = MTK)
    ProgressReport;
end.

You copied The Un-Named's WHOLE SCRIPT then added a player array and arrows responder! How pitiful.. Your such an asshole.

Absolutely NO.

OMG? I DID NOT!

From: Mod Mopar
OMG? I DID NOT!

Tsk tsk, if at least said sorry…

I would think about saying yes on your next "legit" app….

From: yohojo8
if you EVER copy a script then you get a new cup called noob leecher cup and never get accepted into srl member uncles you make something VERY VERY nice.

I think never ever.

Mod Mopar…be ashamed! Im going to talk to a admin about that Noob Leecher cup, but untill then….may you be stricken by the village idiot cup!

tea uiv caught over 7+ people who have copied scripts.
I want a special title too =).
Application Shark or something haha
I love cruzing through the apps and giving advice and chewing out the noobs who copied stuff.
I even take the time to find the exact procedure they took, and link them to it haha.

Tssk, tssk, doesnt look good for you "Mod Mopar"…

i say we do something unkind to him for this gross breach of trust within scripters…he needs to be made an example of…

Thers a lot others that are just like him.
Heres i always find them, and pwn them.
Im like a bounty hunter =p.
Hers my favorite one!:http://dakotastorm.sslpowered.com/villu-reborn.com/showthread.php?t=5677

Look though threads for more.
I love pwning leecher noobs!

You even repeated the misspelling of pieces. Changed variable a to z, added player array with lampskill property, but didn't take it out of const.

Rofl.

Hey YoHo, wanna start a "anti leecher noob team"?

I say create a thread in the member section with every denied app, with reason and date. That way we can auto no plagiarizers, and know when people are reapplying too soon.

Also build into our scripts little problems that have to be solved with some scripting knowledge before they can work.

From: Boreas
I say create a thread in the member section with every denied app, with reason and date. That way we can auto no plagiarizers, and know when people are reapplying too soon.

Also build into our scripts little problems that have to be solved with some scripting knowledge before they can work.

Yesh good idea. People could read them, and get familiar of what level scripting members are looking for.

EDIT: Members section? I think free section is better.

Well non members can't see other applications…

i still think we should throw in a special cup…just for this nooby leecher

You can get started on the pic :p

Can and will. Its going to move too.

Lol, add in a pic of a pussy. Jk Jk.

@ Solarwind : -.-

I was thinking a little stick man going "OMG LeT mE in Pl0x!!!11! HeRes my 1337 H@XXoR ScRiPT" Then other stickmen own him.

Just occured to me Mod Mopar didnt post here anymore ?

Thats ok, he prob reads these so he will a drift of how upset we are….

I just want to know one thing, Mod Mopar, do you even know what a mopar is?

Hehehe, I know I love Mopar :), Oh question Mopar, do you watch overhaulin?

From: Sebo
Hehehe, I know I love Mopar :), Oh question Mopar, do you watch overhaulin?

No, just because I don't have cable ;)

oh damn dude, get it lol :), and anyways, I voted no :P

Same with me i vote no….i loved the coments though =)..and Ruroken…if the new cup is polled if you actually make it…you got a defenite yes from me…thats a hillarious idea

So i dont get a member? :(

No, not with that app. If you have improved since then and did what people have said then you can apply again.

wow…little late on asking dont you think? its been 4 months!