;Autor: odzi
;v. 1.0
set %key f2
set %ji #jindex
repeat
{
      onhotkey %key
      {
      gosub szukaj
      if #result = nie
         continue
      set %juka #result
      gosub karm %juka
      if #result = nie
         continue
      }
}
until #false

sub szukaj
finditem BO G_2
if #findkind = -1
{
   set #sysmsgcol 45
   event sysmessage Nie znalazlem juki
   ignoreitem reset
   return nie
}
return #findid

sub karm
finditem FWI_QQD_TWI_UWI C_ , #backpackid
if #findkind <> -1
{
   exevent drag #findid #findstack
   set %czas #scnt + 5
   repeat
   {
         if %czas < #scnt
            exevent drag #findid #findstack
         finditem #findid C_ , #backpackid
   }
   until #findkind = -1
   exevent dropc %1
   repeat
   {
         if %ji < #jindex
         {
            set %ji %ji + 1
            scanjournal %ji
            if *szczesliwe* in #journal || *twe_zwierze in #journal
            {
               ignoreitem %1
               return
            }
            if *Yum* in #journal
               return
         }
   until #false
}
set #sysmsgcol 45
event sysmessage Nie znalazlem owocow
return nie