SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
scar_ownz - SRL Member Application Form
scar_ownz

What is the meaning to life?


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



Programming Knowledge
java

Other Communitys
moparisthebest,moparscape

How Long have You Played Runescape
6 years

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

I started Runescape cheating about a year and a half ago. read some scar tutorials and wrote a few noob scripts. submitted my chicken slayer script for
srl member application over at moparisthebest and was accepted.

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

program chickenslayer;

// Chicken slayer by scar_ownz
// modification allowed, redistribution allowed
// USE AT OWN RISK
// NOT FINISHED

{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
var
  fought, chick3, chick4, chick5: integer;
var
  chatter: array[1..12] of string;
  hello: array[1..5] of string;
const
  tofight = 500; // how many chickens to kill
  chick1 = 8684946; //chicken color 1
  chick2 = 15198186; //chicken color 2
  feathercolor = 63653; // color of chicken feather on ground

procedure DeclarePlayers;
begin
  HowManyPlayers := 5;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;

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

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

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

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Active := false;

end;


  procedure setupchat;
begin
 //change phrases each time script is ran
 chatter[1] := 'how many feathers you people got';
 chatter[2] := 'collecting feathers is good money';
 chatter[3] := 'i hope to get 20k feathers';
 chatter[4] := 'dang im bored';
 chatter[5] := 'die chickens';
 chatter[6] := 'die chickens muahahahahahaha';
 chatter[7] := 'die chickies';
 chatter[8] := 'die chickies muahahahahahahaha';
 chatter[9] := 'muahahahahaha dead chickens';
 chatter[10] := 'muahahahaha dead chickies';
 chatter[11] := 'skill totals';
 chatter[12] := 'im bored';
 ////////////////////////////////
 hello[1] := 'hello';
 hello[2] := 'hey';
 hello[3] := 'hi';
 hello[4] := 'how r u';
 hello[5] := 'sup';
 end;


 procedure AutoResponder;

 Begin
  if InChat('Hello') or InChat('Sup') or InChat('Hey') or InChat('Hi')
  then
     Begin
         if (random(10)= 5) then
            Begin
              TypeSend(Hello[random(10)]);
               end;
             /////////////////////////////////
   end;
   if InChat('Macro') or Inchat('autoer') or InChat('Autoer') or InChat('bot') then
       Begin
       Writeln('UHOH someone mentioned autoer logging out then switching players');
       Logout;
       Wait(20000+random(5000)-random(10000));
       if not loggedin then RandomNextPlayer(true);
                            end;

       if Inchat('Mod') or Inchat('moderator') or Inchat('Moderater') or Inchat('jagex staff') then
          Begin
             Writeln('UHOH someone mentioned moderator logging out then switching players');
       Logout;
       Wait(20000+random(5000)-random(10000));
       if not loggedin then RandomNextPlayer(true);

               end;

 end;














procedure progressreport;
begin
writeln('');
writeln('');
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
writeln('///-------------Chicken-Killer---------------');
writeln('///  Chicken Killer worked for ' +timerunning+'');
writeln('///  killed ' +inttostr(fought)+' chickens so far');
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
writeln('');
writeln('');
srlrandomsreport;
end;


procedure click(x, y: integer);
var a: integer;
begin
  a := random(10)
    HoldMouse(x+1, y, true);
  wait(45 + random(15));
  if a = 10 then
  begin
    wait(5 + random(5));
  end;
  releasemouse(x, y, true);
end;

procedure SiMMouse(x, y, rx, ry: Integer); // Spline Mouse From SI, slightly modded by RealRune
var
  cx, cy, mx, my, ox, oy, ms: Integer;
  mu, mum1, mum12, mu2, incr: Extended;
begin
  GetMousePos(cx, cy);
  if (x = cx) and (y = cy) then
    Exit;
  x := x + ((Random(rx) * 2 - Random(rx) * 2) div 2);
  y := y + ((Random(ry) * 2 - Random(ry) * 2) div 2);
  if (Random(2) + 1 = 1) then
  begin
    ox := x + Random(Round(Abs(cx - x))) div 2;
    oy := cy + Random(Round(Abs(cy - y))) div 2;
  end else
  begin
    ox := cx + Random(Round(Abs(cx - x))) div 2;
    oy := y + Random(Round(Abs(cy - y))) div 2;
  end;
  repeat
    incr := ((Random(2) + 1) / 1000) + Random(11) / 10000;
    mu := mu + incr;
    mu2 := mu * mu;
    mum1 := 1 - mu;
    mum12 := mum1 * mum1;
    mx := Trunc(cx * mum12 + 2 * ox * mum1 * mu + x * mu2);
    my := Trunc(cy * mum12 + 2 * oy * mum1 * mu + y * mu2);
    MoveMouse(mx, my);
    ms := ms + 1;
    if (ms mod 45 = 0) then
      //Wait(3+Random(2));
      Wait((Round(Random(2) + MouseSpeed) / 3));
  until mu >= 1;
  MoveMouseSmooth(x, y);
end;

procedure human(X, Y, Rx, Ry: Integer); // BenMouse, Modded by RealRune
var
  A: TPointArray;
  B, C, D, Sx, Sy, Cx, Cy: Integer;
begin
  GetMousePos(Sx, Sy);
  C := 0;
  D := 0;
  if (X > Sx) then
    C := -10 - Random(21)
  else
    C := 10 + Random(21);
  if (Y > Sy) then
    D := -10 - Random(21)
  else
    D := 10 + Random(21);
  A := MakeMouseSplinePath(Sx, Sy, X + C, Y + D, 7, 50, 70);
  for B := 0 to GetArrayLength(A) - 1 do
  begin
    MoveMouse(A[B].X, A[B].Y);
    Wait((Round(Random(2) + MouseSpeed) / 10));
    if (Distance(Sx, Sy, x, y) < 50) then
      Wait(17);
    if (Random(250) = 1) then
    begin
      case Random(6) of
        0: IdleTime(100, 100, 1.0);
        1: IdleTime(100, 100, 1.0);
        2: IdleTime(100, 100, 1.0);
        3: IdleTime(150, 150, 1.0);
        4: IdleTime(200, 200, 1.0);
        5: IdleTime(500, 500, 1.0);
      end;
      Break;
    end;
  end;
  Wait((Round(Random(2) + MouseSpeed) / 10));
  GetMousePos(cx, cy);
  if (Distance(cx, cy, x, y) < 65) and (Random(2) = 1) then
    MoveMouseSmooth(x + random(Ry), y + Random(ry))
  else
    SiMMouse(x + random(rx), y + random(ry), 0, 0);
  if (Random(20) = 1) then
  begin
    Wait((Round(Random(2) + MouseSpeed) / 10));
    IdleTime(100, 100, 1.0);
    SiMMouse(x + random(rx), y + random(ry), 0, 0);
  end;
  Wait(20 + Random(20));
  click(x, y);
end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  FindQuiz;
  FindScapeRune;
  FindMime;
  if not loggedin then RandomNextPlayer(true);
end;



procedure fight;
begin

  end;


procedure feather;
begin
  if FindObj(X, y, 'feather', feathercolor, 10) or
    FindObj(X, y, 'feat', feathercolor, 10) then
  begin
    wait(100 + random(50));
    human(x, y, 2, 2);


  end;

end;


begin
  activateclient;
  Setupsrl;
  declareplayers;
  setupchat;
  repeat
    perfectnorth;
    wait(1337+random(500));
    fight;
    wait(1000+random(1700));
    feather;
    wait(1+random(200));
    findrandoms;
    wait(1+random(500));
    autoresponder;
    progressreport;

  until (tofight <= fought)
  progressreport;
  terminatescript;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

yes from me if it isnt copied.

well there is no way in hell i'm voting yes for that until u learn some standards! actually heck it's a no that's how scary it looks :s…..u put declare players in the middle of the script so noobs won't have any idea what they're doing lol. I highly doubt u got in over at mopar…..all the script is, is some mouse movement stuff that's not urs, some auto responder and a tiny feather picker. Heck what's with ur fight procedure?!

procedure fight;
begin
 
  end;

:s I think u should finish this script :D lol it's a good start tho, n3ss did u actually look at his script?

ROFL
n3ss3s are you retarded?
The script has an auto responder (useless), a feather pick up using find obj, and the fighting procedure is
Begin
End.
And he searches fror randoms once.

Please try to LOOK at the script before voting?

Its obviously a no,

Learn how to use multiplayer
Try useing more advanced techniques
And maybe add a fighting procedure? It might help a bit?

HEy wait a sec wtf, there was a bug i saw different script like 2000 lines WTF??
ignore that 1 yes
Lol, I even forgot to vote yes back then. PHEw, script0r instincts :D

From: YoHoJo
ROFL
n3ss3s are you retarded?
quote]

YoHoJo, That's not very nice, maybe he just has a Bad Drug /Alcohol problem. :rolleyes:

submitted my chicken slayer script for
srl member application over at moparisthebest and was accepted.

Wow, accepted with that Fight procedure in there?

Maybe that's why we get so many bad applications here?

RAM

Ram, I am 12 yrs old how can I have a alchohol or a drug problem? Lol.
Read my post god damit!

HEy wait a sec wtf, there was a bug i saw different script like 2000 lines WTF??
ignore that 1 yes
Lol, I even forgot to vote yes back then. PHEw, script0r instincts

So, actually nothing bad happened. And yohojo can u tell where to get those avatars plzzzzz!

… I don't think the post is edited..? SO how did you see a +2000 line script there..?

Well, obviously, you need to learn more and apply with a script that's ready next time :)

No, I propably had another leaflet in mozilla open , because the script rly reminded me of Wizzups work ;D
Option 2: I saw a dream about this app in the dream with uber script and woke up, came post lol…

[OFFTOPIC]Woo I made first 3 MSi magic functions! Celebration time lol…[/OFFTOPIC]

I'm not getting technical or anything but I don't think the script is 90% his with the mouse functions anyways. It's still a no either way.

Who is RealRune?

Umm…
[php]procedure fight;
begin

end;[/php]
Nope.