random case question...

[footballjds]

here is the code:
begin
Case random (2) of
0: TypeSend('lets do this');
1: TypeSend('yay');
end;
end;

now what if i wanted it to do case 0 90% of the time? and case 1 only 10% of the time? how would i do this? i still want it to be random!

[LordGregGreg]

i know this is kinda cheating... but i forget how to do the shortcut for cases without having to type in 1 , 2, 3, 4, 5, 6, 7, 8; (onl know it for java)
so the other way would be.
begin
if random (10) > 9 then
begin
TypeSend('lets do this');
end
else begin
TypeSend('yay');
end;

[n3ss3s]

@Greg: desperate for syntax errors? ;)

[LordGregGreg]

@Greg: desperate for syntax errors? ;)
!
lol, thanks, leavy my lazyness alone, lol

[footballjds]

ok thanks.

anyone else know a way? other than ifs thens?

i so wish scar was written in JAVA! id have a much easier time!.....

[mickaliscious]

There's the old classic:

case random (10) of
0,1,2,3,4,5,6,7,8: TypeSend('lets do this');
9: TypeSend('yay');
end;


But thats annoying. That and gregs way are the only ones I know.

[footballjds]

ty! thats the one i wanted, thanks mick!

[n3ss3s]

Well footballdjs got what he wanted, but I'll continue the discussion -

who said you have to use a case? ;)


program New;
Var
I: Integer;
begin
I := Random(100);
If I > 80 Then
Writeln('I was larger than 80')
Else
If I > 50 Then
Writeln('I was larger than 50, but smaller than 80!')
Else
If I > 20 Then
Writeln('I was larger than 20, but smaller than 50')
Else
If I >= 0 Then
Writeln('I was smaller than 20');
end.



Also, who said you couldn't make an array of procedure/function calls?

Then you will survive with a for loop.