SRL Archive - First Scripts

hey guys! this is my first scrip, an auto talker. Tell me how you guys like it and how I can make my scripting better

program mytyper;
   {.include srl/srl.scar}
const
waittime=2;//Time to wait inbetween each message(in seconds)
message1='wasup bros';//What you want to say
timestosay=4;//how many times to say messsage
var
i:integer;

procedure typer;

begin

wait(waittime*1000)
 typesend(message1);



end;
 begin
 setupSRL;
  repeat
  typer;
  i:=i+1
  until(i>=timestosay)
 end.

 end.

well il be. if that aint the simplest script ever:p

thats an infinite loop, very evil…..

I had this run for about 30 minutes, then got a chicken random and died, but other then that.. I like it.

not bad
not bad at all..

small and simple wins the race!!!!! Good Job!!!

Oh Yay I love all this positive feedback! Thanks, i'm currently working on a powerminer, expect it to be out soon!
EDIT: i just posted new version without an infinite loop and just some other little things.

oops! srry about the double post

Lol I am making an autotalker so I came to look at this for tips and what did I see. Almost an exact copy of mine with different variables lol. Great minds think alike. That and I added a proggy at the end cuz i was bored lol.

how do i make it talk? i told it to say selling iron knives it didnt do any thing. plz help:confused:

From: blingbling
how do i make it talk? i told it to say selling iron knives it didnt do any thing. plz help:confused:

lol i had that one too… try to do it all over again

gosh guys stop making simple (most copied from tuts) auto talkers

worth nothing huge ban..

though keep trying

nice quick script, works fine. You don't really need to specify how much you want the message typed, I think it should be infinite anyway, so I took that bit of the code out… but nice first script:)

Nice and simple. Works well enough.

But your standards are a bit poor. Two spaces after begins, two spaces back for ends. Two spaces after cases and repeats, etc. If you don't understand go and look in tutorial island for something on standards. ;)

For a first script, not bad.

I've sorted out the standards here. Use this as an example for future scripts:

program mytyper;
{.include srl/srl.scar}

const
waittime=2; //Time to wait inbetween each message(in seconds)
message1='wasup bros'; //What you want to say
timestosay=4; //how many times to say messsage

var
i:integer;
 
procedure typer;
begin
  wait(waittime*1000)
  typesend(message1);
end;

begin
  setupSRL;
  repeat
    typer;
    i:=i+1
  until(i>=timestosay)
end.

Does that look better?

Hope it helps.