hedgewars/CCHandlers.inc
changeset 593 1f5e66379a43
parent 589 f382c41f658a
child 594 221ffeb92f30
--- a/hedgewars/CCHandlers.inc	Tue Sep 11 17:04:24 2007 +0000
+++ b/hedgewars/CCHandlers.inc	Fri Sep 14 20:51:40 2007 +0000
@@ -263,6 +263,7 @@
 if AllInactive then
    begin
    if not CurrentTeam^.ExtDriven then SendIPC('N');
+   TickTrigger(trigTurns);
    {$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF}
    SwitchHedgehog;
    end
@@ -465,8 +466,8 @@
 end;
 
 procedure chAddTrigger(var s: shortstring);
-var t: integer;
+var t: LongWord;
 begin
 val(s, t);
-AddTrigger(t)
+AddTrigger(t, 1)
 end;