SRL Archive - First Scripts

Program Autotyper;
var message: String;

Procedure setup;
begin
message:='i like chocolate milk'//Enter your message inbetween the ''


end;

Procedure typing;
begin
sendkeys(message+chr(13))
end;

begin
setup;
repeat
typing;
wait(2000)
until(false)
end.

Hate to say it, again, lol, but:

Sendkeys is extremely detectable, bla bla bla, use TypeSend, bla bla bla, Add random time amounts onto your waits otherwise that's detectable aswell, bla bla bla.

Also try and put your script between two Scar tags.

This is what the new undetectable version would look like:

Program Autotyper;
var message: String;

Procedure setup;
begin
message:='i like chocolate milk'//Enter your message inbetween the ''
end;

Procedure typing;
begin
Typsend(message);
end;

begin
setup;
repeat
typing;
wait(2000+random(500))
until(false)
end.

Good first script though, looks like you've learnt the basics of a loop. Good job.

k

so where can we learn more about the basics for this type of scripting?

From: funstuff59
so where can we learn more about the basics for this type of scripting?

Tutorials on this very site.

From: rs cheata
k

I said good posts…

i get

line 11 [error][11.1] unknow identifier typesend or send type? idk both dont work for me

other than that looks kwl

hey not bad =)) but yes said once again read more tuts but hey good start =)

Hmm, might try out sporks new one :F

From: scaper123
i get

line 11 [error][11.1] unknow identifier typesend or send type? idk both dont work for me

other than that looks kwl

that's because sporky forgot to say you need to have
{.include srl/srl.scar}
and the beginning, and SetupSRL at the beginning of the mainloop.

RMagician

hmm a good auto talker if its your first attempt

thanks but i plan on making better scripts i just need to get more time

Yeah its not bad, but all this show is that you know how to make a main loop, which isn't a bad start. Also your script will never go false so the repeat until(false) doesn't really help. It would be better to have until a certain button was presed or a certain number of times.

Program Autotyper;
 var
   message: String;

const
  Times:Integer;

  Times := ;//The amount of times you want it to type
 
Procedure setup;
 begin
   message:='i like chocolate milk'//Enter your message inbetween the ''
 end;
 
Procedure typing;
 var
   Timez: Integer;
 begin
   Typsend(message);
   Timez := Timez + 1;
 end;
 
begin
  setup;
  repeat;
  typing; 
  wait(2000+random(500))
  until(Timez = Times)
end.

Got error of unknown identifier typesender i have no clue y i get all these errors.

From: Dudenow12
Yeah its not bad, but all this show is that you know how to make a main loop, which isn't a bad start. Also your script will never go false so the repeat until(false) doesn't really help. It would be better to have until a certain button was presed or a certain number of times.

Program Autotyper;
 var
   message: String;

const
  Times:Integer;

  Times := ;//The amount of times you want it to type
 
Procedure setup;
 begin
   message:='i like chocolate milk'//Enter your message inbetween the ''
 end;
 
Procedure typing;
 var
   Timez: Integer;
 begin
   Typsend(message);
   Timez := Timez + 1;
 end;
 
begin
  setup;
  repeat;
  typing; 
  wait(2000+random(500))
  until(Timez = Times)
end.

yes u need to keep on trying :fiery: