;by odzi ver. 1.0
;[jedzenie - Ciastka, ser, salatka]

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

;============================================================================================
set #sysmsgcol 80
event sysmessage Skrypt na jedzenie (ciastka, ser, salatka) 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
        gosub jedz
     }
   }
   if %jedzenie = 0
   {
     onhotkey %key
     {
              set *STOP 1
         gosub jedz
         set *STOP 0
     }
   }
}
until #false

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

sub jedz
  set *STOP 1
  finditem SLI C
  if #findkind = -1
  {
    set #sysmsgcol 55
    event sysmessage Nie znalazlem ciasteczek, skrypt wylaczony
    halt
  }
  wait 3
  finditem JGI C
  if #findkind = -1
  {
    set #sysmsgcol 55
    event sysmessage Nie znalazlem salatki, skrypt wylaczony
    halt
  }
  wait 3
  finditem END C
  if #findkind = -1
  {
    set #sysmsgcol 55
    event sysmessage Nie znalazlem sera, skrypt wylaczony
    halt
  }
  gosub sprawdz
return

sub sprawdz
  event macro 1 0 .glod wszystko
  wait 2s
  set %bialka 0
  set %witaminy 0
  set %weglowodany 0
  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
       {
        if %bialka = 0
        {
          gosub bialka END
          set %ji #jindex
          event macro 1 0 .glod wszystko
          set %bialka 1
          wait 2s
          continue
        }
        if %witaminy = 0
        {
          gosub witaminy JGI
          set %ji #jindex
          event macro 1 0 .glod wszystko
          set %witaminy 1
          wait 2s
          continue
        }
        if %weglowodany = 0
        {
          gosub weglowodany SLI
          set %ji #jindex
          event macro 1 0 .glod wszystko
          set %bialka 0
          set %witaminy 0
          wait 2s
          continue
        }
       }
       if Bialka:_Norma in #journal || Bialka:_Niewiele in #journal
       {
        gosub bialka END
        set %ji #jindex
        event macro 1 0 .glod wszystko
        wait 2s
        continue
       }
       if Witaminy:_Norma in #journal || Witaminy:_Niewiele in #journal
       {
        gosub witaminy JGI
        set %ji #jindex
        event macro 1 0 .glod wszystko
        wait 2s
        continue
       }
       if Weglowodany:_Norma in #journal || Weglowodany:_Niewiele in #journal
       {
        gosub weglowodany SLI
        set %ji #jindex
        event macro 1 0 .glod wszystko
        wait 2s
        continue
       }
       if Glod:_Optymalne_zaspokojenie in #journal
        set %glod 1
       if Bialka:_Optymalne_Zaspokojenie in #journal
        set %bialko 1
       if Witaminy:_Optymalne_Zaspokojenie in #journal
        set %witaminka 1
       if Weglowodany:_Optymalne_zaspokojenie in #journal
        set %wegle 1
     }
  }
until %glod = 1 && %bialko = 1 && %witaminka = 1 && %wegle = 1
set #sysmsgcol 75
event sysmessage Zakonczono jedzenie
set *STOP 0
set %bialko 0
set %witaminka 0
set %wegle 0
return

sub bialka
     finditem %1
     if #findkind = -1
     {
       set #sysmsgcol 55
       event sysmessage Nie znalazlem sera, skrypt wylaczony
       halt
     }
     set #lobjectid #findid
     event macro 17
     wait 3
return

sub witaminy
     finditem %1
     if #findkind = -1
     {
       set #sysmsgcol 55
       event sysmessage Nie znalazlem salatki, skrypt wylaczony
       halt
     }
     set #lobjectid #findid
     event macro 17
     wait 3
return

sub weglowodany
     finditem %1
     if #findkind = -1
     {
       set #sysmsgcol 55
       event sysmessage Nie znalazlem ciasteczek, skrypt wylaczony
       halt
     }
     set #lobjectid #findid
     event macro 17
     wait 3
return