lab 9.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370
  1. # lab
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. set minut += 5
  6. '<center><b><font color="maroon">Laboratory Karina</font></b></center>'
  7. '<center><img src="images/qwest/lab.jpg"></center>'
  8. clr
  9. gs 'stat'
  10. fcolor = rgb(0, 0, 0)
  11. bcolor = rgb(255, 255, 255)
  12. lcolor = rgb(106, 90, 205)
  13. act 'Leave':
  14. cla
  15. set minut += 5
  16. gt 'down'
  17. end
  18. act 'Train with Juugo':
  19. cla
  20. gt 'lab', 'jugo'
  21. end
  22. act 'Train with Karin':
  23. cla
  24. gt 'lab', 'karin'
  25. end
  26. if judosparday ! day:
  27. act 'Sparring (Juugo, mutant power 600)':
  28. cla
  29. set judosparday = day
  30. set $nameV = 'Juugo'
  31. !!stats
  32. set strenV = 600
  33. set speedV = 60
  34. set agilV = 60
  35. set reactV = 50
  36. set vitalV = 200
  37. set intelV = 50
  38. set willV = 50
  39. !!skills
  40. set magikV = 100
  41. set boxingV = 100
  42. set shootV = 100
  43. !!parameters
  44. set healthV = vitalV * 10 + strenV * 5
  45. set mannaV = intelV * 10 + magikV * 10
  46. set willpowerV = willV * 10
  47. set BonusAtakV = 0
  48. set BonusDefV = 0
  49. !!Programme of Action
  50. set program = 0
  51. set jugoFight = 2
  52. gt 'fight', 'start'
  53. end
  54. end
  55. if karinsparday ! day:
  56. act 'Sparring (Karin mag6)':
  57. cla
  58. set karinsparday = day
  59. set $nameV = 'Karin'
  60. !!stats
  61. set strenV = 60
  62. set speedV = 100
  63. set agilV = 100
  64. set reactV = 60
  65. set vitalV = 100
  66. set intelV = 100
  67. set willV = 100
  68. !!skills
  69. set magikV = 100
  70. set boxingV = 100
  71. set shootV = 100
  72. !!parameters
  73. set healthV = vitalV * 10 + strenV * 5
  74. set mannaV = intelV * 6 + magikV * 10
  75. set willpowerV = willV * 10
  76. set BonusAtakV = 0
  77. set BonusDefV = 0
  78. !!Programme of Action
  79. set program = 4
  80. set karinFight = 1
  81. gt 'fight', 'start'
  82. end
  83. end
  84. end
  85. if $ARGS[0] = 'jugo':
  86. cla
  87. *clr
  88. set minut += 5
  89. '<center><b><font color="maroon">Juugo</font></b></center>'
  90. '<center><img src="images/picPRE/jugoPRE.jpg"></center>'
  91. 'Juugo sitting on floor and looking aloof kudato in space.'
  92. clr
  93. gs 'stat'
  94. fcolor = rgb(0, 0, 0)
  95. bcolor = rgb(255, 255, 255)
  96. lcolor = rgb(106, 90, 205)
  97. act 'Leave':gt 'lab', 'start'
  98. if jugoday ! day:
  99. act 'Develop strength (1:00)':
  100. cla
  101. set stren += rand(3, 6)
  102. set minut += 60
  103. set jugoday = day
  104. 'You do exercises under the guidance of Juugo.'
  105. act 'Leave':gt 'lab', 'jugo'
  106. end
  107. act 'Reach speeds (1:00)':
  108. cla
  109. set speed += rand(3, 6)
  110. set minut += 60
  111. set jugoday = day
  112. 'You do exercises under the guidance of Juugo.'
  113. act 'Leave':gt 'lab', 'jugo'
  114. end
  115. act 'Develop agility (1:00)':
  116. cla
  117. set agil += rand(3, 6)
  118. set minut += 60
  119. set jugoday = day
  120. 'You do exercises under the guidance of Juugo.'
  121. act 'Leave':gt 'lab', 'jugo'
  122. end
  123. act 'Develop reaction (1:00)':
  124. cla
  125. set react += rand(3, 6)
  126. set minut += 60
  127. set jugoday = day
  128. 'You do exercises under the guidance of Juugo.'
  129. act 'Leave':gt 'lab', 'jugo'
  130. end
  131. act 'Develop endurance (1:00)':
  132. cla
  133. set vital += rand(3, 6)
  134. set minut += 60
  135. set jugoday = day
  136. 'You do exercises under the guidance of Juugo.'
  137. act 'Leave':gt 'lab', 'jugo'
  138. end
  139. end
  140. end
  141. if $ARGS[0] = 'karin':
  142. cla
  143. *clr
  144. set minut += 5
  145. '<center><b><font color="maroon">Karina</font></b></center>'
  146. '<center><img src="images/picPRE/karinPRE.jpg"></center>'
  147. 'Karyn as always studying something.'
  148. clr
  149. gs 'stat'
  150. fcolor = rgb(0, 0, 0)
  151. bcolor = rgb(255, 255, 255)
  152. lcolor = rgb(106, 90, 205)
  153. act 'Leave':gt 'lab', 'start'
  154. act 'I´m too fat and do not want to get fat.':
  155. cla
  156. '(You) - Karin, I oily dibilka not able to watch their weight, wave your magic wand, what would not I grew fat.'
  157. '(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.'
  158. act 'No no no, I changed my mind. Will continue smarter.':gt 'lab', 'karin'
  159. act 'I would want that waist was ...':
  160. cla
  161. set dounspell = 1
  162. set TaliaDoun = input ("Waist in inches?")
  163. if TaliaDoun <= 0:set TaliaDoun = 20
  164. act 'I would want that thighs ...':
  165. cla
  166. set bedraDoun = input ("Hips in inches?")
  167. if bedraDoun <= 0:set bedraDoun = 40
  168. act 'Enjoy your stupidity.':gt 'lab', 'karin'
  169. end
  170. end
  171. end
  172. if IvanPodstavaQW = 2 and poverKAR = 0 and softKAR = 0:
  173. act 'Ask for help with Ivan Karin':
  174. cla
  175. gs 'stat'
  176. '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."'
  177. act 'Military solution':
  178. cls
  179. poverKAR = 1
  180. gs 'stat'
  181. '<center><img src="images/picPRE/karinPRE.jpg"></center>'
  182. '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.'
  183. act 'Leave':gt 'lab', 'karin'
  184. end
  185. act 'Tricky decision':
  186. cls
  187. softKAR = 1
  188. gs 'stat'
  189. '<center><img src="images/picPRE/karinPRE.jpg"></center>'
  190. '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.'
  191. act 'Leave':gt 'lab', 'karin'
  192. end
  193. end
  194. end
  195. if poverKAR = 2:
  196. act 'Approach to Karin about attacks apartments Ivan':
  197. cla
  198. poverKAR = 3
  199. '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. "'
  200. act 'Leave':gt 'lab', 'karin'
  201. end
  202. end
  203. if karinday ! day:
  204. act 'Develop intelligence (1:00)':
  205. cla
  206. set intel += rand(3, 6)
  207. set minut += 60
  208. set karinday = day
  209. 'Did you do with Karin developing his intellect.'
  210. act 'Leave':gt 'lab', 'karin'
  211. end
  212. act 'Will develop (1:00)':
  213. cla
  214. set will += rand(3, 6)
  215. set minut += 60
  216. set karinday = day
  217. 'Did you do with Karin developing his intellect.'
  218. act 'Leave':gt 'lab', 'karin'
  219. end
  220. end
  221. if spelltuman = 0 and magik >= 1:
  222. act 'Learn technique fog (1:00)':
  223. cla
  224. set minut += 60
  225. set spelltuman = 1
  226. 'You learned the technique call fog in battle.'
  227. act 'Leave':gt 'lab', 'karin'
  228. end
  229. end
  230. if spellklon = 0 and magik >= 1:
  231. act 'Learn technique protection cloning (1:00)':
  232. cla
  233. set minut += 60
  234. set spellklon = 1
  235. 'You learned the technique of substitution clone themselves in battle.'
  236. act 'Leave':gt 'lab', 'karin'
  237. end
  238. end
  239. if spellstun = 0 and magik >= 2:
  240. act 'Learn technique paralysis (1:00)':
  241. cla
  242. set minut += 60
  243. set spellstun = 1
  244. 'You learned the technique of paralyzing the enemy.'
  245. act 'Leave':gt 'lab', 'karin'
  246. end
  247. end
  248. if spellwind = 0 and magik >= 2:
  249. act 'Learn mist blowing (1:00)':
  250. cla
  251. set minut += 60
  252. set spellwind = 1
  253. 'You learned the technique of blowing mist.'
  254. act 'Leave':gt 'lab', 'karin'
  255. end
  256. end
  257. if spellklon2 = 0 and magik >= 2:
  258. act 'Learn triple cloning (1:00)':
  259. cla
  260. set minut += 60
  261. set spellklon2 = 1
  262. 'You learned the technique Troynova cloning.'
  263. act 'Leave':gt 'lab', 'karin'
  264. end
  265. end
  266. if spellenergo = 0 and magik >= 3:
  267. act 'Learn energoschit (1:00)':
  268. cla
  269. set minut += 60
  270. set spellenergo = 1
  271. 'You learned the technique energoschita.'
  272. act 'Leave':gt 'lab', 'karin'
  273. end
  274. end
  275. if spellinit = 0 and magik >= 3:
  276. act 'Learn technique deceleration time (1:00)':
  277. cla
  278. set minut += 60
  279. set spellinit = 1
  280. 'You learned the technique of time dilation.'
  281. act 'Leave':gt 'lab', 'karin'
  282. end
  283. end
  284. if magik >= 4 and spellhel = 0:
  285. !!'With this level of magic I can not teach you anymore.'
  286. act 'Learn the technique of treatment (1:00)':
  287. cla
  288. set minut += 60
  289. set spellhel = 1
  290. 'You learned the technique of treatment.'
  291. act 'Leave':gt 'lab', 'karin'
  292. end
  293. end
  294. if magik >= 5 and spellavtoklon = 0:
  295. act 'Learn technique avtoklonirovaniya (1:00)':
  296. cla
  297. set minut += 60
  298. set spellavtoklon = 1
  299. 'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
  300. act 'Leave':gt 'lab', 'karin'
  301. end
  302. end
  303. if magik >= 6 and spellbefshild = 0:
  304. act 'Learn technique prior Shield (1:00)':
  305. cla
  306. set minut += 60
  307. set spellbefshild = 1
  308. 'You learned the technique of pre-shield. This technique allows you to enter into battle with a ready shield against physical impacts.'
  309. act 'Leave':gt 'lab', 'karin'
  310. end
  311. end
  312. end
  313. --- lab ---------------------------------