; Makro: Zielarstwo_sadzenie-i-zbieranie_v1.1.txt
; Autor: Janusz [Fris]
;--------------------------------------------------
;---- OPIS
;Sadzi szczepki ktore ma w plecaku w prostokacie 4x8
;na poludnie od postaci

set %Start_X #CHARPOSX
set %Start_Y #CHARPOSY
set %ZrywanieStart_X %Start_X
set %ZrywanieStart_Y %Start_Y
loop:
gosub ChodzenieDoSadzenia
set %ZrywanieStart_X %Start_X
for %i 1 5
    {
    for %j 1 8
        {
        set %ZrywanieKrok_x %ZrywanieStart_X
        set %ZrywanieKrok_y %ZrywanieStart_Y + %j
        move %ZrywanieKrok_x %ZrywanieKrok_y 0 20s
        gosub Zrywaj_rosliny
        }
    set %ZrywanieStart_X %ZrywanieStart_X + 1
    ;gosub SprawdzGlod
    }
goto loop

sub Zrywaj_rosliny
  Zrywaj_rosliny:
  event macro 2 0 spoglada na rosline
  finditem XIJ_NIJ_TIJ_FJJ_KBF G_0
  set #LTARGETKIND 2
  set #LOBJECTID #findid
  event macro 17
  set %czas #scnt + 9
  scanjournal 1
  if _I_can't_see_that. in #journal || _That_is_too in #journal
     {
     ignoreitem %krzak_id
     return
     }
  repeat
   wait 5
   scanjournal 1
   if %czas < #scnt
      goto Zrywaj_rosliny
   if Z_tej_rosliny in #journal || stoisz_za_daleko in #journal
      return
  until Zaczynasz_zrywac in #journal

  set %SprawdzPierwszyRaz 1
  set %Licznik 0
  set %JIndexStart #jindex
  repeat
      if %JIndexStart = #jindex
         {
         wait 1s
         }
      else
         {
         if %SprawdzPierwszyRaz = 1
            {
            set %Licznik #jindex
            set %SprawdzPierwszyRaz 0
            scanjournal %Licznik
            }
         else
           {
            set %Licznik ( %Licznik - 1 )
            if %JIndexStart = %Licznik
               set %Licznik #jindex
            scanjournal %Licznik
           }
         }
      if #menubutton = mbstop
        {
        click %Click_Przerwij_X %Click_Przerwij_Y
        gosub Rysuj_przycisk_start
        goto loop
        }
      if Z_tej_rosliny in #journal || _I_can't_see_that. in #journal || _That_is_too in #journal
         goto NastepnaRoslina
  until #false
  NastepnaRoslina:
  set %ZrywanieKrok_x
  set %ZrywanieKrok_y
return
;--------------------------------------------------------------
sub ChodzenieDoSadzenia
set %Grzadka %Start_X
  for %i 1 5
      {
      for %j 1 8
          {
          set %krok_x %Grzadka
          set %krok_y %Start_Y + %j
          move %krok_x %krok_y 0 20s
          gosub Sadzenie
          if #RESULT = Koniec
             halt
          }
      set %Grzadka %Grzadka + 1
      }
event sysmessage KONIEC SADZANIA.
return
;-------------------------------------------
sub Sadzenie
   finditem OIJ_GJJ_CJJ_UIJ C
   if #findkind = -1
      {
      event sysmessage Nie masz szczepek.
      return Koniec
      }
   set #lobjectid #findid
   event macro 17
   set %TimeCel #scnt2 + 20
   repeat
       if %TimeCel < #scnt2
          {
           set #lobjectid #findid
           event macro 17
           set %TimeCel #scnt2 + 20
          }
   until #targcurs = 1

   set #LTARGETX #CHARPOSX
   set #LTARGETY #CHARPOSY
   set #LTARGETZ #CHARPOSZ
   set #LTARGETKIND 2
   event macro 22
   set %TimeSadzenia #scnt2 + 20
   set %Time2 #scnt + 10
   repeat
      if %TimeSadzenia < #scnt2
         {
         event macro 22
         set %TimeSadzenia #scnt2 + 20
         }
      scanjournal 1
   until Probujesz in #journal

   repeat
    set %SprawdzPierwszyRaz 1
    set %Licznik 0
    set %JIndexStart #jindex
    repeat
        if %JIndexStart = #jindex
           {
           wait 1s
           }
        else
           {
           if %SprawdzPierwszyRaz = 1
              {
              set %Licznik #jindex
              set %SprawdzPierwszyRaz 0
              scanjournal %Licznik
              }
           else
             {
              set %Licznik ( %Licznik - 1 )
              if %JIndexStart = %Licznik
                 set %Licznik #jindex
              scanjournal %Licznik
             }
           }
        if #menubutton = mbstop
          {
          click %Click_Przerwij_X %Click_Przerwij_Y
          gosub Rysuj_przycisk_start
          return KoniecSadzenia
          }
   until Udalo in #journal
return
;------------------------------------------------------