;
;            ******************************
;            *  Jedzenie        ver 1,00  *
;            *<<>><<>><<>><<>><<>><<>><<>>*
;            *           Romek_z_Jawora   *
;            ******************************
;
; W momencie pojawienia sie komunikatu
; makro zaczyna jesc, o ile ma to sens
; najpierw probuje zjadac jedzenie 1 pkt
; nastepnie 2 pkt - w celu najedzenia
; jezeli nie mamy jedzenia 1 pkt to je tylko 2pkt
;
; Skrypt jest kompatybilny z innymi skryptami z mojej strony
; np. nie zacznie jesc, poki sie osoba leczy
;
; Makro uzupelnili: Kwiatek, Evilas, spot

set %sciezka C:\xxx.wav  ;sciezka do pliku dzwiekowego

set #sysmsgcol 90
event sysmessage [RJ]: Tyle wiesz ile zjesz

set %typy1pkt ZPE_HND_YRD_YBF_BND_WGB_FND_GND_END_HND_RGG_YSD_QQD_QUD
set %typy2pkt TQE_WLI_BNL_NWI_IND_ACG_VRD_SLI_HGI_OLI_HTH_HGI_EGI_JGI_QRD_ZBG_NRD_WLI_ZPD_GUD_YLI_HQD_IND_SPE_PRD_AQE_DNL_EQD_DQD_YDF_COQ_FWF_ZVF_DWF_NNQ_BCK
set %typysurowemieso PUD_VRD
set *RJjedzenie #false
set %ji #jindex
event macro 1 0 .glod
set *RJskill #false
;-------------------------------
repeat
	if %ji < #jindex
	{
   		set %ji %ji + 1
   		scanjournal %ji
   		if : notin #journal && ( Wciaz_glod_meczy in #journal || Jestes_troche_najedz in #journal || Jestes_najedz in #journal || zglodniales in #journal || juz_cos_zjesc in #journal || zaczynasz_robic_sie_glod in #journal || glod in #journal || Zoladek_cie_boli in #journal || Czujesz_sie_troszke_najedz in #journal )
      			gosub jedzenie
   		set %ji #jindex
	}
until #false
;-------------------------------
sub jedzenie
	set *RJjedzenie #true
	sound %sciezka
    	set %jednopkt #true
    	repeat
    		if odrobine_zglodniales in #journal || Jestes_najedz in #journal ||
       		set %jednopkt #false
          	if %scnt <> #scnt
          	{
             		set %scnt #scnt
			finditem #charid G_0
			set %typpostaci #findtype
	szukaj:
			if %typpostaci notin FH_PG_YG
			{
                     	finditem %typyjednopkt C
             			if #findkind <> 0
                       		finditem %typy2pkt C
				event property #findid
				if surow in #property
				{
					ignoreitem #findid
					goto szukaj
				}
			}
			else
			{
				finditem %typysurowemieso C
				event property #findid
				if krwisty in #property || pieczon in #property
				{
					ignoreitem #findid
					goto szukaj
				}
             		}
			if #findkind = -1
             		{
				set %ji #jindex
                		set #sysmsgcol 50
		  		event sysmessage [Jedzenie]: Brak!
                		return
             		}
			repeat
			until *RJskill <> #true
			set #lobjectid #findid
             		event macro 17
          	}
    		if %ji < #jindex
    		{
       		set %ji %ji + 1
       		scanjournal %ji
    		}
	until Jestes_bardzo_porzadnie in #journal
	set #sysmsgcol 88
	event sysmessage [Jedzenie]: Skonczylem jesc!
	ignoreitem reset
	set *RJjedzenie #false
return