;===================================
;BadScripter's Reagent Counter v1.05
;===================================
;Poprawki bY SabiK
;uotitle.txt
;Wersja 1.0
;Skrypt pokazuje na pasku tytulu UO hp/stamine/mane oraz regi
;Jesli mamy ponizej okreslonej liczby hp odgrywa dzwiek

;U W A G A !!! USTAW PONIZSZE ZMIENNE PRZED WLACZENIEM SKRYPTU !!!
set %hp XX                    ;Tutaj ustaw ilosc hp ponizej ktorej skrypt ma odtwarzac dzwiek
set %sciezka X:\xxx.wav       ;Tutaj ustaw sciezke do pliku dzwiekowego
set %reg_bag_id XXXXXXX       ;Tutaj ustaw id plecaka (2x na plecak i odczytaj #lobjectid)
;------------------------------------------------------------------------------------------------------------

set #sysmsgcol 63
event sysmessage Skrypt [uotitle] odpalony (Poprawki by SabiK)
wait 1

loop:
if #hits <= %hp
   sound %sciezka

FINDITEM KUF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %black_pearl 0
    GOSUB title_set
    GOTO next_1
     }
  SET %black_pearl #FINDSTACK
  GOSUB title_set

next_1:

FINDITEM JUF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %blood_moss 0
    GOSUB title_set
    GOTO next_2
    }
  SET %blood_moss #FINDSTACK
  GOSUB title_set

next_2:

FINDITEM KZF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %garlic 0
    GOSUB title_set
    GOTO next_3
    }
  SET %garlic #FINDSTACK
  GOSUB title_set

next_3:

FINDITEM JZF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %ginseng 0
    GOSUB title_set
    GOTO next_4
    }
  SET %ginseng #FINDSTACK
  GOSUB title_set

next_4:

FINDITEM MZF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %mandrake_root 0
    GOSUB title_set
    GOTO next_5
    }

  SET %mandrake_root #FINDSTACK
  GOSUB title_set

next_5:

FINDITEM WZF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %night_shade 0
    GOSUB title_set
    GOTO next_6
    }

  SET %night_shade #FINDSTACK
  GOSUB title_set

next_6:

FINDITEM RZF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %spider_silk 0
    GOSUB title_set
    GOTO next_7
    }
    
  SET %spider_silk #FINDSTACK
  GOSUB title_set

next_7:

FINDITEM SZF C_ , %reg_bag_id
  IF #FINDKIND = -1
    {
    SET %sulfurous_ash 0
    GOSUB title_set
    GOTO loop
    }

  SET %sulfurous_ash #FINDSTACK
  GOSUB title_set

GOTO loop

SUB title_set
SETUOTITLE [ #hits / #maxhits ] [ #stamina / #maxstam ] [ #mana / #maxmana ] - Perly: %black_pearl | Mech: %blood_moss | Czosnek: %garlic | Zenszen: %ginseng | Mandra: %mandrake_root | Wilcze: %night_shade | Sieci: %spider_silk | Siarka: %sulfurous_ash
RETURN