repeat
onhotkey F1
{
gosub skanujteren
gosub mainloop
}
until #false



sub SkanujTeren ; jedziem
  event sysmessage Szukam pomidorow KURWA1!1!
  finditem CKK G_ , 50    ;tylko pomidory
  set #lpc 2000
  for #findindex 1 #findcnt
  {
    wait 3
    set %_x . #findindex #findx ;tworzenie tablicy
    set %_y . #findindex #findy ;tworzenie tablicy
    set %_z . #findindex #findz ;tworzenie tablicy
    set %krzak_id_ . #findindex #findid
    ignoreitem #findid
  }
  set #lpc 10
  set %IloscKrzaczkow #findcnt
  event sysmessage Znaleziono #findcnt krzaczkow.
return



sub MainLoop ;parametr: ilosc znalezionych krzaczkw
  for %j 1 %IloscKrzaczkow
      {
      gosub Podejdz_do_rosliny %_x . %j %_y . %j %_z . %j
      gosub Zrywaj_rosliny %_x . %j %_y . %j %_z . %j %krzak_id_ . %j
      ignoreitem %krzak_id_ . %j
      }
  event sysmessage KONIEC. Wszystkie rosliny oberwane.
  ignoreitem reset
  halt
return

sub Podejdz_do_rosliny
  set %krzaczek_x %1
  set %krzaczek_y %2
  set %krzaczek_z %3
  move %krzaczek_x %krzaczek_y 0 5s
  if #menubutton = mbstop
  {
     set #menubutton N/A
     gosub Rysuj_przycisk_start
     return PetlaPrzyciskow
  }
  if #CHARPOSX <> %krzaczek_x && #CHARPOSY <> %krzaczek_y
     {
      set %czas #scnt + 6
      set %czas2 #SCNT + 8
      event pathfind %krzaczek_x %krzaczek_y %krzaczek_z
      repeat
        if #menubutton = mbstop
        {
           set #menubutton N/A
           gosub Rysuj_przycisk_start
           return PetlaPrzyciskow
        }
        if %czas < #scnt
        {
            set %czas #scnt + 6
            event pathfind %krzaczek_x %krzaczek_y %krzaczek_z
        }
        scanjournal 1
        if _Can't_get_there in #journal || stoisz_za_daleko in #journal || _That_is_too in #journal
        {
            move %krzaczek_x %krzaczek_y 0 5s
            return
        }
      until #CHARPOSX = %krzaczek_x && #CHARPOSY = %krzaczek_y || %czas2 < #SCNT
     }
return

sub Zrywaj_rosliny
  set #ltargetx %1
  set #ltargety %2
  set #ltargetz %3
  event sysmessage %1 %2 %3
  if %nr_produktu < 13
     {
     set #ltargetkind 3
     set #ltargettile %4
     }
  if %nr_produktu = 13
     {
     set #ltargetkind 1
     set #ltargetid %4
     }
  szukajSierpu:
  finditem fuo C_ , #charid
  if #findkind = -1
    {
    finditem fuo C_ , #backpackid
    if #findkind = -1
       {
       set #sysmsgcol 1080
       event sysmessage Nie masz Sierpu!!!
       halt
       }
    else
        {
        set #lobjectid #findid
        event macro 17
        wait 20
        goto szukajSierpu
        }
    }
  set #lobjectid #findid
  event macro 17
  target 4s

  gosub clickXY %1 %2 %3 -2 -50

  repeat
        scanjournal 1
                 wait 5
        click !x !y d f dmc
                 wait 5
        click !x !y d f dmc
  until Scinasz_rosline in #journal


  repeat
     scanjournal 1
    until Z_tej_rosliny_juz_nic_wiecej_nie_wytniesz. in #journal || Tego_nie_mozesz_obciac in #journal

return

sub ClickXY
set %6 #charposx
set %7 #charposy
set %8 #charposz
set !x ( ( %1 - %6 ) - ( %2 - %7 ) ) * 22 + #clileft + #clixres / 2
set !y ( ( %1 - %6 ) + ( %2 - %7 ) ) * 22 + #clitop + #cliyres / 2 - ( %3 - %8 ) * 4


;event sysmessage !x !y

return !x !y