hedgewars/uRandom.pas
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;