Simple Roll

[Savage]

Script Name: Simple Roll
Script Description: Simple roll system 1-100 and Yes&No.
Author: Savage
Compile Test: Passed
Core Version: 2.8.0 (SC2)

Just type !roll in game to start the roll.

1-100

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
if Text='!roll' then
WriteConsole(0,IDToName(ID)+': '+IntToStr(Random(1,101)),$EE81FAA1);
end;
Yes&No

Code: [Select]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
if Text='!roll' then
WriteConsole(0,IDToName(ID)+': '+IIF(Random(1,3)>1,'Yes','No'),$EE81FAA1);
end;

[Savage]

Haha, my first script. That random in apponidle omg ehh...

[DarkCrusade]

lul, that's random.

[Savage]

Improved it a little xD