1
0

353_lab 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700
  1. # lab
  2. <<<<<<< 353_lab
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 353_lab
  7. cla
  8. *clr
  9. <<<<<<< 353_lab
  10. set minut += 5
  11. '<center><B><font color = maroon>Laboratory Karina</font></B></center>'
  12. '<center><img src="images\qwest\lab.jpg"></center>'
  13. clr
  14. gs 'stat'
  15. fcolor = rgb(0,0,0)
  16. bcolor = rgb(255,255,255)
  17. =======
  18. set minut = minut + 5
  19. '<center><B><font color=maroon>Laboratory Karina</font></B></center>'
  20. '<center><img src="picQW/lab.jpg" ></center>'
  21. clr
  22. gs'stat'
  23. fcolor=rgb(0,0,0)
  24. bcolor=rgb(255,255,255)
  25. >>>>>>> 353_lab
  26. LCOLOR = rgb(106,90,205)
  27. <<<<<<< 353_lab
  28. act 'QUIT':
  29. cla
  30. set minut += 5
  31. gt 'down'
  32. end
  33. act 'Train with Juugo':
  34. cla
  35. gt 'lab','jugo'
  36. end
  37. act 'Train with Karin':
  38. cla
  39. gt 'lab','karin'
  40. end
  41. if judosparday ! day:
  42. act 'Sparring (Juugo, mutant power 600)':
  43. cla
  44. set judosparday = day
  45. set $nameV = 'Juugo'
  46. !Статы
  47. set strenV = 600
  48. set speedV = 60
  49. set agilV = 60
  50. set reactV = 50
  51. set vitalV = 200
  52. set intelV = 50
  53. set willV = 50
  54. !Навыки
  55. set magikV = 100
  56. set boxingV = 100
  57. set shootV = 100
  58. !Параметры
  59. set healthV = vitalV * 10 + strenV * 5
  60. set mannaV = intelV * 10 + magikV * 10
  61. set willpowerV = willV * 10
  62. set BonusAtakV = 0
  63. set BonusDefV = 0
  64. !программа действий
  65. set program = 0
  66. set jugoFight = 2
  67. gt 'fight','start'
  68. end
  69. end
  70. if karinsparday ! day:
  71. act 'Sparring (Karin mag6)':
  72. cla
  73. set karinsparday = day
  74. set $nameV = 'Karin'
  75. !Статы
  76. set strenV = 60
  77. set speedV = 100
  78. set agilV = 100
  79. set reactV = 60
  80. set vitalV = 100
  81. set intelV = 100
  82. set willV = 100
  83. !Навыки
  84. set magikV = 100
  85. set boxingV = 100
  86. set shootV = 100
  87. !Параметры
  88. set healthV = vitalV * 10 + strenV * 5
  89. set mannaV = intelV * 6 + magikV * 10
  90. set willpowerV = willV * 10
  91. set BonusAtakV = 0
  92. set BonusDefV = 0
  93. !программа действий
  94. set program = 4
  95. set karinFight = 1
  96. gt 'fight','start'
  97. end
  98. end
  99. =======
  100. act 'GO_OUT':
  101. cla
  102. set minut = minut + 5
  103. gt'down'
  104. end
  105. act 'Train with Juugo':
  106. cla
  107. gt'lab','jugo'
  108. end
  109. act 'Train with Karin':
  110. cla
  111. gt'lab','karin'
  112. end
  113. if judosparday ! day:
  114. act 'sparring (Juugo, mutant, power 600)':
  115. cla
  116. set judosparday = day
  117. set $nameV = 'Juugo'
  118. !stats
  119. set strenV = 600
  120. set speedV = 60
  121. set agilV = 60
  122. set reactV = 50
  123. set vitalV = 200
  124. set intelV = 50
  125. set willV = 50
  126. !skills
  127. set magikV = 100
  128. set boxingV = 100
  129. set shootV = 100
  130. !parameters
  131. set healthV = vitalV*10 + strenV*5
  132. set mannaV = intelV*10 + magikV*10
  133. set willpowerV = willV*10
  134. set BonusAtakV = 0
  135. set BonusDefV = 0
  136. !Programme of Action
  137. set program = 0
  138. set jugoFight = 2
  139. gt'fight','start'
  140. end
  141. end
  142. if karinsparday ! day:
  143. act 'sparring (Karin, magician6)':
  144. cla
  145. set karinsparday = day
  146. set $nameV = 'Karin'
  147. !stats
  148. set strenV = 60
  149. set speedV = 100
  150. set agilV = 100
  151. set reactV = 60
  152. set vitalV = 100
  153. set intelV = 100
  154. set willV = 100
  155. !skills
  156. set magikV = 100
  157. set boxingV = 100
  158. set shootV = 100
  159. !parameters
  160. set healthV = vitalV*10 + strenV*5
  161. set mannaV = intelV*6 + magikV*10
  162. set willpowerV = willV*10
  163. set BonusAtakV = 0
  164. set BonusDefV = 0
  165. !Programme of Action
  166. set program = 4
  167. set karinFight = 1
  168. gt'fight','start'
  169. end
  170. end
  171. >>>>>>> 353_lab
  172. end
  173. <<<<<<< 353_lab
  174. if $ARGS[0] = 'jugo':
  175. =======
  176. if $ARGS[0]='jugo':
  177. >>>>>>> 353_lab
  178. cla
  179. *clr
  180. <<<<<<< 353_lab
  181. set minut += 5
  182. '<center><B><font color = maroon>Juugo</font></B></center>'
  183. '<center><img src="images\picPRE\jugoPRE.jpg"></center>'
  184. 'Juugo sitting on floor and looking aloof kudato in space.'
  185. clr
  186. gs 'stat'
  187. fcolor = rgb(0,0,0)
  188. bcolor = rgb(255,255,255)
  189. =======
  190. set minut = minut + 5
  191. '<center><B><font color=maroon>Juugo</font></B></center>'
  192. '<center><img src="picPRE/jugoPRE.jpg" ></center>'
  193. 'Juugo sitting on the floor and looking absently into space kudato.'
  194. clr
  195. gs'stat'
  196. fcolor=rgb(0,0,0)
  197. bcolor=rgb(255,255,255)
  198. >>>>>>> 353_lab
  199. LCOLOR = rgb(106,90,205)
  200. <<<<<<< 353_lab
  201. act 'QUIT': gt 'lab','start'
  202. if jugoday ! day:
  203. act 'Develop strength (1:00)':
  204. cla
  205. set stren += RAND(3,6)
  206. set minut += 60
  207. set jugoday = day
  208. 'You do exercises under the guidance of Juugo.'
  209. act 'QUIT': gt 'lab','jugo'
  210. end
  211. act 'Reach speeds (1:00)':
  212. cla
  213. set speed += RAND(3,6)
  214. set minut += 60
  215. set jugoday = day
  216. 'You do exercises under the guidance of Juugo.'
  217. act 'QUIT': gt 'lab','jugo'
  218. end
  219. act 'Develop agility (1:00)':
  220. cla
  221. set agil += RAND(3,6)
  222. set minut += 60
  223. set jugoday = day
  224. 'You do exercises under the guidance of Juugo.'
  225. act 'QUIT': gt 'lab','jugo'
  226. end
  227. act 'Develop reaction (1:00)':
  228. cla
  229. set react += RAND(3,6)
  230. set minut += 60
  231. set jugoday = day
  232. 'You do exercises under the guidance of Juugo.'
  233. act 'QUIT': gt 'lab','jugo'
  234. end
  235. act 'Develop endurance (1:00)':
  236. cla
  237. set vital += RAND(3,6)
  238. set minut += 60
  239. set jugoday = day
  240. 'You do exercises under the guidance of Juugo.'
  241. act 'QUIT': gt 'lab','jugo'
  242. end
  243. end
  244. =======
  245. act 'GO_OUT':gt'lab','start'
  246. if jugoday ! day:
  247. act 'develop strength 1 h':
  248. cla
  249. set stren = stren + RAND (3,6)
  250. set minut = minut + 60
  251. set jugoday = day
  252. 'You do physical exercises under the supervision of Juugo.'
  253. act 'GO_OUT':gt'lab','jugo'
  254. end
  255. act 'reach speeds 1 h':
  256. cla
  257. set speed = speed + RAND (3,6)
  258. set minut = minut + 60
  259. set jugoday = day
  260. 'You do physical exercises under the supervision of Juugo.'
  261. act 'GO_OUT':gt'lab','jugo'
  262. end
  263. act 'develop agility 1 h':
  264. cla
  265. set agil = agil + RAND (3,6)
  266. set minut = minut + 60
  267. set jugoday = day
  268. 'You do physical exercises under the supervision of Juugo.'
  269. act 'GO_OUT':gt'lab','jugo'
  270. end
  271. act 'develop a reaction 1 h':
  272. cla
  273. set react = react + RAND (3,6)
  274. set minut = minut + 60
  275. set jugoday = day
  276. 'You do physical exercises under the supervision of Juugo.'
  277. act 'GO_OUT':gt'lab','jugo'
  278. end
  279. act 'develop endurance 1 h':
  280. cla
  281. set vital = vital + RAND (3,6)
  282. set minut = minut + 60
  283. set jugoday = day
  284. 'You do physical exercises under the supervision of Juugo.'
  285. act 'GO_OUT':gt'lab','jugo'
  286. end
  287. end
  288. >>>>>>> 353_lab
  289. end
  290. <<<<<<< 353_lab
  291. if $ARGS[0] = 'karin':
  292. =======
  293. if $ARGS[0]='karin':
  294. >>>>>>> 353_lab
  295. cla
  296. *clr
  297. <<<<<<< 353_lab
  298. set minut += 5
  299. '<center><B><font color = maroon>Karina</font></B></center>'
  300. '<center><img src="images\picPRE\karinPRE.jpg"></center>'
  301. 'Karyn as always studying something.'
  302. clr
  303. gs 'stat'
  304. fcolor = rgb(0,0,0)
  305. bcolor = rgb(255,255,255)
  306. =======
  307. set minut = minut + 5
  308. '<center><B><font color=maroon>Karina</font></B></center>'
  309. '<center><img src="picPRE/karinPRE.jpg" ></center>'
  310. 'Karin as always studying something.'
  311. clr
  312. gs'stat'
  313. fcolor=rgb(0,0,0)
  314. bcolor=rgb(255,255,255)
  315. >>>>>>> 353_lab
  316. LCOLOR = rgb(106,90,205)
  317. <<<<<<< 353_lab
  318. act 'QUIT': gt 'lab','start'
  319. act 'I´m too fat and do not want to get fat.':
  320. cla
  321. '(You) - Karin, I oily dibilka not able to watch their weight, wave your magic wand, what would not I grew fat.'
  322. '(Karin) - Ugh, that´s the same ponavylazyat downs of pussy, and then I vozis with them. Dick with you, take it. Just remember, this spell forever, you´ll be able to just come and change the waist and thighs, and since boobs are made of fat, I only supreme mercy 1st size you do, a little, shoved silicone. And the decision to reverse is or whether silicone doll or live as a man, I raskoldovyvat you will not. Since you have more fat will not be absorbed and body parameters are kept magically, marvel not at the post of dystrophy and not marvel that force will fall faster from malnutrition, you will no longer internal reserves.'
  323. act 'No no no, I changed my mind. Will continue smarter.': gt 'lab','karin'
  324. act 'I would want that waist was ...':
  325. cla
  326. set dounspell = 1
  327. set TaliaDoun = input ("Waist in inches?")
  328. if TaliaDoun <= 0: set TaliaDoun = 20
  329. act 'I would want that thighs ...':
  330. cla
  331. set bedraDoun = input ("Hips in inches?")
  332. if bedraDoun <= 0: set bedraDoun = 40
  333. act 'Enjoy your stupidity.': gt 'lab','karin'
  334. end
  335. end
  336. end
  337. if IvanPodstavaQW = 2 and poverKAR = 0 and softKAR = 0:
  338. act 'Ask for help with Ivan Karin':
  339. cla
  340. gs 'stat'
  341. 'You explained the situation and asked her to Karin assistance. Karin said thoughtfully. "I do not think there is any physical evidence of the guilt of Ivan. Necessary is achieved recognition. I think it would be possible to capture and interrogate. Or drink his cunning truth serum and interrogate. Anyway it is necessary to remove it all on video."'
  342. act 'Military solution':
  343. cls
  344. poverKAR = 1
  345. gs 'stat'
  346. '<center><img src="images\picPRE\karinPRE.jpg"></center>'
  347. 'You have decided to achieve recognition Ivan force. Karin told you. You go to the apartment of Ivan. There vstretishsya with Juugo. It will help resolve the issue. Just see if he will go to the second level of the press, he was distraught. At the second level of the press he turns into a monster.'
  348. act 'QUIT': gt 'lab','karin'
  349. end
  350. act 'Tricky decision':
  351. cls
  352. softKAR = 1
  353. gs 'stat'
  354. '<center><img src="images\picPRE\karinPRE.jpg"></center>'
  355. 'You have decided to achieve recognition Ivan cunning. Karin told you. You go to the apartment of Ivan. There we meet with you and obtyapaem owners.'
  356. act 'QUIT': gt 'lab','karin'
  357. end
  358. end
  359. end
  360. if poverKAR = 2:
  361. act 'Approach to Karin about attacks apartments Ivan':
  362. cla
  363. poverKAR = 3
  364. 'You came to Karin and she sighed. "Yes, failed. Juugo caught a bullet in his head and his strength went up to the next level, it has cured, made almost invulnerable, but finally deprived of his mind. Juugo not only gained recognition for Ivan, and not just kill him, he blew part of the entrance his attack. But there are pluses. Cops think it was a gas explosion. But now you have to either pay the debt or goes to jail. "'
  365. act 'QUIT': gt 'lab','karin'
  366. end
  367. end
  368. if karinday ! day:
  369. act 'Develop intelligence (1:00)':
  370. cla
  371. set intel += RAND(3,6)
  372. set minut += 60
  373. set karinday = day
  374. 'Did you do with Karin developing his intellect.'
  375. act 'QUIT': gt 'lab','karin'
  376. end
  377. act 'Will develop (1:00)':
  378. cla
  379. set will += RAND(3,6)
  380. set minut += 60
  381. set karinday = day
  382. 'Did you do with Karin developing his intellect.'
  383. act 'QUIT': gt 'lab','karin'
  384. end
  385. end
  386. if spelltuman = 0 and magik >= 1:
  387. act 'Learn technique fog (1:00)':
  388. cla
  389. set minut += 60
  390. set spelltuman = 1
  391. 'You learned the technique call fog in battle.'
  392. act 'QUIT': gt 'lab','karin'
  393. end
  394. end
  395. if spellklon = 0 and magik >= 1:
  396. act 'Learn technique protection cloning (1:00)':
  397. cla
  398. set minut += 60
  399. set spellklon = 1
  400. 'You learned the technique of substitution clone themselves in battle.'
  401. act 'QUIT': gt 'lab','karin'
  402. end
  403. end
  404. if spellstun = 0 and magik >= 2:
  405. act 'Learn technique paralysis (1:00)':
  406. cla
  407. set minut += 60
  408. set spellstun = 1
  409. 'You learned the technique of paralyzing the enemy.'
  410. act 'QUIT': gt 'lab','karin'
  411. end
  412. end
  413. if spellwind = 0 and magik >= 2:
  414. act 'Learn mist blowing (1:00)':
  415. cla
  416. set minut += 60
  417. set spellwind = 1
  418. 'You learned the technique of blowing mist.'
  419. act 'QUIT': gt 'lab','karin'
  420. end
  421. end
  422. if spellklon2 = 0 and magik >= 2:
  423. act 'Learn triple cloning (1:00)':
  424. cla
  425. set minut += 60
  426. set spellklon2 = 1
  427. 'You learned the technique Troynova cloning.'
  428. act 'QUIT': gt 'lab','karin'
  429. end
  430. end
  431. if spellenergo = 0 and magik >= 3:
  432. act 'Learn energoschit (1:00)':
  433. cla
  434. set minut += 60
  435. set spellenergo = 1
  436. 'You learned the technique energoschita.'
  437. act 'QUIT': gt 'lab','karin'
  438. end
  439. end
  440. if spellinit = 0 and magik >= 3:
  441. act 'Learn technique deceleration time (1:00)':
  442. cla
  443. set minut += 60
  444. set spellinit = 1
  445. 'You learned the technique of time dilation.'
  446. act 'QUIT': gt 'lab','karin'
  447. end
  448. end
  449. if magik >= 4 and spellhel = 0:
  450. !'With this level of magic I can not teach you anymore.'
  451. act 'Learn the technique of treatment (1:00)':
  452. cla
  453. set minut += 60
  454. set spellhel = 1
  455. 'You learned the technique of treatment.'
  456. act 'QUIT': gt 'lab','karin'
  457. end
  458. end
  459. if magik >= 5 and spellavtoklon = 0:
  460. act 'Learn technique avtoklonirovaniya (1:00)':
  461. cla
  462. set minut += 60
  463. set spellavtoklon = 1
  464. 'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
  465. act 'QUIT': gt 'lab','karin'
  466. end
  467. end
  468. if magik >= 6 and spellbefshild = 0:
  469. act 'Learn technique prior Shield (1:00)':
  470. cla
  471. set minut += 60
  472. set spellbefshild = 1
  473. 'You learned the technique of pre-shield. This technique allows you to enter into battle with a ready shield against physical impacts.'
  474. act 'QUIT': gt 'lab','karin'
  475. end
  476. end
  477. =======
  478. act 'GO_OUT':gt'lab','start'
  479. act 'I`m too fat and not want to get fat.':
  480. cla
  481. '(Do_You) - Karin, I have oily dibilka unable to monitor their weight, wave your magic wand, that I had not grown fat.'
  482. '(Karin) - ugh, that`s the same ponavylazyat of pussy downs, and I then vozis with them. Dick with you, Get. just remember, This spell forever, Only you will be able to come and change the waist to hips, and as fat consist of tits, I am only the highest mercy to you 1th size do, little, shoved silicone. And the decision has no reverse, or whether silicone doll, or live as a man, disenchants I`m not going to. Since you have more fat will not be absorbed by the body and parameters are kept magically, marvel not at the post of dystrophy and Marvel, that force will fall from malnutrition faster, you will no longer be internal reserves.'
  483. act 'No no no . I will continue smarter.':gt'lab','karin'
  484. act 'I would want that waist was...':
  485. cla
  486. set dounspell = 1
  487. set TaliaDoun = input ("Waist in cm?")
  488. if TaliaDoun <= 0:set TaliaDoun = 20
  489. act 'I would want that your thighs are...':
  490. cla
  491. set bedraDoun = input ("Hips in cm?")
  492. if bedraDoun <= 0:set bedraDoun = 40
  493. act 'Enjoy your stupidity.':gt'lab','karin'
  494. end
  495. end
  496. end
  497. if IvanPodstavaQW=2 and poverKAR=0 and softKAR=0:
  498. act 'Ask for help with Ivan Karin':
  499. cla
  500. gs'stat'
  501. 'You explained the situation and asked her to Karin aid. Karin said thoughtfully. "I do not think, that there are some physical evidence of guilt Ivan. Need is achieved its recognition. I think it can be to capture and interrogate. Or drink his cunning truth serum and question. In any case."'
  502. act 'military solution':
  503. cls
  504. poverKAR=1
  505. gs'stat'
  506. '<center><img src="picPRE/karinPRE.jpg" ></center>'
  507. 'You have decided to achieve recognition of the power of Ivan. Karin told you. You go to the apartment of Ivan. There vstretish with Juugo. It will help to solve the problem. only look, if he goes to the second level printing, he distraught. At the second level.'
  508. act 'GO_OUT':gt'lab','karin'
  509. end
  510. act 'tricky decision':
  511. cls
  512. softKAR=1
  513. gs'stat'
  514. '<center><img src="picPRE/karinPRE.jpg" ></center>'
  515. 'You have decided to achieve recognition Ivan cunning. Karin told you. You go to the apartment of Ivan. There we met a small business and obtyapaem.'
  516. act 'GO_OUT':gt'lab','karin'
  517. end
  518. end
  519. end
  520. if poverKAR=2:
  521. act 'Approach to Karin about the attack apartments Ivan':
  522. cla
  523. poverKAR=3
  524. 'You came to Karin and she sighed. "Yes_I_Am, failed. Juugo caught a bullet in his head and his strength went up to the next level, cure it, made almost invulnerable, but finally deprived of his mind. Juugo not only gained recognition Ivan, and not just kill him, He blew his attack of the entrance. But there are pluses. Cops think it was a gas explosion. But now you have to either pay the debt, or goes to prison."'
  525. act 'GO_OUT':gt'lab','karin'
  526. end
  527. end
  528. if karinday ! day:
  529. act 'develop intelligence 1 h':
  530. cla
  531. set intel = intel + RAND (3,6)
  532. set minut = minut + 60
  533. set karinday = day
  534. 'Did you do with Karin developing their intelligence.'
  535. act 'GO_OUT':gt'lab','karin'
  536. end
  537. act 'will develop 1 h':
  538. cla
  539. set will = will + RAND (3,6)
  540. set minut = minut + 60
  541. set karinday = day
  542. 'Did you do with Karin developing their intelligence.'
  543. act 'GO_OUT':gt'lab','karin'
  544. end
  545. end
  546. if spelltuman = 0 and magik >= 1:
  547. act 'Learn the techniques of fog 1 h':
  548. cla
  549. set minut = minut + 60
  550. set spelltuman = 1
  551. 'You learned the technique call fog in battle.'
  552. act 'GO_OUT':gt'lab','karin'
  553. end
  554. end
  555. if spellklon = 0 and magik >= 1:
  556. act 'Learn the technique of cloning protection 1 h':
  557. cla
  558. set minut = minut + 60
  559. set spellklon = 1
  560. 'You learned the technique of substitution clone themselves in battle.'
  561. act 'GO_OUT':gt'lab','karin'
  562. end
  563. end
  564. if spellstun = 0 and magik >= 2:
  565. act 'Learn techniques paralysis 1 h':
  566. cla
  567. set minut = minut + 60
  568. set spellstun = 1
  569. 'You learned the technique of paralyzing the enemy.'
  570. act 'GO_OUT':gt'lab','karin'
  571. end
  572. end
  573. if spellwind = 0 and magik >= 2:
  574. act 'Learn blowing mist 1 h':
  575. cla
  576. set minut = minut + 60
  577. set spellwind = 1
  578. 'You learned the technique of blowing mist.'
  579. act 'GO_OUT':gt'lab','karin'
  580. end
  581. end
  582. if spellklon2 = 0 and magik >= 2:
  583. act 'Learn triple cloning 1 h':
  584. cla
  585. set minut = minut + 60
  586. set spellklon2 = 1
  587. 'You learned the technique of cloning Troynova.'
  588. act 'GO_OUT':gt'lab','karin'
  589. end
  590. end
  591. if spellenergo = 0 and magik >= 3:
  592. act 'learn energoschit 1 h':
  593. cla
  594. set minut = minut + 60
  595. set spellenergo = 1
  596. 'You learned the technique Shield power.'
  597. act 'GO_OUT':gt'lab','karin'
  598. end
  599. end
  600. if spellinit = 0 and magik >= 3:
  601. act 'Learn the technique of time dilation 1 h':
  602. cla
  603. set minut = minut + 60
  604. set spellinit = 1
  605. 'You learned the technique of time dilation.'
  606. act 'GO_OUT':gt'lab','karin'
  607. end
  608. end
  609. if magik >= 4 and spellhel = 0:
  610. !'With this level of magic .'
  611. act 'Learn the technique of treatment 1 h':
  612. cla
  613. set minut = minut + 60
  614. set spellhel = 1
  615. 'You learned the technique of treatment.'
  616. act 'GO_OUT':gt'lab','karin'
  617. end
  618. end
  619. if magik >= 5 and spellavtoklon = 0:
  620. act 'Learn techniques avtoklonirovaniya 1 h':
  621. cla
  622. set minut = minut + 60
  623. set spellavtoklon = 1
  624. 'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
  625. act 'GO_OUT':gt'lab','karin'
  626. end
  627. end
  628. if magik >= 6 and spellbefshild = 0:
  629. act 'Learn the technique of pre- shield 1 h':
  630. cla
  631. set minut = minut + 60
  632. set spellbefshild = 1
  633. 'You learned the technique of pre- shield. This technique allows you to enter into combat with a ready shield against the effects of nat.'
  634. act 'GO_OUT':gt'lab','karin'
  635. end
  636. end
  637. >>>>>>> 353_lab
  638. end
  639. --- lab ---------------------------------