SHARE
TWEET

Untitled

a guest Sep 18th, 2019 96 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Rybak_Menu_v-1.7.txt
  2. ; Autor: Janusz [Fris]
  3. ;==================================================
  4. set %Max_odleglosc 6  ;zasieg lowienia
  5. ;==================================================
  6. set %click_X_UstawieniaZamknij 473
  7. set %click_Y_UstawieniaZamknij 73
  8. set %click_X_Ustawienia 134
  9. set %click_Y_Ustawienia 287
  10. set %WydobycieRazKolorNie 7551256
  11. set %WydobycieRazKolorTak 3242752
  12. set *STOP 0
  13. set *WAIT 1
  14. set %nrmok 1
  15. set #lpc 200
  16. menu clear
  17. menu window color btnface
  18. menu window size 215 235
  19. menu window title Rybak 1.7
  20. ;=================== miasta =====================
  21. menu font size 8
  22. menu text mtmiasto 5 1 Zbiornik wodny:
  23. menu text mtIter 110 1 Powtorzenia:
  24. ;menu text mtbron 10 280 Wybierz bron ktora sie poslugujesz:
  25. menu font size 9
  26. menu font bgcolor white
  27. menu combo create mcmiasto 5 17 100
  28. menu combo add mcmiasto Rzeka
  29. menu combo add mcmiasto Morze
  30. menu combo select mcmiasto 1
  31. ;=================== Powtorzenia ================
  32. menu combo create mcIter 110 17 100
  33. menu combo add mcIter Bez Iteracji
  34. menu combo add mcIter Iteracje
  35. ;menu combo add mcskil Wykrywanie
  36. menu combo select mcIter 1
  37. ;=================== bron =======================
  38. ;menu combo create mcBron 10 300 200
  39. ;menu combo add mcBron Zadena
  40. ;menu combo add mcBron Wakizashi
  41. ;menu combo add mcBron Tasak
  42. ;menu combo select mcBron 1
  43. ;=================== miejsce kopania ================
  44. menu font size 8
  45. menu font bgcolor btnface
  46. menu text mtomk 10 155 Numer kratki:
  47. menu edit mekopanie 90 152 30 %nrmok ; numer miejsca ostatniego koapania
  48. menu font size 9
  49. ;=================== przyciski =================
  50. menu font color black
  51. menu font style b
  52. menu button mbwszystko 10 180 120 20 Zaznacz wszystko
  53. menu button mbnic 135 180 75 20 Odznacz
  54. menu button mbstart 10 205 60 24 Start
  55. menu button mbstop 75 205 60 24 Stop
  56. menu button mbMuszle 140 205 70 24 Muszle
  57. ;=================== rudy ======================
  58. menu font style
  59. menu font size 8
  60. menu check mcDorsz 10 67 90 15 #false Dorsz
  61. menu check mcKarp 10 87 90 15 #false Karp
  62. menu check mcSum 10 107 90 15 #false Sum
  63. menu check mcKalamarnica 10 127 90 15 #false Kalamar
  64. ;------------------------------------------------------
  65. menu check mcLosos 75 67 60 15 #false Losos
  66. menu check mcKrewetki 75 87 65 15 #false Krewetki
  67. menu check mcSardele 75 107 60 15 #false Sardele
  68. menu check mcSledzie 75 127 60 15 #false Sledzie
  69. ;------------------------------------------------------
  70. menu check mcSzprotki 140 67 60 15 #false Szprotki
  71. menu check mcSardynki 140 87 65 15 #false Sardynki
  72. ;=================== info o rudach ==================
  73. menu shape msopis_rud 5 46 205 17 3 7 1 blue 2 blue
  74. menu text mtopis_rudy 6 47 Zaznacz ryby do wyrzucenia:
  75. menu shape msrudy 5 63 205 85 3 7 1 black 2 black
  76. menu font size 9
  77. menu show
  78. ;menu hideEUO
  79. ;====================================================
  80. set #lpc 20
  81. set #menubutton n/a
  82. repeat
  83.    if #menubutton = CLOSED ;wcisnieto przycisk X
  84.    {
  85.       menu hide
  86.       set #menubutton N/A
  87.       halt
  88.    }
  89.    if #menubutton = mbstart
  90.    {
  91.       set #menubutton n/a
  92.       menu delete mbstart
  93.       menu get mcIter
  94.       if #menures = 1
  95.       {
  96.          set %Lowienie_tylko_raz tak
  97.       }
  98.       if #menures = 2
  99.       {
  100.          set %Lowienie_tylko_raz nie
  101.       }
  102.       gosub WydobywajTylkoRaz %Lowienie_tylko_raz  ;bedzie lowil po 1 sztuce
  103.       if #RESULT = BrakPiksela
  104.       {
  105.          Display ok Nie widze okna ustawien. Moze cos je zaslania.
  106.          halt
  107.       }
  108.       gosub menucheck
  109.       menu get mcmiasto
  110.       if #menures = 1
  111.       {
  112.          set %swich 3
  113.       }
  114.       if #menures = 2
  115.       {
  116.          set %swich 2
  117.       }
  118.       menu get mekopanie
  119.       set %KratkaStartowa #menures
  120.       gosub SkanujTeren
  121.       gosub MainLoop
  122.    }
  123.    if #menubutton = mbMuszle
  124.    {
  125.       gosub Muszle
  126.       set #menubutton n/a
  127.    }
  128.   if #menubutton = mbstop
  129.   {
  130.      menu button mbstart 10 225 60 24 Start
  131.      set #menubutton n/a
  132.   }
  133.   if #menubutton = mbwszystko
  134.   {
  135.      gosub wszystko mcDorsz mcKarp mcSum mcLosos mcKrewetki mcSardele mcSledzie mcSzprotki mcSardynki
  136.      set #menubutton n/a
  137.   }
  138.   if #menubutton = mbnic
  139.   {
  140.      gosub nic mcDorsz mcKarp mcSum mcLosos mcKrewetki mcSardele mcSledzie mcSzprotki mcSardynki
  141.      set #menubutton n/a
  142.   }
  143. until #false
  144. ;==================================================
  145. sub menucheck
  146.   set %WyzucajCos 0
  147.   set #lpc 200
  148.   menu get mcDorsz
  149.   if #menures = #true
  150.      {
  151.      set %mc1 EQD
  152.      set %JestCoWywalac 1
  153.      }
  154.   else
  155.      set %mc1
  156.  
  157.   menu get mcKarp
  158.   if #menures = #true
  159.      {
  160.      set %mc2 DQD
  161.      set %JestCoWywalac 1
  162.      }
  163.   else
  164.      set %mc2
  165.  
  166.   menu get mcSum
  167.   if #menures = #true
  168.      {
  169.      set %mc3 FQD
  170.      set %JestCoWywalac 1
  171.      }
  172.   else
  173.      set %mc3
  174.  
  175.   menu get mcLosos
  176.   if #menures = #true
  177.      {
  178.      set %mc4 GQD
  179.      set %JestCoWywalac 1
  180.      }
  181.   else
  182.      set %mc4
  183.  
  184.   menu get mcKalamarnica
  185.   if #menures = #true
  186.      {
  187.      set %mc5 CMW
  188.      set %JestCoWywalac 1
  189.      }
  190.   else
  191.      set %mc5
  192.  
  193.   menu get mcKrewetki
  194.   if #menures = #true
  195.      {
  196.      set %mc6 IMW
  197.      set %JestCoWywalac 1
  198.      }
  199.   else
  200.      set %mc6
  201.  
  202.   menu get mcSardele
  203.   if #menures = #true
  204.      {
  205.      set %mc7 XDF
  206.      set %JestCoWywalac 1
  207.      }
  208.   else
  209.      set %mc7
  210.  
  211.   menu get mcSledzie
  212.   if #menures = #true
  213.      {
  214.      set %mc8 YDF
  215.      set %JestCoWywalac 1
  216.      }
  217.   else
  218.      set %mc8
  219.  
  220.   menu get mcSzprotki
  221.   if #menures = #true
  222.      {
  223.      set %mc9 HEF
  224.      set %JestCoWywalac 1
  225.      }
  226.   else
  227.      set %mc9
  228.  
  229.   menu get mcSardynki
  230.   if #menures = #true
  231.      {
  232.      set %mc10 IEF
  233.      set %JestCoWywalac 1
  234.      }
  235.   else
  236.      set %mc10
  237.  
  238.   set #lpc 10
  239. return
  240. ;--------------------------------------------------
  241. sub SkanujTeren
  242.   set #lpc 4000
  243.   tile Init
  244.   set %x_poczatek #charposx + %Max_odleglosc
  245.   set %y_poczatek #charposy + %Max_odleglosc
  246.   set %x_koniec #charposx - %Max_odleglosc
  247.   set %y_koniec #charposy - %Max_odleglosc
  248.   set %licznik 0
  249.   for %x %x_poczatek %x_koniec
  250.   {
  251.     for %y %y_poczatek %y_koniec
  252.     {
  253.       set %brzeg 0
  254.       set %woda 0
  255.       tile Cnt %x %y
  256.       for %i 1 #tilecnt
  257.       {
  258.         tile Get %x %y %i
  259.            ;event sysmessage #tilename
  260.         if water notin #tilename
  261.         {
  262.            if NoName in #tilename && #tilecnt = 2 ;&& %woda = 1
  263.               set %brzeg 0
  264.            else
  265.               set %brzeg 1
  266.         }
  267.         if water in #tilename
  268.         {
  269.            set %woda 1
  270.            set %Woda_X %x
  271.            set %Woda_Y %y
  272.            set %Woda_Z #tilez
  273.            set %Woda_tt #tiletype
  274.         }
  275.       }
  276.       if %brzeg = 0 && %woda = 1
  277.       {
  278.          ;event sysmessage zapisuje wode
  279.          set %licznik %licznik + 1
  280.          set %_x . %licznik %Woda_X ;tworzenie tablicy
  281.          set %_y . %licznik %Woda_Y ;tworzenie tablicy
  282.          set %_z . %licznik %Woda_Z ;tworzenie tablicy
  283.          set %_tt . %licznik %Woda_tt
  284.       }
  285.     }
  286.   }
  287.   ;event sysmessage %licznik
  288.   set #lpc 10
  289. return
  290. ;--------------------------------------------------
  291. sub MainLoop
  292.       set #lpc 10
  293.       event sysmessage Znaleziono %licznik kratek wody.
  294.       set %start %KratkaStartowa
  295.       for %j %start %licznik
  296.       {
  297.           if #RESULT = PetlaPrzyciskow
  298.           {
  299.              return PetlaPrzyciskow
  300.           }
  301.           menu Set mekopanie %j
  302.           set #ltargetx %_x . %j
  303.           set #ltargety %_y . %j
  304.           set #ltargetz %_z . %j
  305.           set #ltargettile %_tt . %j
  306.           set #ltargetkind %swich
  307.           set %Udzwig ( #maxweight - 50 )
  308.           if #weight > %Udzwig
  309.              gosub Muszle
  310.           if nie in %Lowienie_tylko_raz
  311.              gosub PetlaLowienia
  312.           else
  313.              gosub PetlaLowienia2
  314.       }
  315.       gosub RysujPrzyciskStart
  316.       event sysmessage Koniec lowienia.
  317. return
  318. ;------------------------------------------------------
  319. sub PetlaLowienia
  320.   gosub UzyjNarzedzi
  321.   set %czascel #SCNT2 + 10
  322.   event sysmessage uzywa wedki
  323.   set %jindex #jindex
  324.   event macro 22
  325.   if #targcurs = 1
  326.   {
  327.      event macro 22
  328.   }
  329.   gosub buttonstop
  330.   if #RESULT = PetlaPrzyciskow
  331.   {
  332.      return PetlaPrzyciskow
  333.   }
  334.   gosub WyrzucRyby
  335.   set #lpc 100
  336.   repeat
  337.       set %ji #jindex - %jindex
  338.       for %i 1 %ji
  339.       {
  340.           if To_nie_wyglada_ in #journal
  341.           {
  342.              return
  343.           }
  344.           if Nie_widzisz_tego in #journal || Stoisz_za_daleko in #journal
  345.           {
  346.              set %NexPlace 1
  347.              break
  348.           }
  349.           ;if Your_skill_ in #journal || Przedmiot_ in #journal || Twoj_umysl_ in #journal
  350.           ;{
  351.           ;   set %index 2
  352.           ;}
  353.           if %czascel < #SCNT2 && #targcurs = 1
  354.           {
  355.              event macro 22
  356.              set %czascel #SCNT2 + 10
  357.           }
  358.           if Wlozyl in #journal || W_tym_miejscu in #journal || _zaszkodzilo in #journal || Nie_widzisz in #journal
  359.           {
  360.              set %Wyskocz 1
  361.              break
  362.           }
  363.       }
  364.       if %NexPlace = 1
  365.       {
  366.          break
  367.       }
  368.   until 380_200 in #contsize || %Wyskocz = 1
  369.   set %Wyskocz 0
  370.   if %NexPlace = 1
  371.      {
  372.      set %NexPlace 0
  373.      return
  374.      }
  375.   event sysmessage zarzuca wedke
  376.   set %jindex #jindex
  377.   wait 4s
  378.   repeat
  379.       if *STOP = 1
  380.       {
  381.          set *WAIT 0
  382.          repeat
  383.          until *STOP = 0
  384.          return
  385.       }
  386.       gosub buttonstop
  387.       if #RESULT = PetlaPrzyciskow
  388.       {
  389.          return PetlaPrzyciskow
  390.       }
  391.       set %ji #jindex - %jindex
  392.       for %i 1 %ji
  393.       {
  394.          scanjournal %i
  395.          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
  396.          {
  397.             return
  398.          }
  399.       }
  400.   until #false
  401. return
  402. ;------------------------------------------------------
  403. sub PetlaLowienia2
  404.   repeat
  405.       set #lpc 200
  406.       set %wyskocz 0
  407.       gosub UzyjNarzedzi
  408.       ;event sysmessage uzywa wedki
  409.       set %jindex #jindex
  410.       event macro 22
  411.       wait 5
  412.       gosub buttonstop
  413.       if #RESULT = PetlaPrzyciskow
  414.       {
  415.          return PetlaPrzyciskow
  416.       }
  417.       scanjournal 1
  418.       if Nie_widzisz in #journal
  419.       {
  420.          event sysmessage zarzuca wedke
  421.          return
  422.       }
  423.       if #targcurs = 1
  424.       {
  425.          event macro 22
  426.          event sysmessage ponownie 22
  427.       }
  428.       gosub WyrzucRyby
  429.  
  430.       repeat
  431.           if *STOP = 1
  432.           {
  433.              set *WAIT 0
  434.              repeat
  435.              until *STOP = 0
  436.              break
  437.           }
  438.           gosub buttonstop
  439.           if #RESULT = PetlaPrzyciskow
  440.           {
  441.              return PetlaPrzyciskow
  442.           }
  443.           set %ji #jindex - %jindex
  444.           for %i 1 %ji
  445.           {
  446.               scanjournal %i
  447.               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
  448.               {
  449.                  set %wyskocz 1
  450.                  break
  451.               }
  452.               ;if Your_skill_ in #journal || Przedmiot_ in #journal || Twoj_umysl_ in #journal
  453.               ;{
  454.               ;   set %index 2
  455.               ;}
  456.               if Wyglada_jakby_ in #journal || To_nie_wyglada_ in #journal || Nie_wyglada in #journal || Nie_wydaje_ in #journal
  457.               {
  458.                  event sysmessage zarzuca wedke
  459.                  return
  460.               }
  461.           }
  462.           if %wyskocz = 1
  463.           {
  464.              break
  465.           }
  466.       until #false
  467.       wait 5
  468.       event sysmessage zarzuca wedke
  469.   until #false
  470. return
  471. ;------------------------------------------------------
  472. sub UzyjNarzedzi
  473.   set #lpc 20
  474.   finditem XHF C_ , #charid  ;wedka
  475.   if #findkind = -1
  476.   {
  477.      finditem HSL C_ , #backpackid
  478.      if #findkind = -1
  479.      {
  480.          event sysmessage Nie masz wedki lub sieci rybackiej przy sobie. Skrypt zatrzymany.
  481.          gosub RysujPrzyciskStart
  482.          return PetlaPrzyciskow
  483.      }
  484.   }
  485.   set #LOBJECTID #findid
  486.   event macro 17
  487.   if #targcurs = 0
  488.   {
  489.      wait 2
  490.      if #targcurs = 0
  491.      {
  492.         event macro 17
  493.      }
  494.   }
  495.   if #targcurs = 0
  496.   {
  497.       set %TimeNarzedzi #scnt2 + 10
  498.       repeat
  499.          if %TimeNarzedzi < #scnt2
  500.             {
  501.             set %TimeNarzedzi #scnt2 + 10
  502.             set #LOBJECTID #findid
  503.             event macro 17
  504.             }
  505.       until #targcurs = 1
  506.   }
  507. return
  508. ;---------------------------------------------------
  509. sub WydobywajTylkoRaz ;( nie - 50 powtorzen lub tak - po 1 sztuce )
  510.   event macro 1 0 .ustawienia
  511.   set %TimeUstaw #scnt2 + 20
  512.   repeat
  513.      if %TimeUstaw < #scnt2
  514.         {
  515.         event macro 1 0 .ustawienia
  516.         set %TimeUstaw #scnt2 + 20
  517.         }
  518.   until 500_450 in #CONTSIZE
  519.   wait 1s
  520.   if nie in %1  ; sprawdza czy bedzie kul do 50 powtorzen
  521.     {
  522.     set %WydobywajRaz 0  ;bedzie kul do 50 powtorzen
  523.     savepix %click_X_Ustawienia %click_Y_Ustawienia 1
  524.     wait 2
  525.     if #pixcol = %WydobycieRazKolorNie
  526.        {
  527.        click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
  528.        return
  529.        }
  530.     if #pixcol = %WydobycieRazKolorTak
  531.        {
  532.        click %click_X_Ustawienia %click_Y_Ustawienia
  533.        repeat
  534.        until 500_450 in #CONTSIZE
  535.        wait 1s
  536.        savepix %click_X_Ustawienia %click_Y_Ustawienia 1
  537.        wait 2
  538.        if #pixcol = %WydobycieRazKolorNie
  539.           {
  540.           click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
  541.           return
  542.           }
  543.        }
  544.     }
  545.   if tak in %1  ; sprawdza czy bedzie kul do 50 powtorzen
  546.     {
  547.     set %WydobywajRaz 1  ;bedzie kul po 1 sztuce
  548.     savepix %click_X_Ustawienia %click_Y_Ustawienia 1
  549.     wait 2
  550.     if #pixcol = %WydobycieRazKolorTak
  551.        {
  552.        click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
  553.        return
  554.        }
  555.     if #pixcol = %WydobycieRazKolorNie
  556.        {
  557.        ;event sysmessage #pixcol = %WydobycieRazKolorNie
  558.        click %click_X_Ustawienia %click_Y_Ustawienia
  559.        repeat
  560.        until 500_450 in #CONTSIZE
  561.        wait 1s
  562.        savepix %click_X_Ustawienia %click_Y_Ustawienia 1
  563.        wait 2
  564.        ;event sysmessage #pixcol = %WydobycieRazKolorTak
  565.        if #pixcol = %WydobycieRazKolorTak
  566.           {
  567.           click %click_X_UstawieniaZamknij %click_Y_UstawieniaZamknij
  568.           return
  569.           }
  570.        }
  571.     }
  572. return BrakPiksela
  573. ;----------------------------------------------------------
  574. sub Muszle
  575.   repeat
  576.       finditem AXF_YWF_ZWF_GXF_XWF_LXF C
  577.       if #findkind = -1
  578.       {
  579.          break
  580.       }
  581.       set #LOBJECTID #findid
  582.       event macro 17
  583.       wait 20
  584.   until #false
  585.   finditem DAG_KXF_YDF_IEF_HEF_XDF C_ , #backpackid
  586.   for #findindex 1 #findcnt
  587.   {
  588.      exevent drag #findid #findstack
  589.      wait 5
  590.      exevent dropg #charposx #charposy #charposz
  591.      wait 5
  592.   }
  593.   event sysmessage Perly wydobyte, muszel wyrzucone.
  594. return
  595. ;------------------------------------------------------------
  596. sub WyrzucRyby
  597.    finditem EQD_DQD_FQD_GQD_XDF_YDF_HEF_IEF C
  598.    for #findindex 1 #findcnt
  599.    {
  600.        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
  601.        {
  602.           exevent drag #findid #findstack
  603.           wait 5
  604.           exevent dropg #charposx #charposy #charposz
  605.           wait 5
  606.        }
  607.    }
  608. return
  609. ;-----------------------------------------------
  610. sub wszystko
  611.   #lpc 10
  612.   for %i 1 %0
  613.       menu Set % . %i #true
  614. return
  615. ;-----------------------------------------------
  616. sub nic
  617.   #lpc 10
  618.   for %i 1 %0
  619.       menu Set % . %i #false
  620. return
  621. ;---------------------------------------------
  622. sub RysujPrzyciskStart
  623.   menu font size 9
  624.   menu font style b
  625.   menu button mbstart 10 205 60 24 Start
  626. return
  627. ;------------------------------------------------
  628. sub buttonstop
  629.   if #menubutton = mbstop
  630.   {
  631.      set #menubutton n/a
  632.      menu font color black
  633.      click 187 165
  634.      gosub RysujPrzyciskStart
  635.      return PetlaPrzyciskow
  636.   }
  637. return
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top