If %InitOK = 1
  goto alpapeo

; ***********************************************
;   MINISITEMA DE COMIDA PAPEATOR 2000 v0.1   Por Ishan
; ***********************************************

; Este es un miniscript que mantendra los niveles de
; comida en un nivel alto
; Es como un Tamagochi :D

; Funcionalidades
;  +Pues come algo. Que esperabas?

; **************** PROGRAMA PRINCIPAL *****************
; Ya no necesitas tocar nada mas
;Pasamos a segundos
set %digestion %digestion * 60

gosub ponalarma
wait 9
EVENT sysmessage     Papeator    activo

alpapeo:

 set %temptime #SCNT
 if %horadecomer > %temptime
   exit

; A zampar!
    gosub ponalarma

    set %ztipo 0
    zampa1:
     if %ztipo = 0
        finditem %loquecomo
     if %ztipo = 1
        finditem RGG_FUD_WLI_YLI_QQD_YSD_HQD_NRD

     wait 2
     if #findkind < 0
         {           
           if %ztipo < 2
             set %ztipo %ztipo + 1
           if %ztipo = 2
             {
               msg $/ Se acabo el papeo!$
               if %comMusic = 1
                  {
                   playcd
                  }
               exit
             }
           goto zampa1
         }

     if #findkind > 0
       {
        ignoreitem #findid
        goto zampa1
       }

    ; tenemos comida aun
    ; Hacemos backup del lastobject que hay ahora mismo
     set %zamlobjectid   #lobjectid
     set %zamlobjecttype #lobjecttype     
     set #lobjectid      #findid
     set #lobjecttype    #findtype
    ; Comemos
     wait 4
     event macro %LastObject
     wait 4
    ; Recuperamos lastobject
     set #lobjectid      %zamlobjectid  
     set #lobjecttype    %zamlobjecttype
exit


sub ponalarma
 set %horadecomer #SCNT
 set %horadecomer %horadecomer + %digestion
return