hedgewars/uCommandHandlers.pas
branch0.9.19
changeset 8924 13ac59499066
parent 8912 78ea1839aac9
child 9080 9b42757d7e71
--- a/hedgewars/uCommandHandlers.pas	Sat Apr 20 02:17:53 2013 +0200
+++ b/hedgewars/uCommandHandlers.pas	Sat Apr 20 02:20:15 2013 +0200
@@ -36,7 +36,7 @@
 procedure chGenCmd(var s: shortstring);
 begin
 case s[1] of
-    'R': if ReadyTimeLeft > 1 then 
+    'R': if ReadyTimeLeft > 1 then
         begin
         ReadyTimeLeft:= 1;
         if not isExternalSource then
@@ -480,7 +480,7 @@
 with CurrentHedgehog^.Gear^ do
     begin
     Message:= Message or (gmSlot and InputMask);
-    MsgParam:= slot; 
+    MsgParam:= slot;
     ScriptCall('onSlot', MsgParam);
     end
 end;
@@ -517,7 +517,7 @@
 with CurrentHedgehog^.Gear^ do
     begin
     Message:= Message or (gmAnimate and InputMask);
-    MsgParam:= byte(s[1]) ; 
+    MsgParam:= byte(s[1]) ;
     ScriptCall('onTaunt', MsgParam);
     end
 end;
@@ -573,7 +573,7 @@
 begin
 if isDeveloperMode then
     begin
-    SetRandomSeed(s);
+    SetRandomSeed(s, true);
     cSeed:= s;
     InitStepsFlags:= InitStepsFlags or cifRandomize
     end