;Nazwa: Rolnik_warzywa_Menu_v-1.5.txt
;Autor: Janusz [Frisky]
;======================================
set %Max_waga ( #MAXWEIGHT * 2 ) - 40
set %Click_Przerwij_X 187
set %Click_Przerwij_Y 165
set #lpc 200
;menu hideEUO
menu clear
menu window color btnface
menu window size 210 120
menu window title Rolnik Warzywa 1.5
;========================================
menu font size 8
menu text mtmiasto 10 1 Co zrywac.
menu font size 10
menu font bgcolor white
menu combo create mcprodukt 10 20 190
menu combo add mcprodukt Pszenica
menu combo add mcprodukt Kukurydza
menu combo add mcprodukt Marchewka
menu combo add mcprodukt Cebula
menu combo add mcprodukt Len
menu combo add mcprodukt Bawelna
menu combo add mcprodukt Dynia
menu combo add mcprodukt Arbuz
menu combo add mcprodukt Rzepa
menu combo add mcprodukt Salata
menu combo add mcprodukt Kapusta
menu combo add mcprodukt Chmiel
menu combo add mcprodukt Pomidor
menu combo select mcprodukt 1
;------------------- Pole szukania ----------------
menu font bgcolor btnface
menu font size 8
menu text mtmiasto 10 56 Pole szukania.
menu Edit mePoleSz 100 52 25 20
menu font bgcolor btnface
menu font size 9
;=================== przyciski =================
menu font color green
menu font style b
menu font bgcolor btnface
menu button mbstart 10 85 60 24 Start
menu font color black
menu button mbstop 140 85 60 24 Stop
;===============================================
menu show
set #lpc 10
set #menubutton N/A
repeat
    if #menubutton = mbstart
      {
      set #menubutton N/A
      menu delete mbstart

      menu get mcprodukt
      set %nr_produktu #menures
      if %nr_produktu = 1
         set %Roslina pszenica
      if %nr_produktu = 2
         set %Roslina kukurydza
      if %nr_produktu = 3
         set %Roslina marchewka
      if %nr_produktu = 4
         set %Roslina cebula
      if %nr_produktu = 5
         set %Roslina len
      if %nr_produktu = 6
         set %Roslina bawelna
      if %nr_produktu = 7
         set %Roslina dynia
      if %nr_produktu = 8
         set %Roslina arbuz
      if %nr_produktu = 9
         set %Roslina rzepa
      if %nr_produktu = 10
         set %Roslina salata
      if %nr_produktu = 11
         set %Roslina kapusta
      if %nr_produktu = 12
         set %Roslina chmiel
      if %nr_produktu = 13
         set %Roslina pomidor
      menu get mePoleSz
      set %Max_odleglosc #menures
      if %nr_produktu = 13
         {
         gosub SkanujTeren
         gosub SkanujPomidory
         gosub MainLoop
         }
      else
         {
         gosub SkanujTeren
         gosub MainLoop
         }
      }
    if #menubutton = CLOSED ;wcisnieto przycisk X
       {
       menu hide
       set #menubutton N/A
       halt
       }
until #false
;============================================
sub SkanujTeren
  set #lpc 4000
  event sysmessage Szukam warzyw...
  tile Init
  set %x_poczatek #charposx - %Max_odleglosc
  set %y_poczatek #charposy - %Max_odleglosc
  set %x_koniec #charposx + %Max_odleglosc
  set %y_koniec #charposy + %Max_odleglosc
  set %licznik 0
  for %x %x_poczatek %x_koniec
    {
    for %y %y_poczatek %y_koniec
      {
      tile Cnt %x %y
      for %i 1 #tilecnt
        {
        tile Get %x %y %i
        if %Roslina in #tilename ;&& ( Background in #tileflags || #tileflags = %null )
          { ;ustawia tablice poletak z warzywami
          set %licznik %licznik + 1
          set %_x . %licznik %x ;tworzenie tablicy
          set %_y . %licznik %y ;tworzenie tablicy
          set %_z . %licznik #tilez ;tworzenie tablicy
          set %_tt . %licznik #tiletype
          break
          }
        }
      }
    }
  set #lpc 10
return
;----------------------------------------------------------------
sub MainLoop
  set #lpc 10
  event sysmessage Znaleziono %licznik roslin.
  for %j 1 %licznik
      {
      gosub Podejdz_do_rosliny %_x . %j %_y . %j %_z . %j
      if pomidor in %Roslina
         gosub Zrywaj_rosliny %_Px . %j %_Py . %j %_Pz . %j %Pkrzak_id_ . %j
      else
         gosub Zrywaj_rosliny %_x . %j %_y . %j %_z . %j %_tt . %j
      }
  event sysmessage Wszystkie warzywa zerwane. KONIEC.
  gosub ZerujTablice
  gosub Rysuj_przycisk_start
return
;--------------------------------------------------
sub Podejdz_do_rosliny
  set %krzaczek_x %1
  set %krzaczek_y %2
  if pomidor notin %Roslina
     set %krzaczek_z %3
  move %krzaczek_x %krzaczek_y 0 5s
  if #CHARPOSX <> %krzaczek_x && #CHARPOSY <> %krzaczek_y
     {
      set %czas #scnt + 6
      event pathfind %krzaczek_x %krzaczek_y %krzaczek_z
      repeat
        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
     }
return
;--------------------------------------------------
sub Zrywaj_rosliny
  set #ltargetx %1
  set #ltargety %2
  set #ltargetz %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!!!
       gosub Rysuj_przycisk_start
       }
    else
        {
        set #lobjectid #findid
        event macro 17
        wait 20
        goto szukajSierpu
        }
    goto loop
    }
  set #lobjectid #findid
  event macro 17
  target 4s
  event macro 22
  repeat
     scanjournal 1
  until Scinasz_rosline in #journal
  set %index 1
  repeat
     scanjournal %index
     if %Max_waga < #WEIGHT || %Max_waga = #WEIGHT
        {
        click %Click_Przerwij_X %Click_Przerwij_Y
        Display ok $Osiagneles/as maksymalny udzwig. $Skrypt wylaczony.
        gosub ZerujTablice
        goto loop
        }
     ;if Your_skill_ in #journal
     ;   {
     ;   set %index 2
     ;   }
     if Nie_masz_miejsca_w_plecaku in #journal
        {
        click %Click_Przerwij_X %Click_Przerwij_Y
        Display ok $Juczniak pelny. $Skrypt wylaczony.
        gosub ZerujTablice
        goto loop
        }
     if #menubutton = mbstop
        {
        set #menubutton N/A
        click %Click_Przerwij_X %Click_Przerwij_Y
        gosub ZerujTablice
        gosub Rysuj_przycisk_start
        event sysmessage Skrypt zatrzymany.
        }
  until Z_tej_rosliny_juz_nic_wiecej_nie_wytniesz. in #journal || Tego_nie_mozesz_obciac in #journal

return
;--------------------------------------------------
sub Rysuj_przycisk_start
  set #menubutton N/A
  menu font color green
  menu font style b
  menu font bgcolor btnface
  menu button mbstart 10 85 60 24 Start
return
;--------------------------------------------------
sub ZerujTablice
set #lpc 4000
for %j 1 %licznik
    {
    set %_x . %j
    set %_y . %j
    set %_z . %j
    set %_tt . %j
    }
set #lpc 10
return
;--------------------------------------------------