hedgewars/CCHandlers.inc
changeset 2990 b62e567f17b9
parent 2963 0f0789204802
child 3006 da6023c2745b
--- a/hedgewars/CCHandlers.inc	Sun Mar 14 17:04:36 2010 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Mar 14 20:22:00 2010 +0000
@@ -392,7 +392,6 @@
 TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);
 
 if not CurrentTeam^.ExtDriven then SendIPC('N');
-TickTrigger(trigTurns);
 {$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF}
 end;
 
@@ -720,42 +719,6 @@
 if ((GameFlags and gfInvulnerable) = 0) then cTagsMask:= cTagsMasks[cTagsMask] else cTagsMask:= cTagsMasksNoHealth[cTagsMask];
 end;
 
-procedure chAddTrigger(var s: shortstring);
-const MAXPARAMS = 16;
-var params: array[0..Pred(MAXPARAMS)] of Longword;
-    i: LongInt;
-    c: char;
-    tmp: shortstring;
-begin
-c:= s[1];
-Delete(s, 1, 1);
-
-i:= 0;
-while (i < MAXPARAMS) and
-    (Length(s) > 0) do
-    begin
-    SplitBySpace(s, tmp);
-    val(s, params[i]);
-    s:= tmp;
-    inc(i)
-    end;
-
-case c of
-'s': begin // sTYPE TICKS LIVES GEARTYPE X Y GEARTRIGGER
-    TryDo(i = 7, errmsgWrongNumber, true);
-    AddTriggerSpawner(params[0], params[1], params[2], TGearType(params[3]), params[4], params[5], params[6]);
-    end;
-'C': begin
-    TryDo(i = 3, errmsgWrongNumber, true);
-    AddTriggerSuccess(params[0], params[1], params[2]);
-    end;
-'F': begin
-    TryDo(i = 3, errmsgWrongNumber, true);
-    AddTriggerFail(params[0], params[1], params[2]);
-    end;
-end
-end;
-
 procedure chSpeedup_p(var s: shortstring);
 begin
 isSpeed:= true