;autor dev
;skrypt na jedzenie wykorzystujacy .glod wszystko
;wszelkie bugi, niedociagniecia mozna zglaszac na ircu -> #ultima-mw
;makro wykorzystuje:
;ser
;chleb
;ciastka
;salatki
;sok
;############################################
;ustaw ponizsze zmienne

set %opcja a ; k/a k- je po wcisnieciu klawisza , a - je automatycznie po wyskoczeniu komunikatu
set %k1 G   ; zdefiniuj klawisz pod ktorym chcesz jesc. Jesli chcesz np. alt + g robimy to w ten sposob %k1  G, %k2  alt
set %k2 ctrl


;#############################################
set *STOP 0
;set #sysmsgcol 21314
;event sysmessage skrypt na zarcie wlaczony - autor dev (bugi zglaszac na ircu)

poczatek:
set %x 0
set %y 0
set %z 0
set %t 0

if %opcja = k
{
   onHotkey %k1 %k2
           goto jemy
}
if %opcja = a
{
  for %journal 1 3
  {

        scanjournal %journal
        if Czujesz_sie_dobrze in #journal || Moglbys_czuc_sie_lepiej in #journal || Czujesz_sie_ospaly_i_zmeczony in #journal
        {
           if *STOP = 1
           {
              repeat
              until *STOP = 0
           }
           sound c:\well_done.wav
           goto jemy
        }
  }
}
goto poczatek

jemy:
set *STOP 1
goto sprawdz_stan

sprawdz_stan:
event macro 1 0 .glod wszystko
      wait 1s
for %journal 1 6
{
scanjournal %journal
       if glod:_opty in #journal || glod:_przejedzenie in #journal || glod:_bardzo_duze_przejedzenie in #journal
         set %x 1
      if weglowodany:_opty in #journal || weglowodany:_przejedzenie in #journal || Weglowodany:_Bardzo in #journal
         set %t 1
      if Bialka:_opty in #journal || Bialka:_przejedzenie in #journal || Bialka:_Bardzo in #journal
         set %y 1
      if witaminy:_opty in #journal || witaminy:_przejedzenie in #journal || witaminy:_bardzo_duze_przejedzenie in #journal
         set %z 1

}
if %x + %t + %y + %z = 4
    goto konczymy
else
    goto polecenie

polecenie:
if %x = 1 && %y = 0 && %z = 0 && %t = 0
   gosub jedzeniowy VRD
if %t = 0
   gosub jedzeniowy VRD
if %y = 0
   gosub jedzeniowy VRD
if %z = 0
   gosub jedzeniowy VRD
if %x = 0
   gosub glod_norma
else
    goto sprawdz_stan

konczymy:
set *STOP 0
set #sysmsgcol 25
event sysmessage Nazarlem sie do syta.
goto poczatek

sub jedzeniowy
finditem %1
if #findkind = -1
{
             set #sysmsgcol 900
    event sysmessage nie mam %1 koncze jesc
          goto poczatek
}
else
    set %licznik 0
    for %licznik 0 1
    {
        finditem %1
        set #sysmsgcol 900
        %licznik = %licznik + 1
        set #lobjectid #findid
        event macro 17
    }
goto sprawdz_stan

sub glod_norma
finditem VRD
    set #lobjectid #findid
    event macro 17
wait 30
event macro 1 0 .glod
    scanjournal 1
    if czujesz_sie_w_pelni_sil in #journal  || glod:_opty in #journal
       goto konczymy
            else  {
                   gosub jedzeniowy VRD ; ciastka
                         wait 1s
                   gosub jedzeniowy VRD ; chleb
                       if czujesz_sie_w_pelni_sil in #journal  || glod:_opty in #journal
                           return
                           else
                           {
                           gosub jedzeniowy VRD ;salatka
                          if czujesz_sie_w_pelni_sil in #journal  || glod:_opty in #journal
                            return
                            else
                             goto sprawdz_stan
                           }
                   }
goto poczatek