SRL Archive - First Scripts

Hi Guys!
I've just read the post

'All in one beginner tutorial By Bebemycat2'

and learned to make my first script! :spot: I thought id have some fun with it and make my own to test my new knowledge. All it does is talk in the 'debug box'. Don't get me wrong on that one, it is very newbish. It works fine but i wasn't sure how to write it properly, so if there is a different and better way, please tell me.

Here we go, inspired By Bebemycat2, hope it will make you laugh…

Ananda

Lol good for a first script, and i like the joke :) Well done :)

Nice dude :D Great job
Here are some finetunings:

program MyFirstExperimentation; // My First Sript!!
  // By: Ananda - Dec. 26th 2008
const
 Message5='HERE IS A LITLE JOKE FOR YOU!!';
 Message1='Bob and Repeat are on a boat';
 Message2='Bod falls in the water';
 Message3='Who remains?';
 Message4='Lol...REPEAT!';

procedure Intro;
begin
 ClearDebug; // Clears all text in debug (freddy1990's news and all that useless ^^ )
 Wait(2000)
 Writeln(Message5);
end;

procedure Joke;  //dont need that many begins and ends
begin
  wait(4000)
  Writeln(Message1);
  Wait(3000)
  Writeln(Message2);
  Wait(3000)
  Writeln(Message3);
end;
       
procedure Lol; //standards (pyramids to text, cool)
begin
 Wait(3000)
 Writeln(Message4);
end;

begin  //took away useless things, and added standards
 Intro;
 repeat
  Joke;
  Joke;
  Lol;
 until(false)
end.

pmsl


not really.

Thanks guys for taking the time to read this. And thank you very much for your help Marpis:) . I'm learning something new everyday!