diff -r 8a11548cb1d2 -r d0441c7e9000 hedgewars/uCommandHandlers.pas --- 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);