Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Rybak_Menu_v-1.7.txt
- ; Autor: Janusz [Fris]
- ;==================================================
- set %Max_odleglosc 6 ;zasieg lowienia
- ;==================================================
- set %click_X_UstawieniaZamknij 473
- set %click_Y_UstawieniaZamknij 73
- set %click_X_Ustawienia 134
- set %click_Y_Ustawienia 287
- set %WydobycieRazKolorNie 7551256
- set %WydobycieRazKolorTak 3242752
- set *STOP 0
- set *WAIT 1
- set %nrmok 1
- set #lpc 200
- menu clear
- menu window color btnface
- menu window size 215 235
- menu window title Rybak 1.7
- ;=================== miasta =====================
- menu font size 8
- menu text mtmiasto 5 1 Zbiornik wodny:
- menu text mtIter 110 1 Powtorzenia:
- ;menu text mtbron 10 280 Wybierz bron ktora sie poslugujesz:
- menu font size 9
- menu font bgcolor white
- menu combo create mcmiasto 5 17 100
- menu combo add mcmiasto Rzeka
- menu combo add mcmiasto Morze
- menu combo select mcmiasto 1
- ;=================== Powtorzenia ================
- menu combo create mcIter 110 17 100
- menu combo add mcIter Bez Iteracji
- menu combo add mcIter Iteracje
- ;menu combo add mcskil Wykrywanie
- menu combo select mcIter 1
- ;=================== bron =======================
- ;menu combo create mcBron 10 300 200
- ;menu combo add mcBron Zadena
- ;menu combo add mcBron Wakizashi
- ;menu combo add mcBron Tasak
- ;menu combo select mcBron 1
- ;=================== miejsce kopania ================
- menu font size 8
- menu font bgcolor btnface
- menu text mtomk 10 155 Numer kratki:
- menu edit mekopanie 90 152 30 %nrmok ; numer miejsca ostatniego koapania
- menu font size 9
- ;=================== przyciski =================
- menu font color black
- menu font style b
- menu button mbwszystko 10 180 120 20 Zaznacz wszystko
- menu button mbnic 135 180 75 20 Odznacz
- menu button mbstart 10 205 60 24 Start
- menu button mbstop 75 205 60 24 Stop
- menu button mbMuszle 140 205 70 24 Muszle
- ;=================== rudy ======================
- menu font style
- menu font size 8
- menu check mcDorsz 10 67 90 15 #false Dorsz
- menu check mcKarp 10 87 90 15 #false Karp
- menu check mcSum 10 107 90 15 #false Sum
- menu check mcKalamarnica 10 127 90 15 #false Kalamar
- ;------------------------------------------------------
- menu check mcLosos 75 67 60 15 #false Losos
- menu check mcKrewetki 75 87 65 15 #false Krewetki
- menu check mcSardele 75 107 60 15 #false Sardele
- menu check mcSledzie 75 127 60 15 #false Sledzie
- ;------------------------------------------------------
- menu check mcSzprotki 140 67 60 15 #false Szprotki
- menu check mcSardynki 140 87 65 15 #false Sardynki
- ;=================== info o rudach ==================
- menu shape msopis_rud 5 46 205 17 3 7 1 blue 2 blue
- menu text mtopis_rudy 6 47 Zaznacz ryby do wyrzucenia:
- menu shape msrudy 5 63 205 85 3 7 1 black 2 black
- menu font size 9
- menu show
- ;menu hideEUO
- ;====================================================
- set #lpc 20
- set #menubutton n/a
- repeat
- if #menubutton = CLOSED ;wcisnieto przycisk X
- {
- menu hide
- set #menubutton N/A
- halt
- }
- if #menubutton = mbstart
- {
- set #menubutton n/a
- menu delete mbstart
- menu get mcIter
- if #menures = 1
- {
- set %Lowienie_tylko_raz tak
- }
- if #menures = 2
- {
- set %Lowienie_tylko_raz nie
- }
- gosub WydobywajTylkoRaz %Lowienie_tylko_raz ;bedzie lowil po 1 sztuce
- if #RESULT = BrakPiksela
- {
- Display ok Nie widze okna ustawien. Moze cos je zaslania.
- halt
- }
- gosub menucheck
- menu get mcmiasto
- if #menures = 1
- {
- set %swich 3
- }
- if #menures = 2
- {
- set %swich 2
- }
- menu get mekopanie
- set %KratkaStartowa #menures
- gosub SkanujTeren
- gosub MainLoop
- }
- if #menubutton = mbMuszle
- {
- gosub Muszle
- set #menubutton n/a
- }
- if #menubutton = mbstop
- {
- menu button mbstart 10 225 60 24 Start
- set #menubutton n/a
- }
- if #menubutton = mbwszystko
- {
- gosub wszystko mcDorsz mcKarp mcSum mcLosos mcKrewetki mcSardele mcSledzie mcSzprotki mcSardynki
- set #menubutton n/a
- }
- if #menubutton = mbnic
- {
- gosub nic mcDorsz mcKarp mcSum mcLosos mcKrewetki mcSardele mcSledzie mcSzprotki mcSardynki
- set #menubutton n/a
- }
- until #false
- ;==================================================
- sub menucheck
- set %WyzucajCos 0
- set #lpc 200
- menu get mcDorsz
- if #menures = #true
- {
- set %mc1 EQD
- set %JestCoWywalac 1
- }
- else
- set %mc1
- menu get mcKarp
- if #menures = #true
- {
- set %mc2 DQD
- set %JestCoWywalac 1
- }
- else
- set %mc2
- menu get mcSum
- if #menures = #true
- {
- set %mc3 FQD
- set %JestCoWywalac 1
- }
- else
- set %mc3
- menu get mcLosos
- if #menures = #true
- {
- set %mc4 GQD
- set %JestCoWywalac 1
- }
- else
- set %mc4
- menu get mcKalamarnica
- if #menures = #true
- {
- set %mc5 CMW
- set %JestCoWywalac 1
- }
- else
- set %mc5
- menu get mcKrewetki
- if #menures = #true
- {
- set %mc6 IMW
- set %JestCoWywalac 1
- }
- else
- set %mc6
- menu get mcSardele
- if #menures = #true
- {
- set %mc7 XDF
- set %JestCoWywalac 1
- }
- else
- set %mc7
- menu get mcSledzie
- if #menures = #true
- {
- set %mc8 YDF
- set %JestCoWywalac 1
- }
- else
- set %mc8
- menu get mcSzprotki
- if #menures = #true
- {
- set %mc9 HEF
- set %JestCoWywalac 1
- }
- else
- set %mc9
- menu get mcSardynki
- if #menures = #true
- {
- set %mc10 IEF
- set %JestCoWywalac 1
- }
- else
- set %mc10
- set #lpc 10
- return
- ;--------------------------------------------------
- sub SkanujTeren
- set #lpc 4000
- 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
- {
- set %brzeg 0
- set %woda 0
- tile Cnt %x %y
- for %i 1 #tilecnt
- {
- tile Get %x %y %i
- ;event sysmessage #tilename
- if water notin #tilename
- {
- if NoName in #tilename && #tilecnt = 2 ;&& %woda = 1
- set %brzeg 0
- else
- set %brzeg 1
- }
- if water in #tilename
- {
- set %woda 1
- set %Woda_X %x
- set %Woda_Y %y
- set %Woda_Z #tilez
- set %Woda_tt #tiletype
- }
- }
- if %brzeg = 0 && %woda = 1
- {
- ;event sysmessage zapisuje wode
- set %licznik %licznik + 1
- set %_x . %licznik %Woda_X ;tworzenie tablicy
- set %_y . %licznik %Woda_Y ;tworzenie tablicy
- set %_z . %licznik %Woda_Z ;tworzenie tablicy
- set %_tt . %licznik %Woda_tt
- }
- }
- }
- ;event sysmessage %licznik
- set #lpc 10
- return
- ;--------------------------------------------------
- sub MainLoop
- set #lpc 10
- event sysmessage Znaleziono %licznik kratek wody.
- set %start %KratkaStartowa
- for %j %start %licznik
- {
- if #RESULT = PetlaPrzyciskow
- {
- return PetlaPrzyciskow
- }
- menu Set mekopanie %j
- set #ltargetx %_x . %j
- set #ltargety %_y . %j
- set #ltargetz %_z . %j
- set #ltargettile %_tt . %j
- set #ltargetkind %swich
- set %Udzwig ( #maxweight - 50 )
- if #weight > %Udzwig
- gosub Muszle
- if nie in %Lowienie_tylko_raz
- gosub PetlaLowienia
- else
- gosub PetlaLowienia2
- }
- gosub RysujPrzyciskStart
- event sysmessage Koniec lowienia.
- return
- ;------------------------------------------------------
- sub PetlaLowienia
- gosub UzyjNarzedzi
- set %czascel #SCNT2 + 10
- event sysmessage uzywa wedki
- set %jindex #jindex
- event macro 22
- if #targcurs = 1
- {
- event macro 22
- }
- gosub buttonstop
- if #RESULT = PetlaPrzyciskow
- {
- return PetlaPrzyciskow
- }
- gosub WyrzucRyby
- set #lpc 100
- repeat
- set %ji #jindex - %jindex
- for %i 1 %ji
- {
- if To_nie_wyglada_ in #journal
- {
- return
- }
- if Nie_widzisz_tego in #journal || Stoisz_za_daleko in #journal
- {
- set %NexPlace 1
- break
- }
- ;if Your_skill_ in #journal || Przedmiot_ in #journal || Twoj_umysl_ in #journal
- ;{
- ; set %index 2
- ;}
- if %czascel < #SCNT2 && #targcurs = 1
- {
- event macro 22
- set %czascel #SCNT2 + 10
- }
- if Wlozyl in #journal || W_tym_miejscu in #journal || _zaszkodzilo in #journal || Nie_widzisz in #journal
- {
- set %Wyskocz 1
- break
- }
- }
- if %NexPlace = 1
- {
- break
- }
- until 380_200 in #contsize || %Wyskocz = 1
- set %Wyskocz 0
- if %NexPlace = 1
- {
- set %NexPlace 0
- return
- }
- event sysmessage zarzuca wedke
- set %jindex #jindex
- wait 4s
- repeat
- if *STOP = 1
- {
- set *WAIT 0
- repeat
- until *STOP = 0
- return
- }
- gosub buttonstop
- if #RESULT = PetlaPrzyciskow
- {
- return PetlaPrzyciskow
- }
- set %ji #jindex - %jindex
- for %i 1 %ji
- {
- scanjournal %i
- if Wyglada_jakby_ in #journal || Nie_widzisz in #journal || That_is_out in #journal || _za_daleko in #journal || Wyglada_jakby in #journal || Nie_wyglada in #journal
- {
- return
- }
- }
- until #false
- return
- ;------------------------------------------------------
- sub PetlaLowienia2
- repeat
- set #lpc 200
- set %wyskocz 0
- gosub UzyjNarzedzi
- ;event sysmessage uzywa wedki
- set %jindex #jindex
- event macro 22
- wait 5
- gosub buttonstop
- if #RESULT = PetlaPrzyciskow
- {
- return PetlaPrzyciskow
- }
- scanjournal 1
- if Nie_widzisz in #journal
- {
- event sysmessage zarzuca wedke
- return
- }
- if #targcurs = 1
- {
- event macro 22
- event sysmessage ponownie 22
- }
- gosub WyrzucRyby
- repeat
- if *STOP = 1
- {
- set *WAIT 0
- repeat
- until *STOP = 0
- break
- }
- gosub buttonstop
- if #RESULT = PetlaPrzyciskow
- {
- return PetlaPrzyciskow
- }
- set %ji #jindex - %jindex
- for %i 1 %ji
- {
- scanjournal %i
- if Slabo_dzis_ in #journal || That_is_out in #journal || _za_daleko in #journal || Udalo in #journal || Wylowil in #journal || Zlapal in #journal || Wyszarp in #journal || Prawie in #journal || Dorwal in #journal || _Na_haczyk in #journal || Znalazl in #journal || Oho! in #journal || buty in #journal || Jakas in #journal || Niebezpieczne in #journal || Ktos in #journal || obraz in #journal
- {
- set %wyskocz 1
- break
- }
- ;if Your_skill_ in #journal || Przedmiot_ in #journal || Twoj_umysl_ in #journal
- ;{
- ; set %index 2
- ;}
- if Wyglada_jakby_ in #journal || To_nie_wyglada_ in #journal || Nie_wyglada in #journal || Nie_wydaje_ in #journal
- {
- event sysmessage zarzuca wedke
- return
- }
- }
- if %wyskocz = 1
- {
- break
- }
- until #false
- wait 5
- event sysmessage zarzuca wedke
- until #false
- return
- ;------------------------------------------------------
- sub UzyjNarzedzi
- set #lpc 20
- finditem XHF C_ , #charid ;wedka
- if #findkind = -1
- {
- finditem HSL C_ , #backpackid
- if #findkind = -1
- {
- event sysmessage Nie masz wedki lub sieci rybackiej przy sobie. Skrypt zatrzymany.
- gosub RysujPrzyciskStart
- return PetlaPrzyciskow
- }
- }
- set #LOBJECTID #findid
- event macro 17
- if #targcurs = 0
- {
- wait 2
- if #targcurs = 0
- {
- event macro 17
- }
- }
- if #targcurs = 0
- {
- set %TimeNarzedzi #scnt2 + 10
- repeat
- if %TimeNarzedzi < #scnt2
- {
- set %TimeNarzedzi #scnt2 + 10
- set #LOBJECTID #findid
- event macro 17
- }
- until #targcurs = 1
- }
- return
- ;---------------------------------------------------
- sub WydobywajTylkoRaz ;( nie - 50 powtorzen lub tak - po 1 sztuce )
- event macro 1 0 .ustawienia
- set %TimeUstaw #scnt2 + 20
- repeat
- if %TimeUstaw < #scnt2
- {
- event macro 1 0 .ustawienia
- set %TimeUstaw #scnt2 + 20
- }
- until 500_430 in #CONTSIZE || ( #CONTSIZEX = 500 && #CONTSIZEY = 430 )
- wait 1s
- if nie in %1 ; sprawdza czy bedzie kul do 50 powtorzen
- {
- set %WydobywajRaz 0 ;bedzie kul do 50 powtorzen
- savepix %click_X_Ustawienia %click_Y_Ustawienia 1
- wait 2
- if #pixcol = %WydobycieRazKolorNie
- {
- click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
- return
- }
- if #pixcol = %WydobycieRazKolorTak
- {
- click %click_X_Ustawienia %click_Y_Ustawienia
- repeat
- until 500_430 in #CONTSIZE || ( #CONTSIZEX = 500 && #CONTSIZEY = 430 )
- wait 1s
- savepix %click_X_Ustawienia %click_Y_Ustawienia 1
- wait 2
- if #pixcol = %WydobycieRazKolorNie
- {
- click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
- return
- }
- }
- }
- if tak in %1 ; sprawdza czy bedzie kul do 50 powtorzen
- {
- set %WydobywajRaz 1 ;bedzie kul po 1 sztuce
- savepix %click_X_Ustawienia %click_Y_Ustawienia 1
- wait 2
- if #pixcol = %WydobycieRazKolorTak
- {
- click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
- return
- }
- if #pixcol = %WydobycieRazKolorNie
- {
- ;event sysmessage #pixcol = %WydobycieRazKolorNie
- click %click_X_Ustawienia %click_Y_Ustawienia
- repeat
- until 500_430 in #CONTSIZE || ( #CONTSIZEX = 500 && #CONTSIZEY = 430 )
- wait 1s
- savepix %click_X_Ustawienia %click_Y_Ustawienia 1
- wait 2
- ;event sysmessage #pixcol = %WydobycieRazKolorTak
- if #pixcol = %WydobycieRazKolorTak
- {
- click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
- return
- }
- }
- }
- return BrakPiksela
- ;----------------------------------------------------------
- sub Muszle
- repeat
- finditem AXF_YWF_ZWF_GXF_XWF_LXF C
- if #findkind = -1
- {
- break
- }
- set #LOBJECTID #findid
- event macro 17
- wait 20
- until #false
- finditem DAG_KXF_YDF_IEF_HEF_XDF C_ , #backpackid
- for #findindex 1 #findcnt
- {
- exevent drag #findid #findstack
- wait 5
- exevent dropg #charposx #charposy #charposz
- wait 5
- }
- event sysmessage Perly wydobyte, muszel wyrzucone.
- return
- ;------------------------------------------------------------
- sub WyrzucRyby
- finditem EQD_DQD_FQD_GQD_XDF_YDF_HEF_IEF C
- for #findindex 1 #findcnt
- {
- if #findtype in %mc1 || #findtype in %mc2 || #findtype in %mc3 || #findtype in %mc4 || #findtype in %mc5 || #findtype in %mc6 || #findtype in %mc7 || #findtype in %mc8 || #findtype in %mc9 || #findtype in %mc10
- {
- exevent drag #findid #findstack
- wait 5
- exevent dropg #charposx #charposy #charposz
- wait 5
- }
- }
- return
- ;-----------------------------------------------
- sub wszystko
- #lpc 10
- for %i 1 %0
- menu Set % . %i #true
- return
- ;-----------------------------------------------
- sub nic
- #lpc 10
- for %i 1 %0
- menu Set % . %i #false
- return
- ;---------------------------------------------
- sub RysujPrzyciskStart
- menu font size 9
- menu font style b
- menu button mbstart 10 205 60 24 Start
- return
- ;------------------------------------------------
- sub buttonstop
- if #menubutton = mbstop
- {
- set #menubutton n/a
- menu font color black
- click 187 165
- gosub RysujPrzyciskStart
- return PetlaPrzyciskow
- }
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement