API tools faq
paste
Advertisement
Guest User

Untitled

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