781 end;

   781 end;

   782 

   782 

   783 procedure chHealthDecrease(var s: shortstring);

   783 procedure chHealthDecrease(var s: shortstring);

   784 begin

   784 begin

   785 cHealthDecrease:= StrToInt(s)

   785 cHealthDecrease:= StrToInt(s)

   786 end;

   791 end;

   787 

   792 

   788 procedure chDamagePercent(var s: shortstring);

   793 procedure chDamagePercent(var s: shortstring);

   789 begin

   794 begin

   790 cDamagePercent:= StrToInt(s)

   795 cDamagePercent:= StrToInt(s)

   924     RegisterVariable('healthprob', @chHealthCaseProb, false);

   929     RegisterVariable('healthprob', @chHealthCaseProb, false);

   925     RegisterVariable('hcaseamount', @chHealthCaseAmount, false);

   930     RegisterVariable('hcaseamount', @chHealthCaseAmount, false);

   926     RegisterVariable('sd_turns', @chSuddenDTurns  , false);

   931     RegisterVariable('sd_turns', @chSuddenDTurns  , false);

   927     RegisterVariable('waterrise', @chWaterRise    , false);

   932     RegisterVariable('waterrise', @chWaterRise    , false);

   928     RegisterVariable('healthdec', @chHealthDecrease, false);

   933     RegisterVariable('healthdec', @chHealthDecrease, false);

   929     RegisterVariable('damagepct',@chDamagePercent , false);

   935     RegisterVariable('damagepct',@chDamagePercent , false);

   930     RegisterVariable('ropepct' , @chRopePercent   , false);

   936     RegisterVariable('ropepct' , @chRopePercent   , false);

   931     RegisterVariable('getawaytime' , @chGetAwayTime , false);

   937     RegisterVariable('getawaytime' , @chGetAwayTime , false);

   932     RegisterVariable('minedudpct',@chMineDudPercent, false);

   938     RegisterVariable('minedudpct',@chMineDudPercent, false);

   933     RegisterVariable('minesnum', @chLandMines     , false);

   939     RegisterVariable('minesnum', @chLandMines     , false);