API tools faq
paste
Guest User

Untitled

a guest
Oct 16th, 2017
123
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 37.89 KB | None | 0 0
raw download clone embed print report
  1. ;gornik 1.0 beta 13 autor Jony
  2. ;set %PlecakJuczniaka HYPZGQE ;<--- TUTAJ wpisz zamiast UTGDTFE id plecaka do ktorego ma byc ruda przezucana
  3. set %wyzucaj_mapki 0 ;1 - wyzuca postrzepione mapy, 0 - nie wyrzuca
  4. set %SciezkaDoDzwieku e:\well_done.wav
  5. set %SciezkaDoDzwieku2 e:\scream.wav
  6. set %Rodzaj floor
  7. set %Max_odleglosc 4 ;obszar w jakim rozkopuje kopalnie
  8. set %chstr 50 ;wpisz ilosc sily swojej postaci
  9. set %chdex 30 ;wpisz ilosc zrecznosci swojej postaci
  10. set %auto 1
  11. set %sek 25s
  12. set %odl 4 ;odleglosc od postaci w ktorej szuka magazyniera
  13. ;-------------------------------
  14. set %przedmiot ZFTEYC ;id przedmiotu do identyfikacji lub wiedzy o broni
  15. set %nrmok 1
  16. set %magaz VCJFYC
  17. set #lpc 2000
  18. menu clear
  19. menu window color btnface
  20. menu show
  21. menu window size 220 295
  22. menu window title Gornik 1.0 b13
  23. ;=================== miasta =====================
  24. menu font size 8
  25. menu text mtskil 110 9 Wybierz skil:
  26. menu text mtmiasto 10 9 Wybierz miasto:
  27. menu font size 10
  28. menu font bgcolor white
  29. menu combo create mcmiasto 10 26 80
  30. menu combo add mcmiasto Minoc
  31. menu combo add mcmiasto Karak Hirin
  32. menu combo select mcmiasto 1
  33. ;=================== skil =======================
  34. menu combo create mcskil 110 26 100
  35. menu combo add mcskil Zaden
  36. menu combo add mcskil Anatomia
  37. menu combo add mcskil Wiedza o broni
  38. menu combo add mcskil Ukrywanie
  39. menu combo add mcskil Wykrywanie
  40. menu combo add mcskil Identyfikacja
  41. menu combo add mcskil Wiedza o broni
  42. menu combo select mcskil 1
  43. ;=================== miejsce kopania ================
  44. menu font size 8
  45. menu font bgcolor btnface
  46. menu text mtomk 10 138 Obszar szukania:
  47. menu edit mefind 130 135 30 %Max_odleglosc
  48. menu font size 10
  49. ;=================== przyciski =================
  50. menu font color green
  51. menu font style b
  52. menu button mbstart 10 265 60 24 Start
  53. menu font color black
  54. menu button mbstop 75 265 60 24 Stop
  55. menu button mbanuluj 140 265 60 24 Zakoncz
  56. menu font size 9
  57. ;menu button mbzeruj 170 110 30 24 <-1
  58. ;menu button mbnic 110 185 75 20 Nic
  59. menu button mbuinfo 10 460 100 20 Ukryj Info
  60. menu font size 8
  61. menu button mbpiec 130 165 80 24 Przetop
  62. menu button mbmagazyn 130 195 80 24 Magazyn
  63. menu button mbrudadoskrzyni 120 225 100 24 Zdeponuj rude
  64. menu button mbinfo 10 165 80 24 Info jucz.
  65. menu button mbkopalnia 10 195 80 24 Kopalnia
  66. menu button mbinfomagazyn 10 225 100 24 Info magazyn
  67. ;=================== rudy ======================
  68. menu font style
  69. menu font size 8
  70. menu check mczelazo 20 77 90 15 #false zelazo
  71. menu check mcgrafit 130 77 60 15 #false grafit
  72. ;=================== sposob kopania ==================
  73. menu check mcwmiejscu 20 110 90 15 #false w miejscu
  74. menu check mcchodzone 130 110 90 15 #true chodzone
  75. ;=================== info o rudach ==================
  76. menu shape msopis_rud 10 55 200 16 3 7 1 blue 2 blue
  77. menu text mtopis_rudy 11 56 Zaznacz rude do wyrzucenia:
  78. menu shape msrudy 10 72 200 30 3 7 1 black 2 black
  79. menu font size 10
  80. ;=================== info ilosci rudy ==================
  81. menu shape msinfo 10 295 200 160 3 7 1 blue 2 blue
  82. menu shape msinfo_suma 120 460 90 20 3 7 1 blue 2 blue
  83. menu text mtOpisSumy 122 462 Razem:
  84. menu text mtInfoSuma 175 462
  85. menu font size 8
  86. menu text mtzelaso 13 300 Żelazo:
  87. ;------------------------------------------------------
  88. menu text mtsrebro 110 300 Srebro:
  89. menu text mtzloto 110 315 Złoto:
  90. menu text mtblack 110 330 Blackrosk:
  91. menu text mtagapit 110 345 Agapit:
  92. menu text mtvaloryt 110 360 Valoryt:
  93. menu text mtveryt 110 375 Veryt:
  94. menu text mtmyth 110 390 Mythril:
  95. menu text mtblood 110 405 Bloodrock:
  96. menu text mtazuryt 110 420 Azuryt:
  97. menu text mtroyal 110 435 Royal:
  98. ;=============== ilosci danej rudy ====================
  99. menu text mtDoMtZelazo 75 275
  100. ;------------------------------------------------------
  101. menu text mtDoMtSrebro 188 300
  102. menu text mtDoMtZloto 188 315
  103. menu text mtDoMtBlackrosk 188 330
  104. menu text mtDoMtAgapit 188 345
  105. menu text mtDoMtValoryt 188 360
  106. menu text mtDoMtVeryt 188 375
  107. menu text mtDoMtMytheril 188 390
  108. menu text mtDoMtBloodrock 188 405
  109. menu text mtDoMtAzuryt 188 420
  110. menu text mtDoMtRoyal 188 435
  111. menu font size 10
  112. menu hideEUO
  113. ;====================================================
  114. set #lpc 10
  115. set #menubutton n/a
  116. set %chstr %chstr + 10
  117. set %chdex %chdex + 10
  118. ;=================== petla ===========================
  119. loop:
  120. if #menubutton = mbstart
  121. {
  122. set #menubutton n/a
  123. menu delete mbstart
  124. menu delete mbinfo
  125. menu font size
  126. menu font color blue
  127. menu font bgcolor btnface
  128. menu font syle b
  129. menu button mbpauza 10 240 60 24 Pauza
  130. set #menubutton n/a
  131. menu get mcskil
  132. set %skill #menures - 1
  133. menu get mcmiasto
  134. if #menures = 1
  135. {
  136. set %swich 2
  137. }
  138. else
  139. {
  140. set %swich 3
  141. }
  142. ;menu getnum mekopanie
  143. ;set %kop #menures ;pobiera nr pozycji kopania z menu
  144. set %kop 1
  145. goto menucheck
  146. }
  147.  
  148. if #menubutton = mbanuluj || #menubutton = CLOSED
  149. {
  150. menu hide
  151. halt
  152. }
  153. if #menubutton = mbpiec
  154. {
  155. set #menubutton n/a
  156. gosub przetapianie
  157. }
  158. if #menubutton = mbstop
  159. {
  160. menu delete mbpauza
  161. menu delete mbwznowstart
  162. menu button mbstart 10 240 60 24 Start
  163. set #menubutton n/a
  164. goto loop
  165. }
  166. if #menubutton = mbmagazyn
  167. {
  168. gosub magazyn
  169. set #menubutton n/a
  170. goto loop
  171. }
  172. if #menubutton = mbkopalnia
  173. {
  174. gosub kopalnia
  175. set #menubutton n/a
  176. goto loop
  177. }
  178. if #menubutton = mbinfomagazyn
  179. {
  180. gosub policzsztaby
  181. set #menubutton n/a
  182. goto loop
  183. }
  184. if #menubutton = mbinfo
  185. {
  186. set #menubutton n/a
  187. gosub przeliczrude
  188. }
  189. if #menubutton = mbuinfo
  190. {
  191. set #menubutton n/a
  192. menu window size 220 295
  193. gosub zerowanie mtDoMtZelazo mtDoMtSrebro mtDoMtZloto mtDoMtBlackrosk mtDoMtAgapit mtDoMtValoryt mtDoMtVeryt mtDoMtMytheril mtDoMtBloodrock mtDoMtAzuryt mtDoMtRoyal mtInfoSuma
  194. }
  195. if #menubutton = mbwznow
  196. {
  197. set #menubutton n/a
  198. menu delete mbwznow
  199. menu delete mbinfo
  200. menu font color blue
  201. menu font style b
  202. menu button mbpauza 10 240 60 24 Pauza
  203. repeat
  204. if #menubutton = mbanuluj || #menubutton = mbstop
  205. {
  206. gosub wyzuc_rude
  207. goto loop
  208. }
  209. until #menubutton = mbwznow || *START = 1
  210. set #menubutton n/a
  211. goto nextTile
  212. }
  213. if #menubutton = mbrudadoskrzyni
  214. {
  215. set #menubutton n/a
  216. gosub domagazynu
  217. }
  218. goto loop
  219. ;================= pola wyboru =======================
  220. menucheck:
  221. set #lpc 200
  222. menu get mczelazo
  223. if #menures = #true
  224. set %mc1 zelazo
  225. menu get mcgrafit
  226. if #menures = #true
  227. set %mc2 grafit
  228. menu get mcwmiejscu
  229. if #menures = #true
  230. {
  231. set %wmiejscu 1
  232. set %chodzone 0
  233. menu check mcchodzone 130 110 90 15 #false chodzone
  234. }
  235. menu get mcchodzone
  236. if #menures = #true
  237. {
  238. set %chodzone 1
  239. set %wmiejscu 0
  240. menu check mcwmiejscu 20 110 90 15 #false w miejscu
  241. }
  242. menu get mefind
  243. if #menures = #true
  244. set %Max_odleglosc #menures
  245. menu get mcauto
  246. if #menures = #true
  247. set %auto 1
  248. set #lpc 10
  249. set %pominlame 0
  250. set %twojplecakid #backpackid
  251. event macro 1 0 Za mna
  252. gosub juczniak
  253. ;====================== zmienne =======================
  254. ;menu getnum mekopanie
  255. ;set %kop #menures ;pobiera nr pozycji kopania z menu
  256. menu getnum mcskil
  257. set %skil #menures
  258. if %skil = 2 || %skil = 3 || %skil = 6 || %skil = 7
  259. {
  260. set #targcurs 1
  261. set #sysmsgcol 1281
  262. event sysmessage Wskarz cel dla umiejetnosci.
  263. repeat
  264. until #targcurs = 0
  265. set %idcelu #ltargetid
  266. }
  267. if %kop = 1
  268. {
  269. finditem %JuczID G_1
  270. if #findkind = -1
  271. {
  272. event macro 1 0 Podejdzcie
  273. wait 10
  274. }
  275. set #lobjectid %JuczID
  276. set #NEXTCPOSX 597
  277. set #NEXTCPOSY 394
  278. event macro 17
  279. set %kop 0
  280. }
  281. event macro 1 0 chroncie mnie
  282. ;======================================================
  283. if %chodzone = 1
  284. gosub miejsce
  285. if %wmiejscu = 1
  286. gosub miejsce_stojace
  287. start:
  288. set #lpc 100
  289. gosub zapis
  290. if #weight > 2000
  291. {
  292. set #sysmsgcol 1080
  293. event sysmessage WAZYSZ PONAD 2000 kamieni !
  294. sound set %SciezkaDoDzwieku2
  295. set #menubutton n/a
  296. menu delete mbpauza
  297. menu font style b
  298. menu button mbstart 10 240 60 24 Start
  299. goto loop
  300. }
  301. if %chdex > #DEX || %chstr > #STR
  302. gosub butle
  303. ;gosub miejsce
  304. ignoreitem reset
  305. ;szuka kilofa
  306. znajdzkilof:
  307. finditem npf C_ , #charid
  308. if #findkind = -1
  309. {
  310. set #sysmsgcol 1080
  311. event sysmessage Nie znaleziono kilofa
  312. set #menubutton n/a
  313. menu delete mbpauza
  314. menu font style b
  315. menu button mbstart 10 240 60 24 Start
  316. goto loop
  317. }
  318. set %kilof #findid
  319. set %zacz 1
  320. wait 1
  321. gosub buttonpauze
  322. gosub buttonanuluj
  323. gosub buttonstop
  324. gosub zapis
  325. uzyjkilofa:
  326. set #lobjectid %kilof
  327. event macro 17
  328. set %czas #SCNT + 5
  329. repeat
  330. gosub buttonpauze
  331. gosub buttonstop
  332. gosub zapis
  333. gosub trzasnol
  334. if %czas < #SCNT
  335. goto uzyjkilofa
  336. until #targcurs = 1
  337. set #ltargetkind %swich
  338. set #sysmsgcol 1264
  339. ;event sysmessage Zaczynam kopac w miejscu nr: %kop
  340. menu Set mekopanie %kop
  341. set %czascel #SCNT + 4
  342. set %czascel2 #SCNT + 6
  343. wyceluj:
  344. event macro 22
  345. repeat
  346. scanjournal 1
  347. if za_daleko in #journal || nie_wykopiesz in #journal
  348. goto nextTile
  349. if %czascel < #SCNT && #targcurs = 1
  350. goto wyceluj
  351. if %czascel2 < #SCNT && #targcurs = 0
  352. break
  353. until Zaczynasz in #sysmsg
  354. ;set %chpx #charposx
  355. ;set %chpy #charposy
  356. ;======================== loop1 ======================
  357. set %time1 #SCNT + 10
  358. gosub wyzuc_rude
  359. loop1:
  360. onhotkey Esc
  361. {
  362. gosub ucieczka
  363. }
  364. set #lpc 100
  365. scanjournal 1
  366. if Nie_widzisz in #journal
  367. goto nextTile
  368. repeat
  369. gosub buttonpauze
  370. gosub buttonstop
  371. gosub trzasnol
  372. gosub zapis
  373. if *STOP = 1
  374. {
  375. ;set *STOP 0
  376. set #sysmsgcol 1080
  377. set #menubutton n/a
  378. menu delete mbpauza
  379. menu font color green
  380. menu font size
  381. menu font style b
  382. menu button mbwznowstart 10 240 60 24 Wznow
  383. menu font color black
  384. repeat
  385. if #menubutton = mbanuluj || #menubutton = mbstop
  386. {
  387. gosub wyzuc_rude
  388. goto loop
  389. }
  390. until #menubutton = mbwznowstart || *START = 0
  391. wait 2
  392. set #menubutton n/a
  393. set *START 0
  394. menu delete mbwznowstart
  395. menu delete mbinfo
  396. menu font color blue
  397. menu font style b
  398. menu button mbpauza 10 240 60 24 Pauza
  399. }
  400. onhotkey Esc
  401. {
  402. gosub ucieczka
  403. }
  404. if #menubutton = mbanuluj
  405. goto loop
  406. gosub trzasnol
  407. if %chdex > #DEX || %chstr > #STR
  408. gosub butle
  409. ;gosub wyzuc_rude
  410. gosub ZaCiezko
  411. scanjournal 2
  412. if Nie_widzisz in #sysmsg || Tu_nic_nie_wykopiesz in #sysmsg || nie_ma_juz_rudy. in #sysmsg || nie_ma_juz_rudy. in #journal || Nie_widzisz in #journal
  413. goto nextTile
  414. ;if %chpx <> #charposx && %chpy <> #charposy
  415. ;gosub ucieczka
  416. gosub zapis
  417. onhotkey Esc
  418. {
  419. gosub ucieczka
  420. }
  421. if Wlozyl notin #sysmsg || Trafil notin #sysmsg || Nie_znalazl notin #sysmsg || Znalazl notin #sysmsg
  422. {
  423. wait 1
  424. }
  425. scanjournal 2
  426. until Wlozyl in #sysmsg || Trafil in #sysmsg || Znalazl in #sysmsg || Nie_udalo in #sysmsg || Wlozyl in #journal || Trafil in #journal || Znalazl in #journal || %time1 < #SCNT ;
  427. wait 2
  428. gosub zapis
  429. set %licz %licz + 1
  430. if %licz > 1
  431. {
  432. set %licz 0
  433. gosub WyborSkila
  434. }
  435. ;goto loop1
  436. onhotkey Esc
  437. {
  438. gosub ucieczka
  439. }
  440. goto start
  441. ;============== koniec loop1 ===========================
  442.  
  443. sub trzasnol
  444. scanjournal 1
  445. if Trzasnales_sie in #sysmsg || Trzasnelas_sie in #sysmsg || _Trzasnales_sie_ in #journal || _Trzasnelas_sie_ in #journal
  446. {
  447. wait 15s
  448. gosub zapis
  449. }
  450. return
  451. ;------------------------------------------------------
  452. sub wyzuc_rude
  453. ;set #lpc 100
  454. finditem %PlecakJuczniaka
  455. if #findkind = -1
  456. {
  457. set #LOBJECTID %JuczID
  458. set #NEXTCPOSX 597
  459. set #NEXTCPOSY 394
  460. event macro 17
  461. }
  462. ignoreitem reset
  463. onhotkey Esc
  464. {
  465. gosub ucieczka
  466. }
  467. finditem dwj_enk C_ , #BACKPACKID
  468. if #findkind = 0
  469. {
  470. for %i 1 #findstack ; #findcnt
  471. {
  472. finditem dwj_enk C_ , #BACKPACKID
  473. wait 2
  474. event Property #findID
  475. set %idkupki #findid
  476. if Ore in #property
  477. {
  478. if #FINDCOL = 0 ;|| #FINDCOL = 1118 || #FINDCOL = 1637 || #FINDCOL = 1720 || #FINDCOL = 1546 || #FINDCOL = 1420 || #FINDCOL = 1548 || #FINDCOL = 1541 || #FINDCOL = 2130 || #FINDCOL = 1107
  479. {
  480. if #findstack = 1
  481. {
  482. exevent drag #findid 1
  483. wait 5
  484. exevent dropg #charposx #charposy #charposz
  485. wait 5
  486. }
  487. exevent drag #findid #findstack
  488. wait 5
  489. exevent dropg #charposx #charposy #charposz
  490. wait 2
  491. }
  492. }
  493. if $ in #Property && #findcnt = 0
  494. {
  495. goto szrwsp
  496. }
  497. if #spc , %mc1 in #Property || #spc , %mc2 in #Property ;|| %mc3 in #Property || #spc , %mc4 in #Property || #spc , %mc5 in #Property || #spc , %mc6 in #Property || #spc , %mc7 in #Property || #spc , %mc8 in #Property || #spc , %mc9 in #Property || #spc , %mc10 in #Property
  498. {
  499. podniesK:
  500. set %czask #SCNT + 3
  501. exevent drag #findid #findstack
  502. finditem dwj G_1
  503. set %irpn_old #findcnt
  504. repeat
  505. if holding in #sysmsg || pick in #sysmsg
  506. {
  507. event macro 9 7 ;zamyka backpack
  508. wait 5
  509. set #NEXTCPOSX 596 ;ustawia wspolzedne otwarcia bacpacka
  510. set #NEXTCPOSY 560
  511. event macro 8 7 ;otweira backpack
  512. }
  513. gosub zapis
  514. finditem %idkupki C_ , #BACKPACKID
  515. if %czask < #SCNT
  516. goto podniesK
  517. until #findkind = -1
  518. wait 5
  519. set %timew #SCNT + 4
  520. exevent dropg #charposx #charposy #charposz
  521. wait 5
  522. repeat
  523. gosub zapis
  524. finditem dwj G_1
  525. until %irpn_old <> #findcnt || %timew < #SCNT
  526. }
  527. if %mc1 in #Property || %mc2 in #Property ;|| %mc3 in #Property || %mc4 in #Property || %mc5 in #Property || %mc6 in #Property || %mc7 in #Property || %mc8 in #Property || %mc9 in #Property || %mc10 in #Property
  528. {
  529. podniesSZ:
  530. set %czask #SCNT + 3
  531. exevent drag #findid 1
  532. finditem dwj G_1
  533. set %irpn_old #findcnt
  534. repeat
  535. if holding in #sysmsg || pick in #sysmsg
  536. {
  537. event macro 9 7 ;zamyka backpack
  538. wait 10
  539. set #NEXTCPOSX 596 ;ustawia wspolzedne otwarcia bacpacka
  540. set #NEXTCPOSY 560
  541. event macro 8 7 ;otweira backpack
  542. }
  543. gosub zapis
  544. finditem %idkupki C_ , #BACKPACKID
  545. if %czask < #SCNT
  546. goto podniesSZ
  547. until #findkind = -1
  548. wait 5
  549. set %timew2 #SCNT + 4
  550. exevent dropg #charposx #charposy #charposz
  551. wait 5
  552. repeat
  553. gosub zapis
  554. finditem dwj G_1
  555. until %irpn_old <> #findcnt || %timew2 < #SCNT
  556. }
  557. ignoreitem #findid ;1
  558. }
  559. ignoreitem reset
  560. }
  561. if %pominlame = 1
  562. goto d
  563. wait 1
  564. finditem %JuczID G_1
  565. if #findkind = -1
  566. {
  567. event macro 1 0 Podejdzcie
  568. wait 5
  569. }
  570. szrwsp:
  571. ;set #lpc 10
  572. ignoreitem reset
  573. set #findkind 0
  574. finditem dwj_enk C_ , #BACKPACKID
  575. pocz:
  576. for %i 1 #findstack
  577. {
  578. finditem dwj_enk C_ , #BACKPACKID
  579. wait 2
  580. event Property #findID
  581. set %idkupki #findid
  582. ;event sysmessage Znalazlam #property #findstack #findcnt
  583. if Ore in #property
  584. {
  585. if #FINDCOL = 1209 || #FINDCOL = 1247 || #FINDCOL = 1309 || #FINDCOL = 1320 || #FINDCOL = 1424 || #FINDCOL = 2001 || #FINDCOL = 1024 || #FINDCOL = 1109 || #FINDCOL = 1121 || #FINDCOL = 1301
  586. goto podniesKd
  587. }
  588. if $ in #property && #findkind = -1
  589. {
  590. ignoreitem #findid ;2
  591. goto d:
  592. }
  593. if No , #spc , Data in #property
  594. {
  595. ignoreitem #findid ;2
  596. goto pocz ;szuka ponownie rudy w plecaku
  597. }
  598. if #spc , %mc1 notin #Property || #spc , %mc2 notin #Property ;|| %mc3 notin #Property || #spc , %mc4 notin #Property || #spc , %mc5 notin #Property || #spc , %mc6 notin #Property || #spc , %mc7 notin #Property || #spc , %mc8 notin #Property || #spc , %mc9 notin #Property
  599. {
  600. podniesKd:
  601. set %czask #SCNT + 3
  602. set %timep #SCNT + 5
  603. exevent drag #findid #findstack
  604. repeat
  605. if holding in #sysmsg || pick in #sysmsg
  606. {
  607. event macro 9 7 ;zamyka backpack
  608. wait 10
  609. set #NEXTCPOSX 596 ;ustawia wspolzedne otwarcia bacpacka
  610. set #NEXTCPOSY 560
  611. event macro 8 7 ;otweira backpack
  612. }
  613. gosub zapis
  614. finditem %idkupki C_ , #backpackid
  615. if %czask < #SCNT
  616. goto podniesKd
  617. until #findkind = -1 || %timep < #SCNT
  618. wait 5
  619. exevent dropc %PlecakJuczniaka
  620. wait 5
  621. }
  622. gosub ZaCiezko
  623. if holding in #sysmsg || pick in #sysmsg
  624. {
  625. event macro 9 7 ;zamyka backpack
  626. wait 5
  627. set #NEXTCPOSX 596 ;ustawia wspolzedne otwarcia bacpacka
  628. set #NEXTCPOSY 560
  629. event macro 8 7 ;otweira backpack
  630. }
  631. ignoreitem #findid
  632. }
  633. d:
  634. ;set #lpc 10
  635. finditem RVH C_ , #backpackid
  636. if #findkind = 0 && %wyzucaj_mapki = 1
  637. {
  638. exevent drag #findid 1
  639. wait 5
  640. exevent dropg #charposx #charposy #charposz
  641. wait 2
  642. }
  643. ignoreitem reset
  644. return
  645. ;-------------------------------------------------
  646. sub ZaCiezko
  647. if That_item_is_too_heavy in #sysmsg
  648. {
  649. set #sysmsgcol 1080
  650. event sysmessage Plecak jest juz pelny
  651. menu delete mbpauza
  652. menu button mbstart 10 240 60 24 Start
  653. menu button mbinfo 10 140 80 24 Info jucz.
  654. sound %SciezkaDoDzwieku
  655. if %auto = 1
  656. gosub przetapianie
  657. goto loop
  658. }
  659. return
  660. ;-------------------------------------------------
  661. sub zapis
  662. scanjournal 1
  663. if Zapisywanie_Stanu_Swiata. in #sysmsg || Zapisywanie_Stanu_Swiata. in #journal
  664. {
  665. set %time #SCNT + 14
  666. repeat
  667. until %time < #SCNT
  668. }
  669. return
  670. ;-------------------------------------------------
  671. sub WyborSkila
  672. if %skill = 1
  673. gosub umiejetnosc 13 1 %idcelu 1
  674. if %skill = 2
  675. gosub umiejetnosc 13 4 %przedmiot 1
  676. if %skill = 3
  677. gosub umiejetnosc 13 21 %przedmiot 0
  678. if %skill = 4
  679. gosub umiejetnosc 13 14 %przedmiot 0
  680. if %skill = 5
  681. gosub umiejetnosc 13 3 %przedmiot 1
  682. if %skill = 6
  683. gosub umiejetnosc 13 4 %przedmiot 1
  684. return
  685. ;-------------------------------------------------
  686. sub umiejetnosc
  687. gosub buttonanuluj
  688. gosub buttonstop
  689. event macro %1 %2
  690. if %4 = 1
  691. {
  692. set #ltargetkind 1
  693. finditem NPF c
  694. set #LTARGETID #FINDID
  695. set %czas #SCNT + 3
  696. repeat
  697. if %czas < #SCNT
  698. gosub WyborSkila
  699. until #targcurs = 1
  700. event macro 22
  701. }
  702. goto start
  703. return
  704. ;-------------------------------------------------
  705. sub przeliczrude
  706. if N/A in %JuczID
  707. gosub juczniak
  708. gosub wyzuc_rude
  709. finditem %PlecakJuczniaka ;C_ , %JuczID
  710. if #findkind = -1
  711. {
  712. otwjucz:
  713. ignoreitem #backpackid
  714. set %czas #SCNT + 3
  715. set #LOBJECTID %JuczID
  716. wait 1
  717. set #NEXTCPOSX 597
  718. set #NEXTCPOSY 394
  719. event macro 17
  720. repeat
  721. if %czas < #SCNT
  722. goto otwjucz
  723. finditem dwj_enk C
  724. until #findkind = 0 && #CONTPOSX = 597 && #CONTPOSY = 394
  725. }
  726. ;pause
  727. menu window size 220 485
  728. set %typRudy dwj
  729. set %petla 1
  730. ;set #lpc 40
  731. zmszk:
  732. ignoreitem reset
  733. ignoreitem #backpackid
  734. finditem %typRudy C_ , %PlecakJuczniaka
  735. set #lpc 1000
  736. for %i 1 #findcnt
  737. {
  738. finditem %typRudy C_ , %PlecakJuczniaka
  739. wait 2
  740. event Property #findID
  741. ;event sysmessage #property
  742. if $ in #Property && #findcnt = 0
  743. {
  744. goto ks
  745. }
  746. if #spc , zelazo in #Property
  747. {
  748. set %s1 %s1 + #findstack
  749. menu Set mtDoMtZelazo %s1
  750. }
  751. if #spc , srebro in #Property
  752. {
  753. set %s11 %s11 + #findstack
  754. menu Set mtDoMtSrebro %s11
  755. }
  756. if #spc , zloto in #Property
  757. {
  758. set %s12 %s12 + #findstack
  759. menu Set mtDoMtZloto %s12
  760. }
  761. if #spc , blackrock in #Property
  762. {
  763. set %s13 %s13 + #findstack
  764. menu Set mtDoMtBlackrosk %s13
  765. }
  766. if #spc , agapit in #Property
  767. {
  768. set %s14 %s14 + #findstack
  769. menu Set mtDoMtAgapit %s14
  770. }
  771. if #spc , valoryt in #Property
  772. {
  773. set %s15 %s15 + #findstack
  774. menu Set mtDoMtValoryt %s15
  775. }
  776. if #spc , veryt in #Property
  777. {
  778. set %s16 %s16 + #findstack
  779. menu Set mtDoMtVeryt %s16
  780. }
  781. if #spc , mytheril in #Property
  782. {
  783. set %s17 %s17 + #findstack
  784. menu Set mtDoMtMytheril %s17
  785. }
  786. if #spc , bloodrock in #Property
  787. {
  788. set %s18 %s18 + #findstack
  789. menu Set mtDoMtBloodrock %s18
  790. }
  791. if #spc , azuryt in #Property
  792. {
  793. set %s19 %s19 + #findstack
  794. menu Set mtDoMtAzuryt %s19
  795. }
  796. if #spc , royal in #Property
  797. {
  798. set %s20 %s20 + #findstack
  799. menu Set mtDoMtRoyal %s20
  800. }
  801. ignoreitem #findid
  802. }
  803. ks:
  804. if %petla = 1
  805. {
  806. set %typRudy enk
  807. set %petla 2
  808. goto zmszk
  809. }
  810. if %petla = 2
  811. set %petla 0
  812. set %suma ( %s1 + %s11 + %s12 + %s13 + %s14 + %s15 + %s16 + %s17 + %s18 + %s19 + %s20 ) ;%s1 + %s2 + %s3 + %s4 + %s5 + %s6 + %s7 + %s8 + %s9 + %s10 +
  813. menu set mtInfoSuma %suma
  814. ignoreitem reset
  815. set #lpc 10
  816. return
  817. ;-------------------------------------------------
  818. sub juczniak
  819. event macro 1 0 Podejdzcie
  820. if N/A notin %JuczID
  821. goto otplecjucz
  822. set #targcurs 1
  823. set #sysmsgcol 1281
  824. event sysmessage Wskaz juczniaka lub golema.
  825. repeat
  826. onhotkey ESC
  827. {
  828. set %pominlame 1 ; nie przezuca rudy do juczniaka
  829. set #targcurs 0
  830. return
  831. }
  832. until #targcurs = 0
  833. set %JuczID #ltargetid
  834. set *GOLEM %JuczID
  835. wait 2
  836. set %pk 1
  837. otplecjucz:
  838. set %czasJ #SCNT + 2
  839. set #LOBJECTID %JuczID
  840. set #NEXTCPOSX 597
  841. set #NEXTCPOSY 394
  842. wait 2
  843. event macro 17
  844. repeat
  845. if %czasJ < #SCNT
  846. goto otplecjucz
  847. until #CONTPOSX = 597 && #CONTPOSY = 394
  848. wait 5
  849. set %PlecakJuczniaka #CONTID
  850. return
  851. ;-------------------------------------------------
  852. sub przetapianie
  853. event macro 1 0 za mna
  854. repeat
  855. if #CHARPOSX <= 2565 && #CHARPOSX >= 2555 && #CHARPOSY >= 491 && #CHARPOSY <= 500
  856. move 2558 503 0 %sek ;3 - przed wejsciem do kopalni
  857. gosub czypauza
  858. if #CHARPOSX <= 2565 && #CHARPOSX >= 2558 && #CHARPOSY >= 483 && #CHARPOSY <= 490
  859. move 2558 497 0 %sek ;4
  860. gosub czypauza
  861. if #CHARPOSX <= 2581 && #CHARPOSX >= 2563 && #CHARPOSY >= 474 && #CHARPOSY <= 489
  862. move 2562 489 0 %sek ;5
  863. gosub czypauza
  864. if #CHARPOSX <= 2578 && #CHARPOSX >= 2571 && #CHARPOSY >= 465 && #CHARPOSY <= 473
  865. move 2569 481 0 %sek ;6
  866. gosub czypauza
  867. if #CHARPOSX <= 2570 && #CHARPOSX >= 2559 && #CHARPOSY >= 465 && #CHARPOSY <= 472
  868. {
  869. move 2566 467 0 %sek ;7
  870. move 2571 471 0 %sek ;7
  871. }
  872. gosub czypauza
  873. if #CHARPOSX <= 2573 && #CHARPOSX >= 2567 && #CHARPOSY >= 453 && #CHARPOSY <= 464
  874. {
  875. move 2568 462 0 %sek ;8
  876. move 2571 471 0 %sek ;8
  877. }
  878. gosub czypauza
  879. if #CHARPOSX <= 2576 && #CHARPOSX >= 2567 && #CHARPOSY >= 441 && #CHARPOSY <= 452
  880. move 2568 457 0 %sek ;9
  881. gosub czypauza
  882. if #CHARPOSX <= 2588 && #CHARPOSX >= 2577 && #CHARPOSY >= 441 && #CHARPOSY <= 458
  883. move 2575 448 0 %sek ;10
  884. gosub czypauza
  885. if #CHARPOSX <= 2559 && #CHARPOSX >= 2555 && #CHARPOSY >= 501 && #CHARPOSY <= 505
  886. move 2563 503 0 %sek ;piec
  887. gosub czypauza
  888. until #CHARPOSX = 2563 && #CHARPOSY = 503
  889.  
  890. event macro 1 0 Podejdzcie
  891. ;wait 10
  892. set #lpc 10
  893. repeat
  894. if N/A in %JuczID
  895. gosub juczniak
  896. finditem %JuczID G_1
  897. until #findkind = 1
  898. set %powtorz 0
  899.  
  900. finditem %PlecakJuczniaka C
  901. if #findkind = -1
  902. {
  903. set #LOBJECTID %JuczID
  904. set #NEXTCPOSX 597
  905. set #NEXTCPOSY 394
  906. wait 2
  907. event macro 17
  908. repeat
  909. finditem dwj_enk C
  910. until #findkind = 0 && #CONTPOSX = 597 && #CONTPOSY = 394
  911. }
  912. powszuk:
  913. wait 5
  914. ignoreitem reset
  915. innaruda:
  916. finditem dwj C
  917. wait 2
  918. event Property #findID
  919. wait 5
  920. if #findkind = -1 && $ in #Property
  921. {
  922. finditem enk G_1
  923. if #findkind = 1
  924. {
  925. for %i 1 #findcnt
  926. {
  927. finditem enk G_1
  928. wait 5
  929. exevent drag #findid #findstack
  930. wait 10
  931. exevent dropc %PlecakJuczniaka
  932. wait 5
  933. }
  934. }
  935. set %powtorz %powtorz + 1
  936. if %powtorz >= 4
  937. {
  938. set %powtorz 0
  939. if %auto = 1
  940. gosub magazyn
  941. return
  942. }
  943. if %powtorz <= 3
  944. goto powszuk
  945. }
  946. ;event sysmessage #property
  947. if royal in #property || #FINDCOL = 1209
  948. {
  949. ignoreitem reset
  950. ignoreitem #findid
  951. goto innaruda
  952. }
  953. set #LOBJECTID #FINDID
  954. event macro 17
  955. repeat
  956. until Przetopil in #sysmsg || Zniszczyl in #sysmsg
  957. ignoreitem #findid
  958. finditem %PlecakJuczniaka C ;_ , %JuczID
  959. if #findkind = -1
  960. {
  961. set #LOBJECTID %JuczID
  962. set #NEXTCPOSX 597
  963. set #NEXTCPOSY 394
  964. wait 2
  965. event macro 17
  966. repeat
  967. finditem dwj_enk C ;_ , %JuczID
  968. until #findkind = 0 && #CONTPOSX = 597 && #CONTPOSY = 394
  969. }
  970. goto innaruda
  971. return
  972. ;==================== suby buttonow ====================
  973. sub buttonpauze
  974. if #menubutton = mbpauza
  975. {
  976. set #menubutton n/a
  977. menu delete mbpauza
  978. menu font color green
  979. menu font size
  980. menu font style b
  981. menu button mbwznowstart 10 240 60 24 Wznow
  982. menu font color black
  983. menu button mbinfo 10 140 80 24 Info jucz.
  984. gosub wyzuc_rude
  985. repeat
  986. wait 1
  987. if #menubutton = mbanuluj || #menubutton = mbstop
  988. {
  989. gosub wyzuc_rude
  990. goto loop
  991. }
  992. if #menubutton = mbinfo
  993. {
  994. set #menubutton n/a
  995. ;for %i 270 460
  996. ;menu window size 220 460
  997. gosub przeliczrude
  998. }
  999. if #menubutton = mbuinfo
  1000. {
  1001. set #menubutton n/a
  1002. ;for %i 460 270
  1003. menu window size 220 295
  1004. gosub zerowanie mtDoMtZelazo ;mtDoMtBraz mtDoMtKalcyt mtDoMtMiedz mtDoMtPiryt mtDoMtMalachit mtDoMtRusty mtDoMtRose mtDoMtStara mtDoMtShadow mtDoMtSrebro mtDoMtZloto mtDoMtBlackrosk mtDoMtAgapit mtDoMtValoryt mtDoMtVeryt mtDoMtMytheril mtDoMtBloodrock mtDoMtAzuryt mtDoMtRoyal mtInfoSuma
  1005. }
  1006. until #menubutton = mbwznowstart || *START = 1
  1007. wait 2
  1008. set #menubutton n/a
  1009. set *START 0
  1010. menu delete mbwznowstart
  1011. menu delete mbinfo
  1012. menu font color blue
  1013. menu font style b
  1014. menu button mbpauza 10 240 60 24 Pauza
  1015. ;gosub wyzuc_rude
  1016. }
  1017. return
  1018. ;-------------------------------------------------
  1019. sub buttonstop
  1020. if #menubutton = mbstop
  1021. {
  1022. set #menubutton n/a
  1023. menu delete mbpauza
  1024. menu font color green
  1025. menu font style b
  1026. menu button mbstart 10 240 60 24 Start
  1027. menu font color black
  1028. menu button mbinfo 10 140 80 24 Info jucz.
  1029. gosub wyzuc_rude
  1030. repeat
  1031. wait 1
  1032. if #menubutton = mbinfo
  1033. {
  1034. set #menubutton n/a
  1035. gosub przeliczrude
  1036. }
  1037. if #menubutton = mbuinfo
  1038. {
  1039. set #menubutton n/a
  1040. menu window size 220 270
  1041. gosub zerowanie mtDoMtZelazo ;mtDoMtBraz mtDoMtKalcyt mtDoMtMiedz mtDoMtPiryt mtDoMtMalachit mtDoMtRusty mtDoMtRose mtDoMtStara mtDoMtShadow mtDoMtSrebro mtDoMtZloto mtDoMtBlackrosk mtDoMtAgapit mtDoMtValoryt mtDoMtVeryt mtDoMtMytheril mtDoMtBloodrock mtDoMtAzuryt mtDoMtRoyal mtInfoSuma
  1042. }
  1043. until #menubutton = mbstart || #menubutton = mbanuluj || #menubutton = mbpiec
  1044. ;menu set mekopanie %nrmok
  1045. goto loop
  1046. }
  1047. return
  1048. ;-------------------------------------------------
  1049. sub buttonanuluj
  1050. if #menubutton = mbanuluj
  1051. {
  1052. goto loop
  1053. }
  1054. return
  1055. ;-------------------------------------------------
  1056. sub ucieczka
  1057. set #menubutton n/a
  1058. set #sysmsgcol 1080
  1059. event sysmessage Oddaliles sie od miejs w ktorym kopales. Makro wstrzymane.
  1060. event sysmessage Jesli chcesz kopac w innym miejscu wcisnij STOP.
  1061. menu delete mbpauza
  1062. menu font style b
  1063. menu button mbwznow 10 240 60 24 Wznow
  1064. repeat
  1065. if #menubutton = mbanuluj || #menubutton = mbstop
  1066. goto loop
  1067. until #menubutton = mbwznow
  1068. set #menubutton n/a
  1069. menu delete mbwznow
  1070. menu font style b
  1071. menu button mbstop 75 240 60 24 Stop
  1072. menu button mbpauza 10 240 60 24 Pauza
  1073. move %x %y 0 %sek
  1074. goto start
  1075. return
  1076. ;-------------------------------------------------
  1077. sub koniec
  1078. set #menubutton n/a
  1079. menu delete mbpauza
  1080. menu button mbinfo 10 140 80 24 Info jucz.
  1081. menu font style b
  1082. menu button mbstart 10 240 60 24 Start
  1083. ;set %nrmok 1
  1084. ;menu set mekopanie %nrmok
  1085. goto loop
  1086. return
  1087. ;-------------------------------------------------
  1088. sub zerowanie
  1089. for %i 1 %0
  1090. menu Set % . %i
  1091. for %i 1 20
  1092. set %s . %i
  1093. return
  1094. ;----------------------------------------------------------
  1095. sub miejsce
  1096. tile Init
  1097. if floor in %Rodzaj
  1098. set %Rodzaj cave_ , %Rodzaj
  1099. set %x_poczatek #charposx - %Max_odleglosc
  1100. set %y_poczatek #charposy - %Max_odleglosc
  1101. set %x_koniec #charposx + %Max_odleglosc
  1102. set %y_koniec #charposy + %Max_odleglosc
  1103. for %x %x_poczatek %x_koniec
  1104. {
  1105. for %y %y_poczatek %y_koniec
  1106. {
  1107. tile Cnt %x %y
  1108. for %i 1 #tilecnt
  1109. {
  1110. tile Get %x %y %i
  1111. if #tilename in %Rodzaj && Background in #tileflags ;Impassable
  1112. {
  1113. set #lpc 10
  1114. ;event macro 1 0 za mna
  1115. wait 5
  1116. gosub Podejdz
  1117. event macro 1 0 Podejdzcie
  1118. set #LTARGETX %x
  1119. set #LTARGETY %y
  1120. goto znajdzkilof
  1121. ;gosub Scinaj_drzewo
  1122. nextTile:
  1123. else
  1124. {
  1125. set #sysmsgcol 1080
  1126. event sysmessage Nie udalo mi sie dostac do drzewa.
  1127. set #sysmsgcol 1152
  1128. event sysmessage Szukam dalej.
  1129. }
  1130. set #lpc 200
  1131. break
  1132. }
  1133. }
  1134. }
  1135. }
  1136. gosub koniec
  1137. return
  1138. ;-------------------------------------------------
  1139. sub Podejdz
  1140. set #sysmsgcol 1152
  1141. event sysmessage Ide do: x: %x y: %y
  1142. move %x %y 0 5s
  1143. set %Timer #scnt2 + 7
  1144. repeat
  1145. if %Timer < #scnt2
  1146. return
  1147. until #CHARPOSX = %x && #CHARPOSY = %y
  1148. return
  1149. ;-------------------------------------------------
  1150. sub magazyn
  1151. event macro 1 0 za mna
  1152. gosub czypauza
  1153. move 2566 512 0 %sek
  1154. gosub czypauza
  1155. move 2574 520 0 %sek
  1156. gosub czypauza
  1157. move 2580 528 0 %sek
  1158. gosub czypauza
  1159. move 2586 528 0 %sek
  1160. gosub czypauza
  1161. move 2577 533 0 %sek
  1162. event macro 1 0 Podejdzcie
  1163. gosub domagazynu
  1164. return
  1165. ;------------------------------------------------
  1166. sub kopalnia
  1167. event macro 1 0 za mna
  1168. gosub czypauza
  1169. move 2585 532 0 %sek
  1170. gosub czypauza
  1171. move 2579 525 0 %sek
  1172. gosub czypauza
  1173. move 2572 519 0 %sek
  1174. gosub czypauza
  1175. move 2566 513 0 %sek
  1176. gosub czypauza
  1177. move 2560 505 0 %sek
  1178. gosub czypauza
  1179. move 2557 499 0 %sek
  1180. gosub czypauza
  1181. move 2564 488 0 %sek
  1182. gosub czypauza
  1183. move 2569 479 0 %sek
  1184. gosub czypauza
  1185. move 2572 469 0 %sek
  1186. gosub czypauza
  1187. move 2569 467 0 %sek
  1188. gosub czypauza
  1189. move 2569 454 0 %sek
  1190. gosub czypauza
  1191. move 2578 446 0 %sek
  1192. gosub czypauza
  1193. move 2583 448 0 %sek
  1194. return
  1195. ;--------------------------------------------------
  1196. sub domagazynu
  1197. gosub juczniak
  1198. szmag:
  1199.  
  1200. event macro 1 0 Magazynier podaj moja skrzynie
  1201. ;set #NEXTCPOSX 410
  1202. ;set #NEXTCPOSY 380
  1203. repeat
  1204. until #CONTSIZE = 180_240
  1205. set %SkrzyniaMagazyn #CONTID
  1206. contpos 410 380
  1207. wait 5
  1208. if N/A in %JuczID
  1209. gosub juczniak
  1210. gosub wyzuc_rude
  1211. finditem %PlecakJuczniaka ;C_ , %JuczID
  1212. if #findkind = -1
  1213. {
  1214. otwjucz:
  1215. ignoreitem #backpackid
  1216. set %czas #SCNT + 3
  1217. set #LOBJECTID %JuczID
  1218. wait 1
  1219. set #NEXTCPOSX 407
  1220. set #NEXTCPOSY 434
  1221. event macro 17
  1222. repeat
  1223. if %czas < #SCNT
  1224. goto otwjucz
  1225. finditem dwj_enk C
  1226. until #findkind = 0 && #CONTPOSX = 407 && #CONTPOSY = 434
  1227. }
  1228. set %typRudy dwj_enk
  1229. set %petla 1
  1230. set #lpc 1000
  1231. zmszk:
  1232. ignoreitem reset
  1233. ignoreitem #backpackid
  1234. finditem %typRudy C_ , %PlecakJuczniaka
  1235.  
  1236. for %i 1 #findcnt
  1237. {
  1238. finditem %typRudy C_ , %PlecakJuczniaka
  1239. wait 2
  1240. event Property #findID
  1241. ;event sysmessage #property
  1242. if $ in #Property && #findcnt = 0
  1243. return
  1244. if #spc , zelazo in #Property
  1245. gosub siup
  1246. if #spc , srebro in #Property
  1247. gosub siup
  1248. if #spc , zloto in #Property
  1249. gosub siup
  1250. if #spc , blackrock in #Property
  1251. gosub siup
  1252. if #spc , agapit in #Property
  1253. gosub siup
  1254. if #spc , valoryt in #Property
  1255. gosub siup
  1256. if #spc , veryt in #Property
  1257. gosub siup
  1258. if #spc , mytheril in #Property
  1259. gosub siup
  1260. if #spc , bloodrock in #Property
  1261. gosub siup
  1262. if #spc , azuryt in #Property
  1263. gosub siup
  1264. if #spc , royal in #Property
  1265. gosub siup
  1266. if #spc , grafit in #Property
  1267. gosub siup
  1268. ignoreitem #findid
  1269. }
  1270. ignoreitem reset
  1271. set #lpc 10
  1272. if %auto = 1
  1273. click 711 443 r
  1274. gosub kopalnia
  1275. return
  1276. ;--------------------------------------------------------
  1277. sub siup
  1278. set #lpc 10
  1279. exevent drag #findid #findstack
  1280. wait 5
  1281. exevent dropc %SkrzyniaMagazyn
  1282. wait 5
  1283. set #lpc 1000
  1284. return
  1285. ;--------------------------------------------------------
  1286. sub czypauza
  1287. if #menubutton = mbstop
  1288. {
  1289. set #menubutton n/a
  1290. event sysmessage Makro zatrzymane.
  1291. event sysmessage Wcisnij Start aby wznowić.
  1292. repeat
  1293. if #menubutton = mbanuluj
  1294. goto loop
  1295. until #menubutton = mbstart
  1296. wait 2
  1297. set #menubutton n/a
  1298. }
  1299. return
  1300. ;--------------------------------------------------------
  1301. sub policzsztaby
  1302. if n/a in %SkrzyniaMagazyn
  1303. {
  1304. event macro 1 0 Magazynierze podaj moja skrzynie
  1305. repeat
  1306. until #CONTSIZE = 180_240
  1307. set %SkrzyniaMagazyn #CONTID
  1308. contpos 410 380
  1309. }
  1310. set %sztabyrazem 0
  1311. ignoreitem reset
  1312. ignoreitem #backpackid
  1313. finditem dwj_enk C_ , %SkrzyniaMagazyn
  1314. event sysmessage W magazynie masz:
  1315. for %i 1 #findcnt
  1316. {
  1317. finditem dwj_enk C_ , %SkrzyniaMagazyn
  1318. wait 2
  1319. event Property #findID
  1320. ;event sysmessage #property
  1321. if $ in #Property && #findcnt = 0
  1322. return
  1323. if #spc , zelazo in #Property
  1324. event sysmessage zelazo , : #findstack
  1325. if #spc , srebro in #Property
  1326. event sysmessage srebro , : #findstack
  1327. if #spc , zloto in #Property
  1328. event sysmessage zloto , : #findstack
  1329. if #spc , blackrock in #Property
  1330. event sysmessage blackrock , : #findstack
  1331. if #spc , agapit in #Property
  1332. event sysmessage agapit , : #findstack
  1333. if #spc , valoryt in #Property
  1334. event sysmessage valoryt , : #findstack
  1335. if #spc , veryt in #Property
  1336. event sysmessage veryt , : #findstack
  1337. if #spc , mytheril in #Property
  1338. event sysmessage mytheril , : #findstack
  1339. if #spc , bloodrock in #Property
  1340. event sysmessage bloodrock , : #findstack
  1341. if #spc , azuryt in #Property
  1342. event sysmessage azuryt , : #findstack
  1343. if #spc , royal in #Property
  1344. event sysmessage royal , : #findstack
  1345. set %sztabyrazem %sztabyrazem + #findstack
  1346. ignoreitem #findid
  1347. }
  1348. event sysmessage Ilosc rudy w magazynie to: %sztabyrazem
  1349. ignoreitem reset
  1350. return
  1351. ;---------------------------------------------------------
  1352. sub butle
  1353. finditem YUF C_ , #backpackid ;niebieska butla
  1354. if #findkind = 0 && %chdex > #DEX
  1355. {
  1356. set %nibieska #findid
  1357. set %czas #scnt2 + 75
  1358. ;finditem dwj_enk C_ , #backpackid
  1359. ;if #findkind = 0
  1360. ;set %jestruda 1
  1361. set *STOP 1
  1362. repeat
  1363. finditem dwj_enk C_ , #backpackid
  1364. if %czas < #scnt2
  1365. set #findkind 0
  1366. until #findkind = 0 ;|| ;%jestruda = 1
  1367. ;set %jestruda 0
  1368. set #LOBJECTID %nibieska
  1369. event macro 17
  1370. set *STOP 0
  1371. return
  1372. }
  1373. finditem XUF C_ , #backpackid ;biala butla
  1374. if #findkind = 0 && %chstr > #STR
  1375. {
  1376. set %biala #findid
  1377. set %czas #scnt2 + 75
  1378. ;finditem dwj_enk C_ , #backpackid
  1379. ;if #findkind = 0
  1380. ;set %jestruda 1
  1381. set *STOP 1
  1382. repeat
  1383. finditem dwj_enk C_ , #backpackid
  1384. ;if %czas < #scnt2
  1385. ;set #findkind 0
  1386. if #findkind = -1 && %czas < #scnt2
  1387. goto wysk
  1388. until #findkind = 0 ;|| ;%jestruda = 1
  1389. wysk:
  1390. set #LOBJECTID %biala
  1391. event macro 17
  1392. set *STOP 0
  1393. return
  1394. }
  1395. return
  1396. ;-------------------------------------------------------------
  1397. sub miejsce_stojace
  1398. set #lpc 100
  1399. if %kop = 1
  1400. {
  1401. set #ltargetx #charposx
  1402. set #ltargety #charposy
  1403. }
  1404. if %kop = 2
  1405. {
  1406. set #ltargetx #charposx
  1407. set #ltargety #charposy + 1
  1408. }
  1409. if %kop = 3
  1410. {
  1411. set #ltargetx #charposx - 1
  1412. set #ltargety #charposy
  1413. }
  1414. if %kop = 4
  1415. {
  1416. set #ltargetx #charposx
  1417. set #ltargety #charposy - 1
  1418. }
  1419. if %kop = 5
  1420. {
  1421. set #ltargetx #charposx + 1
  1422. set #ltargety #charposy
  1423. }
  1424. if %kop = 6
  1425. {
  1426. set #ltargetx #charposx + 1
  1427. set #ltargety #charposy + 1
  1428. }
  1429. if %kop = 7
  1430. {
  1431. set #ltargetx #charposx
  1432. set #ltargety #charposy + 2
  1433. }
  1434. if %kop = 8
  1435. {
  1436. set #ltargetx #charposx - 1
  1437. set #ltargety #charposy + 1
  1438. }
  1439. if %kop = 9
  1440. {
  1441. set #ltargetx #charposx - 2
  1442. set #ltargety #charposy
  1443. }
  1444. if %kop = 10
  1445. {
  1446. set #ltargetx #charposx - 1
  1447. set #ltargety #charposy - 1
  1448. }
  1449. if %kop = 11
  1450. {
  1451. set #ltargetx #charposx
  1452. set #ltargety #charposy - 2
  1453. }
  1454. if %kop = 12
  1455. {
  1456. set #ltargetx #charposx + 1
  1457. set #ltargety #charposy - 1
  1458. }
  1459. if %kop = 13
  1460. {
  1461. set #ltargetx #charposx + 2
  1462. set #ltargety #charposy
  1463. }
  1464. if %kop = 14
  1465. {
  1466. set #ltargetx #charposx + 2
  1467. set #ltargety #charposy + 1
  1468. }
  1469. if %kop = 15
  1470. {
  1471. set #ltargetx #charposx + 2
  1472. set #ltargety #charposy + 2
  1473. }
  1474. if %kop = 16
  1475. {
  1476. set #ltargetx #charposx + 1
  1477. set #ltargety #charposy + 2
  1478. }
  1479. if %kop = 17
  1480. {
  1481. set #ltargetx #charposx - 1
  1482. set #ltargety #charposy + 2
  1483. }
  1484. if %kop = 18
  1485. {
  1486. set #ltargetx #charposx - 2
  1487. set #ltargety #charposy + 2
  1488. }
  1489. if %kop = 19
  1490. {
  1491. set #ltargetx #charposx - 2
  1492. set #ltargety #charposy + 1
  1493. }
  1494. if %kop = 20
  1495. {
  1496. set #ltargetx #charposx - 2
  1497. set #ltargety #charposy - 1
  1498. }
  1499. if %kop = 21
  1500. {
  1501. set #ltargetx #charposx - 2
  1502. set #ltargety #charposy - 2
  1503. }
  1504. if %kop = 22
  1505. {
  1506. set #ltargetx #charposx - 1
  1507. set #ltargety #charposy - 2
  1508. }
  1509. if %kop = 23
  1510. {
  1511. set #ltargetx #charposx + 1
  1512. set #ltargety #charposy - 2
  1513. }
  1514. if %kop = 24
  1515. {
  1516. set #ltargetx #charposx + 2
  1517. set #ltargety #charposy - 2
  1518. }
  1519. if %kop = 25
  1520. {
  1521. set #ltargetx #charposx + 2
  1522. set #ltargety #charposy - 1
  1523. }
  1524. set #lpc 10
  1525. return
Add Comment
Please, Sign In to add comment
Public Pastes
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!