diff -r 6ea838b8dcd5 -r 13ac59499066 hedgewars/uCommandHandlers.pas --- 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