SRL Archive - First Scripts

My first script to test :)

program WhatsTheResult;
var
LaurensOwnsWizzup: boolean;   //You can change Wizzup to Freddy or something :p

procedure Calc;
begin
 if (LaurensOwnsWizzup) then   //If you change this too
  begin
  writeln('You are crazy :p');
  writeln('This will never be here (if correct) else PM me or something');
  begin
  addtoreport('If (you got something like "PM me") then PM laurenssie1 on forums')
  addtoreport('end else Leave it :p')
  end;
  end else
  begin
  writeln('Lol, always this... Dont know why..')
  writeln('Maybe im just a noob in SCAR');
  writeln('But I can make stuff like this');
  end;
end;

//Mainloop
begin
Cleardebug;
clearreport;
Calc;

end.

For the ones too lazy to copy/paste,
see attachment.

it will work but you wont really be able to see anything because it will clear the report and the debug box before the person can see the writing

mabey add a wait function in there so the person can see it

~shut

EDIT: never mind what i said i just realised that the clearreport and cleardebug was before calc

Nice ;)

add this after the first begin :p

LaurensOwnsWizzup:=true;

~shut

coimpile, but i really dont get it

From: chitin
coimpile, but i really dont get it

its his first script and he just wanted to show people

~shut

My suggestion to you is to learn proper standards, it helps a LOT when learning how to script.

Nothing came up in the debug or report box. That means that this (LaurensOwnsWizzup) is a false statement.:p

Compiled fine for me. But what is the point of the script? :p

Good job, dude! Hella better than my first script….(Complete disaster). Keep it up, I'm sure you'll go far with it. However, as Hy said you should work on standards. Some places are fine, but it's something a scripter can't "live" without. :p.