-Uses random waits
-Does not use smart in-case you want to use it for a RSPS or something else
-Does not use smart in-case you want to use it for a RSPS or something else
Code:
program Dice;
{$i srl/srl.simba}
var
outcome: Integer;
procedure start;
begin
outcome := Random(100);
ClearDebug;
Wait(20 + Random(50));
SendKeys('/Your name here has rolled a ' + IntToStr(outcome) + ' on the percentile dice.',30 +random(15),30 + Random(15));
Wait(500 + Random(50));
TypeByte(vk_enter)
end;
begin
repeat
start;
until(false)
end.


