;by odzi ver. 1.1
;[jedzenie - Ciastka, ser, salatka, sok, chleb]

;==============================================================================================

set %jedzenie 1 ;<- [1] - jedzenie automatyczne [0] - jedzenie pod bindem
set %key end  ;<- Przycisk pod jakim ma jesc
set *stop 0
set %ji #jindex

;============================================================================================
set #sysmsgcol 80
event sysmessage Skrypt na jedzenie (ciastka, ser, salatka, sok, chleb) odpalony [Created bY odzi:)]
repeat
{
      if %jedzenie = 1
      {
         if %ji < #jindex
         {
            set %ji %ji + 1
            scanjournal %ji
            if Zapisywanie in #journal
               gosub czekaj
            if Czujesz_sie in #journal || Moglabys_czuc in #journal
            {
               set *STOP 1
               gosub sprawdz_glod
            }
         }
      }
      if %jedzenie = 0
      {
         onhotkey %key
         {
                  set *STOP 1
                  gosub sprawdz_glod
                  set *STOP 0
         }
      }
}
until #false

sub sprawdz_glod
repeat
{
    set %ji #jindex
    event macro 1 0 .glod wszystko
    wait 1s
    repeat
    {
          if %ji < #jindex
          {
             set %ji %ji + 1
             scanjournal %ji
             if Zapisywanie in #journal
                gosub czekaj
             if Glod:_Norma in #journal || Glod:_Niewiele in #journal
                set %glod 0
             if Bialka:_Norma in #journal || Bialka:_Niewiele in #journal
                set %bialko 0
             if Witaminy:_Norma in #journal || Witaminy:_Niewiele in #journal
                set %wit 0
             if Weglowodany:_Norma in #journal || Weglowodany:_Niewiele in #journal
                set %wegle 0
             if Glod:_Optymalne_zaspokojenie in #journal || Glod:_Przejedzenie in #journal || Glod:_Bardzo_duze_przejedzenie in #journal
                set %glod 1
             if Bialka:_Optymalne_Zaspokojenie in #journal || Bialka:_Przejedzenie in #journal || Bialka:_Bardzo_duze_przejedzenie in #journal
                set %bialko 1
             if Witaminy:_Optymalne_Zaspokojenie in #journal || Witaminy:_Przejedzenie in #journal || Witaminy:_Bardzo_duze_przejedzenie in #journal
                set %wit 1
             if Weglowodany:_Optymalne_zaspokojenie in #journal || Weglowodany:_Przejedzenie in #journal || Weglowodany:_Bardzo_duze_przejedzenie in #journal
                set %wegle 1
          }
    }
    until %ji = #jindex
    if %glod = 0 && %bialko = 0 && %wit = 0 && %wegle = 0
    {
       gosub zjedz MGG chleba
       if #result = koniec || #result = brak
       {
          gosub koniec
          return
       }
       if %jedz = 1
       {
          set %jedz 0
          continue
       }
       gosub zjedz JGI salatki
       if #result = koniec || #result = brak
       {
          gosub koniec
          return
       }
       if %jedz = 1
       {
          set %jedz 0
          continue
       }
       gosub zjedz SLI ciasteczek
       if #result = koniec || #result = brak
       {
          gosub koniec
          return
       }
       if %jedz = 1
       {
          set %jedz 0
          continue
       }
    }
    if %glod = 1 && %bialko = 0 && %wit = 0 && %wegle = 0
    {
       gosub zjedz ZBM soku , #spc , kokosowego
       if #result = koniec || #result = brak
       {
          gosub koniec
          return
       }
       set %jedz 1
       continue
    }
    if %bialko = 0
    {
       if %glod = 1
       {
          gosub zjedz END sera
          if #result = koniec || #result = brak
          {
             gosub koniec
             return
          }
          set %jedz 1
          continue
       }
       else
       {
           gosub zjedz MGG chleba
           if #result = koniec || #result = brak
           {
              gosub koniec
              return
           }
           set %jedz 1
           continue
       }
    }
    if %wit = 0
    {
       gosub zjedz JGI salatki
       if #result = koniec || #result = brak
       {
          gosub koniec
          return
       }
       set %jedz 1
       continue
    }
    if %wegle = 0
    {
       gosub zjedz SLI ciasteczek
       if #result = koniec || #result = brak
       {
          gosub koniec
          return
       }
       set %jedz 1
       continue
    }
    if %glod = 0 && %bialko = 1 && %wit = 1 && %wegle = 1
    {
       gosub zjedz JGI salatki
       if #result = koniec || #result = brak
       {
          gosub koniec
          return
       }
       set %jedz 1
       continue
    }
}
until %glod = 1 && %bialko = 1 && %wit = 1 && %wegle = 1
gosub koniec
return

sub czekaj
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Koniec_zapisywania in #journal
            return
      }
}
until #false
return

sub zjedz
          finditem %1
          if #findkind = -1
          {
             set #sysmsgcol 55
             event sysmessage Nie znalazlem %2 skrypt wylaczony
             set *STOP 0
             return brak
          }
          set #lobjectid #findid
          event macro 17
          wait 1s
return

sub koniec
    if #result = brak
    {
       set #sysmsgcol 45
       event sysmessage Koniec jedzenia
       set *STOP 0
       return
    }
    set #sysmsgcol 75
    event sysmessage Zakonczono jedzenie
    set *STOP 0
return