hedgewars/CCHandlers.inc
changeset 4208 dd54999c2822
parent 4099 af612377fcba
child 4210 caa9b08990eb
--- a/hedgewars/CCHandlers.inc	Sun Nov 07 17:40:55 2010 -0500
+++ b/hedgewars/CCHandlers.inc	Sun Nov 07 23:47:29 2010 +0100
@@ -145,6 +145,13 @@
 ScriptLoad(s)
 end;
 
+procedure chTurnTime(var s: shortstring);
+var temp: Longint;
+begin
+val(s, temp);
+cHedgehogTurnTime:= temp * 1000;
+end;
+
 procedure chAddHH(var id: shortstring);
 var s: shortstring;
     Gear: PGear;