1
0

tatiana_lab.qsrc 49 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051
  1. # tatiana_lab
  2. !2020/10/14/Gwen
  3. if $ARGS[0] = 'start':
  4. cla & *clr
  5. $menu_loc = 'tatiana_lab'
  6. $menu_arg = 'start'
  7. menu_off = 0
  8. CLOSE ALL
  9. minut += 5
  10. gs 'stat'
  11. gs 'themes', 'indoors'
  12. '<center><b><font color="maroon">Tatianas'' Laboratory</font></b></center>'
  13. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/lab/lab.jpg"></center>'
  14. if succubusflag = 1 and sucbypass = 0:
  15. if sucpcinfo < 2:
  16. xgt 'tatiana_lab', 'suctraining'
  17. elseif sucpcinfo >= 6 and sucskill < 3 and sctrainprep = 1:
  18. xgt 'tatiana_lab', 'suctraining'
  19. end
  20. elseif succubusflag = 1 and sucbypass = 1:
  21. sucbypass = 0
  22. end
  23. act 'Leave':
  24. cla
  25. minut += 5
  26. gt 'city_center'
  27. end
  28. !! if tatina_missionday < daystart:
  29. !! gt 'tatiana_lab', 'missions'
  30. !! end
  31. act 'Train with Gustav':
  32. cla
  33. gt 'tatiana_lab', 'Gustav'
  34. end
  35. act 'Talk with Tatiana':
  36. cla
  37. gt 'tatiana_lab', 'Tatiana'
  38. end
  39. if judosparday ! daystart:
  40. act 'Sparring (Gustav, mutant power 600)':
  41. cla
  42. judosparday = daystart
  43. gs 'boyStat', 'A175'
  44. gs 'fight','initFight'
  45. gs 'fight_npcdata', 'gustav'
  46. gt 'fight', 'start'
  47. end
  48. end
  49. if tatianasparday ! daystart:
  50. act 'Sparring (Tatiana, magician6)':
  51. cla
  52. tatianasparday = daystart
  53. gs 'boyStat', 'A176'
  54. gs 'fight','initFight'
  55. gs 'fight_npcdata', 'tatiana'
  56. gt 'fight', 'start'
  57. end
  58. end
  59. !!!Has to be adjusted to match TatianaMissionQW value for latest mission (see 'tatiana_missions')
  60. TatianaMissionTotal = 3
  61. if tobiQW > 0 and TatianaMissionDay + 30 < daystart and TatianaMissionQW < TatianaMissionTotal:
  62. 'You have a feeling Tatiana might want to talk to you about something...'
  63. act 'Ask Tatiana what she wants':gt 'tatiana_lab','missions'
  64. end
  65. end
  66. if $ARGS[0] = 'Gustav':
  67. cla
  68. clr
  69. *clr
  70. minut += 5
  71. gs 'stat'
  72. gs 'themes', 'indoors'
  73. '<center><b><font color="maroon">Gustav</font></b></center>'
  74. '<center><img <<$set_imgh>> src="images/characters/city/jugo/jugopre.jpg"></center>'
  75. 'Gustav is sitting on floor and staring off into space.'
  76. act 'Leave':gt 'tatiana_lab', 'start'
  77. if gustavday ! daystart:
  78. act 'Develop strength (1:00)':gs 'tatiana_lab', 'GustavDevelop', 'stren_exp'
  79. act 'Develop agility (1:00)':gs 'tatiana_lab', 'GustavDevelop', 'agil_exp'
  80. act 'Develop reactions (1:00)':gs 'tatiana_lab', 'GustavDevelop', 'react_exp'
  81. act 'Develop endurance (1:00)':gs 'tatiana_lab', 'GustavDevelop', 'vital_exp'
  82. end
  83. end
  84. if $ARGS[0] = 'GustavDevelop':
  85. cla
  86. timemult = 4
  87. loopcount = 1
  88. :timeloop
  89. gs 'exercise', 'tier2', 0, $ARGS[1]
  90. if loopcount < timemult: loopcount += 1 & jump 'timeloop'
  91. loopcount = 0
  92. timemult = 0
  93. gustavday = daystart
  94. 'You do exercises under the guidance of Gustav.'
  95. act 'Leave':gt 'tatiana_lab', 'Gustav'
  96. end
  97. if $ARGS[0] = 'BodyModActuate':
  98. ! Does the actual modification
  99. ! ARGS[1] = Mana cost
  100. ! ARGS[2] = Time for change
  101. ! $ARGS[3] = property to set
  102. ! ARGS[4] = value to set
  103. ! $ARGS[5] = Description of new val
  104. ! $ARGS[6] = Body part name
  105. ! $ARGS[7] = Body part for pain
  106. ! $ARGS[8] = extra code to run before
  107. bodyModMana = ARGS[1]
  108. bodyModTime = ARGS[2]
  109. $bodyModStat = $ARGS[3]
  110. bodyModVal = ARGS[4]
  111. $bodyModDesc = $ARGS[5]
  112. $bodyModType = $ARGS[6]
  113. $bodyModPain = $ARGS[7]
  114. $bodyModExtra= $ARGS[8]
  115. if pcs_mana >= bodyModMana:
  116. dynamic $bodyModExtra
  117. dynamic "<<$bodyModStat>> = <<bodyModVal>>"
  118. pcs_mana -= bodyModMana
  119. gs 'arousal', 'flash', 30
  120. minut+=bodyModTime-30
  121. pain[$bodyModPain] = 100
  122. gs 'stat'
  123. gt 'tatiana_lab', 'BodyModded', $bodyModType, $bodyModDesc
  124. else
  125. *pl 'Tatiana says, "You don''t have enough mana to pull this off. Rest and we can try again later."'
  126. end
  127. killvar 'bodyModMana'
  128. killvar 'bodyModTime'
  129. killvar '$bodyModStat'
  130. killvar 'bodyModVal'
  131. killvar '$bodyModDesc'
  132. killvar '$bodyModType'
  133. killvar '$bodyModPain'
  134. killvar '$bodyModExtra'
  135. end
  136. if $ARGS[0] = 'ListBuilder':
  137. ! Builds a list of Attributes to be able to change
  138. ! $ARGS[1] = Name of the attribute
  139. ! $ARGS[2] = Mana cost of the change
  140. ! $ARGS[3] = Time the change will take
  141. ! $ARGS[4] = Array name of change value display string
  142. ! $ARGS[5] = Array name of value to change attribute to, 'i' means, just use array position
  143. ! $ARGS[6] = variable name of attribute to change
  144. ! $ARGS[7] = pain location
  145. ! $ARGS[8] = extra code to run before
  146. $bodyModType = $ARGS[1]
  147. bodyModMana = ARGS[2]
  148. bodyModTime = ARGS[3]
  149. $bodyModDesc = $ARGS[4]
  150. $bodyModIndx = $ARGS[5]
  151. $bodyModStat = $ARGS[6]
  152. $bodyModPain = $ARGS[7]
  153. $bodyModExtra= $ARGS[8]
  154. $hairColors[0]='black'
  155. $hairColors[1]='brown'
  156. $hairColors[2]='red'
  157. $hairColors[3]='blonde'
  158. hairTypes[0]=5 & $hairTypes[0]='extremely short'
  159. hairTypes[1]=31 & $hairTypes[1]='pixie-cut'
  160. hairTypes[2]=81 & $hairTypes[2]='medium'
  161. hairTypes[3]=161 & $hairTypes[3]='shoulder-length'
  162. hairTypes[4]=261 & $hairTypes[4]='long'
  163. hairTypes[5]=401 & $hairTypes[5]='very long'
  164. hairTypes[6]=601 & $hairTypes[6]='extremely long'
  165. $lipSize[0]='thin'
  166. $lipSize[1]='normal'
  167. $lipSize[2]='plump'
  168. $lipSize[3]='pouty'
  169. $lipSize[4]='pillowy'
  170. $eyeColors[0]='brown'
  171. $eyeColors[1]='grey'
  172. $eyeColors[2]='green'
  173. $eyeColors[3]='blue'
  174. $eyeLashes[0]='short'
  175. $eyeLashes[1]='average'
  176. $eyeLashes[2]='long'
  177. $eyeLashes[3]='lavish'
  178. $eyeLashes[4]='show-stealing'
  179. $eyeLashes[5]='long, jewel-dusted'
  180. breastSize[0]=5 & $breastSize[0]='AA'
  181. breastSize[1]=10 & $breastSize[1]='A'
  182. breastSize[2]=15 & $breastSize[2]='B'
  183. breastSize[3]=20 & $breastSize[3]='C'
  184. breastSize[4]=25 & $breastSize[4]='D'
  185. breastSize[5]=30 & $breastSize[5]='E'
  186. breastSize[6]=35 & $breastSize[6]='F'
  187. breastSize[7]=40 & $breastSize[7]='G'
  188. breastSize[8]=45 & $breastSize[8]='H'
  189. breastSize[9]=50 & $breastSize[9]='I'
  190. breastSize[10]=55 & $breastSize[10]='J'
  191. breastSize[11]=60 & $breastSize[11]='K'
  192. $ListStr = "<B><<$bodyModType>></B>"
  193. i = 0
  194. :BodyModLoop
  195. if i < arrsize('<<$bodyModDesc>>'):
  196. if $bodyModIndx = 'i':
  197. bodymodValue = i
  198. else
  199. bodymodValue = dyneval("result = <<$bodyModIndx>>[<<i>>]")
  200. end
  201. $bodyModDescX = dyneval('$result = <<$bodyModDesc>>[<<i>>]')
  202. $ListStr = $ListStr + "<br><a href=""EXEC:gs 'tatiana_lab','BodyModActuate',<<bodyModMana>>,<<bodyModTime>>,'<<$bodyModStat>>',<<bodymodValue>>,'<<$bodyModDescX>>','<<$bodyModType>>','<<$bodyModPain>>','<<$bodyModExtra>>'""><<$bodyModDescX>></a>"
  203. i += 1
  204. jump 'BodyModLoop'
  205. end
  206. killvar 'i'
  207. killvar '$bodyModDescX'
  208. killvar 'bodymodValue'
  209. killvar '$bodyModType'
  210. killvar 'bodyModMana'
  211. killvar 'bodyModTime'
  212. killvar '$bodyModDesc'
  213. killvar '$bodyModIndx'
  214. killvar '$bodyModStat'
  215. killvar '$bodyModPain'
  216. killvar '$bodyModExtra'
  217. $result = $ListStr
  218. killvar '$ListStr'
  219. end
  220. if $ARGS[0] = 'BodyModded':
  221. ! Landing page for having Body Mod done.
  222. ! $ARGS[1] = Name of the attribute
  223. ! $ARGS[2] = new value of attribute
  224. $bodyModType = $ARGS[1]
  225. $bodyModVal = $ARGS[2]
  226. cls & cla
  227. act 'Thank you':gt 'tatiana_lab', 'Tatiana'
  228. "You feel a bit drained and tingly all over. You look in the mirror."
  229. "Your <<$bodyModType>> is now <<$bodyModVal>>."
  230. """Thanks Tatiana!"""
  231. end
  232. if $ARGS[0] = 'Tatiana':
  233. cls
  234. $loc = 'tatiana_lab'
  235. $loc_arg = 'Tatiana'
  236. minut += 5
  237. gs 'stat'
  238. gs 'themes', 'indoors'
  239. '<center><b><font color="maroon">Tatiana</font></b></center>'
  240. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  241. 'Tatiana is always studying something.'
  242. if succubusflag = 1:
  243. if tatisucsex > 0 and sucinfoday ! 0 and sucinfoday <= daystart:
  244. '"Hey <<$pcs_nickname>>!'
  245. '"I''ve gotten some more information about Succubae!"'
  246. if sucpcinfo = 4 and succublvl >= 2:
  247. '"I heard from one of my mage contacts, in Sydney, Australia of all places, and he passed on some more details."'
  248. sucpcinfo = 5
  249. sucinfoday = daystart + 10 + rand(0,7)
  250. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 1
  251. exit
  252. elseif sucpcinfo = 5:
  253. '"I heard from an old friend of mine who is now living in Morocco and also has a Succubus for a lover. She said that after they had been together for some time, they discovered that with her help, her Succubus lover learned something new."'
  254. sucpcinfo = 6
  255. sucinfoday = daystart + 17 + rand(0,7)
  256. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 2
  257. exit
  258. elseif sucpcinfo = 6:
  259. '"I heard from one of my contacts. He''s living in Las Vegas in America, which, apparently, is the Succubus capital of North America, and he passed along two pieces of information."'
  260. sucpcinfo = 7
  261. !! The +9000000 is so I can easily reset it when the next Skill upadtes are ready.
  262. sucinfoday = daystart + 9000000
  263. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 3
  264. exit
  265. end
  266. end
  267. if tatisucsex ! 0 and tatisucsexask ! daystart: act 'Ask if she wants to have sex': tatianasucsexask = daystart & gt 'tatiana_lab', 'Tatianasucsexask'
  268. if sucpcinfo >= 4: act 'Ask her about Succubae': gt 'tatiana_lab', 'Tatianasuctalk'
  269. end
  270. act 'Leave':gt 'tatiana_lab', 'start'
  271. act 'Ask for help with your appearance':
  272. cla
  273. '"Tatiana, I''m having problems with my body image. I''m not happy and was hoping that you might be able to help me."'
  274. *nl
  275. '"It''s possible, but I will have to draw on your magical energy. It will cost some of your mana to perform a spell."'
  276. '"Also, this will be painful. The magic will force your flesh into new shapes."'
  277. $HairColorTab = func('tatiana_lab', 'ListBuilder', 'Hair Color', 500, 60, '$hairColors','i', 'pcs_haircol','hair', 'nathcol = bodyModVal')
  278. $HairLengthTab = func('tatiana_lab', 'ListBuilder', 'Hair Length',200, 120,'$hairTypes', 'hairTypes', 'pcs_hairlng','hair', '')
  279. $EyeColorTab = func('tatiana_lab', 'ListBuilder', 'Eye Color', 300, 120,'$eyeColors', 'i', 'pcs_eyecol', 'eye', '')
  280. $EyeLashTab = func('tatiana_lab', 'ListBuilder', 'Eye Lashes', 100, 30, '$eyeLashes', 'i', 'pcs_lashes', 'eye', '')
  281. $LipTab = func('tatiana_lab', 'ListBuilder', 'Lip Size', 300, 120,'$lipSize', 'i', 'pcs_lip', 'lip', '')
  282. $BreastTab = func('tatiana_lab', 'ListBuilder', 'Breast Size',1000,240,'$breastSize','breastSize','nbsize', 'breasts','magicf2b=0')
  283. $SkinTab = "<a href=""EXEC:gs 'tatiana_lab','BodyModActuate',1000,240,'pcs_skin',100,'clear','Skin','chest',''"">Clear Skin</a>"
  284. $VirginTab = "<a href=""EXEC:gs 'tatiana_lab','BodyModActuate',1000,120,'pcs_vag',0,'renewed','Virginity','vaginal',''"">Renew Virginity</a>"
  285. $SiliconeTab = "<a href=""EXEC:gs 'tatiana_lab','BodyModActuate',1000,240,'fillimplant',0,'natural again','Boobs','breasts','brSurTemp = 0 & stringimplant = 0'"">Remove Silicone</a>"
  286. $SpellListStr = "<CENTER>
  287. <TABLE CELLPADDING = '5'>
  288. <TR>
  289. <TD><<$SkinTab>></TD>
  290. <TD><<$VirginTab>></TD>
  291. <TD><<$SiliconeTab>></TD>
  292. </TR>
  293. <TR>
  294. <TD VALIGN='top'><<$HairColorTab>></TD>
  295. <TD VALIGN='top'><<$EyeColorTab>></TD>
  296. <TD VALIGN='top'><<$BreastTab>></TD>
  297. </TR>
  298. <TR>
  299. <TD VALIGN='top'><<$HairLengthTab>></TD>
  300. <TD VALIGN='top'><<$EyeLashTab>></TD>
  301. <TD VALIGN='top'><<$LipTab>></TD>
  302. </TR>
  303. </TABLE>
  304. </CENTER>"
  305. *pl func('cleanHTML',$SpellListStr)
  306. killvar '$HairColorTab'
  307. killvar '$HairLengthTab'
  308. killvar '$EyeColorTab'
  309. killvar '$EyeLashTab'
  310. killvar '$LipTab'
  311. killvar '$BreastTab'
  312. killvar '$SkinTab'
  313. killvar '$VirginTab'
  314. killvar '$SiliconeTab'
  315. killvar '$SpellListStr'
  316. act 'No, no, I''ve changed my mind. Thank you.':gt 'tatiana_lab', 'Tatiana'
  317. act 'Restore your body to its original shape':
  318. cla
  319. '"Tatiana, I''m having problems with my body image. I''m not happy and was hoping that you might be able to help me."'
  320. '"It''s possible, but I will have to draw on your magical energy. It will cost 40 mana to perform a reset spell.'
  321. 'This will reduce excess fat, growth of body parts and high levels of silicone, moving you closer to your original body shape.'
  322. 'Do you wish to try this spell?'
  323. act 'No, no, I''ve changed my mind. Thank you.':gt 'tatiana_lab', 'Tatiana'
  324. if pcs_mana >= 40:
  325. act 'That sounds great, let''s do it!':
  326. *clr
  327. cla
  328. minut += 30
  329. dounspell = 1
  330. gs 'body_shape', 'hardreset'
  331. gs 'stat'
  332. '<center><img <<$set_imgh>> src="images/characters/city/tatiana/magiclook.jpg"></center>'
  333. 'Tatiana lowers her glasses and stares deeply into your eyes. It feels like time just stops being a thing and you are floating.'
  334. 'It seems very soon afterwards when you snap back to reality, but the big clock on the lab wall tells you it''s been 30 minutes.'
  335. 'Your body has changed much as Tatiana said it would, and she is already busy checking nothing went wrong.'
  336. act 'Continue': gt 'tatiana_lab', 'Tatiana'
  337. end
  338. end
  339. end
  340. end
  341. if BurgerQW['IvanQW'] = 2 and poverKAR = 0 and softKAR = 0:
  342. act 'Ask Tatiana for help with Ivan':
  343. cla
  344. gs 'stat'
  345. 'You explain the situation and ask Tatiana for assistance. Tatiana says thoughtfully, "It doesn''t sound like there is any physical evidence of Ivan''s guilt, so you need a confession. I think it would be possible to capture and interrogate him. Or, you and I could try a more cunning approach to get the truth out of him. Either way, you need to capture it all on video."'
  346. act 'Military solution':
  347. cls
  348. poverKAR = 1
  349. gs 'stat'
  350. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  351. 'You decide to get Ivan to admit what he''s done by force. Tatiana tells you to go to Ivan''s apartment. There you will meet with Gustav, who will help resolve the issue. She stresses that you keep an eye on him in case he starts getting distraught. Apparently when he does, he turns into a monster.'
  352. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  353. end
  354. act 'Trick him':
  355. cls
  356. softKAR = 1
  357. gs 'stat'
  358. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  359. 'You decide to trick Ivan into admitting what he''s done. Tatiana tells you to go to Ivan''s apartment and that she will meet you there.'
  360. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  361. end
  362. end
  363. elseif poverKAR = 2:
  364. act 'Approach Tatiana about the attack on Ivan''s apartment':
  365. cla
  366. poverKAR = 3
  367. 'You come to Tatiana, and she sighs. "Yes, you failed. That bullet Gustav caught in his head made his strength go up to the next level, almost invulnerable but deprived of his mind. That''s why he couldn''t stop himself from killing Ivan before you could get a confession out of him. There are pluses. The cops think it was just a gas explosion for one, so you probably don''t need to worry about much of an investigation. But now you are going to have to pay the debt if you don''t want to go to jail. "'
  368. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  369. end
  370. end
  371. if Tatianaday ! daystart:
  372. act 'Develop your intelligence (1:00)':
  373. cla
  374. intel_exp += rand(3, 6)
  375. minut += 60
  376. Tatianaday = daystart
  377. 'You study with Tatiana developing your intellect.'
  378. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  379. end
  380. act 'Develop your inner spirit (1:00)':
  381. cla
  382. sprt_exp += rand(3, 6)
  383. minut += 60
  384. Tatianaday = daystart
  385. 'You meditate with Tatiana improving your spirituality.'
  386. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  387. end
  388. end
  389. if func('spellList','numAvailableSpells','basicSpells') > 0 or func('spellList','numAvailableSpells','healSpells') > 0:
  390. act 'Are there other spells you can teach me? (1:00)':
  391. cla
  392. 'Placeholder scene where Tatiana uses device to pull mana in exchange for her help.'
  393. ! Takes time
  394. minut += 60
  395. ! takes mana
  396. pcs_mana -= 10000
  397. if pcs_mana < 0: pcs_mana = 0
  398. ! causes orgasm
  399. $orgasm_or = 'yes'
  400. gs 'arousal', 'masturbate', 15
  401. gs 'arousal', 'end'
  402. gs 'stat'
  403. ! Adds new spells
  404. gs 'spellList','addAvailableSpells','basicSpells'
  405. gs 'spellList','addAvailableSpells','healSpells'
  406. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  407. end
  408. end
  409. ! Show Actions for Learning Spells
  410. gs 'spellList', 'teacherActions', '$basicSpells', 'tatiana_lab', 'Tatiana'
  411. gs 'spellList', 'teacherActions', '$healSpells', 'tatiana_lab', 'Tatiana'
  412. !gs 'spellList', 'teacherActions', '$beautySpells', 'tatiana_lab', 'Tatiana'
  413. if pcs_magik >= 5 and spellavtoklon = 0:
  414. act 'Learn technique preparation (1:00)':
  415. cla
  416. minut += 60
  417. spellavtoklon = 1
  418. 'You learn the technique preparation. This technique allows you to enter into battle with three clones already created.'
  419. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  420. end
  421. end
  422. if pcs_magik >= 6 and spellbefshild = 0:
  423. act 'Learn technique pre-shield (1:00)':
  424. cla
  425. minut += 60
  426. spellbefshild = 1
  427. 'You learn the technique pre-shield. This technique allows you to enter into battle with a magical shield protecting you against physical attacks.'
  428. act 'Leave':gt 'tatiana_lab', 'Tatiana'
  429. end
  430. end
  431. !! Succubus specific skill training.
  432. if succubusflag = 1:
  433. if sucpcinfo >= 4 and sucskill < 1:
  434. act 'Learn to monitor your Succubus Energies (may take some time)':
  435. cla
  436. minut += 30
  437. sucskill = 1
  438. gs 'stat'
  439. 'You spend 30 minutes meditating with Tatiana in a light link with you as she shows you how to tell what your Succubus energy levels are.'
  440. 'You open your eyes and look at Tatiana sitting across from you.'
  441. 'She is flushed, breathing hard, and her nipples are showing clearly through her blouse.'
  442. if 1 + (succublvl * 2) + tatisucsex < 20 and rand(0,100) < 90:
  443. 'After a moment, she gives herself a shake and pulls herself together before saying, "There you go!"'
  444. 'She then stands up and goes back to her studying.'
  445. act 'Finish': gt 'tatiana_lab', 'Tatiana'
  446. else
  447. xgt 'tatiana_lab', 'suctrainsex'
  448. end
  449. end
  450. elseif sucpcinfo >= 5 and sucskill < 2:
  451. act 'Learn to increase your energy storage (may take some time)':
  452. cla
  453. minut += 5
  454. 'You settle into a meditative state and link with Tatiana.'
  455. if succhungry > -2:
  456. gs 'stat'
  457. 'After a few minutes, you feel Tatiana break the link and say, "<<$pcs_nickname>>, you need to build up <i>two</i> days of reserve before we do this training."'
  458. 'She then stands up and goes back to her studying.'
  459. act 'Finish': gt 'tatiana_lab', 'Tatiana'
  460. exit
  461. end
  462. minut += 55
  463. gs 'stat'
  464. sucskill = 2
  465. 'Tatiana shows you how to build a storage reservoir that draws the excess energy in before your body uses it.'
  466. 'Once you''re finished, Tatiana is again showing clear signs of arousal, and she says, "You know, touching your power is a really, <i>really</i>, intense experience!"'
  467. 'She then closes her eyes and visibly tries to get ahold of herself.'
  468. if tatisucsex >= 20 or rand(1,100) < 95:
  469. 'After several moments, she pulls herself together, opens her eyes, smiles at you, and says, "There, I knew I could do it!"'
  470. 'She then stands up and goes back to her studying.'
  471. act 'Finish': gt 'tatiana_lab', 'Tatiana'
  472. else
  473. 'Then her eyes snap open, and you feel arousal suddenly flooding the link!'
  474. xgt 'tatiana_lab', 'suctrainsex'
  475. end
  476. end
  477. elseif sucpcinfo >= 6 and sucskill < 3:
  478. if money >= 5000 and sctrainprep = 0:
  479. act 'Ask her about the preparations and training':
  480. cla
  481. gs 'stat'
  482. minut += 60
  483. 'You ask her what''s involved in the training and preparations.'
  484. 'She spends some time explaining the technical details of what you need to do during the "ritual", then says,'
  485. '"The preparations will take 7 days, I''ll need 3000 <b>₽</b to modify one of my devices to pull in free sexual energy from the adult businesses around here and another 2000 <b>₽</b> to make several potions we''ll need, one of which is going to temporarily make me into a sexual energy "battery" and the others are so we can do the ritual without hurting ourselves.'
  486. '"Once I start, you''ll have 2 days to tell me to abort, after that I will have started building up the charge. We would not be able stop ourselves, and premature sex could kill us, so I''ll be putting up a barrier to keep you out until 7 days have passed, and I''ll set it not to let you through unless you have 3 days of reserves and 100 units of stored energy.'
  487. '"Once I''ve built up to a full charge, I''ll only be able to hold it for a day, after that I''ll have to release it. The "battery" potion itself as well as the materials for it will not keep, so abort after I start or fail to show up on time and 2000 <b>₽</b> will have been wasted.'
  488. '"So, do you want me to start the preparations?"'
  489. act 'Yes':
  490. cla
  491. money -= 5000
  492. sctrainprep = 1
  493. tatisucsexday = daystart + 7
  494. '"Ok, I''ll get started! Be here next <<$week[week]>> with 3 days of reserves and 100 units of stored energy."'
  495. if tatisucsex > 0:
  496. 'She then pulls you in for a quick kiss before adding, "Now get out of here, I can''t have you distracting me!"'
  497. else
  498. 'She then surprises you with a peck on the cheek before adding, "Now get out of here, I can''t have you distracting me!"'
  499. end
  500. act 'Leave':
  501. minut += 5
  502. gt 'city_center'
  503. end
  504. end
  505. act 'Not Yet': gt 'tatiana_lab', 'Tatiana'
  506. end
  507. elseif money >= 2000 and sctrainprep = -1:
  508. act 'Ask her to redo the preparations':
  509. cla
  510. 'Are you sure? The same things from before apply; 2 days to abort, the barrier, 3 days of reserves and 100 units of stored energy, 8 to 10 hours once I''m fully charged... Another 2000 <b>₽</b> wasted. Are you <i>really</i> sure?'
  511. act 'Yes':
  512. cla
  513. money -= 2000
  514. sctrainprep = 1
  515. tatisucsexday = daystart + 7
  516. '"Ok, I''ll get started! Be here next <<$week[week]>> with 3 days of reserves and 100 units of stored energy."'
  517. '"Now get out of here, I can''t have you distracting me!"'
  518. act 'Leave':
  519. minut += 5
  520. gt 'city_center'
  521. end
  522. end
  523. act 'Not Yet': gt 'tatiana_lab', 'Tatiana'
  524. end
  525. end
  526. elseif sucpcinfo >= 7 and sucskill < 4 and maddildo = 1 and sucexcess >= 100:
  527. act 'Ask Tatiana about the accommodation training':
  528. cla
  529. 'Tatiana asks, "Are you ready to do the accommodation training?"'
  530. act 'Yes, I''m ready. (can take a lot of time)':
  531. cls
  532. cla
  533. minut += 120
  534. gs 'stat'
  535. '<center><img <<$set_imgh>> src="images/shared/sex/mast/dildo.jpg"></center>'
  536. 'She walks you through everything you need to do while leading you to the couch.'
  537. 'Once there, as you are stripping, so is she! At your look, she says, "What? I don''t want to tear my clothes if one of us slips."'
  538. 'You settle onto the couch then work a massive dildo into your snatch. After working the dildo for a bit, with Tatiana in a light link guiding you, you switch to your ass. You work there for a while before switching back. You continue this way for nearly two hours, concentrating so hard you only have two orgasms, before you feel your body responding as it should. A quick test and you’re done.'
  539. sucskill = 4
  540. sucexcess -= 100
  541. act 'Continue':
  542. pcs_horny = 0
  543. 'As you''re finishing, you notice Tatiana has her eyes closed and is visibly trying to get ahold of herself.'
  544. if tatisucsexday < daystart or rand(1,100) > 95:
  545. 'Then her eyes snap open, and you feel arousal suddenly flooding the link!'
  546. xgt 'tatiana_lab', 'suctrainsex'
  547. else
  548. cla
  549. 'After several moments, she pulls herself together, opens her eyes, smiles at you, and says, "There, I knew I could do it!"'
  550. 'She then stands up and goes back to her studying.'
  551. act 'Finish': gt 'tatiana_lab', 'Tatiana'
  552. end
  553. end
  554. end
  555. act 'Not Yet': gt 'tatiana_lab', 'Tatiana'
  556. end
  557. end
  558. end
  559. if AlexandriaQW <=2 and pfilmNO = 1:
  560. act 'Tell Tatiana that you can''t finish the Aphrodite job.':
  561. cla
  562. minut +=5
  563. AlexandriaQW = 3
  564. gs 'stat'
  565. '"Tatiana, I have a problem. It seems that I''ve been blacklisted and can''t enter the Aphrodite building."'
  566. 'She tilts her head and seems to think the problem over, but it looks like she isn''t too worried by this revelation.'
  567. '"Hmm, that complicates the job somewhat, <<$pcs_nickname>>. It seems that the curse is only active during operating hours, so sneaking back in during the night isn''t an option."'
  568. '"So... I need to sneak back in there during daylight hours?"'
  569. 'Tatiana just snorts. "Don''t worry, <<$pcs_nickname>>, I have Gustav for those sorts of jobs. No, I was thinking of an <i>alternative.</i>" She gives you a look that makes you shiver, then continues, "I know a way to help you infiltrate the place so you can look for the item in question. When the moment feels right, go to the Aphrodite building and give me a call. But remember, only when it''s open."'
  570. 'Saying this, Tatiana turns towards her studies, leaving you to your own devices.'
  571. act 'Continue': gt 'tatiana_lab', 'Tatiana'
  572. end
  573. end
  574. if AlexandriaQW =4 or AlexandriaQW =5:
  575. act 'Tell Tatiana about the Aphrodite job.':
  576. *clr & cla
  577. '<center><img <<$set_imgh>> src="images/characters/city/alexandria/photo.jpg"></center>'
  578. 'It is time to tell Tatiana about your experience in Aphrodite. You head over to her and begin to explain everything, beginning with how you snooped around the agency and continuing with how you met her double. When you reach the part where you met Aleksei, Tatiana quickly walks towards a cabinet and pulls out an old photo, showing it to you. The image, taken in black and white, shows an armed Aleksei.'
  579. '"<<$pcs_nickname>>, are you sure that you met this woman? Blonde? Bossy? Tall?"'
  580. '"Yes, I am pretty sure. Is that bad?"'
  581. 'Tatiana pinches the bridge of her nose and sighs. "Yeah, <<$pcs_nickname>>, it''s pretty bad. Aleksei... Well, Alexandria, is an ex-councilor and probably one of the most powerful electric wizards in the world. Remember how The Amulet of Power isn''t supposed to end up in the hands of a woman? Well, she was looking for a form to obtain it, the back alleys word is that the quest made her magic <i>quirky</i>, and that beautiful blonde hair is the consequence of a simple scare."'
  582. '"So... Pretty bad?"'
  583. '"You have no idea <<$pcs_nickname>>." Tatiana sighs. "Look, we are talking here of a <i>centuries</i> old mindset, the one that yearns for the times where cannibalizing non-magical children was fashionable to recharge your energies. Do yourself a favor, just lie down and let Reinhold take care of this."'
  584. minut +=5
  585. gs 'stat'
  586. act '"Okay, Tatiana, and what do I get out of this job?"':
  587. *clr & cla
  588. '<center><table><tr><td><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></td><td><img <<$set_imgh>> src="images/characters/city/jugo/jugopre.jpg"></tr></td></table></center>'
  589. 'Tatiana gives you a half-smile, and you understand that she isn''t going to pay you for the Aphrodite job.'
  590. if AlexandriaQW =4:
  591. money += 5000
  592. 'However, at that moment, to everyone''s surprise, Gustav sneaks up to your side and grabs your hand, placing a roll of bills on it. "Take this, <<$pcs_nickname>>. You succeeded in beating Tatiana''s double, and if not for Alex, the film would be here."'
  593. if pfilmNO = 1:
  594. 'Gustav just stands there staring at a flabbergasted Tatiana who, after a beat, simply shrugs. "Okay, Gustav, don''t suggest that I am scrimpy or anything... Jeez..."'
  595. else
  596. 'Gustav just stands there staring at a flabbergasted Tatiana who, after a beat, simply shrugs. "Okay, Gustav, don''t suggest that I am scrimpy or anything... Jeez. I was going to speak to some of the people in the agency on her behalf, but now... Okay, fine. <<$pcs_nickname>>, I will do it anyway."'
  597. gs 'fame', 'city', 'modelling', 10
  598. end
  599. else
  600. '"<<$pcs_nickname>>, you''ve failed to bring me the film. Instead, it has ended up in the hands of a powerful magician, who may be planning to use it against us."'
  601. if pfilmNO = 1:
  602. 'You open your mouth to protest that it isn''t your fault, but one look at Tatiana''s face tells you that she''s already made up her mind... Fuck!'
  603. else
  604. gs 'fame', 'city', 'modelling', 10
  605. 'You open your mouth to protest that it isn''t your fault, but before you can, Tatiana raises her hands consolingly.'
  606. '"Don''t worry, <<$pcs_nickname>>, you''re not going to leave empty-handed. I''m going to speak to some of the people in the agency on your behalf. It''ll be good for your modelling career."'
  607. end
  608. end
  609. AlexandriaQW = 6
  610. minut +=5
  611. gs 'stat'
  612. *nl
  613. 'Tatiana returns to her job, and before you can ask any more questions, Gustav grabs your arm to take you away.'
  614. 'As you walk, he presses a post-it into your hand. "Take this, <<$pcs_nickname>>. Now you can meet Alex."'
  615. '"What? How? Why?" You ask, more than a little confused.'
  616. 'After a moment of silence, the mutant shrugs. "I''m good at finding people. I knew that a powerful wizard had made his home in Saint Petersburg, and after overhearing what you said, I put two-and-two together. The rest is complicated. I think that Alex just wanted to talk. Messing with The Council isn''t on anyone''s agenda, and now that Reinhold is involved, you''re less likely to be in danger."'
  617. 'You look at the post-it. Scrawled on it are directions to a place in the suburbs. To reach it, you must take the metro. There is a station nearby, but are you going to go and meet Alex?'
  618. act 'Continue':gt 'tatiana_lab', 'Tatiana'
  619. end
  620. end
  621. end
  622. end
  623. if $ARGS[0] = 'Tatianasuctalk':
  624. cla
  625. clr
  626. *clr
  627. gs 'stat'
  628. gs 'themes', 'indoors'
  629. '<center><b><font color="maroon">Tatiana</font></b></center>'
  630. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  631. if sucpcinfo < 2:
  632. minut += 15
  633. *p 'As you both settle onto the couch, Tatiana turns to you and says, "Ok, tell me what happened."'
  634. 'You spend the next 15 minutes telling her about the Fairy, the odd dream, '
  635. if succubusQW < 4:
  636. 'and the energy you let loose the other night.'
  637. elseif succubusQW = 4:
  638. 'the energy you let loose the other night, and the feeling you get when you''ve had sex.'
  639. else
  640. 'the energy you let loose the other night, the feeling you get when you''ve had sex, and the reaction you had to almost being raped.'
  641. end
  642. ''
  643. 'She thinks about it for a moment and then says, "Well, I have a couple of ideas, but no sense guessing when I can just magically examine you."'
  644. 'She hops up and says, "Get undressed and lie down on the couch."'
  645. sucpcinfo = 2
  646. act 'Undress and lie down': gt 'succubus', 'tatianaask'
  647. exit
  648. end
  649. if tatisucsex = 0 and tatisucsexask ! daystart: act 'Ask Tatiana if she wants to try Succubus Sex': tatisucsexask = daystart & gt 'tatiana_lab', 'Tatianasucsexask'
  650. act 'Ask her to repeat what she knows about Succubae': gt 'succubus', 'tatianaask'
  651. act 'Ask her if she has learned anything new about Succubae':
  652. cla
  653. !! Nothing after info level 6 here, because Tatiana will tell the PC automatically
  654. if sucinfoday ! 0 and sucinfoday <= daystart:
  655. if sucpcinfo = 4 and succublvl >= 2:
  656. '"Actually, I have gotten some more information about Succubae."'
  657. '"I heard from one of my mage contacts, in Sydney, Australia of all places, and he passed on some more details."'
  658. sucpcinfo = 5
  659. sucinfoday = daystart + 10 + rand(0,7)
  660. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 1
  661. elseif sucpcinfo = 5:
  662. '"Actually, I have gotten some more information about Succubae."'
  663. '"I heard from an old friend of mine who is now living in Morocco and actually has a Succubus for a lover. She said that after they had been together for some time, they discovered that, with her help, her Succubus lover learned something new."'
  664. sucpcinfo = 6
  665. sucinfoday = daystart + 10 + rand(0,7)
  666. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 2
  667. else
  668. 'No, I haven''t.'
  669. act 'Continue': gt 'tatiana_lab', 'Tatianasuctalk'
  670. end
  671. else
  672. 'No, I haven''t.'
  673. act 'Continue': gt 'tatiana_lab', 'Tatianasuctalk'
  674. end
  675. end
  676. act 'Change topics': gt 'tatiana_lab', 'Tatiana'
  677. end
  678. if $ARGS[0] = 'Tatianasucsexask':
  679. cla
  680. clr
  681. *clr
  682. gs 'stat'
  683. gs 'themes', 'indoors'
  684. '<center><b><font color="maroon">Tatiana</font></b></center>'
  685. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  686. if tatisucsex = 0:
  687. if TatianaSex = 1:
  688. 'You give Tatiana what you hope is a "come hither" smile and ask,'
  689. '"So, you want to give Succubus sex a try?"'
  690. else
  691. 'You give Tatiana a shy smile and ask,'
  692. '"Do you want to try Succubus sex?"'
  693. end
  694. else
  695. 'You give Tatiana a bright smile and ask,'
  696. 'Hey Tatiana, you up for some Succubus Sex?'
  697. end
  698. act 'She answers:':
  699. cla
  700. if tatisucsex = 0:
  701. 'She gives you a wide eyed look before saying,'
  702. if succublvl + TatianaSex < rand(0,6):
  703. '"I''m sorry, <<$pcs_firstname>>, I just don''t have the time now."'
  704. act 'Move on to something else': gt 'tatiana_lab', 'Tatiana'
  705. else
  706. '"I would love to!", with a wide smile.'
  707. 'She leads you over to the couch, and you both strip.'
  708. act 'Proceed': gt 'succubus', 'tatianasex'
  709. end
  710. else
  711. if tatisucsexday <= daystart:
  712. if 1 + (succublvl * 2) + tatisucsex < rand(1,20):
  713. '"I''m sorry, <<$pcs_nickname>>, I just don''t have the time now."'
  714. act 'Move on to something else': gt 'tatiana_lab', 'Tatiana'
  715. else
  716. 'She gives you a "come hither" smile and says, "I would love to, <<$pcs_nickname>>!"'
  717. 'You both head toward the couch, stripping as you go.'
  718. 'Once there, you both sit down facing each other, and she looks at you in anticipation.'
  719. act 'Proceed': gt 'succubus', 'tatianasex'
  720. end
  721. else
  722. if tatisucsexday - daystart > 1:
  723. $scsextmp = 'days'
  724. else
  725. $scsextmp = 'day'
  726. end
  727. 'She looks at you with a sad smile and says,'
  728. '"I''m sorry, <<$pcs_nickname>>, I need at least <<tatisucsexday - daystart>> more <<$scsextmp>>."'
  729. killvar '$scsextmp'
  730. act 'Move on to something else': gt 'tatiana_lab', 'Tatiana'
  731. end
  732. end
  733. end
  734. end
  735. if $ARGS[0] = 'Tatianasexreject':
  736. cla
  737. clr
  738. *clr
  739. gs 'stat'
  740. '<center><b><font color="maroon">Tatiana</font></b></center>'
  741. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  742. if scpopt = 2:
  743. 'I''m sorry, Tatiana, I just don''t have the time right now.'
  744. scpopt = 0
  745. killvar '$sclocrt' & killvar '$scargrt'
  746. end
  747. act 'Finish': gt 'tatiana_lab', 'Tatiana'
  748. end
  749. if $ARGS[0] = 'suctrainsex':
  750. 'She suddenly lunges at you and starts kissing you! You''re so surprised it takes you a bit to respond, and before you can do anything, she is nibbling your ear and whispering, "Let it go..."'
  751. gs 'arousal', 'kiss', 5, 'lesbian', 'sub'
  752. gs 'stat'
  753. if pcs_horny >= 100:
  754. 'You''re so shocked at this you suddenly feel a powerful orgasm rush through you, causing you to cry out even as it rushes down the link to Tatiana, giving her a powerful orgasm as well!'
  755. 'Then, you feel your control slip...'
  756. $orgasm_or = 'yes'
  757. gs 'stat'
  758. act 'Continue': gt 'succubus', 'tatianasex'
  759. else
  760. scfwon = 2
  761. scpopt = 1
  762. $sclocrt = 'tatiana_lab'
  763. $scargrt = 'Tatianasexreject'
  764. 'You only have moments to decide, do you give in and let <<$sucself1>> go or do you reign it in?'
  765. act 'Continue': gt 'succubus', 'tatianasex'
  766. end
  767. end
  768. if $ARGS[0] = 'suctraining':
  769. if sucpcinfo < 2:
  770. cla
  771. clr
  772. *clr
  773. '<center><b><font color="maroon">Tatiana</font></b></center>'
  774. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  775. 'The moment you walk into her lab, Tatiana''s head jerks up and she hurries over to you.'
  776. 'She stares at you for several seconds, then demands, "What the hell happened to you!?!?"'
  777. 'You start to answer her when she holds up her hand and says, "Wait, come sit on the couch and tell me."'
  778. 'She turns away from you and walks toward the couch.'
  779. act 'Follow her': gt 'tatiana_lab', 'Tatianasuctalk'
  780. exit
  781. elseif sucpcinfo >= 6 and sucskill < 3 and sctrainprep = 1:
  782. if tatisucsexday > daystart and tatisucsexday - 5 >= daystart:
  783. cla
  784. clr
  785. *clr
  786. '<center><b><font color="maroon">Tatiana</font></b></center>'
  787. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  788. 'You attempt to enter Tatiana''s lab, but an invisible barrier stops you. Tatiana apparently heard you as she rushes over and says, "What''s wrong? Do we need to cancel?"'
  789. act 'Yes, I need to cancel':
  790. cla
  791. '"Are you sure?"'
  792. act 'Yes, I''m sure':
  793. cla
  794. if tatisucsexday = daystart + 7:
  795. !! this looks like a potential bug. if this isn''t the first time you''re preparing
  796. !! then you should only get 2000 back and sctrainprep should be set back to -1 here.
  797. !! fixing this likely requires another sctrainprep value besides -1, 0, and 1
  798. sctrainprep = 0
  799. money += 5000
  800. '"Ok, good thing I hadn''t bought anything yet." and she hands you back the 5000 <b>₽</b> before going back to her studying.'
  801. else
  802. minut += 3
  803. sctrainprep = -1
  804. '"Ok, I''ll dump the "battery" potion."'
  805. 'With that, she walks over to her workbench and dumps the contents of several beakers into a barrel that flairs with magic as she does so.'
  806. end
  807. act 'Continue': gt 'tatiana_lab', 'start'
  808. end
  809. act 'No, never mind continue your preparations':
  810. cla
  811. 'She gives a small shake of her head and says, "Then get out of here, I can''t have you distracting me!"'
  812. act 'Leave': gt 'city_center'
  813. end
  814. end
  815. act 'No...':
  816. cla
  817. 'You say, "No, I just wanted to see you."'
  818. 'She answers, "That''s sweet, but I can''t have you distracting me, come back all charged up in <<tatisucsexday - daystart>> days!"'
  819. act 'Leave':
  820. minut += 3
  821. gt 'city_center'
  822. end
  823. end
  824. exit
  825. elseif tatisucsexday > daystart and tatisucsexday - 5 < daystart:
  826. if tatisucsexday - daystart > 1:
  827. $scsextmp = 'days'
  828. else
  829. $scsextmp = 'day'
  830. end
  831. 'You attempt to enter Tatiana''s lab, but an invisible barrier stops you. Tatiana apparently heard you as she shouts from across the lab, "I''ve already taken the first potion, so I can''t come anywhere near you, come back all charged up in <<tatisucsexday - daystart>> <<$scsextmp>>!"'
  832. killvar '$scsextmp'
  833. act 'Leave':
  834. minut += 3
  835. gt 'city_center'
  836. end
  837. exit
  838. elseif tatisucsexday = daystart or tatisucsexday = daystart - 1:
  839. cla
  840. clr
  841. *clr
  842. gs 'stat'
  843. '<center><b><font color="maroon">Tatiana</font></b></center>'
  844. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  845. 'The instant you walk into the lab, Tatiana''s head snaps up and she stares hard at you as you approach the barrier.'
  846. if sucexcess >= 100 and succhungry < -2:
  847. minut += 10
  848. 'As you step through the barrier, Tatiana seems to teleport to you and start kissing you.'
  849. 'She then starts pulling you toward her workbench while saying between kisses, "Thank (kiss) goodness (kiss) you''re (kiss) here (kiss) and ready (kiss)! You wouldn''t (kiss) believe (kiss) how (kiss) <i><b>horny</b></i> (kiss) carrying (kiss) all this (kiss) sexual (kiss) energy (kiss) has made me!"'
  850. !! Maybe add arousal call here
  851. 'She suddenly turns away from you, and you realize that you have reached her workbench. She grabs two smallish vials off the top, pops the tops off both, and hands you one, saying, "Drink this," before downing the other.'
  852. 'It tastes like strawberry syrup.'
  853. 'This time you''re ready when Tatiana lunges at you, and you resume kissing as you lead her toward the couch while she is striping the clothes off both of you and you feel a large amount of your stored energy being released into your body.'
  854. 'Once there, you both sit down facing each other. She looks at you with burning lust and says, "Do it!"'
  855. act 'Proceed': gt 'succubus', 'tatianasex'
  856. exit
  857. elseif sucexcess < 100 and succhungry > -2 and tatisucsexday = daystart:
  858. 'She then says, "Damn! You don''t have enough reserve <i>or</i> stored energy! Run over to the Park and find some robbers or something, then get back here tomorrow!"'
  859. elseif succhungry > -2 and tatisucsexday = daystart:
  860. 'She then says, Damn! You don''t have enough reserve energy! Run over to the Park and find some robbers or something, then get back here tomorrow!'
  861. elseif succhungry > -2 and tatisucsexday = daystart - 1:
  862. 'She then says, "Damn! You don''t have enough reserve energy and there isn''t enough time for you to build it up." She then sighs and says, "Go ahead and take off, I need to bleed this energy off safely."'
  863. sctrainprep = -1
  864. else
  865. 'She then says, "Damn! You don''t have enough stored energy! Run over to the Park and find some robbers or something, then get back here!"'
  866. end
  867. act 'Leave': minut += 5 & gt 'city_center'
  868. exit
  869. else
  870. 'The barrier is down when you get to the lab, and Tatiana calls from across the room, "You''re too late, I had to release the energy, and we''ll need to start over."'
  871. sctrainprep = -1
  872. act 'Continue': gt 'tatiana_lab', 'start'
  873. exit
  874. end
  875. end
  876. !! This is oops handling
  877. sucbypass = 1
  878. minut -= 5
  879. gt 'tatiana_lab', 'start'
  880. end
  881. if $ARGS[0] = 'missions':
  882. cls
  883. temp = rand (1,3)
  884. gs 'stat'
  885. '<center><b><font color="maroon">Tatiana</font></b></center>'
  886. '<center><img <<$set_imgh>> src="images/system/intro/shared/karinpre.jpg"></center>'
  887. if TatianaMissionQW = 0:
  888. TatianaMissionQW = 1
  889. TatianaMissionDay = daystart
  890. minut += 15
  891. *clr & cla
  892. 'Tatiana looks up from the pile of files she always seems to be sifting through when she notices you. "<<$pcs_firstname>>, finally! I''ve been waiting for you. We need to talk."'
  893. '"What about?"'
  894. '"Well, you''ve had some time to acclimate yourself to your new situation and to process everything Reinhold and I told you, so," she smiles, "it''s time we started your actual training."'
  895. 'You feel a rush of excitement going through you, and images of shooting fireballs from your hands and parting the sea come before your inner eye. "Great!" You exclaim. "I''m so ready for that."'
  896. 'Tatiana probably guessed what you were thinking, because she chuckles and placates, "That doesn''t mean we''re gonna teach you super-powerful spells. At least not yet." She gives the words a moment to take effect; your enthusiasm for her plans, figuratively throbbing and erect a second ago, shrivels and goes limp by the time she continues. "This part of your training is the most important: You will actually put your skills, senses and knowledge into practice."'
  897. 'The last bit rouses your interest once more. "Into practice? You mean like doing missions for the council?"'
  898. '"Well, the council''s kinda responsible for the big leagues, which is way more than you could handle yet. But long-term, yes." Her tone takes on a mocking quality. "Once Reinhold thinks you''re ready, I''m sure he''ll swoop in, take credit for all the progress you have made thanks to me and swamp you with dangerous adventures. That''d be just like the old bastard." Tatiana sees the uncertainty with which you look at her, grins and shakes her head, confirming that it was all in good humor.'
  899. act 'What kind of missions?':
  900. *clr & cla
  901. '"So," you struggle to imagine what to expect, "what would these missions be like?"'
  902. '"Nothing dangerous," Tatiana reassures you, "at least not while you are still learning the basics." She walks over to a pile of folders and holds one up. "It''d be more along the lines of finding out why somebody''s dog has two tails or," she holds up another folder, "investigating strange sounds people hear coming from their cellar."'
  903. 'You blankly stare at her for a few seconds, expecting Tatiana to chuckle and reveal her explanation as a joke once more, but she doesn''t. "That... sounds like-"'
  904. '"Bullshit?" She offers helpfully.'
  905. '"Conspiracy crap, ghost stories and all that," is what you choose to say instead.'
  906. 'Tatiana nods understandingly. "Yeah, it does. But remember, normal people don''t see magic for what it is."'
  907. '"Right," you remember, "little green men and poltergeists."'
  908. 'Tatiana smiles as you quote her and nods. "And some of those things really turn out to have magical causes: The dog with two tails had been experimented on by one of us, so it was practically bursting with magic. As for the voices..." her smile turns lewd, "those were just some tenants having some extramarital fun away from prying eyes, regularly and loudly."'
  909. act 'Why are we doing this?':
  910. *clr & cla
  911. 'You feel your face heating up slightly at the thought. Something about this is bothering you, though. "But... why would we even look into this? I mean, it sounds interesting enough, but is there a reason behind it?"'
  912. 'Tatiana shrugs. "Well, you <i>could</i> go and get some ancient tomes, lock yourself into an ivory tower and spend half a century or something reading about magic, like most of the old farts on the council do. <b>OR</b>," she spreads her arms to point towards her many files and books on one hand and the exit on the other, "you could just cover the basics and then go out and experience magic first-hand, like I do."'
  913. 'You stare at the heaps and piles of paper incredulously - they are a multiple of everything you''ve read in your entire life! "Those are the basics?!"'
  914. '"Yep," she laughs, "if you wanna really understand how magic works and why it does this at one time and that at another, you gotta get some reading done. Trust me, if there was any way around it, I would have found it. But magic makes the reading easier and quicker, and it''s sooo worth it. The things you can do once you grasp what energies the universe holds are incredible. And I''ve only just scratched the surface."'
  915. '"What do you mean by ''energies of the universe''? I thought you said that magic only exists in living things, like plants and animals."'
  916. '"Did I?" She looks thoughtful but shrugs again. "Well, it''s a little complicated, but to put it simply: when scientists speak of ''dark matter'' and ''dark energy'', then, in reality, they are trying to explain the magic in this plane of existence and all the others, like demons and the magic that exists in their ''dimension'' or whatever you''d wanna call it. But," she waves her hand as if to shoo away a pesky fly, "you don''t have to concern yourself with that right now. When the time comes, Reinhold can explain it to you in more detail - hell, considering that he''s your mentor, I''ve done an awful lot of explaining already... Now, let''s go!"'
  917. 'With that, Tatiana turns towards the exit once more and beckons you to follow.'
  918. '"Go where?" You ask.'
  919. '"To the magic!" She answers cryptically.'
  920. act 'Go to the magic (?)':gt 'tatiana_missions','intro'
  921. end
  922. end
  923. elseif temp = 1:
  924. !Text could use improvement, maybe mission specific text?
  925. *clr & cla
  926. '"Hey <<$pcs_firstname>>, are you up for a magical adventure?" Tatiana asks with a grin.'
  927. act 'Always': gt 'tatiana_missions','start'
  928. act 'Not right now':gt 'tatiana_lab','start'
  929. elseif temp = 2:
  930. *clr & cla
  931. '"Hello <<$pcs_nickname>>, glad you''re here." Tatiana smiles at you. "What do you say? Feel ready for a mission?"'
  932. act 'Sure, let''s do this': gt 'tatiana_missions','start'
  933. act 'Not right now':gt 'tatiana_lab','start'
  934. elseif temp = 3:
  935. *clr & cla
  936. '"Hello <<$pcs_nickname>>." Tatiana looks at you expectantly. "Would you like to do an investigation?"'
  937. act 'Gladly': gt 'tatiana_missions','start'
  938. act 'Not right now':gt 'tatiana_lab','start'
  939. end
  940. ! if TatianaMissionQW = 5: gt 'tatiana_missions', 'special'
  941. ! act 'Mission 1': gt 'tatiana_missions', '1'
  942. !! etc. Maybe give them names so you know what you''re doing. Selecting them goes to in depth description and refuse/accept
  943. !!!Lore for possible consequences of exposing (many) normal people to powerful magic:
  944. !
  945. ! 'Tatiana lays both folders back where they belong and her expression turns serious. "Remember how I told you that magic has a natural tendency to stay hidden? Well, there''s a limit to that tendency, a threshold beyond which either the magic cannot stay hidden anymore or at which the normal person cannot explain what they''re seeing with some non-magical phenomenon, we''re not sure which - in other words, humans have a breaking point, and when they are pushed beyond that, most of them realize how the world really is... and lose their minds."'
  946. ! '"Could that have happened to me?" You shiver at the thought.'
  947. ! '"Honestly, I have no idea," Tatiana admits, "but the power you have absorbed since then is huge, even if you can''t really use it to its full potential, and that may have very well driven most regular mages insane, so we''re moving in unknown territory here."'
  948. ! 'You nod solemnly, suddenly very appreciative of the mental health and stability you always took for granted. "So, you investigate anything that might have magical causes to prevent people from going crazy?"'
  949. ! '"It''s even bigger than that, <<$pcs_firstname>>. We know that this threshold exists. Every mage witnesses it sooner or later." She stops, momentarily lost in thought, but quickly recovers. "We have a theory that, if too many people are exposed to too much magic at once, it might break the illusion for everybody; you know, like a nuclear bomb goes off when you reach a critical mass."'
  950. ! '"Which would then drive everybody insane," you conclude.'
  951. ! '"Maybe not everybody," she corrects, "but many of them. And those that wouldn''t go insane, well, who knows what they''d do? Go on witch hunts? Try to kill all succubi and fae? Attempt to harness the magic of the universe? It would destroy the world as we know it, that''s for sure."'
  952. ! 'You agree with her - with how much had been flung at you when all this began, you were pretty close to hysteria too, if you''re completely honest with yourself.'
  953. end
  954. --- tatiana_lab ---------------------------------