initevents
set %ilosc_hiddow 0
set %ilosc_stelf 0
set %hid_udany 0
set %hid_nieudany 0
set %stelf_udany 0
set %stelf_nieudany 0

hiding:
       event macro 13 21
      wait 3s
      if #charstatus = H
      {
            set %hid_udany %hid_udany + 1
        wait 8s
          goto stealth
    }
      if #charstatus <> H
      {
            set %hid_nieudany %hid_nieudany + 1
      }
      EVENT SYSMESSAGE Hiding: Udane: %hid_udany Nieudane: %hid_nieudany
       wait 8s
goto hiding

stealth:
    event macro 13 47
      set %ilosc_stelf %ilosc_stelf + 1
      wait 3s
    if #charstatus = H
      {
            set %stelf_udany %stelf_udany + 1
          wait 8s
        goto stealth
    }
      if #charstatus <> H
      {
            set %stelf_nieudany %stelf_nieudany + 1
      }
      wait 8s
      event sysmessage Stealth: Udane %stelf_udany . . Nieudane %stelf_nieudany . . W sumie %ilosc_stelf
goto hiding