API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 28th, 2017
62
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 50.93 KB | None | 0 0
raw download clone embed print report
  1. ; Makro: zbieranie ziółek w Lakeshire
  2. ; Autor: Fris / korekta Princeps
  3. ;======================================
  4. ;UWAGA!! Tu wpisz id plecakow !!
  5. set %ID_Plecaka_Na_Ziola BOGRLMD
  6. set %ID_Plecaka_Na_Szczepki BOGRLMD
  7. set %ID_Plecaka_Na_Krzaczki BOGRLMD
  8. ;set %wierzchowiec
  9. set %MountType IS_HS_XU_AV_FH_
  10. set %TimeToWait 720 ;czas po jaki postac sie zaloguje
  11. set %SilaZeStatystyk 76
  12. set %ZostawWilcze 1
  13. set %BiegajWKolko 0 ;1-tak 0-nie
  14. set %TypKrzakowDoSprzedania ; tu wpisac typy krzaczkow ktore maja byc brane z banku do sprzedania
  15. set %DoSprzedanie ; szuka w plecaku postaci do sprzedania jesli wybrane lake
  16. set %SkrzyniaID SKEPLMD
  17. ;======================================
  18. set %Szczepki CBF_TIJ_KBF_CJJ_UIJ_XWS ;XWS - trufle
  19. set %TypyKrzaczkow VIJ_LIJ_HJJ_ZIJ_PZF ;PZF - grzybki
  20. set %debug 0 ;tego nie zmieniac
  21. set %Click_Przerwij_X 187
  22. set %Click_Przerwij_Y 165
  23. set %sila %SilaZeStatystyk
  24. set %WcisnietoStart 0
  25. set *WAIT 1
  26. set *STOP 0
  27. set #lpc 2000
  28. menu hideEUO
  29. menu clear
  30. menu window color btnface
  31. menu window size 210 140
  32. menu window title Zielarz Auto 3.5.5
  33. ;=================== Rodzaj setu =====================
  34. menu font size 8
  35. menu text mtmiasto 10 1 Gdzie zbierac.
  36. menu font size 10
  37. menu font bgcolor white
  38. menu combo create mcMiasto 10 20 195
  39. menu combo add mcMiasto Serpent's
  40. menu combo add mcMiasto Mistas / Lake
  41. menu combo add mcMiasto Princeps - Lake
  42. menu combo add mcMiasto Wilcze Mistas Vesper Cove
  43. menu combo select mcMiasto 3
  44. menu font bgcolor btnface
  45. menu font size 8
  46. ;------------------ Wywalaj szczepki -----------
  47. menu check mcWywalSzczepki 15 50 150 20 #false Wyrzucac Szczepki ?
  48. ;-----------------------------------------------
  49. menu font bgcolor btnface
  50. menu font size 9
  51. ;=================== przyciski =================
  52. menu font color black
  53. menu font style b
  54. menu font bgcolor btnface
  55. menu button mbprzezucaj 110 75 90 24 Przerzucaj
  56. menu button mbobcinaj 10 75 90 24 Obcinaj
  57. menu button mbstart 10 105 60 24 Start
  58. menu button mbstop 140 105 60 24 Stop
  59. menu button mbsprzedaj 75 105 60 24 Sprzedaj
  60. menu font size 9
  61. menu show
  62. ;===============================================
  63. set #lpc 10
  64. set #menubutton N/A
  65. repeat
  66. if #menubutton = mbstop
  67. {
  68. set #menubutton N/A
  69. event macro 32 0
  70. wait 5
  71. scanjournal 1
  72. if Always_Run_is_now_on in #journal
  73. event macro 32 0
  74. event sysmessage Bieganie wylaczone.
  75. goto loop
  76. }
  77. if #menubutton = mbstart
  78. {
  79. gosub GetMountID
  80. set #menubutton N/A
  81. menu delete mbstart
  82. set %Rodzaj_rosliny TIJ_KBF
  83. ;NIJ - mandragora, TIJ FJJ KBT
  84. menu get mcWywalSzczepki
  85. set %WywalanieSzczepek #menures
  86. menu get mcMiasto
  87. set %Miasto #menures
  88. gosub ZawszeBieg
  89. repeat
  90. gosub DrogaDoKrzakow
  91. until #false
  92. }
  93. if #menubutton = mbobcinaj
  94. {
  95. set #menubutton N/A
  96. gosub Obcinaj
  97. }
  98. if #menubutton = mbprzezucaj
  99. {
  100. set #menubutton N/A
  101. gosub Przezucaj
  102. }
  103. if #menubutton = mbsprzedaj
  104. {
  105. set #menubutton N/A
  106. gosub Sprzedaj
  107. }
  108. if #menubutton = CLOSED ;wcisnieto przycisk X
  109. {
  110. menu hide
  111. set #menubutton N/A
  112. halt
  113. }
  114. until #false
  115. ;-------------------------------------------------
  116. sub SkanujTeren
  117. event sysmessage Szukam krzaczkow.
  118. set %Promien %1
  119. finditem %Rodzaj_rosliny G_ , %Promien
  120. set #lpc 2000
  121. for #findindex 1 #findcnt
  122. {
  123. set %_x . #findindex #findx ;tworzenie tablicy
  124. set %_y . #findindex #findy ;tworzenie tablicy
  125. set %_z . #findindex #findz ;tworzenie tablicy
  126. set %krzak_id_ . #findindex #findid
  127. ignoreitem #findid
  128. }
  129. set #lpc 10
  130. set %IloscKrzaczkow #findcnt
  131. event sysmessage Znaleziono #findcnt krzaczkow.
  132. gosub MainLoop
  133. return
  134. ;-------------------------------------------------
  135. sub MainLoop
  136. for %j 1 %IloscKrzaczkow
  137. {
  138. gosub Podejdz_do_rosliny %_x . %j %_y . %j %_z . %j
  139. gosub Zrywaj_rosliny %krzak_id_ . %j
  140. if #RESULT = WcisnietoStop
  141. return
  142. ignoreitem %krzak_id_ . %j
  143. gosub WywalSzczepki
  144. }
  145. event sysmessage KONIEC. Wszystkie krzaki oberwane.
  146. ignoreitem reset
  147. return
  148. ;--------------------------------------------------
  149. sub Podejdz_do_rosliny
  150. set %krzaczek_x %1
  151. set %krzaczek_y %2
  152. set %krzaczek_z %3
  153. move %krzaczek_x %krzaczek_y 0 5s
  154. if #CHARPOSX <> %krzaczek_x && #CHARPOSY <> %krzaczek_y
  155. {
  156. set %czas #scnt + 6
  157. event pathfind %krzaczek_x %krzaczek_y %krzaczek_z
  158. repeat
  159. if %czas < #scnt
  160. {
  161. set %czas #scnt + 6
  162. event pathfind %krzaczek_x %krzaczek_y %krzaczek_z
  163. }
  164. scanjournal 1
  165. if Can't_get_there in #journal || stoisz_za_daleko in #journal || _That_is_too in #journal
  166. {
  167. move %krzaczek_x %krzaczek_y 0 5s
  168. return
  169. }
  170. until #CHARPOSX = %krzaczek_x && #CHARPOSY = %krzaczek_y
  171. }
  172. return
  173. ;--------------------------------------------------
  174. sub Zrywaj_rosliny
  175. set %krzak_id %1
  176. set %WyskoczZPetli 0
  177. set #LTARGETKIND 2
  178. set #LOBJECTID %krzak_id
  179. event macro 17
  180. set %czas #scnt + 9
  181. wait 1s
  182. scanjournal 1
  183. if _I_can't_see_that. in #journal || _That_is_too in #journal
  184. {
  185. ignoreitem %krzak_id
  186. return
  187. }
  188. repeat
  189. scanjournal 1
  190. if %czas < #scnt
  191. {
  192. set #LTARGETKIND 2
  193. set #LOBJECTID %krzak_id
  194. event macro 17
  195. set %czas #scnt + 9
  196. wait 1s
  197. }
  198. if Z_tej_rosliny in #journal || stoisz_za_daleko in #journal || Nie_mozesz_tego in #journal
  199. {
  200. return
  201. }
  202. if zaszkodzilo in #journal || Juz_cos_robisz in #journal
  203. {
  204. set %TimeToWait %TimeToWait + 60
  205. event sysmessage Czas logoutu zwiekszony
  206. }
  207. set %jindex #jindex
  208. until Zaczynasz in #journal
  209.  
  210. set #lpc 2000
  211. repeat
  212. set %ji #jindex - %jindex
  213. for %i 1 %ji
  214. {
  215. if #menubutton = mbstop
  216. {
  217. click %Click_Przerwij_X %Click_Przerwij_Y
  218. gosub Rysuj_przycisk_start
  219. return WcisnietoStop
  220. }
  221. if *STOP = 1
  222. {
  223. click %Click_Przerwij_X %Click_Przerwij_Y
  224. wait 7s
  225. set *WAIT 0
  226. repeat
  227. until *STOP = 0
  228. set %jindex #jindex
  229. set #LTARGETKIND 2
  230. set #LOBJECTID %krzak_id
  231. event macro 17
  232. break
  233. }
  234. scanjournal %i
  235. if zaszkodzilo in #journal || Juz_cos_robisz in #journal
  236. {
  237. set %TimeToWait %TimeToWait + 60
  238. event sysmessage Czas logoutu zwiekszony
  239. wait 3s
  240. set %jindex #jindex
  241. set #LTARGETKIND 2
  242. set #LOBJECTID %krzak_id
  243. event macro 17
  244. break
  245. }
  246. if Z_tej_rosliny in #journal || _I_can't_see_that. in #journal || _That_is_too in #journal || Nie_mozesz_tego in #journal
  247. {
  248. set %WyskoczZPetli 1
  249. }
  250. }
  251. if %WyskoczZPetli = 1
  252. {
  253. set %WyskoczZPetli 0
  254. break
  255. }
  256. until #false
  257. set #lpc 100
  258. ignoreitem %krzak_id
  259. return
  260. ;--------------------------------------------------
  261. sub Obcinaj
  262. gosub Norzyczki
  263. if #RESULT = NorzyczekBrak
  264. return
  265. finditem %TypyKrzaczkow C_ , %ID_Plecaka_Na_Ziola
  266. if #findkind = -1
  267. {
  268. finditem %TypyKrzaczkow C_ , #backpackid
  269. if #findkind = -1
  270. {
  271. return
  272. }
  273. }
  274. set %WyjdzZPetli 0
  275. for #findindex 1 #findcnt
  276. {
  277. set #lobjectid #findid
  278. event macro 17
  279. set %TimeObcinania #scnt2 + 20
  280. repeat
  281. if %TimeObcinania < #scnt2
  282. {
  283. set #lobjectid #findid
  284. event macro 17
  285. set %TimeObcinania #scnt2 + 20
  286. }
  287. if Obcial in #sysmsg
  288. break
  289. scanjournal 1
  290. if Nie_wiesz_co in #journal
  291. return
  292. until Rozpocz in #sysmsg
  293. repeat
  294. wait 2s
  295. gosub SprawdzGumpa
  296. until %WyjdzZPetli = 1
  297. set %WyjdzZPetli 0
  298. }
  299. return
  300. ;--------------------------------------------
  301. sub SprawdzGumpa
  302. set #lpc 2000
  303. set %dziennik #SYSMSG
  304. ;event sysmessage dziennik %dziennik
  305. str Pos %dziennik )
  306. set %Pozycja_nawiasu #StrRes
  307. set %end %Pozycja_nawiasu - 2
  308. str Mid %dziennik 2 %end
  309. set %Tyle_z_Tylu #StrRes
  310. str Pos %Tyle_z_Tylu z
  311. set %z_end #StrRes - 2
  312. str Mid %Tyle_z_Tylu 1 %z_end
  313. set %Pierwsza_wartosc #StrRes
  314. ;event sysmessage Pierwsza_wartosc %Pierwsza_wartosc
  315. str Pos %Tyle_z_Tylu _
  316. set %__start #StrRes + 3
  317. str Len %Tyle_z_Tylu
  318. set %Dlugosc #StrRes
  319. str Mid %Tyle_z_Tylu %__start %Dlugosc
  320. set %Druga_wartosc #StrRes
  321. ;event sysmessage Wartosci: %Pierwsza_wartosc z %Druga_wartosc
  322. if %Pierwsza_wartosc > %Druga_wartosc
  323. {
  324. click %Click_Przerwij_X %Click_Przerwij_Y
  325. set %WyjdzZPetli 1
  326. wait 6s
  327. set #lpc 10
  328. return
  329. }
  330. if %Pierwsza_wartosc = %Druga_wartosc
  331. {
  332. scanjournal 1
  333. if #JCOLOR = 40
  334. {
  335. click %Click_Przerwij_X %Click_Przerwij_Y
  336. wait 6s
  337. }
  338. set %WyjdzZPetli 1
  339. }
  340. else
  341. {
  342. set #lpc 10
  343. return
  344. }
  345. set #lpc 10
  346. return
  347. ;---------------------------------------------
  348. sub Przezucaj
  349. ;pause
  350. if %Miasto = 3
  351. {
  352. repeat
  353. ignoreitem #findid
  354. finditem IS_HS G_10 ;szuka wszystkiego
  355. wait 2
  356. event Property #findid
  357. until Magazynier in #property
  358. ignoreitem reset
  359. move #findx #findy 2 15s
  360. }
  361. if 180_240 notin #CONTSIZE
  362. {
  363. event macro 1 0 Magazynierze
  364. set %timer #scnt + 10
  365. repeat
  366. if %timer < #scnt
  367. return
  368. until 180_240 in #CONTSIZE
  369. }
  370. set #lobjectid %ID_Plecaka_Na_Ziola
  371. event macro 17
  372. set %time #scnt + 2
  373. repeat
  374. if %time < #scnt
  375. goto otworz_Plecak_ziola
  376. until #CONTID = %ID_Plecaka_Na_Ziola
  377. ;przezucanie ziol
  378. finditem KZF_JUF_JZF_MZF_PZF_WZF_XWS_GJJ_CBF C_ , #backpackid
  379. for #findindex 1 #findcnt
  380. {
  381. if KZF in #findtype || JUF in #findtype || JZF in #findtype || MZF in #findtype || PZF in #findtype || WZF in #findtype || XWS in #findtype || GJJ in #findtype || CBF in #findtype
  382. {
  383. exevent drag #findid #findstack
  384. wait 5
  385. exevent dropc %ID_Plecaka_Na_Ziola
  386. wait 5
  387. scanjournal 1
  388. if _too_heavy in #journal
  389. {
  390. gosub Sprzedaj
  391. return
  392. }
  393. }
  394. }
  395. set %timeBrakPlecaka #scnt2 + 50
  396. set #lobjectid %ID_Plecaka_Na_Szczepki
  397. event macro 17
  398. set %time #scnt2 + 20
  399. repeat
  400. if %time < #scnt2
  401. {
  402. set #lobjectid %ID_Plecaka_Na_Szczepki
  403. event macro 17
  404. set %time #scnt2 + 20
  405. }
  406. if %timeBrakPlecaka < #scnt2
  407. {
  408. event sysmessage Nie ma plecaka na szczepki.
  409. return Koniec
  410. }
  411. until #CONTID = %ID_Plecaka_Na_Szczepki
  412. ;przezucanie szczepek
  413. finditem %TypyKrzaczkow C_ , #backpackid
  414. for #findindex 1 #findcnt
  415. {
  416. if VIJ in #findtype || LIJ in #findtype || HJJ in #findtype || ZIJ in #findtype || PZF in #findtype
  417. {
  418. exevent drag #findid #findstack
  419. wait 5
  420. exevent dropc %ID_Plecaka_Na_Krzaczki
  421. wait 5
  422. }
  423. }
  424. if #menubutton = mbstop
  425. {
  426. set #menubutton N/A
  427. event sysmessage Przezucanie przerwane.
  428. return Koniec
  429. }
  430. event sysmessage Przedmioty przezucone.
  431. return
  432. ;---------------------------------------------
  433. sub WywalSzczepki
  434. if %WywalanieSzczepek = #false
  435. return
  436. ;event sysmessage Wyrzucam szczepki.
  437. finditem %Szczepki C_ , #backpackid
  438. for #findindex 1 #findcnt
  439. {
  440. if CBF in #findtype || GJJ in #findtype || OIJ in #findtype || CJJ in #findtype || UIJ in #findtype || XWS in #findtype
  441. {
  442. exevent drag #findid #findstack
  443. wait 5
  444. exevent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
  445. wait 5
  446. }
  447. }
  448. return
  449. ;-----------------------------------------------
  450. sub Rysuj_przycisk_start
  451. set #menubutton N/A
  452. menu font color green
  453. menu font style b
  454. menu font bgcolor btnface
  455. menu button mbstart 10 190 60 24 Start
  456. return
  457. ;-----------------------------------------------
  458. sub Bless
  459. if WFBC in #CHARID
  460. return
  461. finditem KZF C
  462. if #findkind = -1
  463. {
  464. event macro 2 0 rozglada sie ;klika w logout
  465. wait 1s
  466. }
  467. finditem MZF C
  468. if #findkind = -1
  469. {
  470. event macro 2 0 rozglada sie ;klika w logout
  471. wait 1s
  472. }
  473. event macro 15 16
  474. target 10s
  475. set #ltargetid #charid
  476. set #ltargetkind 1
  477. event macro 23
  478. wait 1s
  479. event macro 15 14
  480. wait 1s
  481. if #STAMINA < 10
  482. {
  483. finditem ZUF C
  484. set #lobjectid #findid
  485. event macro 17
  486. wait 10s
  487. }
  488. if #hits < #maxhits
  489. {
  490. repeat
  491. event macro 15 3
  492. target 4s
  493. event macro 23
  494. wait 1s
  495. until #hits = #maxhits
  496. }
  497. return
  498. ;-------------------------------------------
  499. sub Norzyczki
  500. finditem KAG C_ , #backpackid
  501. for #findindex 1 #findcnt
  502. {
  503. if #findtype = KAG
  504. {
  505. set %NorzyczkiID #findid
  506. }
  507. }
  508. if N/A in %NorzyczkiID
  509. {
  510. event sysmessage NIE MASZ NORZYCZEK W PLECAKU. SKRYPT ZATRZYMANY.
  511. return NorzyczekBrak
  512. }
  513. return
  514. ;-----------------------------------------------
  515. sub DrogaDoKrzakow
  516. if #STR < %sila
  517. gosub Bless
  518. if %Miasto = 1
  519. {
  520. if #CHARPOSX > 3028 && #CHARPOSX < 3036 && #CHARPOSY > 3382 && #CHARPOSY < 3388 ; portal - serpent's hold
  521. {
  522. gosub BiegnijDoPozycji 3020 3384 1 25s
  523. }
  524. if #CHARPOSX > 2937 && #CHARPOSX < 2949 && #CHARPOSY > 3368 && #CHARPOSY < 3382 ; bankier - serpent's hold
  525. {
  526. gosub BiegnijDoPozycji 2949 3371 1 25s
  527. gosub BiegnijDoPozycji 3019 3371 1 25s
  528. gosub BiegnijDoPozycji 3020 3384 1 25s ; przed portalem
  529. }
  530. gosub BiegnijDoPozycji 3020 3419 1 25s
  531. gosub BiegnijDoPozycji 2992 3419 1 25s
  532. gosub BiegnijDoPozycji 2968 3443 1 25s
  533. gosub BiegnijDoPozycji 2963 3443 1 25s
  534. gosub BiegnijDoPozycji 2958 3453 1 25s
  535. gosub BiegnijDoPozycji 2957 3487 0 25s
  536. gosub BiegnijDoPozycji 2944 3486 1 25s
  537. gosub BiegnijDoPozycji 2934 3492 1 25s
  538. gosub BiegnijDoPozycji 2924 3502 1 25s
  539. gosub BiegnijDoPozycji 2924 3513 1 25s
  540. gosub BiegnijDoPozycji 2943 3532 1 25s
  541. gosub BiegnijDoPozycji 2943 3536 1 25s
  542. gosub BiegnijDoPozycji 2977 3570 0 25s
  543. gosub BiegnijDoPozycji 2979 3571 0 25s
  544. gosub BiegnijDoPozycji 2977 3610 0 25s
  545. gosub BiegnijDoPozycji 2971 3611 0 25s
  546. gosub BiegnijDoPozycji 2959 3613 0 25s ; wilcze jagody
  547. gosub SprawdzGlod
  548. gosub SkanujTeren 14
  549. ;---------------------
  550. gosub BiegnijDoPozycji 2977 3613 0 25s
  551. gosub BiegnijDoPozycji 2977 3602 0 25s
  552. gosub BiegnijDoPozycji 2996 3602 0 25s
  553. gosub BiegnijDoPozycji 2999 3591 1 25s ; czosnek
  554. gosub SprawdzGlod
  555. gosub SkanujTeren 14
  556. ;---------------------
  557. gosub BiegnijDoPozycji 3032 3586 0 25s ; krwawy mech
  558. gosub SprawdzGlod
  559. gosub SkanujTeren 14
  560. ;--------------------- powrot do miasta
  561. gosub BiegnijDoPozycji 3004 3570 1 25s
  562. gosub BiegnijDoPozycji 2973 3570 1 25s
  563. gosub BiegnijDoPozycji 2929 3526 1 25s
  564. gosub BiegnijDoPozycji 2929 3518 1 25s
  565. gosub BiegnijDoPozycji 2922 3511 1 25s
  566. gosub BiegnijDoPozycji 2922 3503 1 25s
  567. gosub BiegnijDoPozycji 2937 3488 1 25s
  568. gosub BiegnijDoPozycji 2958 3488 1 25s
  569. gosub BiegnijDoPozycji 2958 3445 1 25s
  570. gosub BiegnijDoPozycji 2969 3443 1 25s
  571. gosub BiegnijDoPozycji 2982 3430 1 25s
  572. gosub BiegnijDoPozycji 2982 3410 1 25s
  573. gosub BiegnijDoPozycji 2995 3401 1 25s
  574. gosub BiegnijDoPozycji 2995 3371 1 25s
  575. gosub BiegnijDoPozycji 2977 3371 1 25s ; przed wyjsciem z miasta
  576. gosub BiegnijDoPozycji 2977 3378 0 25s
  577. gosub BiegnijDoPozycji 2977 3381 0 25s ; drzwi
  578. event macro 12
  579. wait 1s
  580. gosub BiegnijDoPozycji 2977 3387 0 25s
  581. gosub BiegnijDoPozycji 2923 3387 0 25s
  582. gosub BiegnijDoPozycji 2924 3369 0 25s
  583. gosub BiegnijDoPozycji 2924 3360 0 25s ; zenszen za miastem
  584. gosub SprawdzGlod
  585. gosub SkanujTeren 14
  586. gosub BiegnijDoPozycji 2915 3398 0 25s
  587. gosub BiegnijDoPozycji 2906 3417 0 25s
  588. gosub SprawdzGlod
  589. gosub SkanujTeren 14
  590. gosub BiegnijDoPozycji 2912 3398 0 25s ; wracam do miasta
  591. gosub BiegnijDoPozycji 2941 3398 0 25s
  592. gosub BiegnijDoPozycji 2951 3388 0 25s
  593. gosub BiegnijDoPozycji 2978 3388 0 25s
  594. gosub BiegnijDoPozycji 2978 3383 0 25s ; drzwi
  595. event macro 12
  596. wait 1s
  597. gosub BiegnijDoPozycji 2978 3371 0 25s ;stad mozna isc do zielarza
  598. gosub BiegnijDoPozycji 2941 3371 0 25s ; bankier
  599. gosub Przezucaj
  600. if #RESULT = Koniec
  601. halt
  602. gosub SprawdzGlod
  603. }
  604. }
  605. if %Miasto = 2
  606. {
  607. ;pause
  608. ; wladca portali mistas
  609. if #CHARPOSX > 815 && #CHARPOSX < 843 && #CHARPOSY > 1192 && #CHARPOSY < 1217
  610. {
  611. gosub BiegnijDoPozycji 819 1171 0 25s
  612. }
  613. ;protal mistas
  614. if #CHARPOSX > 853 && #CHARPOSX < 863 && #CHARPOSY > 1039 && #CHARPOSY < 1050
  615. {
  616. gosub BiegnijDoPozycji 857 1048 0 25s
  617. gosub BiegnijDoPozycji 829 1048 0 25s
  618. gosub BiegnijDoPozycji 829 1071 1 25s
  619. gosub BiegnijDoPozycji 819 1081 1 25s
  620. gosub BiegnijDoPozycji 819 1171 0 25s
  621. }
  622. if #CHARPOSX > 1190 && #CHARPOSX < 1195 && #CHARPOSY > 1127 && #CHARPOSY < 1133
  623. {
  624. goto odBanku
  625. }
  626. gosub BiegnijDoPozycji 834 1171 0 25s ;zenszen i krwawy za mistem
  627. gosub SprawdzGlod
  628. gosub SkanujTeren 14
  629. gosub BiegnijDoPozycji 834 1163 0 25s
  630. gosub BiegnijDoPozycji 834 1204 0 25s
  631.  
  632. ignoreitem reset
  633. repeat
  634. finditem HS_IS G
  635. wait 2
  636. event Property #findid
  637. ignoreitem #findid
  638. until Aland in #property
  639. ignoreitem reset
  640. move #findx #findy 1 20s
  641. set %TimeWP #scnt2 + 20
  642. event macro 1 0 chce cos kupic
  643. repeat
  644. if %TimeWP < #scnt2
  645. {
  646. set %TimeWP #scnt2 + 20
  647. event macro 1 0 chce cos kupic
  648. }
  649. finditem QWL C_ , #backpackid
  650. if #findkind <> -1
  651. {
  652. break
  653. }
  654. scanjournal 1
  655. until zakupic_runo in #journal
  656. event macro 1 0 tak
  657. wait 1s
  658. gosub BiegnijDoPozycji 834 1250 0 25s
  659. gosub BiegnijDoPozycji 847 1259 0 25s
  660. gosub SprawdzGlod
  661. gosub SkanujTeren 14
  662. gosub BiegnijDoPozycji 847 1211 0 25s
  663. gosub BiegnijDoPozycji 864 1209 0 25s
  664. gosub SprawdzGlod
  665. gosub SkanujTeren 14
  666. gosub BiegnijDoPozycji 869 1190 0 25s
  667. gosub BiegnijDoPozycji 916 1190 0 25s
  668. gosub BiegnijDoPozycji 916 1213 0 25s
  669. gosub SprawdzGlod
  670. gosub SkanujTeren 10
  671. gosub BiegnijDoPozycji 918 1203 0 25s
  672. gosub BiegnijDoPozycji 918 1195 0 25s
  673. gosub BiegnijDoPozycji 941 1195 0 25s
  674. gosub BiegnijDoPozycji 945 1191 0 25s
  675. gosub SprawdzGlod
  676. gosub SkanujTeren 14
  677. gosub BiegnijDoPozycji 932 1176 0 25s
  678. gosub BiegnijDoPozycji 913 1174 0 25s
  679. gosub SprawdzGlod
  680. gosub SkanujTeren 5
  681. gosub BiegnijDoPozycji 926 1174 0 25s
  682. gosub BiegnijDoPozycji 926 1102 0 25s
  683. gosub BiegnijDoPozycji 928 1100 0 25s
  684. gosub BiegnijDoPozycji 928 1083 0 25s
  685. gosub BiegnijDoPozycji 934 1077 0 25s
  686. gosub BiegnijDoPozycji 944 1067 0 25s
  687. gosub BiegnijDoPozycji 946 1054 0 25s
  688. gosub BiegnijDoPozycji 952 1048 0 25s
  689. gosub BiegnijDoPozycji 952 1024 0 25s
  690. gosub BiegnijDoPozycji 952 1024 0 25s
  691. gosub BiegnijDoPozycji 943 1024 0 25s
  692. gosub SprawdzGlod
  693. gosub SkanujTeren 14
  694. gosub BiegnijDoPozycji 945 1024 0 25s
  695. gosub BiegnijDoPozycji 964 1024 0 25s
  696. gosub BiegnijDoPozycji 964 1024 0 25s
  697. gosub BiegnijDoPozycji 964 1000 0 25s
  698. gosub BiegnijDoPozycji 969 999 0 25s
  699. gosub BiegnijDoPozycji 969 982 0 25s
  700. gosub SprawdzGlod
  701. gosub SkanujTeren 14
  702. gosub BiegnijDoPozycji 957 989 0 25s
  703. gosub BiegnijDoPozycji 957 965 0 25s
  704. gosub BiegnijDoPozycji 949 961 0 25s
  705. gosub BiegnijDoPozycji 943 958 0 25s
  706. gosub SprawdzGlod
  707. gosub SkanujTeren 14
  708. gosub BiegnijDoPozycji 954 958 0 25s
  709. gosub BiegnijDoPozycji 954 926 0 25s
  710. gosub BiegnijDoPozycji 978 902 0 25s
  711. gosub SprawdzGlod
  712. gosub SkanujTeren 14
  713. gosub BiegnijDoPozycji 981 891 0 25s
  714. gosub BiegnijDoPozycji 996 885 0 25s
  715. gosub BiegnijDoPozycji 1006 885 0 25s
  716. gosub BiegnijDoPozycji 1020 871 0 25s
  717. gosub SprawdzGlod
  718. gosub SkanujTeren 14
  719. gosub BiegnijDoPozycji 1031 877 0 25s
  720. gosub BiegnijDoPozycji 1080 877 0 25s
  721. gosub SprawdzGlod
  722. ;gosub SkanujTeren 10 ;pole czosnku
  723. gosub BiegnijDoPozycji 1085 890 0 25s
  724. gosub BiegnijDoPozycji 1102 907 0 25s
  725. gosub BiegnijDoPozycji 1102 907 0 25s
  726. gosub BiegnijDoPozycji 1102 932 0 25s
  727. gosub BiegnijDoPozycji 1108 936 0 25s
  728. gosub SprawdzGlod
  729. gosub SkanujTeren 8
  730. ;event macro 32 0
  731. gosub BiegnijDoPozycji 1097 951 0 25s
  732. gosub BiegnijDoPozycji 1105 951 0 25s
  733. gosub BiegnijDoPozycji 1105 951 0 25s
  734. gosub BiegnijDoPozycji 1105 1001 0 25s
  735. gosub BiegnijDoPozycji 1100 1008 0 25s
  736. ;---------------- Do Banku ------------------
  737. gosub BiegnijDoPozycji 1113 1021 0 25s
  738. gosub BiegnijDoPozycji 1113 1032 0 25s
  739. gosub BiegnijDoPozycji 1123 1042 0 25s
  740. gosub BiegnijDoPozycji 1148 1042 0 25s
  741. gosub BiegnijDoPozycji 1171 1065 0 25s
  742. gosub BiegnijDoPozycji 1171 1143 0 25s
  743. gosub BiegnijDoPozycji 1183 1143 0 25s
  744. gosub BiegnijDoPozycji 1193 1143 1 25s
  745. gosub BiegnijDoPozycji 1193 1130 0 25s
  746. gosub WsiadajZsiadaj
  747. gosub BiegnijDoPozycji 1190 1130 0 25s
  748. event macro 12
  749. wait 6
  750. gosub BiegnijDoPozycji 1187 1130 0 25s
  751. gosub BiegnijDoPozycji 1181 1129 0 25s
  752. gosub Przezucaj
  753. if #RESULT = Koniec
  754. halt
  755. gosub SprawdzGlod
  756. gosub BiegnijDoPozycji 1187 1130 0 25s
  757. gosub BiegnijDoPozycji 1188 1130 0 25s
  758. event macro 12
  759. wait 6
  760. gosub BiegnijDoPozycji 1192 1130 0 25s
  761. wait 10s
  762. gosub NakarmZwierze
  763. gosub WsiadajZsiadaj
  764. odBanku:
  765. gosub BiegnijDoPozycji 1192 1126 1 25s
  766. gosub BiegnijDoPozycji 1203 1122 1 25s
  767. gosub BiegnijDoPozycji 1212 1110 0 25s
  768. gosub BiegnijDoPozycji 1212 1047 0 25s
  769. gosub BiegnijDoPozycji 1227 1032 0 25s
  770. gosub BiegnijDoPozycji 1227 1008 0 25s
  771. gosub SprawdzGlod
  772. gosub SkanujTeren 14
  773. gosub BiegnijDoPozycji 1253 1006 0 25s
  774. gosub BiegnijDoPozycji 1253 982 0 25s
  775. gosub BiegnijDoPozycji 1271 982 0 25s
  776. gosub BiegnijDoPozycji 1271 950 0 25s
  777. gosub BiegnijDoPozycji 1279 950 0 25s
  778. gosub SprawdzGlod
  779. gosub SkanujTeren 15
  780. gosub BiegnijDoPozycji 1270 953 0 25s
  781. gosub BiegnijDoPozycji 1270 934 0 25s
  782. gosub BiegnijDoPozycji 1258 934 0 25s
  783. gosub SprawdzGlod
  784. gosub SkanujTeren 10
  785. gosub BiegnijDoPozycji 1251 933 0 25s
  786. gosub BiegnijDoPozycji 1251 932 0 25s
  787. gosub BiegnijDoPozycji 1251 932 0 25s
  788. gosub BiegnijDoPozycji 1244 932 0 25s
  789. gosub BiegnijDoPozycji 1244 930 0 25s
  790. gosub SprawdzGlod
  791. gosub SkanujTeren 4
  792. gosub BiegnijDoPozycji 1220 932 0 25s
  793. gosub SprawdzGlod
  794. gosub SkanujTeren 14
  795. gosub BiegnijDoPozycji 1214 929 0 25s
  796. gosub BiegnijDoPozycji 1196 947 0 25s
  797. gosub BiegnijDoPozycji 1184 947 0 25s
  798. gosub BiegnijDoPozycji 1178 953 0 25s
  799. gosub BiegnijDoPozycji 1178 968 0 25s
  800. gosub BiegnijDoPozycji 1172 968 0 25s
  801. gosub BiegnijDoPozycji 1172 988 0 25s
  802. gosub BiegnijDoPozycji 1151 988 0 25s
  803. gosub SprawdzGlod
  804. gosub SkanujTeren 15
  805. gosub BiegnijDoPozycji 1178 1009 0 25s
  806. gosub BiegnijDoPozycji 1188 1009 0 25s
  807. gosub SprawdzGlod
  808. gosub SkanujTeren 12
  809. gosub BiegnijDoPozycji 1197 1016 0 25s
  810. gosub BiegnijDoPozycji 1197 1029 0 25s
  811. gosub SprawdzGlod
  812. gosub SkanujTeren 10
  813. gosub BiegnijDoPozycji 1189 1051 0 25s
  814. gosub BiegnijDoPozycji 1198 1051 0 25s
  815. gosub BiegnijDoPozycji 1198 1088 0 25s
  816. gosub BiegnijDoPozycji 1191 1088 0 25s
  817. gosub BiegnijDoPozycji 1192 1107 1 25s
  818. gosub BiegnijDoPozycji 1193 1130 0 25s
  819. gosub WsiadajZsiadaj
  820. gosub BiegnijDoPozycji 1190 1130 0 25s
  821. event macro 12
  822. wait 6
  823. gosub BiegnijDoPozycji 1187 1130 0 25s
  824. gosub BiegnijDoPozycji 1181 1129 0 25s
  825. gosub Przezucaj
  826. if #RESULT = Koniec
  827. halt
  828. gosub SprawdzGlod
  829. gosub BiegnijDoPozycji 1187 1130 0 25s
  830. gosub BiegnijDoPozycji 1188 1130 0 25s
  831. event macro 12
  832. wait 6
  833. gosub BiegnijDoPozycji 1192 1130 0 25s
  834. wait 10s
  835. gosub NakarmZwierze
  836. gosub WsiadajZsiadaj
  837. gosub BiegnijDoPozycji 1193 1143 1 25s
  838. gosub BiegnijDoPozycji 1174 1143 1 25s
  839. gosub BiegnijDoPozycji 1140 1143 0 25s
  840. gosub BiegnijDoPozycji 1140 1125 0 25s
  841. gosub SprawdzGlod
  842. gosub SkanujTeren 10
  843. gosub BiegnijDoPozycji 1134 1116 0 25s
  844. gosub BiegnijDoPozycji 1140 1116 0 25s
  845. gosub BiegnijDoPozycji 1140 1100 0 25s
  846. gosub SprawdzGlod
  847. gosub SkanujTeren 13
  848. gosub BiegnijDoPozycji 1120 1100 0 25s
  849. gosub BiegnijDoPozycji 1120 1101 0 25s
  850. gosub BiegnijDoPozycji 1114 1102 0 25s
  851. gosub SprawdzGlod
  852. gosub SkanujTeren 13
  853. gosub BiegnijDoPozycji 1110 1124 0 25s
  854. gosub SprawdzGlod
  855. gosub SkanujTeren 14
  856. gosub BiegnijDoPozycji 1112 1120 0 25s
  857. gosub BiegnijDoPozycji 1112 1144 0 25s
  858. gosub BiegnijDoPozycji 1183 1143 0 25s
  859. gosub BiegnijDoPozycji 1193 1143 0 25s
  860. gosub BiegnijDoPozycji 1193 1130 0 25s
  861. gosub WsiadajZsiadaj
  862. gosub BiegnijDoPozycji 1190 1130 0 25s
  863. event macro 12
  864. wait 6
  865. gosub BiegnijDoPozycji 1187 1130 0 25s
  866. gosub BiegnijDoPozycji 1181 1129 0 25s
  867. gosub Przezucaj
  868. if #RESULT = Koniec
  869. halt
  870. gosub SprawdzGlod
  871. gosub BiegnijDoPozycji 1187 1130 0 25s
  872. gosub BiegnijDoPozycji 1188 1130 0 25s
  873. event macro 12
  874. wait 6
  875. gosub BiegnijDoPozycji 1192 1130 0 25s
  876. wait 10s
  877. gosub NakarmZwierze
  878. gosub WsiadajZsiadaj
  879. gosub BiegnijDoPozycji 1193 1143 1 25s
  880. gosub BiegnijDoPozycji 1164 1143 1 25s
  881. gosub BiegnijDoPozycji 1157 1169 0 25s
  882. gosub BiegnijDoPozycji 1157 1183 0 25s
  883. gosub SprawdzGlod
  884. gosub SkanujTeren 14
  885. gosub BiegnijDoPozycji 1144 1179 0 25s
  886. gosub BiegnijDoPozycji 1144 1197 0 25s
  887. gosub BiegnijDoPozycji 1107 1197 0 25s
  888. gosub BiegnijDoPozycji 1103 1205 0 25s
  889. gosub SprawdzGlod
  890. gosub SkanujTeren 10
  891. gosub BiegnijDoPozycji 1158 1202 0 25s
  892. gosub BiegnijDoPozycji 1158 1206 0 25s
  893. gosub BiegnijDoPozycji 1189 1206 0 25s ;na drodze
  894. ;gosub BiegnijDoPozycji 1182 1268 0 25s
  895. ;gosub BiegnijDoPozycji 1182 1211 0 25s
  896. gosub BiegnijDoPozycji 1189 1204 0 25s
  897. gosub BiegnijDoPozycji 1189 1145 1 25s
  898. gosub BiegnijDoPozycji 1193 1144 1 25s
  899. gosub BiegnijDoPozycji 1193 1130 0 25s
  900. gosub WsiadajZsiadaj
  901. gosub BiegnijDoPozycji 1190 1130 0 25s
  902. event macro 12
  903. wait 6
  904. gosub BiegnijDoPozycji 1187 1130 0 25s
  905. gosub BiegnijDoPozycji 1181 1129 0 25s
  906. gosub Przezucaj
  907. gosub WezGold gold 3000
  908. if #RESULT = BrakZlota
  909. {
  910. sub WezGold gold 3000
  911. }
  912. gosub SprawdzGlod
  913. gosub BiegnijDoPozycji 1187 1130 0 25s
  914. gosub BiegnijDoPozycji 1188 1130 0 25s
  915. event macro 12
  916. wait 6
  917. gosub BiegnijDoPozycji 1192 1130 0 25s
  918. wait 10s
  919. gosub NakarmZwierze
  920. gosub WsiadajZsiadaj
  921. gosub BiegnijDoPozycji 1193 1126 1 25s
  922. gosub BiegnijDoPozycji 1200 1126 0 25s
  923. finditem QWL C_ , #backpackid
  924. if #findkind <> -1
  925. {
  926. set %PortalX #charposx
  927. set %PortalY #charposy
  928. set %PortalYOrg #charposy
  929. set #lobjectid #findid
  930. event macro 17
  931. repeat
  932. finditem QWL C_ , #backpackid
  933. until #findkind = -1
  934. wait 2s
  935. set %PortalY #charposy - 2
  936. move %PortalX %PortalY 0 10s
  937. event Pathfind %PortalX %PortalYOrg #charposz
  938. wait 3s
  939. repeat
  940. until #CHARPOSX > 815 && #CHARPOSX < 843 && #CHARPOSY > 1192 && #CHARPOSY < 1217
  941. }
  942. }
  943. if %Miasto = 3
  944. gosub BiegnijDoPozycji 1193 1040 0 3s
  945. gosub BiegnijDoPozycji 1192 1086 0 25s
  946. gosub BiegnijDoPozycji 1192 1082 0 25s
  947. gosub BiegnijDoPozycji 1199 1082 0 25s
  948. gosub BiegnijDoPozycji 1199 1048 0 25s
  949. gosub BiegnijDoPozycji 1220 1048 0 25s
  950. gosub BiegnijDoPozycji 1220 1037 0 25s
  951. gosub BiegnijDoPozycji 1258 1037 0 25s
  952. gosub BiegnijDoPozycji 1258 990 0 25s
  953. gosub SkanujTeren 15
  954. gosub BiegnijDoPozycji 1263 999 0 25s
  955. gosub BiegnijDoPozycji 1208 999 0 25s
  956. gosub BiegnijDoPozycji 1208 962 0 25s
  957. gosub BiegnijDoPozycji 1199 962 0 25s
  958. gosub BiegnijDoPozycji 1199 953 0 25s
  959. gosub BiegnijDoPozycji 1182 953 0 25s
  960. gosub BiegnijDoPozycji 1182 956 0 25s
  961. gosub BiegnijDoPozycji 1174 956 0 25s
  962. gosub SkanujTeren 15
  963. gosub BiegnijDoPozycji 1165 969 0 25s
  964. gosub BiegnijDoPozycji 1157 969 0 25s
  965. gosub BiegnijDoPozycji 1157 977 0 25s
  966. gosub BiegnijDoPozycji 1150 977 0 25s
  967. gosub SkanujTeren 10
  968. gosub BiegnijDoPozycji 1149 993 0 25s
  969. gosub BiegnijDoPozycji 1167 993 0 25s
  970. gosub BiegnijDoPozycji 1167 995 0 25s
  971. gosub BiegnijDoPozycji 1188 995 0 25s
  972. gosub BiegnijDoPozycji 1188 1006 0 25s
  973. gosub SkanujTeren 15
  974. gosub BiegnijDoPozycji 1135 1025 0 25s
  975. gosub BiegnijDoPozycji 1104 1025 0 25s
  976. gosub BiegnijDoPozycji 1104 988 0 25s
  977. gosub BiegnijDoPozycji 1105 988 0 25s
  978. gosub BiegnijDoPozycji 1105 946 0 25s
  979. gosub BiegnijDoPozycji 1106 946 0 25s
  980. gosub BiegnijDoPozycji 1106 940 0 25s
  981. gosub SkanujTeren 15
  982. gosub BiegnijDoPozycji 1078 936 0 25s
  983. gosub BiegnijDoPozycji 1078 953 0 25s
  984. gosub BiegnijDoPozycji 1069 953 0 25s
  985. gosub BiegnijDoPozycji 1069 982 0 25s
  986. gosub SkanujTeren 20
  987. gosub BiegnijDoPozycji 1081 1066 0 25s
  988. gosub BiegnijDoPozycji 1101 1066 0 25s
  989. gosub BiegnijDoPozycji 1101 1109 0 25s
  990. gosub BiegnijDoPozycji 1108 1109 0 25s
  991. gosub SkanujTeren 20
  992. gosub BiegnijDoPozycji 1101 1120 0 25s
  993. gosub BiegnijDoPozycji 1101 1144 0 25s
  994. gosub BiegnijDoPozycji 1102 1144 0 25s
  995. gosub BiegnijDoPozycji 1102 1206 0 25s
  996. gosub SkanujTeren 15
  997. gosub BiegnijDoPozycji 1114 1207 0 25s
  998. gosub BiegnijDoPozycji 1114 1210 0 25s
  999. gosub BiegnijDoPozycji 1189 1210 0 25s
  1000. gosub BiegnijDoPozycji 1189 1262 0 25s
  1001. gosub BiegnijDoPozycji 1206 1262 0 25s
  1002. gosub BiegnijDoPozycji 1206 1296 0 25s
  1003. gosub SkanujTeren 15
  1004. gosub BiegnijDoPozycji 1357 1289 0 25s
  1005. gosub BiegnijDoPozycji 1357 1267 0 25s
  1006. gosub BiegnijDoPozycji 1361 1267 0 25s
  1007. gosub BiegnijDoPozycji 1361 1241 0 25s
  1008. gosub SkanujTeren 15
  1009. gosub BiegnijDoPozycji 1365 1247 0 25s
  1010. gosub BiegnijDoPozycji 1365 1260 0 25s
  1011. gosub BiegnijDoPozycji 1505 1260 0 25s
  1012. gosub BiegnijDoPozycji 1505 1249 0 25s
  1013. gosub BiegnijDoPozycji 1498 1249 0 25s
  1014. gosub BiegnijDoPozycji 1498 1232 0 25s
  1015. gosub BiegnijDoPozycji 1492 1232 0 25s
  1016. gosub SkanujTeren 15
  1017. gosub BiegnijDoPozycji 1533 1232 0 25s
  1018. gosub BiegnijDoPozycji 1533 1233 0 25s
  1019. gosub BiegnijDoPozycji 1540 1233 0 25s
  1020. gosub BiegnijDoPozycji 1540 1232 0 25s
  1021. gosub BiegnijDoPozycji 1545 1232 0 25s
  1022. gosub BiegnijDoPozycji 1545 1218 0 25s
  1023. gosub BiegnijDoPozycji 1563 1218 0 25s
  1024. gosub BiegnijDoPozycji 1563 1217 0 25s
  1025. gosub BiegnijDoPozycji 1570 1217 0 25s
  1026. gosub BiegnijDoPozycji 1570 1211 0 25s
  1027. gosub SkanujTeren 10
  1028. gosub BiegnijDoPozycji 1572 1190 0 25s
  1029. gosub BiegnijDoPozycji 1586 1190 0 25s
  1030. gosub BiegnijDoPozycji 1586 1188 0 25s
  1031. gosub BiegnijDoPozycji 1592 1188 0 25s
  1032. gosub SkanujTeren 15
  1033. gosub Obcinaj
  1034. gosub BiegnijDoPozycji 1589 1186 0 25s
  1035. gosub BiegnijDoPozycji 1589 1152 0 25s
  1036. gosub BiegnijDoPozycji 1590 1152 0 25s
  1037. gosub BiegnijDoPozycji 1590 1131 0 25s
  1038. gosub BiegnijDoPozycji 1591 1131 0 25s
  1039. gosub BiegnijDoPozycji 1591 1063 0 25s
  1040. gosub BiegnijDoPozycji 1619 1063 0 25s
  1041. gosub BiegnijDoPozycji 1619 1052 0 25s
  1042. gosub SkanujTeren 10
  1043. gosub BiegnijDoPozycji 1645 1050 0 25s
  1044. gosub BiegnijDoPozycji 1645 1059 0 25s
  1045. gosub BiegnijDoPozycji 1673 1059 0 25s
  1046. gosub BiegnijDoPozycji 1673 1068 0 25s
  1047. gosub BiegnijDoPozycji 1686 1068 0 25s
  1048. gosub SkanujTeren 15
  1049. gosub BiegnijDoPozycji 1685 1071 0 25s
  1050. gosub BiegnijDoPozycji 1685 1120 0 25s
  1051. gosub BiegnijDoPozycji 1631 1120 0 25s
  1052. gosub BiegnijDoPozycji 1631 1123 0 25s
  1053. gosub BiegnijDoPozycji 1539 1123 0 25s
  1054. gosub BiegnijDoPozycji 1539 1124 0 25s
  1055. gosub BiegnijDoPozycji 1493 1124 0 25s
  1056. gosub BiegnijDoPozycji 1493 1134 0 25s
  1057. gosub BiegnijDoPozycji 1418 1134 0 25s
  1058. gosub BiegnijDoPozycji 1418 1167 0 25s
  1059. gosub BiegnijDoPozycji 1370 1167 0 25s
  1060. gosub BiegnijDoPozycji 1370 1191 0 25s
  1061. gosub BiegnijDoPozycji 1211 1191 0 25s
  1062. gosub BiegnijDoPozycji 1211 1143 0 25s
  1063. gosub BiegnijDoPozycji 1186 1150 0 25s
  1064. gosub Przezucaj
  1065. wait 10
  1066. return
  1067. wait 30
  1068. }
  1069. }
  1070. if %Miasto = 4
  1071. {
  1072. if #CHARPOSX > 815 && #CHARPOSX < 843 && #CHARPOSY > 1192 && #CHARPOSY < 1217
  1073. {
  1074. ignoreitem reset
  1075. if #GOLD < 3000
  1076. {
  1077. gosub BiegnijDoPozycji 820 1185 0 25s
  1078. gosub BiegnijDoPozycji 820 1105 0 25s
  1079. gosub BiegnijDoPozycji 820 1079 0 25s
  1080. gosub BiegnijDoPozycji 829 1070 0 25s
  1081. gosub BiegnijDoPozycji 829 1042 0 25s
  1082. gosub BiegnijDoPozycji 831 1040 0 25s
  1083. gosub BiegnijDoPozycji 831 1019 0 25s
  1084. gosub BiegnijDoPozycji 837 1013 0 25s
  1085. gosub WsiadajZsiadaj
  1086. gosub BiegnijDoPozycji 837 1008 0 25s
  1087. event macro 12
  1088. wait 5
  1089. gosub BiegnijDoPozycji 837 1005 1 25s
  1090. gosub BiegnijDoPozycji 850 1005 0 25s
  1091. gosub Przezucaj
  1092. gosub WezGold czek 3000
  1093. if #RESULT = BrakZlota
  1094. {
  1095. sub WezGold czek 3000
  1096. }
  1097. gosub SprawdzGlod
  1098. gosub BiegnijDoPozycji 837 1005 0 25s
  1099. gosub BiegnijDoPozycji 837 1006 0 25s
  1100. event macro 12
  1101. wait 5
  1102. gosub BiegnijDoPozycji 837 1014 0 25s
  1103. gosub NakarmZwierze
  1104. gosub WsiadajZsiadaj
  1105. gosub BiegnijDoPozycji 837 1014 0 25s
  1106. gosub BiegnijDoPozycji 831 1020 0 25s
  1107. gosub BiegnijDoPozycji 831 1040 0 25s
  1108. gosub BiegnijDoPozycji 829 1043 0 25s
  1109. gosub BiegnijDoPozycji 829 1070 0 25s
  1110. gosub BiegnijDoPozycji 821 1078 1 25s
  1111. gosub BiegnijDoPozycji 821 1121 1 25s
  1112. gosub BiegnijDoPozycji 821 1202 0 25s
  1113. gosub BiegnijDoPozycji 827 1205 0 25s
  1114. }
  1115. finditem QWL C
  1116. if #findkind = -1
  1117. {
  1118. repeat
  1119. finditem HS_IS G
  1120. wait 2
  1121. event Property #findid
  1122. ignoreitem #findid
  1123. until Aland in #property
  1124. ignoreitem reset
  1125. move #findx #findy 1 20s
  1126. set %TimeWP #scnt2 + 20
  1127. event macro 1 0 chce cos kupic
  1128. repeat
  1129. if %TimeWP < #scnt2
  1130. {
  1131. set %TimeWP #scnt2 + 20
  1132. event macro 1 0 chce cos kupic
  1133. }
  1134. finditem QWL C_ , #backpackid
  1135. if #findkind <> -1
  1136. {
  1137. break
  1138. }
  1139. scanjournal 1
  1140. until zakupic_runo in #journal
  1141. event macro 1 0 tak
  1142. repeat
  1143. wait 1s
  1144. finditem QWL C_ , #backpackid
  1145. if #findkind = -1
  1146. {
  1147. event macro 1 0 chce cos kupic
  1148. repeat
  1149. scanjournal 1
  1150. until zakupic_runo in #journal
  1151. event macro 1 0 tak
  1152. }
  1153. until #findkind <> -1
  1154. }
  1155. }
  1156. gosub BiegnijDoPozycji 815 1203 0 25s
  1157. gosub BiegnijDoPozycji 777 1203 0 25s
  1158. gosub BiegnijDoPozycji 766 1214 0 25s
  1159. gosub BiegnijDoPozycji 766 1242 0 25s
  1160. gosub BiegnijDoPozycji 698 1242 0 25s
  1161. gosub BiegnijDoPozycji 684 1256 0 25s
  1162. gosub BiegnijDoPozycji 630 1203 0 25s
  1163. gosub BiegnijDoPozycji 630 1198 0 25s
  1164. gosub BiegnijDoPozycji 614 1180 0 25s
  1165. gosub BiegnijDoPozycji 499 1180 0 25s
  1166. gosub BiegnijDoPozycji 476 1203 0 25s
  1167. gosub BiegnijDoPozycji 476 1228 0 25s
  1168. gosub BiegnijDoPozycji 445 1228 0 25s
  1169. gosub BiegnijDoPozycji 445 1233 0 25s
  1170. gosub BiegnijDoPozycji 373 1233 0 25s
  1171. gosub BiegnijDoPozycji 373 1232 0 25s
  1172. gosub BiegnijDoPozycji 342 1232 0 25s
  1173. gosub BiegnijDoPozycji 334 1224 0 25s
  1174. gosub BiegnijDoPozycji 321 1224 0 25s
  1175. gosub BiegnijDoPozycji 321 1187 0 25s
  1176. gosub BiegnijDoPozycji 324 1186 0 25s
  1177. gosub SprawdzGlod
  1178. gosub SkanujTeren 15 ;przy skalach
  1179. wait 10s
  1180. gosub BiegnijDoPozycji 316 1236 0 25s
  1181. gosub BiegnijDoPozycji 366 1236 0 25s
  1182. gosub BiegnijDoPozycji 366 1238 0 25s
  1183. gosub BiegnijDoPozycji 396 1238 0 25s
  1184. gosub BiegnijDoPozycji 396 1235 0 25s
  1185. gosub BiegnijDoPozycji 468 1235 0 25s
  1186. gosub BiegnijDoPozycji 468 1216 0 25s
  1187. gosub SprawdzGlod
  1188. gosub SkanujTeren 15 ;przy drodze
  1189. wait 10s
  1190. gosub BiegnijDoPozycji 472 1208 0 25s
  1191. gosub BiegnijDoPozycji 479 1208 0 25s
  1192. gosub BiegnijDoPozycji 479 1197 0 25s
  1193. gosub BiegnijDoPozycji 486 1197 0 25s
  1194. gosub BiegnijDoPozycji 499 1181 0 25s
  1195. gosub BiegnijDoPozycji 521 1180 0 25s
  1196. gosub BiegnijDoPozycji 567 1180 0 25s
  1197. gosub BiegnijDoPozycji 612 1180 0 25s
  1198. gosub BiegnijDoPozycji 628 1196 0 25s
  1199. gosub BiegnijDoPozycji 636 1196 0 25s
  1200. gosub BiegnijDoPozycji 679 1239 0 25s
  1201. gosub BiegnijDoPozycji 679 1252 0 25s
  1202. gosub BiegnijDoPozycji 688 1252 0 25s
  1203. gosub BiegnijDoPozycji 703 1267 0 25s
  1204. gosub BiegnijDoPozycji 720 1267 0 25s
  1205. gosub BiegnijDoPozycji 720 1270 0 25s
  1206. gosub BiegnijDoPozycji 759 1270 0 25s
  1207. gosub SprawdzGlod
  1208. gosub SkanujTeren 7
  1209. wait 10s
  1210. gosub BiegnijDoPozycji 761 1264 0 25s
  1211. gosub BiegnijDoPozycji 763 1258 0 25s
  1212. gosub BiegnijDoPozycji 763 1238 0 25s
  1213. gosub BiegnijDoPozycji 768 1233 0 25s
  1214. gosub BiegnijDoPozycji 768 1213 0 25s
  1215. gosub BiegnijDoPozycji 779 1202 0 25s
  1216. gosub BiegnijDoPozycji 821 1202 0 25s
  1217. gosub BiegnijDoPozycji 873 1191 0 25s
  1218.  
  1219. gosub BiegnijDoPozycji 917 1191 0 25s
  1220. gosub BiegnijDoPozycji 917 1181 0 25s
  1221. gosub BiegnijDoPozycji 927 1171 0 25s
  1222. gosub BiegnijDoPozycji 927 1085 0 25s
  1223. gosub BiegnijDoPozycji 931 1081 0 25s
  1224. gosub BiegnijDoPozycji 931 1079 0 25s
  1225.  
  1226. gosub BiegnijDoPozycji 937 1079 0 25s
  1227.  
  1228. gosub BiegnijDoPozycji 940 1069 0 25s
  1229. gosub BiegnijDoPozycji 948 1061 0 25s
  1230.  
  1231. gosub BiegnijDoPozycji 948 1051 0 25s
  1232. gosub BiegnijDoPozycji 962 1037 0 25s
  1233.  
  1234. gosub BiegnijDoPozycji 962 1024 0 25s
  1235.  
  1236. gosub BiegnijDoPozycji 976 1010 0 25s
  1237. gosub BiegnijDoPozycji 976 981 0 25s
  1238. gosub BiegnijDoPozycji 967 978 0 25s
  1239. gosub SprawdzGlod
  1240. gosub SkanujTeren 10
  1241.  
  1242. gosub BiegnijDoPozycji 969 973 0 25s
  1243. gosub BiegnijDoPozycji 955 973 0 25s
  1244. gosub BiegnijDoPozycji 955 927 0 25s
  1245. gosub BiegnijDoPozycji 977 902 0 25s
  1246. gosub SprawdzGlod
  1247. gosub SkanujTeren 10
  1248. wait 10s
  1249. gosub BiegnijDoPozycji 981 892 0 25s
  1250. gosub BiegnijDoPozycji 990 892 0 25s
  1251. gosub BiegnijDoPozycji 998 884 0 25s
  1252. gosub BiegnijDoPozycji 1025 884 0 25s
  1253. gosub BiegnijDoPozycji 1035 874 0 25s
  1254. gosub BiegnijDoPozycji 1065 874 0 25s
  1255. gosub BiegnijDoPozycji 1102 911 0 25s
  1256. gosub BiegnijDoPozycji 1102 937 0 25s
  1257.  
  1258. gosub BiegnijDoPozycji 1097 937 0 25s
  1259. gosub BiegnijDoPozycji 1097 1027 0 25s
  1260. gosub BiegnijDoPozycji 1104 1034 0 25s
  1261. gosub BiegnijDoPozycji 1104 1096 0 25s
  1262. gosub BiegnijDoPozycji 1104 1163 0 25s
  1263. gosub BiegnijDoPozycji 1104 1206 0 25s
  1264. gosub BiegnijDoPozycji 1153 1254 0 25s
  1265. gosub BiegnijDoPozycji 1183 1254 0 25s
  1266. gosub BiegnijDoPozycji 1183 1255 0 25s
  1267. gosub BiegnijDoPozycji 1207 1255 0 25s
  1268. gosub BiegnijDoPozycji 1273 1321 0 25s
  1269. gosub BiegnijDoPozycji 1274 1334 0 25s
  1270. gosub BiegnijDoPozycji 1274 1347 0 25s
  1271. gosub BiegnijDoPozycji 1266 1347 0 25s
  1272. gosub BiegnijDoPozycji 1262 1351 0 25s
  1273. gosub BiegnijDoPozycji 1262 1353 0 25s
  1274. gosub BiegnijDoPozycji 1260 1355 0 25s
  1275. gosub BiegnijDoPozycji 1260 1366 0 25s
  1276. gosub BiegnijDoPozycji 1264 1370 0 25s
  1277. gosub BiegnijDoPozycji 1264 1384 0 25s
  1278. gosub BiegnijDoPozycji 1265 1384 0 25s
  1279. gosub BiegnijDoPozycji 1265 1396 0 25s
  1280. click 181 456 mc r g
  1281. wait 2s
  1282. click 181 456 r
  1283. ;---------- srodek przejscie ^^ do britanii
  1284. gosub BiegnijDoPozycji 2565 934 0 25s
  1285. gosub BiegnijDoPozycji 2561 938 0 25s
  1286. gosub BiegnijDoPozycji 2561 959 0 25s
  1287. gosub BiegnijDoPozycji 2616 959 0 25s
  1288. gosub BiegnijDoPozycji 2616 954 0 25s
  1289. gosub BiegnijDoPozycji 2634 936 0 25s
  1290. gosub BiegnijDoPozycji 2645 934 0 25s
  1291. gosub BiegnijDoPozycji 2645 905 0 25s
  1292. gosub BiegnijDoPozycji 2698 905 0 25s
  1293. gosub SprawdzGlod
  1294. gosub SkanujTeren 14
  1295. wait 10s
  1296. gosub BiegnijDoPozycji 2698 901 0 25s
  1297. gosub BiegnijDoPozycji 2698 1004 0 25s
  1298. gosub BiegnijDoPozycji 2698 1075 0 25s
  1299. gosub SprawdzGlod
  1300. gosub SkanujTeren 14
  1301. wait 10s
  1302. gosub BiegnijDoPozycji 2695 1075 0 25s
  1303. gosub BiegnijDoPozycji 2645 1075 0 25s
  1304. gosub BiegnijDoPozycji 2643 1079 0 25s
  1305. gosub SprawdzGlod
  1306. gosub SkanujTeren 8
  1307. gosub BiegnijDoPozycji 2639 1080 0 25s
  1308. gosub Obcinaj
  1309. finditem QWL C_ , #backpackid
  1310. if #findkind <> -1
  1311. {
  1312. set %PortalX #charposx
  1313. set %PortalY #charposy
  1314. set %PortalYOrg #charposy
  1315. set #lobjectid #findid
  1316. event macro 17
  1317. repeat
  1318. finditem QWL C_ , #backpackid
  1319. until #findkind = -1
  1320. wait 2s
  1321. set %PortalY #charposy - 2
  1322. move %PortalX %PortalY 0 10s
  1323. event Pathfind %PortalX %PortalYOrg #charposz
  1324. wait 3s
  1325. repeat
  1326. until #CHARPOSX > 815 && #CHARPOSX < 843 && #CHARPOSY > 1192 && #CHARPOSY < 1217
  1327. }
  1328. }
  1329. return
  1330. ;-----------------------------------------------
  1331. sub BiegnijDoPozycji
  1332. move %1 %2 %3 %4
  1333. if *STOP = 1
  1334. {
  1335. set *WAIT 0
  1336. repeat
  1337. until *STOP = 0
  1338. }
  1339. return
  1340. ;-----------------------------------------------
  1341. sub SprawdzGlod
  1342. if *STOP = 1
  1343. {
  1344. set *WAIT 0
  1345. repeat
  1346. until *STOP = 0
  1347. }
  1348. return
  1349. ;--------------------------------------------
  1350. sub NakarmZwierze
  1351. for %i 1 2
  1352. {
  1353. finditem %wierzchowiec G_1
  1354. if #findkind = -1
  1355. {
  1356. event macro 1 0 podejdzcie
  1357. wait 1s
  1358. finditem %wierzchowiec G_1
  1359. }
  1360. set %JukaID . %i #FINDID
  1361. set %JukaX . %i #FINDX
  1362. set %JukaY . %i #FINDY
  1363. set %JukaZ . %i #FINDZ
  1364. }
  1365. for %j 1 1
  1366. {
  1367. finditem FWI_QQD_TWI_UWI_UQE C_ , #backpackid
  1368. if #findkind = -1
  1369. {
  1370. event sysmessage Nie masz owocow dla juczniakow.
  1371. return
  1372. }
  1373. else
  1374. {
  1375. set %Szczesliwe 0
  1376. repeat
  1377. finditem FWI_QQD_TWI_UWI_UQE C_ , #backpackid
  1378. if #findkind = -1
  1379. {
  1380. return
  1381. }
  1382. set %jindex #jindex
  1383. exevent drag #findid #findstack
  1384. wait 5
  1385. exevent dropc %JukaID . %j
  1386. wait 5
  1387. set %break 0
  1388. repeat
  1389. set %ji #jindex - %jindex
  1390. for %i 1 %ji
  1391. {
  1392. scanjournal %i
  1393. if _*szczesliwe* in #journal || *twe_zwierze in #journal
  1394. {
  1395. set %Szczesliwe 1
  1396. set %break 1
  1397. break
  1398. }
  1399. if _*Yum!* in #journal
  1400. {
  1401. set %break 1
  1402. break
  1403. }
  1404. finditem FWI_QQD_TWI_UWI C_ , #backpackid
  1405. if #findkind = -1
  1406. {
  1407. event sysmessage Nie masz owocow dla juczniakow.
  1408. return
  1409. }
  1410. }
  1411. if %break = 1
  1412. {
  1413. set %break 0
  1414. break
  1415. }
  1416. until #false
  1417. if %Szczesliwe = 1
  1418. break
  1419. until #false
  1420. }
  1421. }
  1422. return
  1423. ;--------------------------------------------------------------------
  1424. sub WezGold
  1425. finditem TVH C
  1426. if #findkind <> -1
  1427. {
  1428. exevent drag #findid 1
  1429. wait 5
  1430. exevent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
  1431. wait 5
  1432. }
  1433. event macro 1 0 bilans
  1434. repeat
  1435. until 300_200 in #contsize
  1436. if gold in %1
  1437. {
  1438. click 360 350
  1439. }
  1440. if czek in %1
  1441. {
  1442. click 242 348
  1443. }
  1444. repeat
  1445. until 420_320 in #contsize
  1446. click 328 482
  1447. wait 2
  1448. key BACK
  1449. msg %2
  1450. click 417 485
  1451. wait 5
  1452. click 418 292 r
  1453. wait 5
  1454. return
  1455. ;-----------------------------------------------
  1456. sub Sprzedaj
  1457. repeat
  1458. ;pause
  1459. if 180_240 notin #CONTSIZE || #CONTSIZEX = 180 && #CONTSIZEY = 240
  1460. {
  1461. event macro 1 0 Bankier daj moja skrzynie.
  1462. set %timer #scnt + 10
  1463. repeat
  1464. if %timer < #scnt
  1465. return
  1466. until 180_240 in #CONTSIZE
  1467. }
  1468.  
  1469. ;finditem XUF C ;lyka biala butle
  1470. ;if #findkind <> -1
  1471. ;{
  1472. ; set #lobjectid #findid
  1473. ; event macro 17
  1474. ; wait 1s
  1475. ;}
  1476.  
  1477. ;szuka ziol w plecaku postaci
  1478. set %RegInBackpack 0
  1479. finditem %DoSprzedanie C_ , #backpackid
  1480. if #findkind <> -1
  1481. {
  1482. for #findindex 1 #findcnt
  1483. {
  1484. set %RegInBackpack %RegInBackpack + #findstack
  1485. }
  1486. }
  1487.  
  1488. set #lobjectid %ID_Plecaka_Na_Ziola
  1489. event macro 17
  1490. set %time #scnt2 + 10
  1491. repeat
  1492. if %time < #scnt2
  1493. {
  1494. set %time #scnt2 + 10
  1495. set #lobjectid %ID_Plecaka_Na_Ziola
  1496. event macro 17
  1497. }
  1498. until #CONTID = %ID_Plecaka_Na_Ziola
  1499. wait 1s
  1500. finditem %TypKrzakowDoSprzedania C_ , %ID_Plecaka_Na_Ziola
  1501. if #findkind = -1
  1502. {
  1503. gosub Obcinaj
  1504. return
  1505. }
  1506. for #findindex 1 #findcnt
  1507. {
  1508. if #findstack > 4000
  1509. {
  1510. set %CntToSell 4000
  1511. break
  1512. }
  1513. else
  1514. {
  1515. set %CntToSell #findstack
  1516. break
  1517. }
  1518. }
  1519.  
  1520. set %CntToSell %CntToSell - %RegInBackpack
  1521. finditem %TypKrzakowDoSprzedania C_ , %ID_Plecaka_Na_Ziola
  1522. if #findkind = -1
  1523. {
  1524. gosub Obcinaj
  1525. return
  1526. }
  1527. for #findindex 1 #findcnt
  1528. {
  1529. exevent drag #findid %CntToSell
  1530. wait 5
  1531. exevent dropc #backpackid
  1532. wait 5
  1533. break
  1534. }
  1535.  
  1536. move 1183 1134 0 25s
  1537. move 1183 1137 0 25s
  1538. event macro 12
  1539. wait 6
  1540. move 1183 1142 0 25s
  1541. move 1190 1149 0 25s
  1542. move 1190 1167 0 25s
  1543. move 1211 1167 0 25s
  1544. move 1211 1177 0 25s
  1545. move 1208 1177 0 25s
  1546. event macro 12
  1547. wait 6
  1548. move 1202 1177 0 25s
  1549. set %ZiolaSprzedane 0
  1550. repeat
  1551. event macro 1 0 Chce cos sprzedac.
  1552. repeat
  1553. finditem %TypKrzakowDoSprzedania C_ , #backpackid
  1554. if #findkind = -1
  1555. {
  1556. set %ZiolaSprzedane 1
  1557. break
  1558. }
  1559. until #CONTSIZE = 283_248 && #CONTNAME = bill_gump
  1560. click 248 92 d
  1561. wait 5
  1562. click 480 298 g
  1563. wait 9s
  1564. click 313 421 d mc
  1565. wait 2s
  1566. if %ZiolaSprzedane = 1
  1567. {
  1568. set %ZiolaSprzedane 0
  1569. break
  1570. }
  1571. until #false
  1572. move 1206 1177 0 25s
  1573. event macro 12
  1574. wait 6
  1575. move 1211 1177 0 25s
  1576. move 1211 1167 0 25s
  1577. move 1190 1167 0 25s
  1578. move 1190 1149 0 25s
  1579. move 1183 1142 0 25s
  1580. move 1183 1139 0 25s
  1581. event macro 12
  1582. wait 6
  1583. move 1183 1134 0 25s
  1584. move 1181 1132 0 25s ;przy bankierze
  1585. finditem pof C_ , #backpackid
  1586. if #findkind <> -1
  1587. {
  1588. set %zloto_x #findx + 20
  1589. set %zloto_y #findy + 15
  1590. click %zloto_x %zloto_y g
  1591. wait 5
  1592. key Enter
  1593. set %x ( 358 + #CLILEFT )
  1594. set %y ( 221 + #CLITOP )
  1595. click %x %y p
  1596. repeat
  1597. scanjournal 1
  1598. until przyjalem in #journal
  1599. }
  1600. until #false
  1601. return
  1602. ;--------------------------------------------
  1603. sub WsiadajZsiadaj
  1604. finditem %wierzchowiec G_2
  1605. if #findkind <> -1 ;jesli nie siedzi na lamie
  1606. {
  1607. event macro 1 0 Podejdzcie!
  1608. event macro 2 0 Krzyczy!
  1609. wait 5
  1610. set #lobjectid #findid
  1611. event macro 17 0
  1612. set %TimeMount #scnt2 + 30
  1613. repeat
  1614. finditem %wierzchowiec G_2
  1615. if %TimeMount < #scnt2
  1616. {
  1617. set #lobjectid #findid
  1618. event macro 17
  1619. set %TimeMount #scnt2 + 30
  1620. }
  1621. until #findkind = -1
  1622. }
  1623. else
  1624. {
  1625. set #lobjectid #charid
  1626. event macro 17
  1627. set %TimeMount #scnt2 + 30
  1628. repeat
  1629. finditem %wierzchowiec G_2
  1630. if %TimeMount < #scnt2
  1631. {
  1632. set #lobjectid #charid
  1633. event macro 17
  1634. set %TimeMount #scnt2 + 30
  1635. }
  1636. until #findkind <> -1
  1637. }
  1638. return
  1639. ;-----------------------------------------------------------
  1640. sub GetMountID
  1641. finditem %MountType G_0
  1642. if #findkind = -1
  1643. {
  1644. set #lobjectid #charid
  1645. event macro 17
  1646. wait 5
  1647. finditem %MountType G_0
  1648. if #findkind = -1
  1649. {
  1650. event sysmessage Nie masz wierzchowca.
  1651. halt
  1652. }
  1653. set %wierzchowiec #findid
  1654. wait 5s
  1655. gosub WsiadajZsiadaj
  1656. }
  1657. return
  1658. ;-----------------------------------------------------------
  1659. sub Relog
  1660. click 1010 44 mc
  1661. repeat
  1662. until 178_108 in #contsize
  1663. wait 5
  1664. click 560 435
  1665. wait 1s
  1666. set %TiemeRelog #scnt + %TimeToWait
  1667. repeat
  1668. until %TiemeRelog < #scnt
  1669. if 640_480 in #contsize
  1670. {
  1671. click 380 395
  1672. wait 2
  1673. msg %Haslo
  1674. wait 5
  1675. click 617 446
  1676. wait 5
  1677. click 617 446
  1678. wait 5
  1679. click 617 446
  1680. wait 1s
  1681. click 194 207 r
  1682. wait 2s
  1683. click 290 272 r
  1684. set %TimeToWait 720
  1685. }
  1686. else
  1687. {
  1688. halt
  1689. }
  1690. return
  1691. ;-----------------------------------------------------------
  1692. sub ZawszeBieg
  1693. set %jindex #jindex
  1694. event macro 32 0
  1695. repeat
  1696. set %ji #jindex - %jindex
  1697. for %i 1 %ji
  1698. {
  1699. scanjournal %i
  1700. if Always_Run_is_now_off in #journal
  1701. {
  1702. event macro 32 0
  1703. set %jindex #jindex
  1704. break
  1705. }
  1706. if Always_Run_is_now_on in #journal
  1707. {
  1708. return
  1709. }
  1710. }
  1711. until #false
  1712. return
  1713. ;Roslinki do zbierania:
  1714. ; XIJ - czosnek
  1715. ; NIJ - mandragora OIJ - szczepka
  1716. ; TIJ - wilcze jagody
  1717. ; FJJ - zenszen
  1718. ; TIJ - krwawy mech
  1719. ; KBF - grzybki
  1720. ;Roslinki do wywalenia:
  1721. ; CBF - szczepki grzybkow
  1722. ; GJJ - szczepki wilczych jagod
  1723. ; OIJ - szczepki mandragory
  1724. ;Typy krzaczkow czyli po zerwaniu
  1725. ; VIJ_LIJ_HJJ_ZIJ_PZF
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!