SRL Archive - RS Scripts

these are my first script, i finnaly made the jump from leacher to scripter :) <3 you Klaus

program Autotalker

;Const

whattosay = 'type here';//To say something press f3. noobs, FIRST SCRIPT
begin

repeat

if(IsFKeyDown(3))then

begin

sendkeys(whattosay);

SendKeysVb('{ENTER}',false);

end;

wait(300);//

until(false)

end.

auto talker if your retarded :p click f3 to make it type, must crosshair, works in anything :)

Second Script auto clicker - 1 second interval

program Autoclicker ;
Var x,y :integer;

procedure click;
begin
GetMousePos(x,y)
clickMouse(x,y,true)
Wait(1000)
End;

procedure confirmation;
begin
Writeln('Obviously worked by h31pm3')
end;

begin
Repeat;
click;
until(false)
End.

Auto Login —-

program Login;

procedure existinguser;
begin
clickMouse(456,291,true)
Wait(1000)
End;

procedure Username;
begin
Sendkeys('username')// enter username
Wait(500)
End;

procedure Passwordenter;
begin
SendKeysVb('{ENTER}',false);
End;

procedure Passwordtyping;
begin
Sendkeys('password')//Enter pass
Wait(1000)
End;

procedure login;
begin
clickMouse(294,321,true)
End;

begin
existinguser;
Username;
Passwordenter;
Passwordtyping;
login;
end.

so many bugs in this when i made it ( do not fear i fixed them ) so many silly mistakes :duh:



LOL this is sad, im trying to contribute, 15 views, no replies, i make the jump and no one gives a ****, i make 3 scripts in a day, like wtf, no encouragement?
Thanks guys <3 you Klaus :D Comments appreciated!

Thanks for credit :).. I don't really earn it.. I have been mean to you :/

Good to see you are trying :D :)

not bad, hope you keep on scripting and learn more and create Elite scripts.

lol nice:bart:

Good work. You are certainly getting the hang of this… :)

good work, i glad you made the jump,
theres 1 thing i noticed is that you dont need to put "sendkeysvb", most people just put "sendkeys(whattotype+chr(13))", this means it will press keyboard code 13 which happens to be enter.

hey topic maker… could you teach me some stuff about scripting?

Just a quick tip the procedure:

procedure confirmation;
begin
Writeln('Obviously worked by h31pm3')
end;

it is not included in the script:eek:

begin
Repeat;
click;
until(false)
End.

but dont worry:wink:
just some minor ajustment and it is!! *YaY*

 begin
comfirmation;
repeat
click;
until(False);
End.

but it runs smoothly never the less, Good Work:wink: