Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;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
- ;--------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement