Set %minimalHP 100;pri skolki hp bduet pitj GH
set %HpotionTime 10;zaderzhka na pitje


Set %H 0

Autoheal:
If #Hits < #Maxhits
Gosub Heal
scanjournal 1
If Frozen in #journal : notin #journal
{
msg $.usetraped$
deletejournal
wait 5
}
if #hits =< %minimalHP && %H < #scnt
{
msg $.drink heal$
wait 10
set %h #scnt + %HpotionTime
}
Goto Autoheal


sub Heal
Set %TargetAntiLag #Scnt2 + 10
deletejournal
spook:

while #targcurs <> 1
{
wait 1
If Bandage_not_found in #sysmsg || You_can't_use_that in #sysmsg
halt
If %TargetAntiLag <= #scnt2
return
}
Scanjournal
if where_do_you_want_to_use in #journal && : notin #journal && event notin #journal
{
event macro 23 0
goto heal
}
goto spook
heal:
Set %HealTime #scnt2 + 40
deletejournal
Repeat
{
Scanjournal
If You_put_the_bloody in #journal && : notin #journal && event notin #journal
return
If You_fail in #journal && : notin #journal && event notin #journal
return
If cured in #journal && : notin #journal && event notin #journal
return
If You_gain in #journal && : notin #journal && event notin #journal
return
wait 5
}
until %HealTime <= #scnt2
Return