SRL Archive - First Scripts

i no its useless buts its fun work in progress!

I read the tuts and etc so im still mega new!

Any way heres what i came up with need lots of work can someone check what im doing is right?

program DogShooer;   //YOU CAN'T BLOODY HAVE A SPACE~
{.include SRL/SRL.scar}

var
  dtm,x,y:integer;

Procedure DeclarePlayers;
begin
  HowManyPlayers  :=1;               // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
  CurrentPlayer:=0;                // CurrentPlayer = Array Index

  Players[0].Name :='username';//USERNAME
  Players[0].Pass :='pass';//PASS
  Players[0].Nick :='ser';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
  Players[0].Active:=True;//PLAYER IN USE OR NOT
  Players[0].strings[1]:='';  //SRL ID
  Players[0].strings[2]:='';  //SRL PASSWORD
end;



procedure  loaddtms;
begin
  DTM := DTMFromString('78DA63BCC0C0C0B0820105F4A547816946289' +  //You need to tell the computer
  'FF124905882AA86978707450D00DB04045E');                          //what dtm is.
end;       // dog colour






procedure antiban;// antibans
begin
  case random(4) of      //case random(4) of
  0:begin
      Wait(3591+(random(287)));
      RandomRClick;
      Wait(3591+(random(287)));
      setangle(true);  //Highestangle?
      Randoms;
    end;

  1:begin
      Wait(3694+(random(791)));
      GameTab(random(13)+1);
      Randoms;
      Wait(3694+(random(791)));
      GameTab(4);
    end;

  2:begin
      Wait(3294+(random(873)));
      Randoms;
      HoverSkill('Woodcutting' ,false);
      Wait(3294+(random(873)));
    end;

  3:begin
      Wait(3694+(random(791)));
      GameTab(random(13)+1);
      Randoms;
      Wait(3694+(random(791)));
      GameTab(4);
    end;
  end;
end;

procedure srlstats;
begin
  ScriptID := '800';        //srl id stuff :0
  if ((players[currentplayer].strings[1] = '')or (players[currentplayer].strings[2] = ''))then
    begin
      writeln('DONT leech!');
      writeln('go to [url]http://stats.srl-forums.com[/url] and create an account');
    end else
    begin
      SRLID := players[currentplayer].strings[1];
      SRLPassword := players[currentplayer].strings[2];
    end;
end;

begin     //THIS IS YOUR MAINLOOP. Pretend that each procedure is an instrument in an orchestra
          //You know need to tell each instrument what to do in the mainloop. If the main
          //loop is empty, nothing will happen.
end.

pretty good man you got the basics i.e Dtms, Anti Ban ect but why would you implement Srl stats lol. anyways correct me if im wrong but isnt this

If FindText(x, y, 'Shoo-away Stray dog', NPCCHARS, MCX1, MCY1, MCX2, MCY2) Then
    Mouse(x, y, 219, 161, True);

Ment to be

If FindUpText(x, y, 'hoo', NPCCHARS, MCX1, MCY1, MCX2, MCY2) Then
    Mouse(x, y, 219, 161, True);

i added the stats coz i thought it would be funny to see what randoms came up lol!

OMFG GOD DUDE! Take out your username and pass now! I tried logging onto it for a sec just to make sure it's not just some random thing you typed, but it isnt! CHANGE IT NOW!
Or some mod/admin, someone! Change it! And btw, i just want to help, i have been hacked once, it wasnt nice.. :/

EDIT: You have recoverys i hope? O.O (Incase someone changes your pass or anything!)

And now onto the script, it looks pretty nice, i just noticed that you have your begin before your program xD Did you just forgot to remove it? :P I'll maybe look deeper into the script later ;) It's 3 am here and im soo tired.. *phew..*

fuck sake who hacked me…

From: kor
OMFG GOD DUDE! Take out your username and pass now! I tried logging onto it for a sec just to make sure it's not just some random thing you typed, but it isnt! CHANGE IT NOW!
Or some mod/admin, someone! Change it! And btw, i just want to help, i have been hacked once, it wasnt nice.. :/

EDIT: You have recoverys i hope? O.O (Incase someone changes your pass or anything!)

And now onto the script, it looks pretty nice, i just noticed that you have your begin before your program xD Did you just forgot to remove it? :P I'll maybe look deeper into the script later ;) It's 3 am here and im soo tired.. *phew..*

Dude.. If he left his username and password in his script, Instead of advertising it to everyone, why didnt you change his password for him and send him a PM telling him his new one and reminding him not to do it again.

From: djcheater
fuck sake who hacked me…

If you have recovery questions set, which you SHOULD.

Recover the account and take a screenshot of the IP Address at the 'Click here to play' screen and pm it to one of the Admins. The noob who stole it will be banned, because we dont want people in our community like that and you'll get your account back.

who me lol?

Yeah im sorry about that, i was really dumb, it's just that it was 3 am here and i was soo tired. When i noticed your pass etc, i just did the first thing i could think of.. warn you.. Im sorry, but you have your account back, and im risking a ban for logging onto it, if i was the last one, which i could had been (If the hacker changed pass, and didnt log in after that..)

EDIT:

ur a fucken idiot

Dude, this stuff happens, leecher. Until i see you make a decent script (Like cheater), then you're the idiot. Geez.

ok.. whats the point of a dog-shooer?

just for fun and for me to pracite scripting! how many u made?

i think it is crap if it was a dog "shooter"
nar jk wd

Lol random script

From: Joshseow
Lol random script

That post counts as a spam post, please try and post something useful instead. If you dont got anything good to say, then dont say anything. :)

lol, seems fun may have to try this one.

its a work in progress..

lol. this realy is a nice sript keep me amused for some time se the guy running to dog and shoo it whahahah keep it up

note this is being fixed!

why dont you just make a useable script so people can tell you how it work lol, bet no-one used this script except you :O?

dude im making a new rs account and testing this script out. I wanna see how many randoms come up with this :p