changeset 3284 | 7ffd0e20ad08 |
parent 3282 | 9ca28cef559a |
child 3295 | ced0ee8280ad |
--- a/hedgewars/uRandom.pas Sat Apr 03 08:47:06 2010 +0000 +++ b/hedgewars/uRandom.pas Sat Apr 03 10:26:24 2010 +0000 @@ -77,12 +77,7 @@ function GetRandom(m: LongWord): LongWord; begin -if m = 0 then - begin - WriteLnToConsole('Warning: GetRandom(0) not defined'); - GetRandom:= 0; - exit - end; +TryDo((m > 0),'GetRandom(0) called! Please report this to the developers!',true); GetNext; GetRandom:= GetNext mod m end;