API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 16th, 2019
601
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 44.02 KB | None | 0 0
raw download clone embed print report
  1. ;Skrypt bY SabiK
  2. ;magia_menu.txt
  3. ;Wersja 3.1
  4. ;Wcisnij play i pojawi sie menu magii
  5. ;!!!UWAGA!!!
  6. ;Aby skrypt przerywal medytacje musisz miec jedna z ponizszych rzeczy:
  7. ;pusta miske (po salatce), pusty talerz (po ciasteczkach), pusty dzbanek (po soku)
  8. ;-------------------TUTAJ MOZESZ USTAWIC ZMIENNE--------------------
  9. set %delay 4s ;TUTAJ USTAW DELAY PO WIEDZY O ZWIERZETACH LUB WIEDZY O BRONI ZANIM SKRYPT ZACZNIE CZAROWAC (wiedza o zwierzetach ok 4s, wiesza o broni ok 2s)
  10. set %c1 1 ;Czar (3-17)
  11. set %s1 1 ;Skill (3-10)
  12. set %c2 1 ;Cel czarow (3-5)
  13. set %m1 1 ;Przerywanie medytacji (3-5)
  14. set %b1 #true ;Bles (#false - nie, #true - tak)
  15. set %b2 60 ;Ponizej ilu str zarzucac blesa
  16. set %l1 #false ;Lecz (#false - nie, #true - tak)
  17. set %l2 30 ;Ponizej ilu hp ma leczyc
  18. ---------------------------------------------------------------------
  19.  
  20. magiamenu:
  21. set #lpc 1000
  22. menu hide
  23. set %bles 0
  24. set %czar 0
  25. set %czar1 0
  26. set %skill 0
  27. set %skill1 0
  28. set %cel 0
  29. set %mana 0
  30. set %mana1 0
  31. set %mana2 0
  32. set %mana3 0
  33. set %mana4 0
  34. set %mana5 0
  35. set %medyt 0
  36. set %medyt1 0
  37. set %res 0
  38. set %time 0
  39. set %licz 0
  40. set %hp 0
  41. set %lecz 0
  42. set %str 0
  43. set %ramka 0
  44. set %mamresa 0
  45. set %jestzywiol 0
  46. set %lt n/a
  47. set %lt1 n/a
  48. set #sysmsg n/a
  49. set #scnt 0
  50. set #scnt2 0
  51. set #menubutton n/a
  52. menu clear
  53. menu window title Magia bY SabiK v3.1
  54. if %ramka = 0
  55. {
  56. menu delete ramka1
  57. menu delete blad1
  58. menu window size 216 290
  59. }
  60. else
  61. {
  62. if %time > 0
  63. menu window size 216 350
  64. else
  65. menu window size 216 345
  66. }
  67. menu window color btnface
  68. ;Czary
  69. menu font name verdana
  70. menu font size 9
  71. menu font color black
  72. menu font bgcolor btnface
  73. menu font style b
  74. menu text wersja 70 214 Wersja 3.1
  75. menu text 1czary 10 12 Czar:
  76. menu font size 8
  77. menu font bgcolor white
  78. menu font style
  79. menu combo create czary 50 10 160
  80. menu combo add czary Wybierz:
  81. menu combo add czary ----------------------------------
  82. menu combo add czary Lightning
  83. menu combo add czary Mana Drain
  84. menu combo add czary Paralyze
  85. menu combo add czary Mind Blast
  86. menu combo add czary Energy Bolt
  87. menu combo add czary Explosion
  88. menu combo add czary Reveal
  89. menu combo add czary Flame Strike
  90. menu combo add czary Mana Vampire
  91. menu combo add czary Earthquake
  92. menu combo add czary Resurrection
  93. menu combo add czary Air Elemental
  94. menu combo add czary Earth Elemental
  95. menu combo add czary Fire Elemental
  96. menu combo add czary Water Elemental
  97. menu combo select czary %c1
  98. ;Skille
  99. menu font size 9
  100. menu font color black
  101. menu font bgcolor btnface
  102. menu font style b
  103. menu text 1skille 11 53 Skill:
  104. menu font size 8
  105. menu font bgcolor white
  106. menu font style
  107. menu combo create skille 50 50 160
  108. menu combo add skille Wybierz:
  109. menu combo add skille ----------------------------------
  110. menu combo add skille Zaden
  111. menu combo add skille Ukrywanie
  112. menu combo add skille Madrosc
  113. menu combo add skille Identyfikacja
  114. menu combo add skille Rozmowa z duchami
  115. menu combo add skille Wykrywanie
  116. menu combo add skille Wiedza o zwierzetach
  117. menu combo add skille Wiedza o broni
  118. menu combo select skille %s1
  119. ;Cel
  120. menu font size 10
  121. menu font color black
  122. menu font bgcolor btnface
  123. menu font style b
  124. menu text 1cel 10 92 Cel czarow:
  125. menu font size 8
  126. menu font bgcolor white
  127. menu font style
  128. menu combo create cel 100 90 110
  129. menu combo add cel Wybierz:
  130. menu combo add cel -------------------------
  131. menu combo add cel W siebie
  132. menu combo add cel W wybrany cel
  133. menu combo add cel Brak (wis, eq)
  134. menu combo select cel %c2
  135. ;Przerywany medyt
  136. menu font size 10
  137. menu font color black
  138. menu font bgcolor btnface
  139. menu font style b
  140. menu text 1medyt 10 124 Medytacja:
  141. menu font size 8
  142. menu font bgcolor white
  143. menu font style
  144. menu combo create medyt 100 122 110
  145. menu combo add medyt Wybierz:
  146. menu combo add medyt -------------------------
  147. menu combo add medyt Nie przerywaj
  148. menu combo add medyt Przerwij raz
  149. menu combo add medyt Przerwij dwa razy
  150. menu combo add medyt Po kazdym czarze
  151. menu combo select medyt %m1
  152. ;Bles
  153. menu font size 8
  154. menu font color black
  155. menu font bgcolor btnface
  156. menu font style
  157. menu check bles 10 155 149 15 %b1 Zarzucaj blesa ponizej
  158. menu edit bles1 161 152 23 %b2
  159. menu text bles 186 155 sily
  160. ;Leczenie
  161. menu font size 8
  162. menu font color black
  163. menu font bgcolor btnface
  164. menu font style
  165. menu check lecz 10 183 90 15 %l1 Lecz ponizej
  166. menu edit lecz1 102 180 23 %l2
  167. menu text lecz 127 183 hp
  168. ;Start i anuluj
  169. menu font size 10
  170. menu font color black
  171. menu font bgcolor btnface
  172. menu font style b
  173. menu button startp 5 210 60 25 START
  174. menu button anuluj 150 210 60 25 Anuluj
  175.  
  176. menu delete ramka
  177. menu delete blad
  178. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  179. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  180. menu font bgcolor $98FB98
  181. if %ramka = 0
  182. menu window size 216 290
  183. else
  184. {
  185. if %time > 0
  186. menu window size 216 350
  187. else
  188. menu window size 216 345
  189. }
  190. menu font size 9
  191. menu font color red
  192. menu font style b
  193. menu text blad 90 241 Stan:
  194. menu font size 7
  195. menu font bgcolor $FFF8DC
  196. menu font color black
  197. menu text blad 15 265 Oczekuje..
  198.  
  199. menu hideEuo
  200. set #lpc 10
  201. menupokaz:
  202. set #menubutton n/a
  203. menu show
  204. czekaj:
  205. if #str = N/A || #dex = N/A || #int = N/A
  206. event macro 8 2
  207. if #menubutton <> n/a
  208. goto #menubutton
  209. goto czekaj
  210.  
  211. closed:
  212. set #targcurs 0
  213. halt
  214. anuluj:
  215. set #targcurs 0
  216. set #menubutton n/a
  217. goto magiamenu
  218. stopp:
  219. set #targcurs 0
  220. menu delete startp
  221. menu delete stopp
  222. menu font size 10
  223. menu font color black
  224. menu font style b
  225. menu font bgcolor btnface
  226. menu button startp 5 210 60 25 START
  227. if #menubutton = closed
  228. goto menupokaz
  229. set #menubutton n/a
  230. goto czekaj
  231.  
  232.  
  233. startp:
  234. menu delete ramka
  235. menu delete blad
  236. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  237. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  238. menu font bgcolor $98FB98
  239. if %ramka = 0
  240. menu window size 216 290
  241. else
  242. {
  243. if %time > 0
  244. menu window size 216 350
  245. else
  246. menu window size 216 345
  247. }
  248. menu font size 9
  249. menu font color red
  250. menu font style b
  251. menu text blad 90 241 Stan:
  252. menu font size 7
  253. menu font bgcolor $FFF8DC
  254. menu font color black
  255. menu text blad 15 265 Odczytywanie danych..
  256. if %ramka = 0 && %res = 0
  257. {
  258. menu delete ramka1
  259. menu delete blad1
  260. menu window size 216 290
  261. }
  262. else
  263. {
  264. if %time > 0
  265. menu window size 216 350
  266. else
  267. menu window size 216 345
  268. }
  269. menu font color black
  270. menu delete startp
  271. menu font size 10
  272. menu font color black
  273. menu font style b
  274. menu font bgcolor btnface
  275. menu button stopp 5 210 60 25 STOP
  276. set #menubutton n/a
  277. if #str = N/A || #dex = N/A || #int = N/A
  278. event macro 8 2
  279.  
  280. menu get czary
  281. set %czar #menures - 2
  282. menu get skille
  283. set %skill #menures - 3
  284. menu get cel
  285. set %cel #menures - 2
  286. menu get medyt
  287. set %medyt #menures - 3
  288. menu get lecz
  289. set %lecz 1
  290. {
  291. if #menures <> -1
  292. {
  293. set %lecz 0
  294. goto startp1
  295. }
  296. menu get lecz1
  297. set %hp #menures
  298. }
  299. startp1:
  300. if #menubutton <> n/a
  301. goto #menubutton
  302. menu get bles
  303. set %bles 1
  304. {
  305. if #menures <> -1
  306. {
  307. set %bles 0
  308. goto startp2
  309. }
  310. menu get bles1
  311. set %str #menures
  312. }
  313. startp2:
  314. if #menubutton <> n/a
  315. goto #menubutton
  316. if %czar = 7 || %czar = 10
  317. {
  318. if %cel <> 3
  319. set %cel 3
  320. }
  321. if %cel = 3
  322. {
  323. if %czar = 7 || %czar = 10
  324. goto startp3
  325. menu delete startp
  326. menu delete stopp
  327. menu font size 10
  328. menu font color red
  329. menu font bgcolor btnface
  330. menu font style b
  331. menu button startp 5 210 60 25 START
  332. set #sysmsgcol 1080
  333. event sysmessage Zle wybrany czar wzgledem celu!
  334. menu delete ramka
  335. menu delete blad
  336. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  337. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  338. menu font size 9
  339. menu font color red
  340. menu font style b
  341. menu font bgcolor $98FB98
  342. if %ramka = 0
  343. menu window size 216 290
  344. else
  345. {
  346. if %time > 0
  347. menu window size 216 350
  348. else
  349. menu window size 216 345
  350. }
  351. menu text blad 90 241 Blad:
  352. menu font size 7
  353. menu font bgcolor $FFF8DC
  354. menu font color black
  355. menu text blad 15 265 Zle wybrany czar wzgledem celu!
  356. if #menubutton = closed
  357. goto menupokaz
  358. goto czekaj
  359. }
  360. startp3:
  361. if %czar < 1 && %skill < 0 && %cel < 1
  362. {
  363. menu delete startp
  364. menu delete stopp
  365. menu font size 10
  366. menu font color red
  367. menu font bgcolor btnface
  368. menu font style b
  369. menu button startp 5 210 60 25 START
  370. set #sysmsgcol 1080
  371. event sysmessage Zle wybrany czar, skill i cel!
  372. menu delete ramka
  373. menu delete blad
  374. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  375. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  376. menu font size 9
  377. menu font color red
  378. menu font style b
  379. menu font bgcolor $98FB98
  380. if %ramka = 0
  381. menu window size 216 290
  382. else
  383. {
  384. if %time > 0
  385. menu window size 216 350
  386. else
  387. menu window size 216 345
  388. }
  389. menu text blad 90 241 Blad:
  390. menu font size 7
  391. menu font bgcolor $FFF8DC
  392. menu font color black
  393. menu text blad 15 265 Zle wybrany czar, skill i cel!
  394. if #menubutton = closed
  395. goto menupokaz
  396. goto czekaj
  397. }
  398. if %czar < 1 && %skill < 0
  399. {
  400. menu delete startp
  401. menu delete stopp
  402. menu font size 10
  403. menu font color red
  404. menu font bgcolor btnface
  405. menu font style b
  406. menu button startp 5 210 60 25 START
  407. set #sysmsgcol 1080
  408. event sysmessage Zle wybrany czar i skill!
  409. menu delete ramka
  410. menu delete blad
  411. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  412. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  413. menu font size 9
  414. menu font color red
  415. menu font style b
  416. menu font bgcolor $98FB98
  417. if %ramka = 0
  418. menu window size 216 290
  419. else
  420. {
  421. if %time > 0
  422. menu window size 216 350
  423. else
  424. menu window size 216 345
  425. }
  426. menu text blad 90 241 Blad:
  427. menu font size 7
  428. menu font bgcolor $FFF8DC
  429. menu font color black
  430. menu text blad 15 265 Zle wybrany czar i skill!
  431. if #menubutton = closed
  432. goto menupokaz
  433. goto czekaj
  434. }
  435. if %czar < 1 && %cel < 1
  436. {
  437. menu delete startp
  438. menu delete stopp
  439. menu font size 10
  440. menu font color red
  441. menu font bgcolor btnface
  442. menu font style b
  443. menu button startp 5 210 60 25 START
  444. set #sysmsgcol 1080
  445. event sysmessage Zle wybrany czar i cel!
  446. menu delete ramka
  447. menu delete blad
  448. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  449. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  450. menu font size 9
  451. menu font color red
  452. menu font style b
  453. menu font bgcolor $98FB98
  454. if %ramka = 0
  455. menu window size 216 290
  456. else
  457. {
  458. if %time > 0
  459. menu window size 216 350
  460. else
  461. menu window size 216 345
  462. }
  463. menu text blad 90 241 Blad:
  464. menu font size 7
  465. menu font bgcolor $FFF8DC
  466. menu font color black
  467. menu text blad 15 265 Zle wybrany czar i cel!
  468. if #menubutton = closed
  469. goto menupokaz
  470. goto czekaj
  471. }
  472. if %skill < 0 && %cel < 1
  473. {
  474. menu delete startp
  475. menu delete stopp
  476. menu font size 10
  477. menu font color red
  478. menu font bgcolor btnface
  479. menu font style b
  480. menu button startp 5 210 60 25 START
  481. set #sysmsgcol 1080
  482. event sysmessage Zle wybrany skill i cel!
  483. menu delete ramka
  484. menu delete blad
  485. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  486. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  487. menu font size 9
  488. menu font color red
  489. menu font style b
  490. menu font bgcolor $98FB98
  491. if %ramka = 0
  492. menu window size 216 290
  493. else
  494. {
  495. if %time > 0
  496. menu window size 216 350
  497. else
  498. menu window size 216 345
  499. }
  500. menu text blad 90 241 Blad:
  501. menu font size 7
  502. menu font bgcolor $FFF8DC
  503. menu font color black
  504. menu text blad 15 265 Zle wybrany skill i cel!
  505. if #menubutton = closed
  506. goto menupokaz
  507. goto czekaj
  508. }
  509. if %czar < 1
  510. {
  511. menu delete startp
  512. menu delete stopp
  513. menu font size 10
  514. menu font color red
  515. menu font bgcolor btnface
  516. menu font style b
  517. menu button startp 5 210 60 25 START
  518. set #sysmsgcol 1080
  519. event sysmessage Zle wybrany czar!
  520. menu delete ramka
  521. menu delete blad
  522. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  523. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  524. menu font size 9
  525. menu font color red
  526. menu font style b
  527. menu font bgcolor $98FB98
  528. if %ramka = 0
  529. menu window size 216 290
  530. else
  531. {
  532. if %time > 0
  533. menu window size 216 350
  534. else
  535. menu window size 216 345
  536. }
  537. menu text blad 90 241 Blad:
  538. menu font size 7
  539. menu font bgcolor $FFF8DC
  540. menu font color black
  541. menu text blad 15 265 Zle wybrany czar!
  542. if #menubutton = closed
  543. goto menupokaz
  544. goto czekaj
  545. }
  546. if %skill < 0
  547. {
  548. menu delete startp
  549. menu delete stopp
  550. menu font size 10
  551. menu font color red
  552. menu font bgcolor btnface
  553. menu font style b
  554. menu button startp 5 210 60 25 START
  555. set #sysmsgcol 1080
  556. event sysmessage Zle wybrany skill!
  557. menu delete ramka
  558. menu delete blad
  559. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  560. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  561. menu font size 9
  562. menu font color red
  563. menu font style b
  564. menu font bgcolor $98FB98
  565. if %ramka = 0
  566. menu window size 216 290
  567. else
  568. {
  569. if %time > 0
  570. menu window size 216 350
  571. else
  572. menu window size 216 345
  573. }
  574. menu text blad 90 241 Blad:
  575. menu font size 7
  576. menu font bgcolor $FFF8DC
  577. menu font color black
  578. menu text blad 15 265 Zle wybrany skill!
  579. if #menubutton = closed
  580. goto menupokaz
  581. goto czekaj
  582. }
  583. if %cel < 1
  584. {
  585. menu delete startp
  586. menu delete stopp
  587. menu font size 10
  588. menu font color red
  589. menu font bgcolor btnface
  590. menu font style b
  591. menu button startp 5 210 60 25 START
  592. set #sysmsgcol 1080
  593. event sysmessage Zle wybrany cel!
  594. menu delete ramka
  595. menu delete blad
  596. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  597. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  598. menu font size 9
  599. menu font color red
  600. menu font style b
  601. menu font bgcolor $98FB98
  602. if %ramka = 0
  603. menu window size 216 290
  604. else
  605. {
  606. if %time > 0
  607. menu window size 216 350
  608. else
  609. menu window size 216 345
  610. }
  611. menu text blad 90 241 Blad:
  612. menu font size 7
  613. menu font bgcolor $FFF8DC
  614. menu font color black
  615. menu text blad 15 265 Zle wybrany cel!
  616. if #menubutton = closed
  617. goto menupokaz
  618. goto czekaj
  619. }
  620.  
  621. if %czar = 1
  622. {
  623. set %czar1 45
  624. set %mana 20
  625. }
  626. if %czar = 2
  627. {
  628. set %czar1 30
  629. set %mana 11
  630. }
  631. if %czar = 3
  632. {
  633. set %czar1 37
  634. set %mana 14
  635. }
  636. if %czar = 4
  637. {
  638. set %czar1 36
  639. set %mana 14
  640. }
  641. if %czar = 5
  642. {
  643. set %czar1 43 ;ma byc 41 dla corpa
  644. set %mana 20
  645. }
  646. if %czar = 6
  647. {
  648. set %czar1 42
  649. set %mana 20
  650. }
  651. if %czar = 7
  652. {
  653. set %czar1 47
  654. set %mana 20
  655. }
  656. if %czar = 8
  657. {
  658. set %czar1 50
  659. set %mana 40
  660. }
  661. if %czar = 9
  662. {
  663. set %czar1 52
  664. set %mana 40
  665. }
  666. if %czar = 10
  667. {
  668. set %czar1 56
  669. set %mana 50
  670. }
  671. if %czar = 11
  672. {
  673. set %czar1 58
  674. set %mana 50
  675. }
  676. if %czar = 12
  677. {
  678. set %czar1 59
  679. set %mana 50
  680. }
  681. if %czar = 13
  682. {
  683. set %czar1 61
  684. set %mana 50
  685. }
  686. if %czar = 14
  687. {
  688. set %czar1 62
  689. set %mana 50
  690. }
  691. if %czar = 15
  692. {
  693. set %czar1 63
  694. set %mana 50
  695. }
  696. if %cel <> 2
  697. goto skill1
  698. if %lt1 <> N/A
  699. goto skill1
  700. lt1:
  701. set #targcurs 1
  702. set #sysmsgcol 63
  703. event sysmessage Wskaz teraz cel czarow
  704. menu delete ramka
  705. menu delete blad
  706. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  707. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  708. menu font size 9
  709. menu font color red
  710. menu font style b
  711. menu font bgcolor $98FB98
  712. if %ramka = 0
  713. menu window size 216 290
  714. else
  715. {
  716. if %time > 0
  717. menu window size 216 350
  718. else
  719. menu window size 216 345
  720. }
  721. menu text blad 90 241 Stan:
  722. menu font size 7
  723. menu font bgcolor $FFF8DC
  724. menu font color black
  725. menu text blad 15 265 Wskaz teraz cel czarow
  726. if #menubutton = closed
  727. {
  728. menu show
  729. set #menubutton n/a
  730. }
  731. set %licz 0
  732. czekaj_lt1:
  733. if #menubutton <> n/a
  734. goto #menubutton
  735. onhotkey esc
  736. goto dalej_lt11
  737. set %licz %licz + 1
  738. if #targcurs = 0
  739. goto dalej_lt1
  740. if %licz > 300
  741. goto lt1
  742. goto czekaj_lt1
  743. }
  744. dalej_lt1:
  745. if anulowano in #sysmsg
  746. goto dalej_lt11
  747. set %lt1 #ltargetid
  748. set #sysmsgcol 88
  749. event sysmessage Zapisano.
  750. menu delete ramka
  751. menu delete blad
  752. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  753. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  754. menu font bgcolor $98FB98
  755. if %ramka = 0
  756. menu window size 216 290
  757. else
  758. {
  759. if %time > 0
  760. menu window size 216 350
  761. else
  762. menu window size 216 345
  763. }
  764. menu font size 9
  765. menu font color red
  766. menu font style b
  767. menu text blad 90 241 Stan:
  768. menu font size 7
  769. menu font bgcolor $FFF8DC
  770. menu font color black
  771. menu text blad 15 265 Zapisano cel czarow
  772. goto skill1
  773. dalej_lt11:
  774. set #sysmsgcol 1080
  775. event sysmessage Nie wskazano celu czarow!
  776. menu delete ramka
  777. menu delete blad
  778. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  779. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  780. menu font bgcolor $98FB98
  781. if %ramka = 0
  782. menu window size 216 290
  783. else
  784. {
  785. if %time > 0
  786. menu window size 216 350
  787. else
  788. menu window size 216 345
  789. }
  790. menu font size 9
  791. menu font color red
  792. menu font style b
  793. menu text blad 90 241 Blad:
  794. menu font size 7
  795. menu font bgcolor $FFF8DC
  796. menu font color black
  797. menu text blad 15 265 Nie wskazano celu czarow!
  798. if #menubutton = closed
  799. goto menupokaz
  800. goto czekaj
  801.  
  802. skill1:
  803. if %skill = 0 || %skill = 1 || %skill = 4 || %skill = 5
  804. goto start
  805. if %skill = 2
  806. set %skill1 Madrosc
  807. if %skill = 3
  808. set %skill1 Identyfikacja
  809. if %skill = 6
  810. set %skill1 Wiedza , #spc , o , #spc , zwierzetach
  811. if %skill = 7
  812. set %skill1 Wiedza , #spc , o , #spc , broni
  813.  
  814. if %lt <> n/a
  815. goto start
  816. lt:
  817. set #targcurs 1
  818. set #sysmsgcol 63
  819. event sysmessage Wskaz teraz na czym ma byc robiona %skill1
  820. menu delete ramka
  821. menu delete blad
  822. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  823. menu shape ramka 10 257 196 35 3 6 1 blue 7 $FFF8DC
  824. menu font bgcolor $98FB98
  825. if %ramka = 0
  826. menu window size 216 295
  827. else
  828. {
  829. if %time > 0
  830. menu window size 216 350
  831. else
  832. menu window size 216 345
  833. }
  834. menu font size 9
  835. menu font color red
  836. menu font style b
  837. menu text blad 90 241 Stan:
  838. menu font size 7
  839. menu font bgcolor $FFF8DC
  840. menu font color black
  841. menu text blad 15 265 Wskaz teraz na czym ma byc robiona
  842. menu font color blue
  843. menu text blad 15 277 %skill1
  844. if #menubutton = closed
  845. {
  846. menu show
  847. set #menubutton n/a
  848. }
  849. set %licz 0
  850. czekaj_lt:
  851. if #menubutton <> n/a
  852. goto #menubutton
  853. onhotkey esc
  854. goto dalej_lt0
  855. set %licz %licz + 1
  856. if #targcurs = 0
  857. goto dalej_lt
  858. if %licz > 300
  859. goto lt
  860. goto czekaj_lt
  861. }
  862. dalej_lt:
  863. if anulowano in #sysmsg
  864. goto dalej_lt0
  865. set %lt #ltargetid
  866. set #sysmsgcol 88
  867. event sysmessage Zapisano.
  868. menu delete ramka
  869. menu delete blad
  870. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  871. menu shape ramka 10 257 196 35 3 6 1 blue 7 $FFF8DC
  872. menu font bgcolor $98FB98
  873. if %ramka = 0
  874. menu window size 216 290
  875. else
  876. {
  877. if %time > 0
  878. menu window size 216 350
  879. else
  880. menu window size 216 345
  881. }
  882. menu font size 9
  883. menu font color red
  884. menu font style b
  885. menu text blad 90 241 Stan:
  886. menu font size 7
  887. menu font bgcolor $FFF8DC
  888. menu font color black
  889. menu text blad 15 265 Zapisano cel umiejetnosci
  890. menu font color blue
  891. menu text blad 15 277 %skill1
  892. goto start
  893. dalej_lt0:
  894. set %skill 0
  895. set #sysmsgcol 1080
  896. event sysmessage Anulowano.
  897. menu delete ramka
  898. menu delete blad
  899. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  900. menu shape ramka 10 257 196 35 3 6 1 blue 7 $FFF8DC
  901. menu font bgcolor $98FB98
  902. if %ramka = 0
  903. menu window size 216 290
  904. else
  905. {
  906. if %time > 0
  907. menu window size 216 350
  908. else
  909. menu window size 216 345
  910. }
  911. menu font size 9
  912. menu font color red
  913. menu font style b
  914. menu text blad 90 241 Blad:
  915. menu font size 7
  916. menu font bgcolor $FFF8DC
  917. menu font color black
  918. menu text blad 15 265 Nie wskazano celu umiejetnosci
  919. menu font color blue
  920. menu text blad 15 277 %skill1 , !
  921. set %skill 0
  922. goto start
  923.  
  924.  
  925. start:
  926. if #menubutton <> n/a
  927. goto #menubutton
  928. if *STOP = 1
  929. {
  930. repeat
  931. until *STOP = 0
  932. }
  933. if #hits < 2
  934. {
  935. set #targcurs 1
  936. set #sysmsgcol 1080
  937. event sysmessage Masz #hits hp! Skrypt wylaczono!
  938. menu delete ramka
  939. menu delete blad
  940. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  941. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  942. menu font bgcolor $98FB98
  943. if %ramka = 0
  944. menu window size 216 290
  945. else
  946. {
  947. if %time > 0
  948. menu window size 216 350
  949. else
  950. menu window size 216 345
  951. }
  952. menu font size 9
  953. menu font color red
  954. menu font style b
  955. menu text blad 90 241 Stan:
  956. menu font size 7
  957. menu font bgcolor $FFF8DC
  958. menu font color black
  959. menu text blad 15 265 Masz #hits hp! Skrypt wylaczono!
  960. halt
  961. }
  962. if %bles = 1
  963. {
  964. if #str > %str
  965. goto start2
  966. if #targcurs = 1
  967. key esc
  968. menu delete ramka
  969. menu delete blad
  970. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  971. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  972. menu font bgcolor $98FB98
  973. if %ramka = 0
  974. menu window size 216 290
  975. else
  976. {
  977. if %time > 0
  978. menu window size 216 350
  979. else
  980. menu window size 216 345
  981. }
  982. menu font size 9
  983. menu font color red
  984. menu font style b
  985. menu text blad 90 241 Stan:
  986. menu font size 7
  987. menu font bgcolor $FFF8DC
  988. menu font color black
  989. menu text blad 15 265 Czaruje blesa..
  990. bles1:
  991. if #mana < 9
  992. goto medyt
  993. event macro 15 16
  994. set %licz 0
  995. czekaj_bles:
  996. set %licz %licz + 1
  997. if #targcurs = 1
  998. goto dalej_bles
  999. if brakuje_ci_skladnikow in #sysmsg
  1000. {
  1001. menu delete startp
  1002. menu delete stopp
  1003. menu font size 10
  1004. menu font color red
  1005. menu font bgcolor btnface
  1006. menu font style b
  1007. menu button startp 5 210 60 25 START
  1008. set #sysmsgcol 1080
  1009. event sysmessage Brakuje Ci skladnikow!
  1010. menu delete ramka
  1011. menu delete blad
  1012. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1013. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1014. menu font size 9
  1015. menu font color red
  1016. menu font style b
  1017. menu font bgcolor $98FB98
  1018. if %ramka = 0
  1019. menu window size 216 290
  1020. else
  1021. {
  1022. if %time > 0
  1023. menu window size 216 350
  1024. else
  1025. menu window size 216 345
  1026. }
  1027. menu text blad 90 241 Blad:
  1028. menu font size 7
  1029. menu font bgcolor $FFF8DC
  1030. menu font color black
  1031. menu text blad 15 265 Brakuje Ci skladnikow!
  1032. if #menubutton = closed
  1033. goto menupokaz
  1034. goto czekaj
  1035. }
  1036. scanjournal 1
  1037. if Brakuje_Ci_many in #sysmsg
  1038. {
  1039. if Brakuje_Ci_many in #journal
  1040. {
  1041. deletejournal
  1042. goto medyt
  1043. }
  1044. }
  1045. if %licz > 180
  1046. goto bles1
  1047. goto czekaj_bles
  1048. dalej_bles:
  1049. event macro 23
  1050. set %bles2 1
  1051. wait 10
  1052. }
  1053. start2:
  1054. if %lecz = 1
  1055. {
  1056. if #hits <= %hp
  1057. {
  1058. if #mana < 11
  1059. goto medyt
  1060. goto leczenie
  1061. }
  1062. }
  1063. if #mana < %mana
  1064. goto medyt
  1065.  
  1066.  
  1067. skille:
  1068. if #menubutton <> n/a
  1069. goto #menubutton
  1070. if *STOP = 1
  1071. {
  1072. repeat
  1073. until *STOP = 0
  1074. }
  1075. if %skill = 0
  1076. goto start1
  1077. if #targcurs = 1
  1078. key esc
  1079. menu delete ramka
  1080. menu delete blad
  1081. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1082. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1083. menu font bgcolor $98FB98
  1084. if %ramka = 0
  1085. menu window size 216 290
  1086. else
  1087. {
  1088. if %time > 0
  1089. menu window size 216 350
  1090. else
  1091. menu window size 216 345
  1092. }
  1093. menu font size 9
  1094. menu font color red
  1095. menu font style b
  1096. menu text blad 90 241 Stan:
  1097. menu font size 7
  1098. menu font bgcolor $FFF8DC
  1099. menu font color black
  1100. menu text blad 15 265 Skill..
  1101.  
  1102. ukrywanie:
  1103. if %skill <> 1
  1104. goto madrosc
  1105. event macro 1 0 .um ukrywanie
  1106. set %licz #scnt2 + 8
  1107. czekaj_ukrywanie:
  1108. if #menubutton <> n/a
  1109. goto #menubutton
  1110. if H in #charstatus
  1111. goto start1
  1112. scanjournal 1
  1113. if #journal = Nie_udalo_Ci_sie_ukryc.
  1114. goto start1
  1115. if #journal = Nie_uda_Ci_sie_schowac_wierzchowca!
  1116. {
  1117. set %skill 0
  1118. set #sysmsgcol 1080
  1119. event sysmessage Nie ukryjesz sie na wierzchowcu! Skrypt nie bedzie sie ukrywal!
  1120. menu delete ramka
  1121. menu delete blad
  1122. menu shape ramka 10 210 196 18 3 6 1 blue 7 $98FB98
  1123. menu shape ramka 10 227 196 30 3 6 1 blue 7 $FFF8DC
  1124. menu font bgcolor $98FB98
  1125. menu font size 9
  1126. menu font color red
  1127. menu font style b
  1128. menu text blad 90 211 Blad:
  1129. menu font size 7
  1130. menu font bgcolor $FFF8DC
  1131. menu font color black
  1132. menu text blad 15 230 Nie ukryjesz sie na wierzchowcu!
  1133. menu text blad 15 230 Skrypt nie bedzie sie ukrywal!
  1134. }
  1135. scanjournal 2
  1136. if #journal = Nie_udalo_Ci_sie_ukryc.
  1137. goto start1
  1138. if #journal = Nie_uda_Ci_sie_schowac_wierzchowca!
  1139. {
  1140. set %skill 0
  1141. set #sysmsgcol 1080
  1142. event sysmessage Nie ukryjesz sie na wierzchowcu! Skrypt nie bedzie sie ukrywal!
  1143. menu delete ramka
  1144. menu delete blad
  1145. menu shape ramka 10 210 196 18 3 6 1 blue 7 $98FB98
  1146. menu shape ramka 10 227 196 30 3 6 1 blue 7 $FFF8DC
  1147. menu font bgcolor $98FB98
  1148. menu font size 9
  1149. menu font color red
  1150. menu font style b
  1151. menu text blad 90 211 Blad:
  1152. menu font size 7
  1153. menu font bgcolor $FFF8DC
  1154. menu font color black
  1155. menu text blad 15 230 Nie ukryjesz sie na wierzchowcu!
  1156. menu text blad 15 230 Skrypt nie bedzie sie ukrywal!
  1157. }
  1158. if %licz < #scnt2
  1159. goto ukrywanie
  1160. goto czekaj_ukrywanie
  1161.  
  1162. madrosc:
  1163. if %skill <> 2
  1164. goto identyfikacja
  1165. event macro 1 0 .um madrosc
  1166. set %licz #scnt2 + 8
  1167. czekaj_madrosc:
  1168. if #menubutton <> n/a
  1169. goto #menubutton
  1170. if #targcurs = 1
  1171. goto dalej_madrosc
  1172. if %licz < #scnt2
  1173. goto madrosc
  1174. goto czekaj_madrosc
  1175. dalej_madrosc:
  1176. set #ltargetid %lt
  1177. event macro 22
  1178. goto start1
  1179.  
  1180. identyfikacja:
  1181. if %skill <> 3
  1182. goto rozmowa
  1183. event macro 1 0 .um identyfikacja
  1184. set %licz #scnt2 + 8
  1185. czekaj_identyfikacja:
  1186. if #menubutton <> n/a
  1187. goto #menubutton
  1188. if #targcurs = 1
  1189. goto dalej_identyfikacja
  1190. if %licz < #scnt2
  1191. goto identyfikacja
  1192. goto czekaj_identyfikacja
  1193. dalej_identyfikacja:
  1194. set #ltargetid %lt
  1195. event macro 22
  1196. wait 20
  1197. goto start1
  1198.  
  1199. rozmowa:
  1200. if %skill <> 4
  1201. goto wykrywanie
  1202. event macro 1 0 .um rozmowa z duchami
  1203. set %licz #scnt2 + 8
  1204. czekaj_rozmowa:
  1205. if #menubutton <> n/a
  1206. goto #menubutton
  1207. scanjournal 1
  1208. if #sex = 0
  1209. {
  1210. if Porozumiales_sie in #journal
  1211. goto start1
  1212. }
  1213. if #sex = 1
  1214. {
  1215. if Porozumialas_sie in #journal
  1216. goto start1
  1217. }
  1218. scanjournal 2
  1219. if #sex = 0
  1220. {
  1221. if Porozumiales_sie in #journal
  1222. goto start1
  1223. }
  1224. if #sex = 1
  1225. {
  1226. if Porozumialas_sie in #journal
  1227. goto start1
  1228. }
  1229. if Nie_udalo_Ci_sie in #journal
  1230. goto start1
  1231. if %licz < #scnt2
  1232. goto rozmowa
  1233. goto czekaj_rozmowa
  1234.  
  1235. wykrywanie:
  1236. if %skill <> 5
  1237. goto wiedzaozw
  1238. event macro 1 0 .um wykrywanie
  1239. set %licz #scnt2 + 8
  1240. czekaj_wykrywanie:
  1241. if #menubutton <> n/a
  1242. goto #menubutton
  1243. scanjournal 1
  1244. if #sex = 0
  1245. {
  1246. if Znalazles_kogos in #journal
  1247. goto start1
  1248. if Nie_znalazles_nikogo in #journal
  1249. goto start1
  1250. }
  1251. if #sex = 1
  1252. {
  1253. if Znalazlas_kogos in #journal
  1254. goto start1
  1255. if Nie_znalazlas_nikogo in #journal
  1256. goto start1
  1257. }
  1258. scanjournal 2
  1259. if #sex = 0
  1260. {
  1261. if Znalazles_kogos in #journal
  1262. goto start1
  1263. if Nie_znalazles_nikogo in #journal
  1264. goto start1
  1265. }
  1266. if #sex = 1
  1267. {
  1268. if Znalazlas_kogos in #journal
  1269. goto start1
  1270. if Nie_znalazlas_nikogo in #journal
  1271. goto start1
  1272. }
  1273. if %licz < #scnt2
  1274. goto wykrywanie
  1275. goto czekaj_wykrywanie
  1276.  
  1277. wiedzaozw:
  1278. if %skill <> 6
  1279. goto wiedzaobr
  1280. event macro 1 0 .um wiedza o zwierzetach
  1281. set %licz #scnt2 + 8
  1282. czekaj_wiedzaozw:
  1283. if #menubutton <> n/a
  1284. goto #menubutton
  1285. if #targcurs = 1
  1286. goto dalej_wiedzaozw
  1287. if %licz < #scnt2
  1288. goto wiedzaozw
  1289. goto czekaj_wiedzaozw
  1290. dalej_wiedzaozw:
  1291. set #ltargetid %lt
  1292. event macro 22
  1293. scanjournal 1
  1294. if Nie_wiesz_jak_to_ocenic in #journal || Nie_udalo_ci_sie_ocenic_tego_stworzenia in #journal
  1295. goto start1
  1296. wait %delay
  1297. goto start1
  1298.  
  1299. wiedzaobr:
  1300. if %skill <> 7
  1301. goto start1
  1302. event macro 1 0 .um wiedza o broni
  1303. set %licz #scnt2 + 8
  1304. czekaj_wiedzaobr:
  1305. if #menubutton <> n/a
  1306. goto #menubutton
  1307. if #targcurs = 1
  1308. goto dalej_wiedzaobr
  1309. if %licz < #scnt2
  1310. goto wiedzaobr
  1311. goto czekaj_wiedzaobr
  1312. dalej_wiedzaobr:
  1313. set #ltargetid %lt
  1314. event macro 22
  1315. scanjournal 1
  1316. if Nie_wiesz_jak_to_ocenic in #journal || Nie_udalo_ci_sie_ocenic in #journal
  1317. goto start1
  1318. wait %delay
  1319. goto start1
  1320.  
  1321.  
  1322. start1:
  1323. if #menubutton <> n/a
  1324. goto #menubutton
  1325. if *STOP = 1
  1326. {
  1327. repeat
  1328. until *STOP = 0
  1329. }
  1330. if %czar = 0
  1331. goto start
  1332. if %lecz = 1
  1333. {
  1334. if #hits <= %hp
  1335. goto leczenie
  1336. }
  1337. if #mana < %mana
  1338. goto medyt
  1339.  
  1340.  
  1341. czar:
  1342. if #menubutton <> n/a
  1343. goto #menubutton
  1344. if *STOP = 1
  1345. {
  1346. repeat
  1347. until *STOP = 0
  1348. }
  1349. if %bles = 1
  1350. {
  1351. if #str <= %str
  1352. goto start
  1353. }
  1354. if #targcurs = 1
  1355. key esc
  1356. deletejournal
  1357. menu delete ramka
  1358. menu delete blad
  1359. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1360. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1361. menu font bgcolor $98FB98
  1362. if %ramka = 0
  1363. menu window size 216 290
  1364. else
  1365. {
  1366. if %time > 0
  1367. menu window size 216 350
  1368. else
  1369. menu window size 216 345
  1370. }
  1371. menu font size 9
  1372. menu font color red
  1373. menu font style b
  1374. menu text blad 90 241 Stan:
  1375. menu font size 7
  1376. menu font bgcolor $FFF8DC
  1377. menu font color black
  1378. menu text blad 15 265 Czaruje..
  1379. if %lecz = 1
  1380. {
  1381. if #hits <= %hp
  1382. {
  1383. if #targcurs = 1
  1384. key esc
  1385. goto leczenie
  1386. }
  1387. }
  1388. event macro 15 %czar1
  1389. if %czar = 7 || %czar = 10
  1390. set %mana1 #mana
  1391. set %licz 0
  1392. czekaj_czar:
  1393. set %licz %licz + 1
  1394. if #menubutton <> n/a
  1395. goto #menubutton
  1396. if %czar = 7
  1397. {
  1398. if %mana1 - #mana > 7
  1399. goto koniec_czar
  1400. }
  1401. if %czar = 10
  1402. {
  1403. if %mana1 - #mana > 37
  1404. goto koniec_czar
  1405. }
  1406. if %czar = 14 || %czar = 15 || %czar = 16 || %czar = 17
  1407. {
  1408. if %jestzywiol = 1
  1409. {
  1410. if %licz > 30
  1411. {
  1412. zywiol:
  1413. event macro 1 0 uwalniam was
  1414. set %licz1 0
  1415. czekaj_zywiol:
  1416. set %licz1 %licz1 + 1
  1417. scanjournal 1
  1418. if uwalniam_was in #journal
  1419. {
  1420. set %jestzywiol 0
  1421. goto pozywiole
  1422. }
  1423. if %licz1 > 20
  1424. goto zywiol
  1425. goto czekaj_zywiol
  1426. }
  1427. }
  1428. }
  1429. pozywiole:
  1430. scanjournal 1
  1431. if Czar_sie_nie_udal in #sysmsg
  1432. {
  1433. if Czar_sie_nie_udal in #journal
  1434. {
  1435. if #mana < %mana
  1436. {
  1437. deletejournal
  1438. goto medyt
  1439. }
  1440. deletejournal
  1441. goto czar
  1442. }
  1443. }
  1444. if #sex = 0
  1445. {
  1446. if #sysmsg = Straciles_koncentracje.
  1447. {
  1448. if #journal = Straciles_koncentracje.
  1449. {
  1450. if #mana < %mana
  1451. {
  1452. deletejournal
  1453. goto medyt
  1454. }
  1455. deletejournal
  1456. goto czar
  1457. }
  1458. }
  1459. }
  1460. if #sex = 1
  1461. {
  1462. if #sysmsg = Stracilas_koncentracje.
  1463. {
  1464. if #journal = Stracilas_koncentracje.
  1465. {
  1466. if #mana < %mana
  1467. {
  1468. deletejournal
  1469. goto medyt
  1470. }
  1471. deletejournal
  1472. goto czar
  1473. }
  1474. }
  1475. }
  1476. if brakuje_ci_skladnikow in #sysmsg
  1477. {
  1478. menu delete startp
  1479. menu delete stopp
  1480. menu font size 10
  1481. menu font color red
  1482. menu font bgcolor btnface
  1483. menu font style b
  1484. menu button startp 5 210 60 25 START
  1485. set #sysmsgcol 1080
  1486. event sysmessage Brakuje Ci skladnikow!
  1487. menu delete ramka
  1488. menu delete blad
  1489. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1490. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1491. menu font size 9
  1492. menu font color red
  1493. menu font style b
  1494. menu font bgcolor $98FB98
  1495. if %ramka = 0
  1496. menu window size 216 290
  1497. else
  1498. {
  1499. if %time > 0
  1500. menu window size 216 350
  1501. else
  1502. menu window size 216 345
  1503. }
  1504. menu text blad 90 241 Blad:
  1505. menu font size 7
  1506. menu font bgcolor $FFF8DC
  1507. menu font color black
  1508. menu text blad 15 265 Brakuje Ci skladnikow!
  1509. if #menubutton = closed
  1510. goto menupokaz
  1511. goto czekaj
  1512. }
  1513. if Brakuje_Ci_many in #sysmsg
  1514. {
  1515. if Brakuje_Ci_many in #journal
  1516. {
  1517. deletejournal
  1518. goto medyt
  1519. }
  1520. }
  1521. if I_am_frozen in #journal
  1522. {
  1523. deletejournal
  1524. wait 20
  1525. goto start1
  1526. }
  1527. if #targcurs = 1
  1528. goto dalej_czar
  1529. if %licz > 130
  1530. goto start1
  1531. goto czekaj_czar
  1532. dalej_czar:
  1533. if %cel = 1
  1534. {
  1535. if %lecz = 1
  1536. {
  1537. if #hits <= %hp
  1538. {
  1539. if #targcurs = 1
  1540. key esc
  1541. goto leczenie
  1542. }
  1543. }
  1544. event macro 23
  1545. goto dalej_czar1
  1546. }
  1547. set #ltargetid %lt1
  1548. event macro 22
  1549. dalej_czar1:
  1550. if #menubutton <> n/a
  1551. goto #menubutton
  1552. wait 1
  1553. if #sysmsg = Czujesz_swoja_odpornosc_na_magie!
  1554. {
  1555. set %res %res + 1
  1556. set #sysmsgcol 88
  1557. if #sex = 0
  1558. event sysmessage Zresowales juz %res czarow.
  1559. else
  1560. event sysmessage Zresowalas juz %res czarow.
  1561. menu delete ramka1
  1562. menu delete blad1
  1563. menu shape ramka1 10 292 196 18 3 6 1 blue 7 $98FB98
  1564. if %time > 0
  1565. menu shape ramka1 10 309 196 35 3 6 1 blue 7 $FFF8DC
  1566. else
  1567. menu shape ramka1 10 309 196 30 3 6 1 blue 7 $FFF8DC
  1568. menu font size 9
  1569. menu font color red
  1570. menu font style b
  1571. menu font bgcolor $98FB98
  1572. if %time > 0
  1573. menu window size 216 350
  1574. else
  1575. menu window size 216 345
  1576. menu text blad1 75 293 Stan resa:
  1577. menu font size 7
  1578. menu font bgcolor $FFF8DC
  1579. menu font color black
  1580. if #sex = 0
  1581. {
  1582. menu text blad1 15 319 Zresowales juz %res czarow!
  1583. if %time > 0
  1584. menu text blad1 15 331 Gain: RESOW: %resik CZAS: %time , min!
  1585. }
  1586. else
  1587. menu text blad1 15 317 Zresowalas juz %res czarow!
  1588. if %time > 0
  1589. menu text blad1 15 331 Gain: RESOW: %resik CZAS: %time , min!
  1590. if #menubutton = closed
  1591. {
  1592. menu show
  1593. set #menubutton n/a
  1594. }
  1595. set %ramka 1
  1596. }
  1597. if #scnt2 > 300
  1598. set %mamresa 0
  1599. if %mamresa = 1
  1600. goto jestres
  1601. if Your_skill_in_Odpornosc_na_Magie_has_increased in #sysmsg
  1602. {
  1603. set %time #scnt / 60
  1604. set %res %res + 1
  1605. set %resik %res
  1606. menu delete ramka1
  1607. menu delete blad1
  1608. if %time > 0
  1609. {
  1610. menu shape ramka1 10 294 196 18 3 6 1 blue 7 $98FB98
  1611. menu shape ramka1 10 311 196 35 3 6 1 blue 7 $FFF8DC
  1612. }
  1613. else
  1614. {
  1615. menu shape ramka1 10 294 196 18 3 6 1 blue 7 $98FB98
  1616. menu shape ramka1 10 311 196 30 3 6 1 blue 7 $FFF8DC
  1617. }
  1618. if %time > 0
  1619. menu window size 216 350
  1620. else
  1621. menu window size 216 345
  1622. menu font size 9
  1623. menu font color red
  1624. menu font style b
  1625. menu font bgcolor $98FB98
  1626. menu text blad1 75 295 Stan resa:
  1627. menu font size 7
  1628. menu font bgcolor $FFF8DC
  1629. menu font color black
  1630. if #sex = 0
  1631. {
  1632. set #sysmsgcol 88
  1633. event sysmessage Zresowales %res czarow na gaina
  1634. menu text blad1 15 319 Zresowales %res czarow na gaina!
  1635. menu text blad1 15 331 Gain: RESOW: %resik CZAS: %time , min!
  1636. if %time > 0
  1637. {
  1638. set #sysmsgcol 88
  1639. event sysmessage Trwalo to %time minut.
  1640. }
  1641. }
  1642. if #sex = 1
  1643. {
  1644. set #sysmsgcol 88
  1645. event sysmessage Zresowalas %res czarow na gaina
  1646. menu text blad1 15 319 Zresowalas %res czarow na gaina!
  1647. menu text blad1 15 331 Gain: RESOW: %resik CZAS: %time , min!
  1648. if %time > 0
  1649. {
  1650. set #sysmsgcol 88
  1651. event sysmessage Trwalo to %time minut.
  1652. }
  1653. }
  1654. if #menubutton = closed
  1655. {
  1656. menu show
  1657. set #menubutton n/a
  1658. }
  1659. set %res 0
  1660. set #scnt 0
  1661. set %ramka 1
  1662. set #scnt2 0
  1663. set %mamresa 1
  1664. }
  1665. jestres:
  1666. if %czar = 14 || %czar = 15 || %czar = 16 || %czar = 17
  1667. set %jestzywiol 1
  1668. koniec_czar:
  1669. if %medyt = 3
  1670. goto medyt
  1671. goto start1
  1672.  
  1673. medyt:
  1674. if #menubutton <> n/a
  1675. goto #menubutton
  1676. if *STOP = 1
  1677. {
  1678. repeat
  1679. until *STOP = 0
  1680. }
  1681. if #mana = #maxmana
  1682. goto start
  1683. if #targcurs = 1
  1684. key esc
  1685. menu delete ramka
  1686. menu delete blad
  1687. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1688. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1689. menu font bgcolor $98FB98
  1690. if %ramka = 0
  1691. menu window size 216 290
  1692. else
  1693. {
  1694. if %time > 0
  1695. menu window size 216 350
  1696. else
  1697. menu window size 216 345
  1698. }
  1699. menu font size 9
  1700. menu font color red
  1701. menu font style b
  1702. menu text blad 90 241 Stan:
  1703. menu font size 7
  1704. menu font bgcolor $FFF8DC
  1705. menu font color black
  1706. menu text blad 15 265 Medytuje..
  1707. event macro 1 0 .um medytacja
  1708. set %licz 0
  1709. czekaj_medyt:
  1710. set %licz %licz + 1
  1711. if #menubutton <> n/a
  1712. goto #menubutton
  1713. if Rozpoczynasz_medytacje in #sysmsg
  1714. {
  1715. if %medyt = 1
  1716. {
  1717. set %mana3 #maxmana / 2 + 4
  1718. set %mana4 #maxmana / 2 + 11
  1719. }
  1720. if %medyt = 2
  1721. {
  1722. set %mana3 #maxmana / 2 - 7
  1723. set %mana4 #maxmana / 2 + 1
  1724. set %mana33 #maxmana / 2 + 30
  1725. set %mana44 #maxmana / 2 + 37
  1726. }
  1727. goto koniec
  1728. }
  1729. if #sysmsg = Juz_medytujesz...
  1730. goto koniec
  1731. if Nie_brakuje_Ci_many in #sysmsg
  1732. goto start1
  1733. scanjournal 1
  1734. if #sysmsg = Nie_mozesz_sie_skoncentrowac.
  1735. {
  1736. if #journal = Nie_mozesz_sie_skoncentrowac.
  1737. {
  1738. if #mana = #maxmana
  1739. goto start
  1740. wait 60
  1741. deletejournal
  1742. goto medyt
  1743. }
  1744. }
  1745. if #mana = #maxmana
  1746. goto start1
  1747. if %licz > 20
  1748. goto medyt
  1749. goto czekaj_medyt
  1750.  
  1751. leczenie:
  1752. if #menubutton <> n/a
  1753. goto #menubutton
  1754. if *STOP = 1
  1755. {
  1756. repeat
  1757. until *STOP = 0
  1758. }
  1759. if #mana < 11
  1760. goto medyt
  1761. if #targcurs = 1
  1762. key esc
  1763. menu delete ramka
  1764. menu delete blad
  1765. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1766. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1767. menu font bgcolor $98FB98
  1768. if %ramka = 0
  1769. menu window size 216 290
  1770. else
  1771. {
  1772. if %time > 0
  1773. menu window size 216 350
  1774. else
  1775. menu window size 216 345
  1776. }
  1777. menu font size 9
  1778. menu font color red
  1779. menu font style b
  1780. menu text blad 90 241 Stan:
  1781. menu font size 7
  1782. menu font bgcolor $FFF8DC
  1783. menu font color black
  1784. menu text blad 15 265 Lecze In Vas Mani..
  1785. event macro 15 28
  1786. set %licz 0
  1787. czekaj_leczenie:
  1788. set %licz %licz + 1
  1789. if #menubutton <> n/a
  1790. goto #menubutton
  1791. if brakuje_ci_skladnikow in #sysmsg
  1792. {
  1793. menu delete startp
  1794. menu delete stopp
  1795. menu font size 10
  1796. menu font color red
  1797. menu font bgcolor btnface
  1798. menu font style b
  1799. menu button startp 5 210 60 25 START
  1800. set #sysmsgcol 1080
  1801. event sysmessage Brakuje Ci skladnikow!
  1802. menu delete ramka
  1803. menu delete blad
  1804. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1805. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1806. menu font size 9
  1807. menu font color red
  1808. menu font style b
  1809. menu font bgcolor $98FB98
  1810. if %ramka = 0
  1811. menu window size 216 290
  1812. else
  1813. {
  1814. if %time > 0
  1815. menu window size 216 350
  1816. else
  1817. menu window size 216 345
  1818. }
  1819. menu text blad 90 241 Blad:
  1820. menu font size 7
  1821. menu font bgcolor $FFF8DC
  1822. menu font color black
  1823. menu text blad 15 265 Brakuje Ci skladnikow!
  1824. if #menubutton = closed
  1825. goto menupokaz
  1826. goto czekaj
  1827. }
  1828. scanjournal 1
  1829. if Czar_sie_nie_udal in #sysmsg
  1830. {
  1831. if Czar_sie_nie_udal in #journal
  1832. {
  1833. if #mana < 11
  1834. goto medyt
  1835. if #mana => 11
  1836. {
  1837. deletejournal
  1838. goto leczenie
  1839. }
  1840. }
  1841. }
  1842. if #targcurs = 1
  1843. goto dalej_leczenie
  1844. if %licz > 160
  1845. goto leczenie
  1846. goto czekaj_leczenie
  1847. dalej_leczenie:
  1848. event macro 23
  1849. wait 5
  1850. goto start1
  1851.  
  1852.  
  1853. koniec:
  1854. if #menubutton <> n/a
  1855. goto #menubutton
  1856. if *STOP = 1
  1857. {
  1858. repeat
  1859. until *STOP = 0
  1860. }
  1861. if %medyt = 0
  1862. goto koniec1
  1863. if #mana > %mana4
  1864. set %medyt1 0
  1865. if %medyt1 = 1
  1866. goto koniec10
  1867. if #mana >= %mana3 && #mana <= %mana4
  1868. {
  1869. finditem wyf_igi_nqd_GTF_BYD C
  1870. if #findkind = -1
  1871. {
  1872. set #sysmsgcol 1080
  1873. event sysmessage Nie masz miski, talerza lub dzbanka! Medytacja nie bedzie przerywana!
  1874. menu delete ramka
  1875. menu delete blad
  1876. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1877. menu shape ramka 10 257 196 34 3 6 1 blue 7 $FFF8DC
  1878. menu font size 9
  1879. menu font color red
  1880. menu font style b
  1881. menu font bgcolor $98FB98
  1882. if %ramka = 0
  1883. menu window size 216 295
  1884. else
  1885. {
  1886. if %time > 0
  1887. menu window size 216 350
  1888. else
  1889. menu window size 216 345
  1890. }
  1891. menu text blad 90 241 Blad:
  1892. menu font size 7
  1893. menu font bgcolor $FFF8DC
  1894. menu font color black
  1895. menu text blad 15 265 Nie masz miski, talerza lub dzbanka!
  1896. menu text blad 15 277 Medytacja nie bedzie przerywana!
  1897. set %medyt 0
  1898. if #menubutton = closed
  1899. {
  1900. menu show
  1901. set #menubutton n/a
  1902. }
  1903. goto koniec1
  1904. }
  1905. set #lobjectid #findid
  1906. event macro 17
  1907. menu delete ramka
  1908. menu delete blad
  1909. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1910. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1911. menu font size 9
  1912. menu font color red
  1913. menu font style b
  1914. menu font bgcolor $98FB98
  1915. if %ramka = 0
  1916. menu window size 216 290
  1917. else
  1918. {
  1919. if %time > 0
  1920. menu window size 216 350
  1921. else
  1922. menu window size 216 345
  1923. }
  1924. menu text blad 90 241 Stan:
  1925. menu font size 7
  1926. menu font bgcolor $FFF8DC
  1927. menu font color black
  1928. menu text blad 15 265 Przerywam medytacje..
  1929. set %licz 0
  1930. czekaj_przeryw:
  1931. set %licz %licz + 1
  1932. if #targcurs = 1
  1933. {
  1934. key esc
  1935. goto dalej_przeryw
  1936. }
  1937. if %licz > 40
  1938. goto koniec
  1939. goto czekaj_przeryw
  1940. dalej_przeryw:
  1941. set %medyt1 1
  1942. goto medyt
  1943. }
  1944. koniec10:
  1945. if #mana > %mana44
  1946. set %medyt10 0
  1947. if %medyt10 = 1
  1948. goto koniec1
  1949. if #mana >= %mana33 && #mana <= %mana44
  1950. {
  1951. finditem wyf_igi_nqd C
  1952. if #findkind = -1
  1953. {
  1954. set #sysmsgcol 1080
  1955. event sysmessage Nie masz miski, talerza lub dzbanka! Medytacja nie bedzie przerywana!
  1956. menu delete ramka
  1957. menu delete blad
  1958. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1959. menu shape ramka 10 257 196 34 3 6 1 blue 7 $FFF8DC
  1960. menu font size 9
  1961. menu font color red
  1962. menu font style b
  1963. menu font bgcolor $98FB98
  1964. if %ramka = 0
  1965. menu window size 216 295
  1966. else
  1967. {
  1968. if %time > 0
  1969. menu window size 216 350
  1970. else
  1971. menu window size 216 345
  1972. }
  1973. menu text blad 90 241 Blad:
  1974. menu font size 7
  1975. menu font bgcolor $FFF8DC
  1976. menu font color black
  1977. menu text blad 15 265 Nie masz miski, talerza lub dzbanka!
  1978. menu text blad 15 277 Medytacja nie bedzie przerywana!
  1979. set %medyt 0
  1980. if #menubutton = closed
  1981. {
  1982. menu show
  1983. set #menubutton n/a
  1984. }
  1985. goto koniec1
  1986. }
  1987. set #lobjectid #findid
  1988. event macro 17
  1989. menu delete ramka
  1990. menu delete blad
  1991. menu shape ramka 10 240 196 18 3 6 1 blue 7 $98FB98
  1992. menu shape ramka 10 257 196 30 3 6 1 blue 7 $FFF8DC
  1993. menu font size 9
  1994. menu font color red
  1995. menu font style b
  1996. menu font bgcolor $98FB98
  1997. if %ramka = 0
  1998. menu window size 216 290
  1999. else
  2000. {
  2001. if %time > 0
  2002. menu window size 216 350
  2003. else
  2004. menu window size 216 345
  2005. }
  2006. menu text blad 90 241 Stan:
  2007. menu font size 7
  2008. menu font bgcolor $FFF8DC
  2009. menu font color black
  2010. menu text blad 15 265 Przerywam medytacje..
  2011. set %licz 0
  2012. czekaj_przeryw:
  2013. set %licz %licz + 1
  2014. if #targcurs = 1
  2015. {
  2016. wait 1
  2017. key esc
  2018. goto dalej_przeryw
  2019. }
  2020. if %licz > 40
  2021. goto koniec
  2022. goto czekaj_przeryw
  2023. dalej_przeryw:
  2024. set %medyt10 1
  2025. goto medyt
  2026. }
  2027. koniec1:
  2028. if #targcurs = 1
  2029. {
  2030. key esc
  2031. goto dalej_przeryw
  2032. }
  2033. if #mana = #maxmana
  2034. goto start
  2035. if #sysmsg = Konczysz_medytacje.
  2036. {
  2037. if #mana = #maxmana
  2038. goto start
  2039. wait 20
  2040. goto medyt
  2041. }
  2042. if #sysmsg = Nie_brakuje_Ci_many.
  2043. goto start
  2044. scanjournal 1
  2045. if #sysmsg = Nie_mozesz_sie_skoncentrowac.
  2046. {
  2047. if #journal = Nie_mozesz_sie_skoncentrowac.
  2048. {
  2049. if #mana = #maxmana
  2050. goto start
  2051. wait 60
  2052. goto medyt
  2053. }
  2054. }
  2055. if #sex = 0
  2056. {
  2057. if #sysmsg = Straciles_koncentracje.
  2058. {
  2059. if #mana = #maxmana
  2060. goto start
  2061. if %medyt1 = 1 || %medyt10 = 1
  2062. goto kyniec
  2063. goto medyt
  2064. }
  2065. }
  2066. if #sex = 1
  2067. {
  2068. if #sysmsg = Stracilas_koncentracje.
  2069. {
  2070. if #mana = #maxmana
  2071. goto start
  2072. if %medyt1 = 1 || %medyt10 = 1
  2073. goto kyniec
  2074. goto medyt
  2075. }
  2076. }
  2077. kyniec:
  2078. if Your in #sysmsg
  2079. {
  2080. if #mana = #maxmana
  2081. goto start
  2082. goto koniec
  2083. }
  2084. if #sysmsg = Juz_medytujesz...
  2085. goto koniec
  2086. goto koniec
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!