hedgewars/uCommandHandlers.pas
changeset 14543 d0441c7e9000
parent 14484 bd1db668b7c0
child 14551 ec0afe1c6024
--- a/hedgewars/uCommandHandlers.pas	Sat Jan 05 21:52:15 2019 +0100
+++ b/hedgewars/uCommandHandlers.pas	Sat Jan 05 22:05:20 2019 +0100
@@ -785,6 +785,11 @@
 cHealthDecrease:= StrToInt(s)
 end;
 
+procedure chInitHealth(var s: shortstring);
+begin
+cInitHealth:= StrToInt(s)
+end;
+
 procedure chDamagePercent(var s: shortstring);
 begin
 cDamagePercent:= StrToInt(s)
@@ -926,6 +931,7 @@
     RegisterVariable('sd_turns', @chSuddenDTurns  , false);
     RegisterVariable('waterrise', @chWaterRise    , false);
     RegisterVariable('healthdec', @chHealthDecrease, false);
+    RegisterVariable('inithealth',@chInitHealth, false);
     RegisterVariable('damagepct',@chDamagePercent , false);
     RegisterVariable('ropepct' , @chRopePercent   , false);
     RegisterVariable('getawaytime' , @chGetAwayTime , false);