lab 30 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868
  1. # lab
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. CLOSE ALL
  7. if sound = 0:PLAY 'sound/street.mp3',30
  8. minut += 5
  9. gs 'stat'
  10. if night_mode = 1:
  11. fcolor = rgb(255, 255, 255)
  12. bcolor = rgb(0, 0, 0)
  13. lcolor = rgb(106, 90, 205)
  14. else
  15. fcolor = rgb(0, 0, 0)
  16. bcolor = rgb(255, 255, 255)
  17. lcolor = rgb(106, 90, 205)
  18. end
  19. '<center><b><font color="maroon">Tatianas'' Laboratory</font></b></center>'
  20. '<center><img src="images/locations/city/citycenter/lab/lab.jpg"></center>'
  21. if succubusflag = 1 and sucbypass = 0:
  22. if sucpcinfo < 2:
  23. xgt 'lab', 'suctraining'
  24. elseif sucpcinfo >= 6 and sucskill < 3 and sctrainprep = 1:
  25. xgt 'lab', 'suctraining'
  26. end
  27. elseif succubusflag = 1 and sucbypass = 1:
  28. sucbypass = 0
  29. end
  30. act 'Leave':
  31. cla
  32. minut += 5
  33. gt 'down'
  34. end
  35. !! if tatina_missionday < daystart:
  36. !! gt 'lab', 'missions'
  37. !! end
  38. act 'Train with Gustav':
  39. cla
  40. gt 'lab', 'Gustav'
  41. end
  42. act 'Talk with Tatiana':
  43. cla
  44. gt 'lab', 'Tatiana'
  45. end
  46. if judosparday ! daystart:
  47. act 'Sparring (Gustav, mutant power 600)':
  48. cla
  49. judosparday = daystart
  50. gs 'boyStat', 175
  51. !!stats
  52. strenV = 600
  53. speedV = 60
  54. agilV = 60
  55. reactV = 50
  56. vitalV = 200
  57. intelV = 50
  58. willV = 50
  59. !!skills
  60. magikV = 100
  61. boxingV = 100
  62. shootV = 100
  63. !!parameters
  64. healthV = vitalV * 10 + strenV * 5
  65. mannaV = intelV * 10 + magikV * 10
  66. willpowerV = willV * 10
  67. BonusAtakV = 0
  68. BonusDefV = 0
  69. !!Programme of Action
  70. program = 0
  71. jugoFight = 2
  72. gt 'fight', 'start'
  73. end
  74. end
  75. if tatianasparday ! daystart:
  76. act 'Sparring (Tatiana, magician6)':
  77. cla
  78. tatianasparday = daystart
  79. gs 'boyStat', 176
  80. !!stats
  81. strenV = 60
  82. speedV = 100
  83. agilV = 100
  84. reactV = 60
  85. vitalV = 100
  86. intelV = 100
  87. willV = 100
  88. !!skills
  89. magikV = 100
  90. boxingV = 100
  91. shootV = 100
  92. !!parameters
  93. healthV = vitalV * 10 + strenV * 5
  94. mannaV = intelV * 6 + magikV * 10
  95. willpowerV = willV * 10
  96. BonusAtakV = 0
  97. BonusDefV = 0
  98. !!Programme of Action
  99. program = 4
  100. tatianaFight = 1
  101. gt 'fight', 'start'
  102. end
  103. end
  104. end
  105. if $ARGS[0] = 'Gustav':
  106. cla
  107. clr
  108. *clr
  109. minut += 5
  110. gs 'stat'
  111. if night_mode = 1:
  112. fcolor = rgb(255, 255, 255)
  113. bcolor = rgb(0, 0, 0)
  114. lcolor = rgb(106, 90, 205)
  115. else
  116. fcolor = rgb(0, 0, 0)
  117. bcolor = rgb(255, 255, 255)
  118. lcolor = rgb(106, 90, 205)
  119. end
  120. '<center><b><font color="maroon">Gustav</font></b></center>'
  121. '<center><img src="images/characters/city/jugo/jugopre.jpg"></center>'
  122. 'Gustav is sitting on floor and staring off into space.'
  123. act 'Leave':gt 'lab', 'start'
  124. if gustavday ! daystart:
  125. act 'Develop strength (1:00)':
  126. cla
  127. timemult = 4
  128. loopcount = 1
  129. :timeloop1
  130. gs 'exercise', 'tier2', 0, 'stren_exp'
  131. if loopcount < timemult: loopcount += 1 & jump 'timeloop1'
  132. loopcount = 0
  133. timemult = 0
  134. gustavday = daystart
  135. 'You do exercises under the guidance of Gustav.'
  136. act 'Leave':gt 'lab', 'Gustav'
  137. end
  138. act 'Develop agility (1:00)':
  139. cla
  140. timemult = 5
  141. loopcount = 1
  142. :timeloop2
  143. gs 'exercise', 'tier2', 0, 'agil_exp'
  144. if loopcount < timemult: loopcount += 1 & jump 'timeloop2'
  145. loopcount = 0
  146. timemult = 0
  147. gustavday = daystart
  148. 'You do exercises under the guidance of Gustav.'
  149. act 'Leave':gt 'lab', 'Gustav'
  150. end
  151. act 'Develop reactions (1:00)':
  152. cla
  153. timemult = 5
  154. loopcount = 1
  155. :timeloop3
  156. gs 'exercise', 'tier2', 0, 'react_exp'
  157. if loopcount < timemult: loopcount += 1 & jump 'timeloop3'
  158. loopcount = 0
  159. timemult = 0
  160. gustavday = daystart
  161. 'You do exercises under the guidance of Gustav.'
  162. act 'Leave':gt 'lab', 'Gustav'
  163. end
  164. act 'Develop endurance (1:00)':
  165. cla
  166. timemult = 5
  167. loopcount = 1
  168. :timeloop4
  169. gs 'exercise', 'tier2', 0, 'vital_exp'
  170. if loopcount < timemult: loopcount += 1 & jump 'timeloop4'
  171. loopcount = 0
  172. timemult = 0
  173. gustavday = daystart
  174. 'You do exercises under the guidance of Gustav.'
  175. act 'Leave':gt 'lab', 'Gustav'
  176. end
  177. end
  178. end
  179. if $ARGS[0] = 'Tatiana':
  180. cls
  181. $loc = 'lab'
  182. $metka = 'Tatiana'
  183. minut += 5
  184. gs 'stat'
  185. if night_mode = 1:
  186. fcolor = rgb(255, 255, 255)
  187. bcolor = rgb(0, 0, 0)
  188. lcolor = rgb(106, 90, 205)
  189. else
  190. fcolor = rgb(0, 0, 0)
  191. bcolor = rgb(255, 255, 255)
  192. lcolor = rgb(106, 90, 205)
  193. end
  194. '<center><b><font color="maroon">Tatiana</font></b></center>'
  195. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  196. 'Tatiana is always studying something.'
  197. if succubusflag = 1:
  198. if tatisucsex > 0 and sucinfoday ! 0 and sucinfoday <= daystart:
  199. '"Hey <<$pcs_nickname>>!'
  200. '"I''ve gotten some more information about Succubae!"'
  201. if sucpcinfo = 4 and succublvl >= 2:
  202. '"I heard from one of my mage contacts, in Sydney, Australia of all places, and he passed on some more details."'
  203. sucpcinfo = 5
  204. sucinfoday = daystart + 10 + rand(0,7)
  205. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 1
  206. exit
  207. elseif sucpcinfo = 5:
  208. '"I heard from an old friend of mine who is now living in Morocco and she 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."'
  209. sucpcinfo = 6
  210. sucinfoday = daystart + 17 + rand(0,7)
  211. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 2
  212. exit
  213. elseif sucpcinfo = 6:
  214. '"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."'
  215. sucpcinfo = 7
  216. !! The +9000000 is so I can easily reset it when the next Skill upadtes are ready.
  217. sucinfoday = daystart + 9000000
  218. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 3
  219. exit
  220. end
  221. end
  222. if tatisucsex ! 0 and tatisucsexask ! daystart: act 'Ask if she want''s to have sex': tatianasucsexask = daystart & gt 'lab', 'Tatianasucsexask'
  223. if sucpcinfo >= 4: act 'Ask her about Succubae': gt 'lab', 'Tatianasuctalk'
  224. end
  225. act 'Leave':gt 'lab', 'start'
  226. act 'I''m too fat and do not want to get fat.':
  227. cla
  228. '(You) - Tatiana, I oily dibilka not able to watch their weight, wave your magic wand, what would not I grew fat.'
  229. '(Tatiana) - 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.'
  230. act 'No no no, I changed my mind. Will continue smarter.':gt 'lab', 'Tatiana'
  231. act 'I would want that waist was ...':
  232. cla
  233. dounspell = 1
  234. TaliaDoun = input ("Waist in cm?")
  235. if TaliaDoun <= 0:TaliaDoun = 20
  236. act 'I would want that thighs ...':
  237. cla
  238. bedraDoun = input ("Hips in cm?")
  239. if bedraDoun <= 0:bedraDoun = 40
  240. act 'Enjoy your stupidity.':gt 'lab', 'Tatiana'
  241. end
  242. end
  243. end
  244. if IvanPodstavaQW = 2 and poverKAR = 0 and softKAR = 0:
  245. act 'Ask Tatiana for help with Ivan':
  246. cla
  247. gs 'stat'
  248. 'You explained the situation and asked her to Tatiana assistance. Tatiana 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."'
  249. act 'Military solution':
  250. cls
  251. poverKAR = 1
  252. gs 'stat'
  253. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  254. 'You have decided to achieve recognition Ivan force. Tatiana told you. You go to the apartment of Ivan. There vstretishsya with Gustav. 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.'
  255. act 'Leave':gt 'lab', 'Tatiana'
  256. end
  257. act 'Tricky decision':
  258. cls
  259. softKAR = 1
  260. gs 'stat'
  261. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  262. 'You have decided to achieve recognition Ivan cunning. Tatiana told you. You go to the apartment of Ivan. There we meet with you and obtyapaem owners.'
  263. act 'Leave':gt 'lab', 'Tatiana'
  264. end
  265. end
  266. elseif poverKAR = 2:
  267. act 'Approach to Tatiana about attacks apartments Ivan':
  268. cla
  269. poverKAR = 3
  270. 'You came to Tatiana and she sighed. "Yes, failed. Gustav 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. Gustav 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. "'
  271. act 'Leave':gt 'lab', 'Tatiana'
  272. end
  273. end
  274. if Tatianaday ! daystart:
  275. act 'Develop intelligence (1:00)':
  276. cla
  277. intel_exp += rand(3, 6)
  278. minut += 60
  279. Tatianaday = daystart
  280. 'You study with Tatiana developing your intellect.'
  281. act 'Leave':gt 'lab', 'Tatiana'
  282. end
  283. act 'Will develop (1:00)':
  284. cla
  285. sprt_exp += rand(3, 6)
  286. minut += 60
  287. Tatianaday = daystart
  288. 'You meditate with Tatiana developing your willpower.'
  289. act 'Leave':gt 'lab', 'Tatiana'
  290. end
  291. end
  292. if spelltuman = 0 and pcs_magik >= 1:
  293. act 'Learn technique fog (1:00)':
  294. cla
  295. minut += 60
  296. spelltuman = 1
  297. 'You learnt the technique of calling fog in battle.'
  298. act 'Leave':gt 'lab', 'Tatiana'
  299. end
  300. end
  301. if spellklon = 0 and pcs_magik >= 1:
  302. act 'Learn technique protection cloning (1:00)':
  303. cla
  304. minut += 60
  305. spellklon = 1
  306. 'You learnt the technique of cloning yourself to create decoys in battle.'
  307. act 'Leave':gt 'lab', 'Tatiana'
  308. end
  309. end
  310. if spellstun = 0 and pcs_magik >= 2:
  311. act 'Learn technique paralysis (1:00)':
  312. cla
  313. minut += 60
  314. spellstun = 1
  315. 'You learnt the technique of paralyzing the enemy.'
  316. act 'Leave':gt 'lab', 'Tatiana'
  317. end
  318. end
  319. if spellwind = 0 and pcs_magik >= 2:
  320. act 'Learn mist blowing (1:00)':
  321. cla
  322. minut += 60
  323. spellwind = 1
  324. 'You learnt the technique of blowing mist.'
  325. act 'Leave':gt 'lab', 'Tatiana'
  326. end
  327. end
  328. if spellklon2 = 0 and pcs_magik >= 2:
  329. act 'Learn triple cloning (1:00)':
  330. cla
  331. minut += 60
  332. spellklon2 = 1
  333. 'You learnt the technique triple cloning.'
  334. act 'Leave':gt 'lab', 'Tatiana'
  335. end
  336. end
  337. if spellenergo = 0 and pcs_magik >= 3:
  338. act 'Learn energoschit (1:00)':
  339. cla
  340. minut += 60
  341. spellenergo = 1
  342. 'You learnt the technique energoschita.'
  343. act 'Leave':gt 'lab', 'Tatiana'
  344. end
  345. end
  346. if spellinit = 0 and pcs_magik >= 3:
  347. act 'Learn technique deceleration time (1:00)':
  348. cla
  349. minut += 60
  350. spellinit = 1
  351. 'You learnt the technique of time dilation.'
  352. act 'Leave':gt 'lab', 'Tatiana'
  353. end
  354. end
  355. if pcs_magik >= 4 and spellhel = 0:
  356. !!'With this level of magic I can not teach you anymore.'
  357. act 'Learn the technique of treatment (1:00)':
  358. cla
  359. minut += 60
  360. spellhel = 1
  361. 'You learnt the technique of treatment.'
  362. act 'Leave':gt 'lab', 'Tatiana'
  363. end
  364. end
  365. if pcs_magik >= 5 and spellavtoklon = 0:
  366. act 'Learn technique preparation (1:00)':
  367. cla
  368. minut += 60
  369. spellavtoklon = 1
  370. 'You learnt the technique preparation. This technique allows you to enter into battle with the already created three clones.'
  371. act 'Leave':gt 'lab', 'Tatiana'
  372. end
  373. end
  374. if pcs_magik >= 6 and spellbefshild = 0:
  375. act 'Learn technique pre-shield (1:00)':
  376. cla
  377. minut += 60
  378. spellbefshild = 1
  379. 'You learned the technique of pre-shield. This technique allows you to enter into battle with a magical shield protecting you against physical impacts.'
  380. act 'Leave':gt 'lab', 'Tatiana'
  381. end
  382. end
  383. !! Succubus specific skill training.
  384. if succubusflag = 1:
  385. if sucpcinfo >= 4 and sucskill < 1:
  386. act 'Learn to monitor your Succubus Energies (may take some time)':
  387. cla
  388. minut += 30
  389. sucskill = 1
  390. gs 'stat'
  391. '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.'
  392. 'You open your eyes and look at Tatiana sitting across from you.'
  393. 'She is flushed, breathing hard, and her nipples are showing clearly through her blouse.'
  394. if 1 + (succublvl * 2) + tatisucsex < 20 and rand(0,100) < 90:
  395. 'After a moment, she gives herself a shake and pulls herself together, before saying, "There you go!"'
  396. 'She then stands up and goes back to her studying.'
  397. act 'Finish': gt 'lab', 'Tatiana'
  398. else
  399. xgt 'lab', 'suctrainsex'
  400. end
  401. end
  402. elseif sucpcinfo >= 5 and sucskill < 2:
  403. act 'Learn to increase your energy storage (may take some time)':
  404. cla
  405. minut += 5
  406. 'You settle into a meditative state and link with Tatiana.'
  407. if succhungry > -2:
  408. gs 'stat'
  409. '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."'
  410. 'She then stands up and goes back to her studying.'
  411. act 'Finish': gt 'lab', 'Tatiana'
  412. exit
  413. end
  414. minut += 55
  415. gs 'stat'
  416. sucskill = 2
  417. 'Tatiana shows you how to build a storage reservoir that draws the excess energy in before your body uses it.'
  418. '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!"'
  419. 'She then closes her eyes and visibly tries to get ahold of herself.'
  420. if tatisucsex >= 20 or rand(1,100) < 95:
  421. 'After several moments, she pulls herself together, opens her eyes, smiles at you, and says, "There, I knew I could do it!"'
  422. 'She then stands up and goes back to her studying.'
  423. act 'Finish': gt 'lab', 'Tatiana'
  424. else
  425. 'Then her eyes snap open and you feel arousal suddenly flooding the link!'
  426. xgt 'lab', 'suctrainsex'
  427. end
  428. end
  429. elseif sucpcinfo >= 6 and sucskill < 3:
  430. if money >= 5000 and sctrainprep = 0:
  431. act 'Ask her about the preparations and training':
  432. cla
  433. gs 'stat'
  434. minut += 60
  435. 'You ask her what''s involved in the training and preparations.'
  436. 'She spends some time explaining the technical details of what you need to do during the "rital", then says,'
  437. '"The preparations will take 7 days, the money is to modify one of my devices to pull in free sexual energy from the adult businesses around here and 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.'
  438. '"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 pasted and I''ll set it not to let you through unless you have 3 days of reserves and 100 units of stored energy.'
  439. '"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 aborting after I start or fail to show up on time and 2000 <b>?</b> will have been wasted.'
  440. '"So, do you want me to start the preparations?"'
  441. act 'Yes':
  442. cla
  443. money -= 5000
  444. sctrainprep = 1
  445. tatisucsexday = daystart + 7
  446. '"Ok, I''ll get started! Be here next <<$week[week]>> with 3 days of reserves and 100 units of stored energy."'
  447. if tatisucsex > 0:
  448. 'She then pulls you in for a quick kiss before adding, "Now get out of here, I can''t have you distracting me!"'
  449. else
  450. 'She then surprises you with a peck on the cheek before adding, "Now get out of here, I can''t have you distracting me!"'
  451. end
  452. act 'Leave':
  453. minut += 5
  454. gt 'down'
  455. end
  456. end
  457. act 'Not Yet': gt 'lab', 'Tatiana'
  458. end
  459. elseif money >= 2000 and sctrainprep = -1:
  460. act 'Ask her to redo the preparations':
  461. cla
  462. '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?'
  463. act 'Yes':
  464. cla
  465. money -= 2000
  466. sctrainprep = 1
  467. tatisucsexday = daystart + 7
  468. '"Ok, I''ll get started! Be here next <<$week[week]>> with 3 days of reserves and 100 units of stored energy."'
  469. '"Now get out of here, I can''t have you distracting me!"'
  470. act 'Leave':
  471. minut += 5
  472. gt 'down'
  473. end
  474. end
  475. act 'Not Yet': gt 'lab', 'Tatiana'
  476. end
  477. end
  478. elseif sucpcinfo >= 7 and sucskill < 4 and maddildo = 1 and sucexcess >= 100:
  479. act 'Ask Tatiana about the accommodation training':
  480. cla
  481. 'Tatiana asks, "Are you ready to do the accommodation training?"'
  482. act 'Yes, I''m ready. (can take a lot of time)':
  483. cls
  484. cla
  485. minut += 120
  486. gs 'stat'
  487. '<center><img src="images/shared/sex/mast/dildo.jpg"></center>'
  488. 'She walks you through everything you need to do while leading you to the couch.'
  489. 'Once there, as you as stripping, so is she! At your look, she says, "What? I don''t want to tear my clothes if one of us slips."'
  490. 'You settle onto the couch then work the massive dildo into your snach. 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.'
  491. sucskill = 4
  492. sucexcess -= 100
  493. act 'Continue':
  494. pcs_horny = 0
  495. 'As you''re finishing, you notice Tatiana has her eyes closed and is visibly trying to get ahold of herself.'
  496. if tatisucsexday < daystart or rand(1,100) > 95:
  497. 'Then her eyes snap open and you feel arousal suddenly flooding the link!'
  498. xgt 'lab', 'suctrainsex'
  499. else
  500. cla
  501. 'After several moments, she pulls herself together, opens her eyes, smiles at you, and says, "There, I knew I could do it!"'
  502. 'She then stands up and goes back to her studying.'
  503. act 'Finish': gt 'lab', 'Tatiana'
  504. end
  505. end
  506. end
  507. act 'Not Yet': gt 'lab', 'Tatiana'
  508. end
  509. end
  510. end
  511. end
  512. if $ARGS[0] = 'Tatianasuctalk':
  513. cla
  514. clr
  515. *clr
  516. gs 'stat'
  517. if night_mode = 1:
  518. fcolor = rgb(255, 255, 255)
  519. bcolor = rgb(0, 0, 0)
  520. lcolor = rgb(106, 90, 205)
  521. else
  522. fcolor = rgb(0, 0, 0)
  523. bcolor = rgb(255, 255, 255)
  524. lcolor = rgb(106, 90, 205)
  525. end
  526. '<center><b><font color="maroon">Tatiana</font></b></center>'
  527. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  528. if sucpcinfo < 2:
  529. minut += 15
  530. 'As you both settle onto the couch, Tatiana turns to you and says, "Ok, tell me what happened."'
  531. 'You spend the next 15 minutes telling her about the Fairy, the odd dream, the energy you let loose the other night,'
  532. if succubusQW = 4:
  533. 'and the felling you get when you''ve had sex.'
  534. elseif succubusQW > 4:
  535. 'the felling you get when you''ve had sex, and the reaction you had to almost being raped.'
  536. end
  537. ''
  538. '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."'
  539. 'She hops up and says, "Get undressed and lie down on the couch."'
  540. sucpcinfo = 2
  541. act 'Undress and lie down': gt 'succubus', 'tatianaask'
  542. exit
  543. end
  544. if tatisucsex = 0 and tatisucsexask ! daystart: act 'Ask Tatiana if she wants to try Succubus Sex': tatisucsexask = daystart & gt 'lab', 'Tatianasucsexask'
  545. act 'Ask her to repeat what she knows about Succubae': gt 'succubus', 'tatianaask'
  546. act 'Ask her if she has learned anything new about Succubae':
  547. cla
  548. !! Nothing after info level 6 here, because Tatiana will tell the PC automatically
  549. if sucinfoday ! 0 and sucinfoday <= daystart:
  550. if sucpcinfo = 4 and succublvl >= 2:
  551. '"Actually, I have gotten some more information about Succubae."'
  552. '"I heard from one of my mage contacts, in Sydney, Australia of all places, and he passed on some more details."'
  553. sucpcinfo = 5
  554. sucinfoday = daystart + 10 + rand(0,7)
  555. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 1
  556. elseif sucpcinfo = 5:
  557. '"Actually, I have gotten some more information about Succubae."'
  558. '"I heard from an old friend of mine who is now living in Morocco and she 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."'
  559. sucpcinfo = 6
  560. sucinfoday = daystart + 10 + rand(0,7)
  561. act 'Ask her to tell you': gt 'succubus', 'tatianaask', 2
  562. else
  563. 'No, I havn''t.'
  564. act 'Continue': gt 'lab', 'Tatianasuctalk'
  565. end
  566. else
  567. 'No, I havn''t.'
  568. act 'Continue': gt 'lab', 'Tatianasuctalk'
  569. end
  570. end
  571. act 'Change topics': gt 'lab', 'Tatiana'
  572. end
  573. if $ARGS[0] = 'Tatianasucsexask':
  574. cla
  575. clr
  576. *clr
  577. gs 'stat'
  578. if night_mode = 1:
  579. fcolor = rgb(255, 255, 255)
  580. bcolor = rgb(0, 0, 0)
  581. lcolor = rgb(106, 90, 205)
  582. else
  583. fcolor = rgb(0, 0, 0)
  584. bcolor = rgb(255, 255, 255)
  585. lcolor = rgb(106, 90, 205)
  586. end
  587. '<center><b><font color="maroon">Tatiana</font></b></center>'
  588. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  589. if tatisucsex = 0:
  590. if TatianaSex = 1:
  591. 'You give Tatiana what you hope is a "come hither" smile and ask,'
  592. '"So, you want to give Succubus sex a try?"'
  593. else
  594. 'You give Tatiana a shy smile and ask,'
  595. '"Do you want to try Succubus sex?"'
  596. end
  597. else
  598. 'You give Tatiana a bright smile and ask,'
  599. 'Hey Tatiana, you up for some Succubus Sex?'
  600. end
  601. act 'She answers:':
  602. cla
  603. if tatisucsex = 0:
  604. 'She gives you a wide eyed look before saying,'
  605. if succublvl + TatianaSex < rand(0,6):
  606. '"I''m sorry, <<$pcs_firstname>>, I just don''t have the time now."'
  607. act 'Move on to something else': gt 'lab', 'Tatiana'
  608. else
  609. '"I would love to!", with a wide smile.'
  610. 'She leads you over to the couch and you both strip.'
  611. act 'Proceed': gt 'succubus', 'tatianasex'
  612. end
  613. else
  614. if tatisucsexday <= daystart:
  615. if 1 + (succublvl * 2) + tatisucsex < rand(1,20):
  616. '"I''m sorry, <<$pcs_nickname>>, I just don''t have the time now."'
  617. act 'Move on to something else': gt 'lab', 'Tatiana'
  618. else
  619. 'She gives you a "come hither" smile and says, "I would love to, <<$pcs_nickname>>!"'
  620. 'You both head toward the couch, stripping as you go.'
  621. 'Once there, you both sit down facing each other and she looks at you in anticipation.'
  622. act 'Proceed': gt 'succubus', 'tatianasex'
  623. end
  624. else
  625. if tatisucsexday - daystart > 1:
  626. $scsextmp = 'days'
  627. else
  628. $scsextmp = 'day'
  629. end
  630. 'She looks at you with a sad smile and says,'
  631. '"I''m sorry, <<$pcs_nickname>>, I need at least <<tatisucsexday - daystart>> more <<$scsextmp>>."'
  632. killvar '$scsextmp'
  633. act 'Move on to something else': gt 'lab', 'Tatiana'
  634. end
  635. end
  636. end
  637. end
  638. if $ARGS[0] = 'Tatianasexreject':
  639. cla
  640. clr
  641. *clr
  642. gs 'stat'
  643. '<center><b><font color="maroon">Tatiana</font></b></center>'
  644. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  645. if scpopt = 2:
  646. 'I''m sorry, Tatiana, I just don''t have the time right now.'
  647. scpopt = 0
  648. killvar '$sclocrt' & killvar '$scargrt'
  649. end
  650. act 'Finish': gt 'lab', 'Tatiana'
  651. end
  652. if $ARGS[0] = 'suctrainsex':
  653. '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..."'
  654. gs 'arousal', 'kiss', 5, 'lesbian', 'sub'
  655. gs 'stat'
  656. if pcs_horny >= 100:
  657. '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!'
  658. 'Then, you feel your control slip...'
  659. $orgasm_or = 'yes'
  660. gs 'stat'
  661. act 'Continue': gt 'succubus', 'tatianasex'
  662. else
  663. scfwon = 2
  664. scpopt = 1
  665. $sclocrt = 'lab'
  666. $scargrt = 'Tatianasexreject'
  667. 'You only have moments to decide, do you give in and let <<sucself1>> go or do you reign it in?'
  668. act 'Continue': gt 'succubus', 'tatianasex'
  669. end
  670. end
  671. if $ARGS[0] = 'suctraining':
  672. if sucpcinfo < 2:
  673. cla
  674. clr
  675. *clr
  676. '<center><b><font color="maroon">Tatiana</font></b></center>'
  677. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  678. 'The moment you walked into her lab, Tatiana''s head jerked up and she hurried over to you.'
  679. 'She stares at you for several seconds, then demands, "What the hell happened to you!?!?"'
  680. 'You start to answer her when she holds up her hand and says, "Wait, come sit on the couch and tell me."'
  681. 'She turns away from you and walks toward the couch.'
  682. act 'Follow her': gt 'lab', 'Tatianasuctalk'
  683. exit
  684. elseif sucpcinfo >= 6 and sucskill < 3 and sctrainprep = 1:
  685. if tatisucsexday > daystart and tatisucsexday - 5 >= daystart:
  686. cla
  687. clr
  688. *clr
  689. '<center><b><font color="maroon">Tatiana</font></b></center>'
  690. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  691. 'You attempt to enter Tatiana''s lab but an invisible barrier stops you, but Tatiana apparently heard you as she rushes over and says, "What''s wrong? Do we need to cancel?"'
  692. act 'Yes, I need to cancel':
  693. cla
  694. '"Are you sure?"'
  695. act 'Yes, I''m sure':
  696. cla
  697. if tatisucsexday = daystart + 7:
  698. sctrainprep = 0
  699. money += 5000
  700. '"Ok, good thing I hadn''t bought anything yet." and she hands you back the 5000 <b>?</b> before going back to her studying.'
  701. else
  702. minut += 3
  703. sctrainprep = -1
  704. '"Ok, I''ll dump the "battery" potion."'
  705. '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.'
  706. end
  707. act 'Continue': gt 'lab', 'start'
  708. end
  709. act 'No, never mind continue your preparations':
  710. cla
  711. 'She gives a small shake of her head and says, "Then get out of here, I can''t have you distracting me!"'
  712. act 'Leave': gt 'down'
  713. end
  714. end
  715. act 'No...':
  716. cla
  717. 'You say, "No, I just wanted to see you."'
  718. 'She answers, "That''s sweet, but I can''t have you distracting me, come back all charged up in <<tatisucsexday - daystart>> days!"'
  719. act 'Leave':
  720. minut += 3
  721. gt 'down'
  722. end
  723. end
  724. exit
  725. elseif tatisucsexday > daystart and tatisucsexday - 5 < daystart:
  726. if tatisucsexday - daystart > 1:
  727. $scsextmp = 'days'
  728. else
  729. $scsextmp = 'day'
  730. end
  731. 'You attempt to enter Tatiana''s lab but an invisible barrier stops you, but 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>>!"'
  732. killvar '$scsextmp'
  733. act 'Leave':
  734. minut += 3
  735. gt 'down'
  736. end
  737. exit
  738. elseif tatisucsexday = daystart or tatisucsexday = daystart - 1:
  739. cla
  740. clr
  741. *clr
  742. gs 'stat'
  743. '<center><b><font color="maroon">Tatiana</font></b></center>'
  744. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  745. 'The instant you walk into the lab, Tatiana''s head snaps up and she stares hard at you as you approach the barrier.'
  746. if sucexcess >= 100 and succhungry < -2:
  747. minut += 10
  748. 'As you step through the barrier, Tatiana seems to teleport to you and start kissing you.'
  749. '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!"'
  750. !! Maybe add arousal call here
  751. 'She suddenly turns away from you and you realize that you have reached her workbench. She grabs two smallish vails off the top, pops the tops off both, hands you one saying, "Drink this," before downing the other.'
  752. 'It tastes like strawberry syrup.'
  753. '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.'
  754. 'Once there, you both sit down facing each other, she looks at you with burning lust, and says, "Do it!"'
  755. act 'Proceed': gt 'succubus', 'tatianasex'
  756. exit
  757. elseif sucexcess < 100 and succhungry > -2 and tatisucsexday = daystart:
  758. '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!"'
  759. elseif succhungry > -2 and tatisucsexday = daystart:
  760. '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!'
  761. elseif succhungry > -2 and tatisucsexday = daystart - 1:
  762. '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."'
  763. sctrainprep = -1
  764. else
  765. '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!"'
  766. end
  767. act 'Leave': minut += 5 & gt 'down'
  768. exit
  769. else
  770. '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."'
  771. sctrainprep = -1
  772. act 'Continue': gt 'lab', 'start'
  773. exit
  774. end
  775. end
  776. !! This is oops handling
  777. sucbypass = 1
  778. minut -= 5
  779. gt 'lab', 'start'
  780. end
  781. if $ARGS[0] = 'missions':
  782. cls
  783. gs 'stat'
  784. '<center><b><font color="maroon">Tatiana</font></b></center>'
  785. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  786. '"OK <<$pcs_firstname>>, here''s what I''ve got for you". Tatiana places some folders on her bench for you to look at.'
  787. 'You have a quick look through them and can choose for those you feel you can handle.'
  788. if tatmissions = 5: gt 'tatiana_missons', 'special'
  789. act 'Mission 1': gt 'tatiana_missons', '1'
  790. !! etc. Maybe give them names so you know what you''re doing. Selecting them goes to in depth description and refuse/accept
  791. end
  792. --- lab ---------------------------------