API tools faq
paste
Advertisement
Guest User

Krawiec_Menu_sety_exp_v-1.6-1

a guest
Oct 26th, 2015
351
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 35.61 KB | None | 0 0
raw download clone embed print report
  1. ; Krawiec_Menu_sety_exp_v-1.6-1.txt
  2. ; Autor: Janusz [Frisky]
  3. ;============ OPIS ==================
  4. ; UWAGA !!
  5. ; W przypadku innych wersji systemu niz Windows XP
  6. ; trzeba uruchamiac EasyUO jako administrator
  7. ;
  8. ; Skrypt Testowany na systemach Windows XP SP3 oraz Windows 7 SP1
  9. ;------------------------------------
  10. ; Skrypt ten wspolpracuje ze skryptem Glod_v-2.0 mojego autorstwa.
  11. ; Jesli postac zglodnieje makro zostanie zatrzymane i bedzie czekac, az
  12. ; skrypt Glod_v-2.0 nakarmi postac. Gdy postac zostanie nakarmiona Skrypt
  13. ; Platnerz_Menu_sety_exp_v-1.4 wznowi prace od miejsca w ktorym skonczyl.
  14. ;------------------------------------
  15. ; Po wybraniu czegos do szycia zostaniesz poproszony o otwarcie plecakow
  16. ; i zapisanie ich przyciskiem "Zapisz dane plecaka" jest to konieczne.
  17. ; ----
  18. ; Nalerzy miec w plecaku postaci narzedzia szewskie, kociol z olejem
  19. ; jesli robi sie utwardzane oraz norzyczki.
  20. ; Skrypt szyje sam kolejno wszystkie elementy wybranego setu
  21. ;----
  22. ; Lista rozwijana: "Wytwarzaj tylko raz" daje mozliwosc wyboru czy postac ma szyc do 50 powtorzen/sztuk,
  23. ; czy szyc po jednym przedmiocie.
  24. ; Domyslnie ustawienie to: "Tak - Szyj po 1 szt." czyli bedzie szyc 1 sztuce danego przedmiotu.
  25. ; Ewentualna zmiana na tej liscie zadziala dopiero po wcisnieciu przycisku Start.
  26. ; Czyli jesli juz cos szyjesz musisz najpierw wcisnac Stop, poczekac az przestanie szyc i dopiero wcisnac przycisk Start.
  27. ;----
  28. ; Po wcisnieciu Start skrypt zacznie szyc elementy setu po kazdym wyjatku zatrzyma szycie
  29. ; przezuci wyjatek do plecaka na wyjatki i zacznie szyc kolejny element zbroi.
  30. ; I tak w kolko az wykuje wszystkie elementy danej zbroi.
  31. ; Gdy uszyje wszystkie elementy setu potnie zwykle elementy zbroi i zatrzyma skrypt.
  32. ;----
  33. ; Przycisk Stop dziala tylko podczas szycia i po pocieciu przedmiotow.
  34. ; Wiec jesli wcisniesz Stop podczas rozcinania skrypt zatrzyma sie dopiero po pocieciu.
  35. ;-------------------------------------------
  36. ; Dodac:
  37. ;
  38. ; Bledy:
  39. ; jesli zabraknie skory do pociacia jest komunikat
  40. ; w tym pojemniku
  41. ;===========================================
  42. ;-- Zmiennych od tego miejsca w dol nie zmieniac --
  43. set %click_X_PrzerwanieSzycia 188
  44. set %click_Y_PrzerwanieSzycia 168
  45. set %click_X_Anuluj 500
  46. set %click_Y_Anuluj 388
  47. set %click_X_ToCoOstatnio 136
  48. set %click_Y_ToCoOstatnio 389
  49. set %to_co_ostatnio 0
  50. set %element_startowy 1
  51. set %nr_produktu 0
  52. set %PlecakiZapisane 0
  53. set %part_1 0
  54. set %part_2 0
  55. set %part_3 0
  56. set %part_4 0
  57. set %part_5 0
  58. set %part_6 0
  59. set %part_7 0
  60. set #lpc 2000
  61. menu hideEUO
  62. menu clear
  63. menu window color btnface
  64. menu show
  65. menu window size 210 330
  66. menu window title Krawiec Wyjatki 1.6
  67. ;=================== Rodzaj setu =====================
  68. menu font size 8
  69. menu text mtmiasto 10 9 Co szyjemy
  70. menu font size 10
  71. menu font bgcolor white
  72. menu combo create mcprodukt 10 28 190
  73. menu combo add mcprodukt Skora Kosciana
  74. menu combo add mcprodukt Samuraj Utwardzany
  75. menu combo add mcprodukt Magowa Nie Utwardzany
  76. menu combo add mcprodukt Samuraj Nie Utwardzany
  77. menu combo add mcprodukt Magowa Utwardzana
  78. menu combo select mcprodukt %nr_produktu
  79. repeat
  80. menu get mcprodukt
  81. set %nr_produktu #menures
  82. until %nr_produktu > 0
  83. ;=================== wybor powtorzen =================
  84. menu font bgcolor btnface
  85. menu text mtWydobycie 10 220 Wytwarzaj tylko raz?
  86. menu font size 10
  87. menu font bgcolor white
  88. menu combo create mcWydobycie 10 235 190
  89. menu combo add mcWydobycie Nie - Szyj do 50 szt.
  90. menu combo add mcWydobycie Tak - Szyj po 1 szt.
  91. menu combo select mcWydobycie 2
  92. ;=================== przyciski =================
  93. menu font bgcolor btnface
  94. menu font size 9
  95. menu font color black
  96. menu font style b
  97. menu font bgcolor btnface
  98. menu button mbstart 10 270 60 24 Start
  99. menu button mbpotnij 75 270 60 24 Potnij
  100. menu button mbstop 140 270 60 24 Stop
  101. menu button mbZapisz 10 300 190 24 Zapisz dane plecaka
  102. ;=================== elementy =======================
  103. gosub UstalPlecaki
  104. rysuj_elementy:
  105. menu font style
  106. menu font size 10
  107. menu font bgcolor btnface
  108. menu text mtskil 10 60 Od ktorego elementu setu
  109. menu font bgcolor white
  110. menu combo create mcelement 10 78 190
  111. if %nr_produktu = 1
  112. {
  113. menu combo add mcelement Helm
  114. menu combo add mcelement Rekawice
  115. menu combo add mcelement Naramienniki
  116. menu combo add mcelement Nogawice
  117. menu combo add mcelement Tunika
  118. menu combo add mcelement Karczek
  119. menu combo add mcelement Sandaly
  120. }
  121. if %nr_produktu = 2 || %nr_produktu = 4
  122. {
  123. menu combo add mcelement Helm - Kabuto
  124. menu combo add mcelement Twarz - Mempo
  125. menu combo add mcelement Naramienniki - Hiro Sode
  126. menu combo add mcelement Nogawice - suneate
  127. menu combo add mcelement Tunika - Do
  128. menu combo add mcelement Rekawice
  129. menu combo add mcelement Sandaly samuraja
  130. }
  131. if %nr_produktu = 3 || %nr_produktu = 5
  132. {
  133. menu combo add mcelement Helm
  134. menu combo add mcelement Karczek
  135. menu combo add mcelement Rekawice
  136. menu combo add mcelement Naramienniki
  137. menu combo add mcelement Nogawice
  138. menu combo add mcelement Tunika
  139. menu combo add mcelement Sandaly
  140. }
  141. menu combo select mcelement %element_startowy
  142. ;===============================================
  143. set #lpc 10
  144. set #menubutton N/A
  145. ;=================== petla ===========================
  146. repeat
  147. if #menubutton = mbstart
  148. {
  149. set #menubutton N/A
  150. menu delete mbstart
  151. ignoreitem reset
  152. menu get mcprodukt
  153. set %nr_produktu #menures
  154. ;event sysmessage %nr_produktu
  155. if %nr_produktu = 1
  156. {
  157. set %Rodzaj_produktu Kosciana
  158. set %Itemy_do_pociecia ZPH_AQH_QPH_CQH_PPH_ALH_KCP
  159. }
  160. if %nr_produktu = 2
  161. {
  162. set %Rodzaj_produktu Samuraj ;urwardzana
  163. set %Itemy_do_pociecia DCP_PCP_NWO_TBP_MWO_XKH_KCP
  164. }
  165. if %nr_produktu = 3
  166. {
  167. set %Rodzaj_produktu Magowa ;nie utwardzana
  168. set %Itemy_do_pociecia NJL_JKH_KKH_PKH_VKH_QKH_NVI
  169. }
  170. if %nr_produktu = 4
  171. {
  172. set %Rodzaj_produktu Samuraj
  173. set %Itemy_do_pociecia QWO_SWO_OWO_UBP_RWO_KKH_KCP
  174. }
  175. if %nr_produktu = 5
  176. {
  177. set %Rodzaj_produktu Magowa ;urwardzana
  178. set %Itemy_do_pociecia SBP_ALH_XKH_YKH_MLH_LLH_NVI
  179. }
  180. set %WcisnietoStart 1
  181. menu get mcWydobycie
  182. if #menures <> 1
  183. {
  184. set %KujRaz 1
  185. set %IloscPowtorzen 1
  186. }
  187. else
  188. {
  189. set %KujRaz 0
  190. set %IloscPowtorzen 50
  191. }
  192.  
  193. gosub Skladniki
  194. gosub SkladnikiInfo
  195. if #RESULT = dalej
  196. {
  197. set #lpc 10
  198. menu get mcelement
  199. set %nr_elementu #menures
  200. for %i 1 7
  201. {
  202. if %nr_elementu = %i ;jesli %nr_elementu = %i
  203. {
  204. set % . part_ . %i 1 ;to ustawi odpowiedni part_ na 1
  205. }
  206. }
  207. gosub Rysuj_Opisy
  208. set %to_co_ostatnio 0
  209. gosub Licz_wyjatki
  210. gosub rozpocznij
  211. }
  212. }
  213. if #menubutton = CLOSED ;wcisnieto przycisk X
  214. {
  215. menu hide
  216. set #menubutton N/A
  217. halt
  218. }
  219. if #menubutton = mbpotnij
  220. {
  221. set #menubutton N/A
  222. gosub Skladniki
  223. set %Itemy_do_pociecia ZPH_AQH_QPH_CQH_PPH_ALH_KCP_DCP_PCP_NWO_TBP_MWO_XKH_NJL_JKH_KKH_PKH_VKH_QKH_NVI_QWO_SWO_OWO_UBP_RWO_KKH_SBP_ALH_XKH_YKH_MLH_LLH
  224. gosub Potnij
  225. }
  226. menu get mcprodukt
  227. set %Nowy_nr_produktu #menures
  228. if %nr_produktu <> %Nowy_nr_produktu
  229. {
  230. set #lpc 2000
  231. menu delete mcelement
  232. set %nr_produktu %Nowy_nr_produktu
  233. goto rysuj_elementy
  234. }
  235. until #false
  236. ;------------------------------------------------------
  237. sub rozpocznij
  238. set #lpc 10
  239. ;gosub PrzeniesSztaby
  240. set %JestWyjatek #false
  241. set %WyjdzZPetli 0
  242. ;pause
  243. set #sysmsgcol 1090
  244. repeat
  245. ;set %PodejdzDoKowadla 0
  246. if #menubutton = mbstop
  247. {
  248. gosub Wcisnieto_Stop
  249. return
  250. }
  251. ;gosub SprawdzCzyPlecakiOtwarte
  252. gosub UzyjNarzedzi
  253. gosub ToCoOstatnio
  254. if #RESULT = PetalPrzyciskow
  255. return
  256.  
  257. set %TimeKlikWMenu #scnt2 + 10
  258. repeat
  259. if %TimeKlikWMenu < #scnt2
  260. {
  261. gosub ToCoOstatnio ;%KujRaz
  262. if #RESULT = PetalPrzyciskow
  263. return
  264. set %TimeKlikWMenu #scnt2 + 10
  265. }
  266. until #targcurs = 1
  267. finditem DDG C_ , %Plecak_roboczy
  268. wait 2
  269. if #findcnt = 0
  270. {
  271. key Esc
  272. gosub Potnij
  273. if #RESULT = KoniecKucia
  274. return
  275. ;gosub PodejdzDoKowadla
  276. continue
  277. }
  278. set #LTARGETID #findid
  279. set #LTARGETX #findx
  280. set #LTARGETY #findy
  281. set #LTARGETKIND 1
  282. event macro 22
  283. set %TimeKlikWSkore #scnt + 20
  284. repeat
  285. if %TimeKlikWSkore < #scnt
  286. {
  287. event macro 22
  288. set %TimeKlikWSkore #scnt + 20
  289. }
  290. until #targcurs = 0
  291.  
  292. set %czas_konca #scnt + 10
  293. set %Robi 0
  294. set %time_okna #scnt + 6
  295.  
  296. repeat
  297. if %time_okna < #scnt
  298. {
  299. for %ji 1 5
  300. {
  301. scanjournal %ji
  302. if Brakuje_Ci in #journal
  303. {
  304. set %KoniecSztab 1
  305. }
  306. }
  307. break ;set %Robi 1
  308. }
  309. if %czas_konca < #scnt
  310. {
  311. gosub Potnij
  312. if #RESULT = KoniecKucia
  313. return
  314. event sysmessage Koniec szycia.
  315. gosub Rysuj_przycisk_start
  316. return ;PetlaPrzyciskow
  317. }
  318. until #contsize = 380_200 || %KujRaz = 1
  319.  
  320. if %KoniecSztab = 1
  321. {
  322. ;set %KoniecSztab 0
  323. break
  324. }
  325. ;gosub SprawdzCzyPlecakiOtwarte
  326.  
  327. repeat
  328. if *STOP = 1 ;jesli glodny
  329. {
  330. click %click_X_PrzerwanieSzycia %click_Y_PrzerwanieSzycia ;przerywa szycie
  331. wait 7s
  332. if Wyjatkowej_jakosci in #sysmsg
  333. {
  334. set %JestWyjatek #true
  335. }
  336. set *WAIT 0
  337. repeat
  338. until *STOP = 0
  339. if %JestWyjatek = #true
  340. {
  341. break
  342. }
  343. else
  344. {
  345. set %to_co_ostatnio 1
  346. continue
  347. }
  348. }
  349. if #menubutton = mbstop
  350. {
  351. set %TimeKoniecKucia #scnt + 6
  352. gosub Wcisnieto_Stop
  353. repeat
  354. if Wyjatkowej_jakosci in #sysmsg
  355. {
  356. click %click_X_PrzerwanieSzycia %click_Y_PrzerwanieSzycia ;przerywa szycie
  357. wait 7s
  358. break
  359. }
  360. until %TimeKoniecKucia < #scnt
  361. return
  362. }
  363. if %KujRaz = 1
  364. {
  365. set %TimeKoniecKucia #scnt2 + 60
  366. ;set #lpc 1000
  367. repeat
  368. if *STOP = 1
  369. {
  370. set *WAIT 0
  371. repeat
  372. if wyjatkowej_jakosci in #sysmsg
  373. {
  374. set %JestWyjatek #true
  375. set %WyjdzZPetli 1
  376. }
  377. until *STOP = 0
  378. if %JestWyjatek = #true || *STOP = 0
  379. break
  380. }
  381. scanjournal 1
  382. if Wybierz in #journal
  383. {
  384. gosub Zlom
  385. }
  386. scanjournal 2
  387. if Lista in #journal
  388. {
  389. set %BrakSztab 1
  390. gosub Potnij
  391. if #RESULT = KoniecKucia
  392. return
  393. ;gosub PodejdzDoKowadla
  394. break
  395. }
  396. scanjournal 1
  397. if Anulowano in #journal ;zabraklo sztabek
  398. {
  399. finditem %Itemy_do_pociecia C_ , %Plecak_roboczy
  400. wait 2
  401. if #findcnt > 3 && #findcnt < 11 ; koniec kucia
  402. {
  403. gosub Potnij
  404. if #RESULT = KoniecKucia
  405. return
  406. ;gosub PodejdzDoKowadla
  407. set #sysmsgcol 80
  408. event sysmessage Masz za mało skor. Skrypt zatrzymany.
  409. return
  410. }
  411. }
  412. scanjournal 1
  413. until _Uszyl in #journal || %TimeKoniecKucia < #scnt2
  414. if wyjatkowej_jakosci in #journal
  415. {
  416. set %JestWyjatek #true
  417. set %WyjdzZPetli 1
  418. }
  419. set #lpc 10
  420. if %WyjdzZPetli = 0
  421. break
  422. if %BrakSztab = 1
  423. {
  424. set %BrakSztab 0
  425. break
  426. }
  427. }
  428. else
  429. {
  430. gosub SprawdzGumpa
  431. }
  432. if Wybierz in #sysmsg && %KujRaz = 0
  433. {
  434. gosub Zlom
  435. }
  436. if Wyjatkowej_jakosci in #sysmsg && %KujRaz = 0
  437. {
  438. click %click_X_PrzerwanieSzycia %click_Y_PrzerwanieSzycia ;przerywa szycie
  439. wait 6s
  440. set %WyjdzZPetli 1
  441. set %JestWyjatek #true
  442. }
  443. if W_pojemnik_nie_ma_juz_miejsca in #sysmsg
  444. {
  445. break
  446. }
  447. until %WyjdzZPetli = 1
  448. set %WyjdzZPetli 0
  449. set %OdPoczatku 1
  450. ;koniec_robienia:
  451. if %JestWyjatek = #false && %KujRaz = 1
  452. {
  453. set %to_co_ostatnio 1
  454. continue
  455. }
  456. set %JestWyjatek #false
  457. gosub Przenies_Wyjatki
  458. gosub Licz_wyjatki
  459. ;gosub Przetop
  460. if #menubutton = mbstop
  461. {
  462. gosub Wcisnieto_Stop
  463. return
  464. }
  465. if %KoniecSztab = 0
  466. {
  467. gosub Skladniki
  468. if jest notin %narzedzia_szewskie || jest notin %nozyczki || jest notin %pasta || jest notin %tchnienie
  469. {
  470. if jest notin %narzedzia_szewskie
  471. set %brakuje_1 %narzedzia_szewskie
  472. else
  473. set %brakuje_1 -
  474. if jest notin %nozyczki
  475. set %brakuje_2 %nozyczki
  476. else
  477. set %brakuje_2 -
  478. if jest notin %pasta
  479. set %brakuje_3 %pasta
  480. else
  481. set %brakuje_3 -
  482. if jest notin %tchnienie
  483. set %brakuje_4 %tchnienie
  484. else
  485. set %brakuje_4 -
  486. ;menu Hide
  487. Display ok Nie masz: $ %brakuje_1 $ %brakuje_2 $ %brakuje_3 $ %brakuje_4
  488. ;halt
  489. gosub Rysuj_przycisk_start
  490. return
  491. }
  492. }
  493. set %KoniecSztab 0
  494. if %czy_jest_wyjatek = 0
  495. {
  496. set %to_co_ostatnio 1
  497. }
  498. else
  499. {
  500. gosub WybierzKolejnyPrzedmiot
  501. if #RESULT = PetalPrzyciskow
  502. {
  503. gosub Potnij
  504. if #RESULT = KoniecKucia
  505. return
  506. if #menubutton = mbstop
  507. {
  508. gosub Wcisnieto_Stop
  509. return
  510. }
  511. ;gosub PodejdzDoKowadla
  512. set #sysmsgcol 75
  513. event sysmessage Se , t uszyty.
  514. return
  515. }
  516. }
  517.  
  518. until #false
  519. return
  520.  
  521. ;--------------------------------------------------
  522. sub Skladniki
  523. set %Ilosc_pasty 0
  524. set %Ilosc_tchnien 0
  525. if %Plecak_roboczy <> #backpackid
  526. {
  527. set #lobjectid %Plecak_roboczy ;otwiera plecak roboczy
  528. set #NEXTCPOSX %Pozycja_X_Plecak_roboczy
  529. set #NEXTCPOSY %Pozycja_Y_Plecak_roboczy
  530. event macro 17
  531. wait 1s
  532. }
  533.  
  534. finditem HAG C_ , #backpackid ;narzedzia szewskie
  535. wait 2
  536. if #findkind = -1
  537. set %narzedzia_szewskie Narzedzi , #spc , Szewskich
  538. else
  539. set %narzedzia_szewskie jest
  540.  
  541. if Kosciana in %Rodzaj_produktu
  542. {
  543. ;display ok jest kosciana
  544. finditem GUF C_ , %Plecak_roboczy
  545. if #findkind = -1
  546. set %kosci Kosci
  547. else
  548. set %kosci jest
  549. }
  550. finditem MTH C_ , #backpackid
  551. wait 2
  552. if #findkind = -1
  553. set %kociol Kotla
  554. else
  555. set %kociol jest
  556.  
  557. finditem %Plecak_na_Wyjatki C_ , #backpackid
  558. wait 2
  559. if #findkind = -1
  560. set %plecak_wyjatki Plecaka , #spc , na , #spc , wyjatki
  561. else
  562. {
  563. set %plecak_wyjatki jest
  564. set #lobjectid #findid ;otwiera plecak na wyjatki
  565. set #NEXTCPOSX %Pozycja_X_Plecak_wyjatki
  566. set #NEXTCPOSY %Pozycja_Y_Plecak_wyjatki
  567. event macro 17
  568. wait 1s
  569. }
  570.  
  571. finditem KAG C_ , #backpackid ;szuka norzyczek
  572. wait 2
  573. if #findkind <> -1
  574. {
  575. set %nozyczki_id #findid
  576. set %nozyczki jest
  577. }
  578. else
  579. set %nozyczki Norzyczek , #spc , w , #spc , plecaku , #spc , postaci
  580.  
  581. finditem KRD C_ , #backpackid ; pasta
  582. wait 2
  583. if #findkind = -1 ;&& #findstack < 7
  584. set %pasta Silnej , #spc , Pasty!!
  585. else
  586. set %pasta jest
  587.  
  588. finditem IND C_ , #backpackid ; tchnienie
  589. wait 2
  590. if #findkind = -1 ;&& #findstack < 7
  591. set %tchnienie jest ;Tchnienia , #spc , Khardana!!
  592. else
  593. set %tchnienie jest
  594. return
  595. ;--------------------------------------------------
  596. sub Rodzaj_setu
  597. if Kosciana in %Rodzaj_produktu
  598. {
  599. ;set %Itemy_do_pociecia ZPH_AQH_QPH_CQH_PPH_ALH_KCP
  600. click 518 360
  601. repeat
  602. until 560_460 in #CONTSIZE
  603. wait 3
  604. click 125 360
  605. repeat
  606. until 560_460 in #CONTSIZE
  607. wait 3
  608. if %part_1 = 1
  609. click 180 210 ;- helm
  610. if %part_2 = 1
  611. click 280 210 ;- rekawice
  612. if %part_3 = 1
  613. click 380 210 ;- naramienniki
  614. if %part_4 = 1
  615. click 480 210 ;- nogawice
  616. if %part_5 = 1
  617. click 180 305 ;- tunika
  618. if %part_6 = 1
  619. {
  620. click 200 360 ;- utwardzane
  621. repeat
  622. scanjournal 1
  623. if Anulowano. in #journal
  624. gosub UzyjNarzedzi
  625. until 560_460 in #CONTSIZE
  626. wait 3
  627. click 180 210 ;- karczek
  628. wait 3
  629. }
  630. if %part_7 = 1
  631. {
  632. click 360 360 ;- buty
  633. repeat
  634. scanjournal 1
  635. if Anulowano. in #journal
  636. gosub UzyjNarzedzi
  637. until 560_460 in #CONTSIZE
  638. wait 3
  639. click 170 210 ;- sandaly
  640. wait 3
  641. }
  642. }
  643. if Samuraj in %Rodzaj_produktu
  644. {
  645. if %nr_produktu = 4 ;nie utwardzana
  646. {
  647. ;set %Itemy_do_pociecia QWO_SWO_OWO_UBP_RWO_KKH_KCP
  648. click 518 360 ;strzalka w prawo w menu krawca
  649. repeat
  650. until 560_460 in #CONTSIZE
  651. wait 3
  652. click 200 360 ;- utwardzany samuraj menu
  653. repeat
  654. until 560_460 in #CONTSIZE
  655. wait 3
  656. if %part_1 = 1
  657. click 180 210 ;- helm = kabuto
  658. if %part_2 = 1
  659. click 280 210 ;- twarz = mempo
  660. if %part_3 = 1
  661. click 380 210 ;- naramienniki = hiro sode
  662. if %part_4 = 1
  663. click 180 305 ;- nogawice = suneate
  664. if %part_5 = 1
  665. click 280 305 ;- tunika = do
  666. if %part_6 = 1
  667. {
  668. click 120 360 ;- skorzane
  669. repeat
  670. scanjournal 1
  671. if Anulowano. in #journal
  672. gosub UzyjNarzedzi
  673. until 560_460 in #CONTSIZE
  674. wait 3
  675. click 380 210 ;- rekawice
  676. wait 3
  677. }
  678. if %part_7 = 1
  679. {
  680. click 360 360 ;- buty
  681. repeat
  682. scanjournal 1
  683. if Anulowano. in #journal
  684. gosub UzyjNarzedzi
  685. until 560_460 in #CONTSIZE
  686. wait 3
  687. click 440 210 ;- sandaly samuraja
  688. wait 3
  689. }
  690. }
  691. else ; utwardzana
  692. {
  693. ;set %Itemy_do_pociecia DCP_PCP_NWO_TBP_MWO_XKH_KCP
  694. click 518 360
  695. repeat
  696. until 560_460 in #CONTSIZE
  697. wait 3
  698. click 340 360 ;- utwardzany samuraj menu
  699. repeat
  700. until 560_460 in #CONTSIZE
  701. wait 3
  702. if %part_1 = 1
  703. click 180 210 ;- helm = kabuto
  704. if %part_2 = 1
  705. click 280 210 ;- twarz = mempo
  706. if %part_3 = 1
  707. click 380 210 ;- naramienniki = hiro sode
  708. if %part_4 = 1
  709. click 180 305 ;- nogawice = suneate
  710. if %part_5 = 1
  711. click 280 305 ;- tunika = do
  712. if %part_6 = 1
  713. {
  714. click 200 360 ;- utwardzane
  715. repeat
  716. scanjournal 1
  717. if Anulowano. in #journal
  718. gosub UzyjNarzedzi
  719. until 560_460 in #CONTSIZE
  720. wait 3
  721. click 280 210 ;- rekawice
  722. wait 3
  723. }
  724. if %part_7 = 1
  725. {
  726. click 360 360 ;- buty
  727. repeat
  728. scanjournal 1
  729. if Anulowano. in #journal
  730. gosub UzyjNarzedzi
  731. until 560_460 in #CONTSIZE
  732. wait 3
  733. click 440 210 ;- sandaly samuraja
  734. wait 3
  735. }
  736. }
  737. }
  738. if Magowa in %Rodzaj_produktu
  739. {
  740. if %nr_produktu = 5 ;utwardzane
  741. {
  742. ;set %Itemy_do_pociecia SBP_JKH_XKH_YKH_MLH_QKH_NVI
  743. click 200 360
  744. repeat
  745. until 560_460 in #CONTSIZE
  746. wait 3
  747. if %part_1 = 1
  748. click 280 305 ;- helm
  749. if %part_2 = 1
  750. click 180 210 ;- karczek
  751. if %part_3 = 1
  752. click 280 210 ;- rekawice
  753. if %part_4 = 1
  754. click 380 210 ;- naramienniki
  755. if %part_5 = 1
  756. click 480 210 ;- nogawice
  757. if %part_6 = 1
  758. click 180 304 ;- tunika
  759. if %part_7 = 1
  760. {
  761. click 360 360 ;- buty
  762. repeat
  763. scanjournal 1
  764. if Anulowano. in #journal
  765. gosub UzyjNarzedzi
  766. until 560_460 in #CONTSIZE
  767. wait 3
  768. click 170 210 ;- sandaly
  769. wait 3
  770. }
  771. }
  772. else ;nie utwardzane
  773. {
  774. ;set %Itemy_do_pociecia NJL_JKH_KKH_PKH_VKH_QKH_NVI
  775. click 120 360 ;- zwykle skorzane
  776. repeat
  777. until 560_460 in #CONTSIZE
  778. wait 3
  779. if %part_1 = 1
  780. click 180 210 ;- helm
  781. if %part_2 = 1
  782. click 280 210 ;- karczek
  783. if %part_3 = 1
  784. click 380 210 ;- rekawice
  785. if %part_4 = 1
  786. click 480 210 ;- naramienniki
  787. if %part_5 = 1
  788. click 180 305 ;- nogawice
  789. if %part_6 = 1
  790. click 280 305 ;- tunika
  791. if %part_7 = 1
  792. {
  793. click 360 360 ;- buty
  794. repeat
  795. scanjournal 1
  796. if Anulowano. in #journal
  797. gosub UzyjNarzedzi
  798. until 560_460 in #CONTSIZE
  799. wait 3
  800. click 170 210 ;- sandaly
  801. wait 3
  802. }
  803. }
  804. }
  805. return
  806. ;--------------------------------------------------
  807. sub Potnij
  808. repeat
  809. finditem %Plecak_roboczy C_ , #backpackid
  810. wait 2
  811. set #LOBJECTID %nozyczki_id
  812. event macro 17
  813. set %TimePiec #scnt2 + 20
  814. repeat
  815. if %TimePiec < #scnt2
  816. {
  817. set #LOBJECTID #FINDID
  818. event macro 17
  819. set %TimePiec #scnt2 + 20
  820. }
  821. until #targcurs = 1 ;jest celownik
  822. set #ltargetkind 1
  823. set #LTARGETX #FINDX
  824. set #LTARGETY #FINDY
  825. set #LTARGETID #FINDID
  826. event macro 22
  827. set %TimeKwSztaby #scnt2 + 30
  828. repeat
  829. if %TimeKwSztaby < #scnt2 && #targcurs = 1
  830. {
  831. event macro 22
  832. set %TimeKwSztaby #scnt2 + 30
  833. }
  834. if Anulowano. in #sysmsg
  835. break
  836. scanjournal 1
  837. until Pocial in #journal
  838. if Pocial in #journal
  839. break
  840. until #false
  841.  
  842. repeat
  843. finditem DDG C_ , #backpackid
  844. wait 2
  845. if #findstack > 100
  846. {
  847. exevent drag #findid #findstack
  848. wait 5
  849. exevent dropc %Plecak_roboczy
  850. wait 5
  851. }
  852. finditem %Itemy_do_pociecia C_ , %Plecak_roboczy
  853. wait 2
  854. if #findcnt = 0
  855. break
  856. until Pocial notin #sysmsg
  857.  
  858. finditem DDG C_ , #backpackid
  859. wait 2
  860. if #findkind <> -1
  861. {
  862. exevent drag #findid #findstack
  863. wait 5
  864. exevent dropc %Plecak_roboczy
  865. wait 5
  866. }
  867. event sysmessage Przedmioty pociete.
  868. if *STOP = 1
  869. {
  870. set *WAIT 0
  871. repeat
  872. until *STOP = 0
  873. }
  874. return
  875. ;--------------------------------------------------
  876. sub Przenies_Wyjatki
  877. event sysmessage Szukam Wyjatkow.
  878. set #lpc 10
  879. finditem %Itemy_do_pociecia C_ , %Plecak_roboczy
  880. wait 2
  881. for #findindex 1 #findcnt
  882. {
  883. event Property #findid
  884. wait 2
  885. if Wyjatkowej in #property
  886. {
  887. exevent drag #findid 1
  888. wait 5
  889. exevent dropc %Plecak_na_Wyjatki
  890. wait 5
  891. set %czy_jest_wyjatek 1
  892. }
  893. }
  894. ;ignoreitem reset
  895. return
  896. ;--------------------------------------------------
  897. sub WybierzKolejnyPrzedmiot
  898. for %i 1 7
  899. {
  900. if % . part_ . %i = 1 ;jesli part_1 = 1
  901. {
  902. set % . part_ . %i 0 ;to part_1 ustawi na 0
  903. set %j ( %i + 1 )
  904. set % . part_ . %j 1 ;a kolejny np: part_2 na 1
  905. ;display ok % , part_ , %i % . part_ . %i
  906. ;display ok % , part_ , %j % . part_ . %j
  907. break
  908. }
  909. }
  910.  
  911. if %part_8 = 1
  912. {
  913. set %part_8 0
  914. event sysmessage SE , T ZROBIONY, Koniec szycia.
  915. gosub Rysuj_przycisk_start
  916. return PetalPrzyciskow
  917. }
  918. return
  919. ;--------------------------------------------------
  920. sub SprawdzGumpa
  921. set #lpc 2000
  922. set %dziennik #SYSMSG
  923. ;event sysmessage dziennik %dziennik
  924. str Pos %dziennik )
  925. set %Pozycja_nawiasu #StrRes
  926. set %end %Pozycja_nawiasu - 2
  927. str Mid %dziennik 2 %end
  928. set %Tyle_z_Tylu #StrRes
  929. str Pos %Tyle_z_Tylu z
  930. set %z_end #StrRes - 2
  931. str Mid %Tyle_z_Tylu 1 %z_end
  932. set %Pierwsza_wartosc #StrRes
  933. ;event sysmessage Pierwsza_wartosc %Pierwsza_wartosc
  934. str Pos %Tyle_z_Tylu _
  935. set %__start #StrRes + 3
  936. str Len %Tyle_z_Tylu
  937. set %Dlugosc #StrRes
  938. str Mid %Tyle_z_Tylu %__start %Dlugosc
  939. set %Druga_wartosc #StrRes
  940. ;event sysmessage Wartosci: %Pierwsza_wartosc z %Druga_wartosc
  941. for %i 1 5
  942. {
  943. scanjournal %i
  944. if Brakuje_Ci in #journal
  945. {
  946. set %WyjdzZPetli 1
  947. set #lpc 20
  948. return
  949. }
  950. }
  951. if %Pierwsza_wartosc > %Druga_wartosc
  952. {
  953. click %click_X_PrzerwanieSzycia %click_Y_PrzerwanieSzycia ;przerywa prace
  954. set %WyjdzZPetli 1
  955. wait 6s
  956. set #lpc 20
  957. return
  958. }
  959. if %Pierwsza_wartosc = %Druga_wartosc
  960. {
  961. scanjournal 1
  962. if #JCOLOR = 40
  963. {
  964. click %click_X_PrzerwanieSzycia %click_Y_PrzerwanieSzycia ;przerywa prace
  965. wait 6s
  966. }
  967. set %WyjdzZPetli 1
  968. }
  969. else
  970. {
  971. set #lpc 20
  972. return
  973. }
  974. set #lpc 20
  975. return
  976. ;--------------------------------------------------
  977. sub Rysuj_przycisk_start
  978. menu font color black
  979. menu font style b
  980. menu font bgcolor btnface
  981. menu button mbstart 10 270 60 24 Start
  982. return
  983. ;--------------------------------------------------
  984. sub Rysuj_Opisy
  985. set #lpc 2000
  986. menu font bgcolor btnface
  987. menu font size 9
  988. menu font color green
  989. menu font style b
  990. menu delete mt_el_1
  991. menu delete mt_el_2
  992. menu delete mt_el_3
  993. menu delete mt_el_4
  994. menu delete mt_el_5
  995. menu delete mt_el_6
  996. menu delete mt_el_7
  997. menu delete mt_el_opis_1
  998. menu delete mt_el_opis_2
  999. menu delete mt_el_opis_3
  1000. menu delete mt_el_opis_4
  1001. menu delete mt_el_opis_5
  1002. menu delete mt_el_opis_6
  1003. menu delete mt_el_opis_7
  1004. if %nr_produktu = 1
  1005. {
  1006. menu text mt_el_1 10 110 Helm :
  1007. menu text mt_el_2 10 125 Rekawice :
  1008. menu text mt_el_3 10 140 Naramienniki :
  1009. menu text mt_el_4 10 155 Nogawice :
  1010. menu text mt_el_5 10 170 Tunika :
  1011. menu text mt_el_6 10 185 Karczek :
  1012. menu text mt_el_7 10 200 Sandaly :
  1013. }
  1014. if %nr_produktu = 2 || %nr_produktu = 4
  1015. {
  1016. menu text mt_el_1 10 110 Helm :
  1017. menu text mt_el_2 10 125 Twarz :
  1018. menu text mt_el_3 10 140 Naramienniki :
  1019. menu text mt_el_4 10 155 Nogawice :
  1020. menu text mt_el_5 10 170 Tunika :
  1021. menu text mt_el_6 10 185 Rekawice :
  1022. menu text mt_el_7 10 200 Sandaly samuraja :
  1023. }
  1024. if %nr_produktu = 3 || %nr_produktu = 5
  1025. {
  1026. menu text mt_el_1 10 110 Helm :
  1027. menu text mt_el_2 10 125 Karczek :
  1028. menu text mt_el_3 10 140 Rekawice :
  1029. menu text mt_el_4 10 155 Naramienniki :
  1030. menu text mt_el_5 10 170 Nogawice :
  1031. menu text mt_el_6 10 185 Tunika :
  1032. menu text mt_el_7 10 200 Sandaly :
  1033. }
  1034. menu text mt_el_opis_1 150 110 0
  1035. menu text mt_el_opis_2 150 125 0
  1036. menu text mt_el_opis_3 150 140 0
  1037. menu text mt_el_opis_4 150 155 0
  1038. menu text mt_el_opis_5 150 170 0
  1039. menu text mt_el_opis_6 150 185 0
  1040. menu text mt_el_opis_7 150 200 0
  1041. set #lpc 10
  1042. menu font color green
  1043. return
  1044. ;--------------------------------------------------
  1045. sub Licz_wyjatki
  1046. set #lpc 2000
  1047. str Pos %Itemy_do_pociecia _ ; rozdziela typy itemow
  1048. set %Pozycja_znaku #StrRes
  1049. set %start 1
  1050. set %end %Pozycja_znaku - 1
  1051. for %i 1 7
  1052. {
  1053. str Mid %Itemy_do_pociecia %start %end
  1054. set %zm_ . %i #StrRes ;powstaja zmienne: %zm_1 do %zm_7
  1055. set %start ( %start + 4 )
  1056. }
  1057.  
  1058. for %i 1 7
  1059. {
  1060. finditem %zm_ . %i C_ , %Plecak_na_Wyjatki
  1061. wait 2
  1062. if #findkind <> -1
  1063. {
  1064. event Property #findid
  1065. wait 2
  1066. if Wyjatkowej in #property
  1067. {
  1068. menu Set mt_el_opis_ , %i #findcnt
  1069. }
  1070. }
  1071. ignoreitem #findid
  1072. }
  1073. ignoreitem reset
  1074. set #lpc 10
  1075. return
  1076. ;--------------------------------------------------
  1077. sub ZarujParty
  1078. for %i 1 7
  1079. {
  1080. set % . part_ . %i ;to ustawi odpowiedni part_ na 1
  1081. }
  1082. return
  1083. ;--------------------------------------------------
  1084. sub SkladnikiInfo
  1085. set #menubutton N/A
  1086. if jest notin %narzedzia_szewskie || jest notin %plecak_wyjatki || jest notin %nozyczki || jest notin %pasta || jest notin %tchnienie
  1087. {
  1088. if jest notin %narzedzia_szewskie
  1089. set %brakuje_1 %narzedzia_szewskie
  1090. else
  1091. set %brakuje_1 -
  1092. if jest notin %kociol
  1093. set %brakuje_2 %kociol
  1094. else
  1095. set %brakuje_2 -
  1096. if jest notin %plecak_wyjatki
  1097. set %brakuje_3 %plecak_wyjatki
  1098. else
  1099. set %brakuje_3 -
  1100. if jest notin %nozyczki
  1101. set %brakuje_4 %nozyczki
  1102. else
  1103. set %brakuje_4 -
  1104. if jest notin %pasta
  1105. set %brakuje_5 %pasta
  1106. else
  1107. set %brakuje_5 -
  1108. if jest notin %tchnienie
  1109. set %brakuje_6 %tchnienie
  1110. else
  1111. set %brakuje_6 -
  1112. if jest notin %kosci && Kosciana in %Rodzaj_produktu
  1113. set %brakuje_7 %kosci
  1114. else
  1115. set %brakuje_7 -
  1116. Display ok Nie masz: $ %brakuje_1 $ %brakuje_2 $ %brakuje_3 $ %brakuje_4 $ %brakuje_5 $ %brakuje_6 $ %brakuje_7
  1117. gosub Rysuj_przycisk_start
  1118. return
  1119. }
  1120. return dalej
  1121. ;--------------------------------------------------
  1122. sub UstalPlecaki
  1123. display yesno $-- Ustawianie plecakow. -- $Musisz miec w plecaku postaci dodatkowe 2 plecaki, jeden na skory, a drugi na wyjatki. $Jesli posiadasz obydwa plecaki wcisniej Tak i podazaj za komunikatami.
  1124. if #DISPRES = Yes
  1125. {
  1126. display ok $Otworz plecak w ktorym beda skory i przesun go gdzies bo sam bedzie sie otwieral. $A nastepnie wcisnij przycisk: Zapisz dane plecaka
  1127. repeat
  1128. until #menubutton = mbZapisz
  1129.  
  1130. set #menubutton N/A
  1131. set %Plecak_roboczy #contid
  1132. set %Pozycja_X_Plecak_roboczy #CONTPOSX
  1133. set %Pozycja_Y_Plecak_roboczy #CONTPOSY
  1134. event sysmessage Dane plecaka zapisane
  1135.  
  1136. display ok $Otworz plecak do ktorego beda przezucane wyjatki i przesun go gdzies bo sam bedzie sie otwieral. $A nastepnie wcisnij przycisk: Zapisz dane plecaka
  1137. repeat
  1138. until #menubutton = mbZapisz
  1139.  
  1140. set #menubutton N/A
  1141. set %Plecak_na_Wyjatki #contid
  1142. set %Pozycja_X_Plecak_wyjatki #CONTPOSX
  1143. set %Pozycja_Y_Plecak_wyjatki #CONTPOSY
  1144. event sysmessage Dane plecaka zapisane
  1145. set %PlecakiZapisane 1
  1146. }
  1147. else
  1148. {
  1149. display ok $Musisz miec w plecaku postaci 2 puste plecaki inaczej skrypt nie bedzie dzialal. $Skrypt wylaczony.
  1150. menu hide
  1151. halt
  1152. }
  1153. return
  1154. ;--------------------------------------------------
  1155. sub UzyjNarzedzi
  1156. finditem HAG C_ , #backpackid ;narzedzia szewskie
  1157. wait 2
  1158. set #LOBJECTID #findid
  1159. event macro 17
  1160. set %TimeNarzedzi #scnt2 + 20
  1161. repeat
  1162. if %TimeNarzedzi < #scnt2
  1163. {
  1164. set #LOBJECTID #findid
  1165. event macro 17
  1166. set %TimeNarzedzi #scnt2 + 20
  1167. }
  1168. if #targcurs = 1
  1169. key Esc
  1170. if Zrobil in #sysmsg
  1171. return robi
  1172. until 560_460 in #CONTSIZE || ( #CONTSIZEX = 560 && #CONTSIZEY = 460 ) ;&& generic_gump in #CONTNAME
  1173. ;wait 1s
  1174. return
  1175. ;--------------------------------------------------
  1176. sub ToCoOstatnio
  1177. if %KujRaz = 1 && %IloscPowtorzen = 1 && %WcisnietoStart = 1 ;zaczyna pierwszy raz kuc
  1178. {
  1179. ;event sysmessage KujRaz %KujRaz IloscPowtorzen %IloscPowtorzen WcisnietoStart %WcisnietoStart
  1180. click 412 417 ;przycisk to co ostatnio 412 417
  1181. key BACK
  1182. key BACK
  1183. key BACK
  1184. msg %IloscPowtorzen
  1185. wait 3
  1186. set %WcisnietoStart 0
  1187. }
  1188. if %KujRaz = 0 && %IloscPowtorzen = 50 && %WcisnietoStart = 1
  1189. {
  1190. ;event sysmessage KujRaz %KujRaz IloscPowtorzen %IloscPowtorzen WcisnietoStart %WcisnietoStart
  1191. click 412 417 ;przycisk to co ostatnio 412 417
  1192. key BACK
  1193. key BACK
  1194. key BACK
  1195. msg %IloscPowtorzen
  1196. wait 3
  1197. set %WcisnietoStart 0
  1198. }
  1199. if %KujRaz = 1 && %OdPoczatku = 0
  1200. {
  1201. click 138 390 ;przycisk to co ostatnio
  1202. return
  1203. }
  1204. if %to_co_ostatnio = 0
  1205. {
  1206. gosub Rodzaj_setu
  1207. if #RESULT = PetalPrzyciskow
  1208. return PetalPrzyciskow
  1209. }
  1210. else
  1211. click %click_X_ToCoOstatnio %click_Y_ToCoOstatnio ;przycisk to co ostatnio
  1212. set %to_co_ostatnio 0
  1213. set %OdPoczatku 0
  1214. return
  1215. ;--------------------------------------------------
  1216. sub Wcisnieto_Stop
  1217. event sysmessage Skrypt zatrzymany i czeka.
  1218. click %click_X_PrzerwanieSzycia %click_Y_PrzerwanieSzycia
  1219. set #menubutton N/A
  1220. gosub Rysuj_przycisk_start
  1221. gosub ZarujParty
  1222. return
  1223. ;---------------------------------------------------
  1224. sub Zlom
  1225. finditem %Itemy_do_pociecia C_ , %Plecak_roboczy
  1226. wait 2
  1227. for #findindex 1 #findcnt
  1228. {
  1229. if wyjatkowej_jakosci in #sysmsg
  1230. return
  1231. event Property #findid
  1232. wait 2
  1233. if Wyjatkowej notin #property
  1234. {
  1235. ignoreitem #findid
  1236. }
  1237. }
  1238. 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!