API tools faq
paste
Advertisement
Guest User

Untitled

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