Erntescript

[Noir]

Ein recht simples Script. Es geht davon aus, dass ihr failfrei ernten könnt. Fehlschläge sind im Script nicht abgedeckt.

Code: Alles auswählen

set %jrnl #jindex
set %empty 0
; Hier Pflanzentypen festlegen. Mit _ getrennt
set %pflanzen PPE

while #true
{
gosub Ernte
}

sub warten
while #true
   {
   if #jindex > %jrnl
      {
      set %jrnl %jrnl + 1
      scanjournal %jrnl
      if Hier_gibt_es_nichts_zu_ernten in #journal
         {
          set %empty 1
          return
         }
      if legt_die_Ernte_in_euren in #journal
        return
      }
   }
return

sub Ernte
    finditem %pflanzen G_2
    if #findkind <> -1
    {
     set #lobjectid #findid
     event macro 17 0
     gosub warten
     if %empty = 1
     {
     ignoreitem #findid 1
     set %empty 0
     }
    }
return