hedgewars/uCommandHandlers.pas
changeset 6818 136aa9c8c593
parent 6700 e04da46ee43c
child 6828 6a5d33bff0b0
--- a/hedgewars/uCommandHandlers.pas	Sat Mar 24 21:19:50 2012 +0400
+++ b/hedgewars/uCommandHandlers.pas	Sun Mar 25 14:51:13 2012 +0200
@@ -434,7 +434,7 @@
     begin
     Message:= Message or (gmTimer and InputMask);
     MsgParam:= byte(s[1]) - ord('0');
-    ScriptCall('onTimer');
+    ScriptCall('onTimer', MsgParam);
     end
 end;
 
@@ -453,7 +453,7 @@
     begin
     Message:= Message or (gmSlot and InputMask);
     MsgParam:= slot; 
-    ScriptCall('onSlot');
+    ScriptCall('onSlot', MsgParam);
     end
 end;
 
@@ -472,7 +472,7 @@
         begin
         Message:= Message or (gmWeapon and InputMask);
         MsgParam:= byte(s[1]);
-        ScriptCall('onSetWeapon');
+        ScriptCall('onSetWeapon', MsgParam);
         end;
 end;
 
@@ -491,7 +491,7 @@
     begin
     Message:= Message or (gmAnimate and InputMask);
     MsgParam:= byte(s[1]) ; 
-    ScriptCall('onTaunt');
+    ScriptCall('onTaunt', MsgParam);
     end
 end;