API tools faq
paste
Advertisement
Guest User

Untitled

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