1
0

lab 9.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368
  1. # lab
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. '<center><b><font color="maroon">Laboratory Karina</font></b></center>'
  12. '<center><img src="images/qwest/lab.jpg"></center>'
  13. act 'Leave':
  14. cla
  15. 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. judosparday = day
  30. $nameV = 'Juugo'
  31. !!stats
  32. strenV = 600
  33. speedV = 60
  34. agilV = 60
  35. reactV = 50
  36. vitalV = 200
  37. intelV = 50
  38. willV = 50
  39. !!skills
  40. magikV = 100
  41. boxingV = 100
  42. shootV = 100
  43. !!parameters
  44. healthV = vitalV * 10 + strenV * 5
  45. mannaV = intelV * 10 + magikV * 10
  46. willpowerV = willV * 10
  47. BonusAtakV = 0
  48. BonusDefV = 0
  49. !!Programme of Action
  50. program = 0
  51. jugoFight = 2
  52. gt 'fight', 'start'
  53. end
  54. end
  55. if karinsparday ! day:
  56. act 'Sparring (Karin mag6)':
  57. cla
  58. karinsparday = day
  59. $nameV = 'Karin'
  60. !!stats
  61. strenV = 60
  62. speedV = 100
  63. agilV = 100
  64. reactV = 60
  65. vitalV = 100
  66. intelV = 100
  67. willV = 100
  68. !!skills
  69. magikV = 100
  70. boxingV = 100
  71. shootV = 100
  72. !!parameters
  73. healthV = vitalV * 10 + strenV * 5
  74. mannaV = intelV * 6 + magikV * 10
  75. willpowerV = willV * 10
  76. BonusAtakV = 0
  77. BonusDefV = 0
  78. !!Programme of Action
  79. program = 4
  80. karinFight = 1
  81. gt 'fight', 'start'
  82. end
  83. end
  84. end
  85. if $ARGS[0] = 'jugo':
  86. cla
  87. clr
  88. *clr
  89. minut += 5
  90. gs 'stat'
  91. fcolor = rgb(0, 0, 0)
  92. bcolor = rgb(255, 255, 255)
  93. lcolor = rgb(106, 90, 205)
  94. '<center><b><font color="maroon">Juugo</font></b></center>'
  95. '<center><img src="images/picPRE/jugoPRE.jpg"></center>'
  96. 'Juugo sitting on floor and looking aloof kudato in space.'
  97. act 'Leave':gt 'lab', 'start'
  98. if jugoday ! day:
  99. act 'Develop strength (1:00)':
  100. cla
  101. stren += rand(3, 6)
  102. minut += 60
  103. 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. speed += rand(3, 6)
  110. minut += 60
  111. 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. agil += rand(3, 6)
  118. minut += 60
  119. 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. react += rand(3, 6)
  126. minut += 60
  127. 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. vital += rand(3, 6)
  134. minut += 60
  135. 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. *clr
  145. minut += 5
  146. gs 'stat'
  147. fcolor = rgb(0, 0, 0)
  148. bcolor = rgb(255, 255, 255)
  149. lcolor = rgb(106, 90, 205)
  150. '<center><b><font color="maroon">Karina</font></b></center>'
  151. '<center><img src="images/picPRE/karinPRE.jpg"></center>'
  152. 'Karyn as always studying something.'
  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. dounspell = 1
  162. TaliaDoun = input ("Waist in cm?")
  163. if TaliaDoun <= 0:TaliaDoun = 20
  164. act 'I would want that thighs ...':
  165. cla
  166. bedraDoun = input ("Hips in cm?")
  167. if bedraDoun <= 0: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. elseif poverKAR = 2:
  195. act 'Approach to Karin about attacks apartments Ivan':
  196. cla
  197. poverKAR = 3
  198. '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. "'
  199. act 'Leave':gt 'lab', 'karin'
  200. end
  201. end
  202. if karinday ! day:
  203. act 'Develop intelligence (1:00)':
  204. cla
  205. intel += rand(3, 6)
  206. minut += 60
  207. karinday = day
  208. 'Did you do with Karin developing his intellect.'
  209. act 'Leave':gt 'lab', 'karin'
  210. end
  211. act 'Will develop (1:00)':
  212. cla
  213. will += rand(3, 6)
  214. minut += 60
  215. karinday = day
  216. 'Did you do with Karin developing his intellect.'
  217. act 'Leave':gt 'lab', 'karin'
  218. end
  219. end
  220. if spelltuman = 0 and magik >= 1:
  221. act 'Learn technique fog (1:00)':
  222. cla
  223. minut += 60
  224. spelltuman = 1
  225. 'You learned the technique call fog in battle.'
  226. act 'Leave':gt 'lab', 'karin'
  227. end
  228. end
  229. if spellklon = 0 and magik >= 1:
  230. act 'Learn technique protection cloning (1:00)':
  231. cla
  232. minut += 60
  233. spellklon = 1
  234. 'You learned the technique of substitution clone themselves in battle.'
  235. act 'Leave':gt 'lab', 'karin'
  236. end
  237. end
  238. if spellstun = 0 and magik >= 2:
  239. act 'Learn technique paralysis (1:00)':
  240. cla
  241. minut += 60
  242. spellstun = 1
  243. 'You learned the technique of paralyzing the enemy.'
  244. act 'Leave':gt 'lab', 'karin'
  245. end
  246. end
  247. if spellwind = 0 and magik >= 2:
  248. act 'Learn mist blowing (1:00)':
  249. cla
  250. minut += 60
  251. spellwind = 1
  252. 'You learned the technique of blowing mist.'
  253. act 'Leave':gt 'lab', 'karin'
  254. end
  255. end
  256. if spellklon2 = 0 and magik >= 2:
  257. act 'Learn triple cloning (1:00)':
  258. cla
  259. minut += 60
  260. spellklon2 = 1
  261. 'You learned the technique Troynova cloning.'
  262. act 'Leave':gt 'lab', 'karin'
  263. end
  264. end
  265. if spellenergo = 0 and magik >= 3:
  266. act 'Learn energoschit (1:00)':
  267. cla
  268. minut += 60
  269. spellenergo = 1
  270. 'You learned the technique energoschita.'
  271. act 'Leave':gt 'lab', 'karin'
  272. end
  273. end
  274. if spellinit = 0 and magik >= 3:
  275. act 'Learn technique deceleration time (1:00)':
  276. cla
  277. minut += 60
  278. spellinit = 1
  279. 'You learned the technique of time dilation.'
  280. act 'Leave':gt 'lab', 'karin'
  281. end
  282. end
  283. if magik >= 4 and spellhel = 0:
  284. !!'With this level of magic I can not teach you anymore.'
  285. act 'Learn the technique of treatment (1:00)':
  286. cla
  287. minut += 60
  288. spellhel = 1
  289. 'You learned the technique of treatment.'
  290. act 'Leave':gt 'lab', 'karin'
  291. end
  292. end
  293. if magik >= 5 and spellavtoklon = 0:
  294. act 'Learn technique avtoklonirovaniya (1:00)':
  295. cla
  296. minut += 60
  297. spellavtoklon = 1
  298. 'You learned the technique avtoklonirovaniya. This technique allows you to enter into battle with the already created three clones.'
  299. act 'Leave':gt 'lab', 'karin'
  300. end
  301. end
  302. if magik >= 6 and spellbefshild = 0:
  303. act 'Learn technique prior Shield (1:00)':
  304. cla
  305. minut += 60
  306. spellbefshild = 1
  307. 'You learned the technique of pre-shield. This technique allows you to enter into battle with a ready shield against physical impacts.'
  308. act 'Leave':gt 'lab', 'karin'
  309. end
  310. end
  311. end
  312. --- lab ---------------------------------