set #lpc 40
set #sysmsgcol 4000
set %ji #jindex
set %lecze #false
set %delay 0
set %delayb 0
set %delays 0
set %delayd 0
set %delayc 0
;------------------
repeat
if #hits = N/A
 event macro 8 2
if %lecze
{
 gosub sprawdzczywyleczony
 continue
}
if #hits < #maxhits
 gosub leczenie
until #false
;------------------
sub leczenie
set %ji #jindex
set %czas #scnt2 + 9
if H notin #charstatus
{
 event macro 1 0 .lecz
 set %time #scnt2
}
else
 return
repeat
if %ji < #jindex
 set %ji %ji + 1
scanjournal %ji
if Nie_mozesz_te in #journal
{
 set %leczy #scnt + 8
 set %lecze #true ;chociaz nie leczy
 return
}
if %czas < #scnt2
 return
until Zaczynasz_siebie in #journal
set %lecze #true
set %leczy #scnt + 13
return

sub sprawdzczywyleczony
repeat
if %ji < #jindex
 set %ji %ji + 1
scanjournal %ji
if Wyleczyl in #journal || Nie_udalo_Ci_sie_wyleczyc_ in #journal || Przestal in #journal || Ta_osoba_jest_w_pelni_zdrowa in #journal || Your_skill_in_Uzdrawianie in #journal
{
 set %lecze #false
 set %czas ( #scnt2 - %time )
 set #sysmsgcol 4000
 event sysmessage %czas
}
until %ji = #jindex
if %leczy < #scnt
 set %lecze #false
return