API tools faq
paste
Advertisement
Guest User

Rybak_Menu_v-1.4.txt

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