SRL Archive - RS Scripts

just trying to get the feel of scar, this (well should) just typs random stuff into the debug box

not RS use really but oh well, its helping learn scar to do RS stuff :)

Program RandomDebugTalker;


procedure Example;
begin
I := random(7);
case I of
0 : Writeln('hi');
1 : Writeln('bored');
2 : Writeln('random');
3 : Writeln('gotcha');
4 : Writeln('pizza');
5 : Writeln('wassup');
6 : Writeln('wazzup');
end;


begin
repeat
Example;
wait(1000);
End.

have i made a really noobish mistake i.e begins/ends

sorry about Double Posting and is it now

Program RandomDebugTalker;

var
I: Integer;


procedure Example;

begin
I := random(7);
case I of
0 : Writeln('hi');
1 : Writeln('bored');
2 : Writeln('random');
3 : Writeln('gotcha');
4 : Writeln('pizza');
5 : Writeln('wassup');
6 : Writeln('wazzup');
end;


begin Example;
repeat
Example;
wait(1000);
End.

first of all, this should not be in the RS scripts section then. second, do NOT double post, that is against the rules. all you need to do is declare the variable. var I: Integer; if you have any questions, post here or add me on MSN: [email]runescapemacro@hotmail.com[/email]