Реалистичное здоровье

Теперь здоровье ведет себя гораздо более реалистично. Если у Вас совсем мало здоровья (меньше, чем 21 единица), оно будет понемногу убавляться, пока игрок не восстановит его или умрет. А если здоровье больше половины (а точнее больше 70 единиц), оно будет медленно восстанавливаться.

:Vosst
wait 10
if
player.Defined($PLAYER_CHAR)
jf @Vosst
if and
not actor.Dead($PLAYER_ACTOR)
0184:   actor $PLAYER_ACTOR health >= 70
8184:   not actor $PLAYER_ACTOR health >= 100
jf @Poter
0226: 1@ = actor $PLAYER_ACTOR health
1@ += 1
actor.Health($PLAYER_ACTOR) = 1@
wait 4000
jump to @Vosst

:Poter
wait 10
if
player.Defined($PLAYER_CHAR)
jf @Poter
if and
not actor.Dead($PLAYER_ACTOR)
8184:   not actor $PLAYER_ACTOR health >= 21
jf @Vosst
0226: 1@ = actor $PLAYER_ACTOR health
1@ += -1
actor.Health($PLAYER_ACTOR) = 1@
wait 5000
jump to @Poter