SRL Archive - First Scripts

never done scripting before… but I do know a little C++

messed around for a bit and this is what I came up with

(you must be logged in to use it)

please, PLEASE, tell me how to make it better.

newbie guides are one thing, but dynamic user feedback is how I learn best.

first of all

MoveMouseSmoothEX = bannable

sendkeys=HUGE BAN!

use typesend
and with the logout
DO
logout;

lol

what should I use instead of MoveMouseSmoothEx?

Use MMouse

ok ty

program autotalker;

{.include SRL/SRL.scar}

const
Talk1= 'Hey everybody whats up';
Talk2= 'Man fishing is boring!!!';
Talk3= 'Anyone wanna go to bount hunter?';
Talk4= 'mmmkay';
Talk5= 'Later';

procedure Talking;
begin
  TypeSend(Talk1+chr(13));
  Wait(20000+random(4000));
  TypeSend(Talk2+chr(13));
  Wait(10000+random(3000));
  TypeSend(Talk3+chr(13));
  Wait(80000+random(2000));
  TypeSend(Talk4+chr(13));
  Wait(10000+random(20000));
  TypeSend(Talk5+chr(13));
  Wait(50000+random(20000));
end;

begin
  Talking;
  Logout;
end. 

1) Standards.

2) TypeSend is what is generally used to send things now

3) You dont have to put "const" after every constant, at the beginning is just fine

4) You dont need the MMouse or ClickMouse procedures, Runescape types automatically, no clicking in the box needed :]

tyvm

I revised it a bit, give this a go

(I made room to put a username and pass in for when I eventually make a login part to it)

Little better, but could use more work.

Use this it logs in and stuff. You don't even have to be logged in ;)

//My first script, so please be kind =D

program autotalker;

{.include SRL/SRL.scar}

const

Talk1= 'Hey everybody whats up';
Talk2= 'Man fishing is boring!!!';
Talk3= 'Anyone wanna go to bount hunter?';
Talk4= 'mmmkay';
Talk5= 'Later';

Procedure DeclarePlayers;
Begin

HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

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

End;

Procedure Talk;
begin

  TypeSend(Talk1);
  
  Wait(20000+random(4000));
  
  TypeSend(Talk2);
  
  Wait(10000+random(3000));
  
  TypeSend(Talk3);
  
  Wait(60000+random(2000));
  
  TypeSend(Talk4);
  
  Wait(10000+random(20000));
  
  TypeSend(Talk5);
  
  Wait(50000+random(20000));

end;

Begin
SetupSRL;
ClearDebug;
DeclarePlayers;
If Not LoggedIn then LoginPlayer;
Wait(200 + Random(150));
Talk;
End.

Edit: I also removed the chr(13) as that will be detectable because typesend already does that…

From: p1nky
MoveMouseSmoothEX = bannable

Not it's not. Only if you're coordinate clicking. If you make random in the coordinates then it isn't detectable.

Also, TypeSend types like a human.

Thanks so much Da 0wner, that's awesome =D

rep++ me? That blue checkmark below my post count :p

From: Da 0wner
rep++ me? That blue checkmark below my post count :p

Learn standars ;)

why dont u use srl player forms for the login

{.include srl\srl\misc\users.scar}

procedure declareplayers;
begin
SRLPlayerForm(true,[],[],[],[])
end;

its an easier way than writing out:

procedure declareplayers;
begin
numberofplayers;
currentplayer;

ect.

Rofl, because it's a very simple script and you can't just do that you have to do LoadUs and all that other stuff….It's only 1 player also.