SRL Archive - First Scripts

[SRL] Born2Script's Autotalker (First Script)

By Born2Script

this is really good for ur first script, i did the same thing, to make it not lag, just make it so if no button is pressed that it eather waits or dose somthing then it wont lag

ok it still lags and this is what i did:

program Autotyper;
{.include SRL/SRL.scar}
const
Message1 =('Message Here'); //Press F2 to type this message
Message2 =('Message Here'); //F4
Message3 =('Message Here'); //F5 (F12 to Stop Typing for All!)
procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;
end;

begin
SetupSRL;
repeat
LetsTypeIt;
until(IsFKeyDown(12));
end.

I added the waits, but it still lags, i do it right?

From: Born2Script
ok it still lags and this is what i did:

program Autotyper;
{.include SRL/SRL.scar}
const
Message1 =('Message Here'); //Press F2 to type this message
Message2 =('Message Here'); //F4
Message3 =('Message Here'); //F5 (F12 to Stop Typing for All!)
procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;
end;

begin
SetupSRL;
repeat
LetsTypeIt;
until(IsFKeyDown(12));
end.

I added the waits, but it still lags, i do it right?

no, put the repeat back on, and make

procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;

[COLOR="Red"]PUT SOMTHING HERE LIKE WAIT[/COLOR]

end;

here is an example:

procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;

[COLOR="Red"]Wait(1000+random(300));
writeln('you are not holding a button waiting till you do!');[/COLOR]

end;

your putting waits in the begin if you hold a button, put them outside those.

ur not giving it anything to do if your not holding a button, so when you put that in, it will wait then repeat it, thus no freezing. do you get what im saying??

ok ty no lag now

no problem

Version 2 Added (No Lag)

why is it that i have a feeling….
born2script=born2code

From: Dangerous Garden Tools
why is it that i have a feeling….
born2script=born2code

Nope… born2script=tootles ;)

yup RAM is right(never even knew there was a guy named born2code)
anyway can you guys comment on my first script?

Looks very nice! Great first script!

thank you(also, anyway i can make it better?)
Version 3 has come out
Added Colors and effects

you could make it a little better, with antiban

ok i will work on that next (Im a little unsure of how i would do this)

Nice auto-talker congrats on finishing it. I'm also working on an auto talker as well right now :)

ty

Works great, I wanted to trick my friends on MSN into have a conversation with the script

glad it works for you

works well thank you now i dont have to like go around in the markets typing (:

to use antiban, just make a procedure that dose random things, like clicks on different tabs (use gametab(1-13) tabs are in order 1 is comabat 2 is stats) it could randomly move the screen. just make it do random stuff.

From: Dangerous Garden Tools
why is it that i have a feeling….
born2script=born2code

lol thats what i thought too :D

its either a copy or very identical script ill dig it up someone called daggers made one like that

EDIT

daggers

program TalkingDaggers;
{.include SRL/SRL.scar}
const
Message1 ='Put your text here';
Message2 ='Put your text here';
Message3 ='Put your text here';
Message4 ='Put your text here';
 
procedure TypeItAll;
begin
if(IsFKeyDown(2))then
begin
TypeSend(Message1);
end;
if(IsFKeydown(4))then
begin
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
TypeSend(Message3);
end;
if(IsFKeyDown(8))then
begin
TypeSend(Message4);
end;
end;
 
begin
repeat
TypeItAll;
until(IsFKeyDown(12))
end.
 

yours

program Autotyper;
{.include SRL/SRL.scar}
const
Message1 =('Message Here'); //Press F2 to type this message
Message2 =('Message Here'); //F4
Message3 =('Message Here'); //F5 (F12 to Stop Typing for All!)
procedure LetsTypeIt;
begin
if(IsFKeyDown(2))then
begin
Wait(2000);
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
Wait(2000);
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
Wait(2000);
TypeSend(Message3);
end;
end;

begin
SetupSRL;
repeat
LetsTypeIt;
until(IsFKeyDown(12));
end.

looks to be the procedure names editited but idk

if its not copyied nice going for your first script

k ty for advice
and i typed it myself
and the latest version is alot diff

ok i belive you as daggers was like a year old :p good work

ty

Version 4 has been released

nice usage of the F keys

ty

If you wanted no lag, just do something like this (not trying to rewrite it for you or anything just making pointers):

Program AutoTalker;
{.include SRL\SRL.scar}

{Message Setup}
  const M1 = 'Message 1';
  const M2 = 'Message 2';
  const M3 = 'Message 3';
{End Message Setup}

begin
  SetupSRL;
  ActivateClient;
  repeat
    if (IsFKeyDown(1)) then TypeSend(M1);
    if (IsFKeyDown(2)) then TypeSend(M2);
    if (IsFKeyDown(3)) then TypeSend(M3);
    Wait(100);  //This will make it so it wont lag.
  until(IsFKeyDown(12));
  Writeln('Program Executed Successfully.');
end.

Easy done :)

ty for pointers ;)

Version 5 will be out soon with a few new features

Very good autotalker you'd be sure in going to use this!

->{Nauman}<-

ty
Version 5 Almost Done :)