1
0

succubus 29 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786
  1. # succubus
  2. !!The verious calls for succubus specific events
  3. !!Varible identification:
  4. !! scfwon; a flag to indicate that a call is from a fight that was won or you were hunting, set at the calling location
  5. !! scpopt; a flag to indicate that a call is optional for some reason, set at the calling location: 0: No, 1: Yes, 2: option taken
  6. !! $sclocrt; a string to indicate where a call came from if $loc may not have been set, set at the calling location when needed
  7. !! $scargrt; a string to set by the $ARGS from the calling location if $metca may not have been set, set at the calling location when needed
  8. !! $scsubloc; a string to allow a sub-routine in this location to call another and still get back to the first
  9. !! suceatinit; a flag to indicate that the initiation sub-routine was done
  10. !!*********
  11. !!This is the initiation sub-routine and is called by every event
  12. if $ARGS[0] = 'init':
  13. if succubusQW = 5 and scpopt = 1 and succhungry < 1:
  14. 'You sense <<$sucself1>> perk up, ready to spring forth...'
  15. act 'Call your power and feed (takes a lot of time)': scpopt = 0 & gt 'succubus', 'init'
  16. act 'Refrain from feeding, you don''t have the time now':
  17. cla
  18. 'You try to contain <<$sucself1>>...'
  19. if pcs_willpwr >= rand(20,40) + (40 * succublvl):
  20. !!the willpower check values are based on a willpowermax of 200
  21. 'And you''re successful, <<$sucself1>> returns to your core.'
  22. act 'Continue': scpopt = 2 & gt $sclocrt, $scargrt
  23. else
  24. 'And you fail, <<$sucself1>> continues rising toward the surface of your being.'
  25. succonfail = 1
  26. scpopt = 0
  27. xgt 'succubus', 'init'
  28. end
  29. end
  30. elseif succubusQW = 4:
  31. gt 'succubus', 'firsttime'
  32. else
  33. if succonfail ! 1: 'You call <<$sucself1>> up from its resting place'
  34. 'It fills you completely, suffusing you being with power...'
  35. '<font color="red"><b>and hunger</b></font>'
  36. '<center><img src="images/pc/body/succubusself.jpg"></center>'
  37. suceatinit = 1
  38. succonfail = 0
  39. act 'Continue': gt 'succubus', $scsubloc
  40. end
  41. end
  42. !!*********
  43. !! This is used if the called event is the first time it has happened (ie succubusQW = 4)
  44. if $ARGS[0] = 'firsttime':
  45. if scfwon = 1:
  46. 'As the exhilaration from the fight won and the fear of what could have happened fully sets in time seems to stop.'
  47. elseif scfwon = 0:
  48. 'As the fear of what is about to happen to you fully sets in time seems to stop.'
  49. end
  50. 'You feel, from the same core of power that has been in you since you embraced fairy''s energy, something start to...'
  51. ''
  52. '<i>uncoil...</i>'
  53. ''
  54. if scpopt = 1 and succhungry < 1:
  55. cla
  56. act 'Let go...': scpopt = 0 & succubusQW = 5 & xgt 'succubus', 'init'
  57. act 'Push it back down':
  58. cla
  59. 'You try to contain <<$sucself1>>...'
  60. if pcs_willpwr >= rand(20,40) + (40 * succublvl):
  61. !!the willpower check values are based on a willpowermax of 200
  62. 'And you''re successful, <<$sucself1>> returns to your core.'
  63. act 'Continue': scpopt = 2 & gt $sclocrt, $scargrt
  64. else
  65. 'And you fail, <<$sucself1>> continues rising toward the surface of your being.'
  66. succonfail = 1
  67. scpopt = 0
  68. succubusQW = 5
  69. xgt 'succubus', 'init'
  70. end
  71. end
  72. else
  73. cla
  74. act 'Continue': scpopt = 0 & succubusQW = 5 & xgt 'succubus', 'init'
  75. end
  76. end
  77. !!*********
  78. !!This is the 'park' and 'street' call
  79. if $ARGS[0] = 'RapistFight':
  80. gs 'stat'
  81. $scsubloc = $ARGS[0]
  82. if suceatinit = 0: gt 'succubus', 'init'
  83. suceatinit = 0
  84. cls
  85. gs 'stat'
  86. '<center><img src="images/pc/body/succubusself.jpg"></center>'
  87. 'Instinctively you are barely aware of causes your power to reach out and take hold of your would-be rapist''s mind.'
  88. 'You see fear fill his eyes even as lust fills his loins and you feel his mind fighting your hold.'
  89. pcs_horny = 100
  90. act 'Continue':
  91. cla
  92. scrand = rand(0,3)
  93. if RapistFight = 1 and scfwon = 1:
  94. scrand -= 1
  95. scfwon = 0
  96. RapistFight = 0
  97. if rikudo > 10:rikudo += 100
  98. pcs_dom += 1
  99. Win += 1
  100. elseif RapistFight = 1:
  101. RapistFight = 0
  102. SUB += 1
  103. Loss += 1
  104. if rikudo > 10:rikudo -= 10
  105. else
  106. scrand -= 1
  107. scfwon = 0
  108. end
  109. if scrand < succublvl:
  110. scfeed = succublvl + rand(1,4)
  111. if scfeed = 2:
  112. $scxcum = 'twice'
  113. else
  114. $scxcum = 'multiple times'
  115. end
  116. 'You quickly drag him out of sight, then rip off his pants and expose your now hungry pussy.'
  117. 'You force him to the ground and immediately mount him, your now hair-trigger snach sending you into orgasm.'
  118. ''
  119. 'You ride him for some time, your power forcing him to cum <<$scxcum>> pulling every drop of energy out of each eruption, with the rush causing you to orgasm as he does...'
  120. ''
  121. act 'Continue':
  122. cla
  123. 'Finally, when your instincts tell you he has nothing left to give, you get off him and fix your clothes.'
  124. 'As you make ready to leave, you look down upon your would-be-rapist-turned-meal as he lays there utterly exhausted and wonder if this experience will discourage him from such activities in the future...'
  125. stat['vaginal'] += 1
  126. guy += 1
  127. pcs_horny = 0
  128. pcs_dom += scfeed
  129. orgasm += 1 + scfeed
  130. pcs_willpwr += 15 * (1 + scfeed)
  131. succubxp += 6
  132. sexnutrition += 30 * scfeed
  133. sucabscum = 1
  134. minut += 15 + (20 * scfeed) / succublvl
  135. killvar 'scfeed' & killvar 'scrand'
  136. gs 'stat'
  137. act 'Leave': gt $loc, $metka
  138. end
  139. else
  140. ''
  141. 'And you feel his fear overcome his lust and your hold...'
  142. 'By the time you pull yourself back to the physical world he is long gone.'
  143. minut +=5
  144. gs 'stat'
  145. act 'Continue': gt $loc, $metka
  146. end
  147. end
  148. end
  149. !!*********
  150. !!This is where you ask Tatiana about what you are
  151. if $ARGS[0] = 'tatianaask':
  152. gs 'stat'
  153. if night_mode = 1:
  154. fcolor = rgb(255, 255, 255)
  155. bcolor = rgb(0, 0, 0)
  156. lcolor = rgb(106, 90, 205)
  157. else
  158. fcolor = rgb(0, 0, 0)
  159. bcolor = rgb(255, 255, 255)
  160. lcolor = rgb(106, 90, 205)
  161. end
  162. '<center><b><font color="maroon">Tatiana</font></b></center>'
  163. If sucpcinfo = 2:
  164. minut += 10
  165. '<center><img src="images/locations/city/citycenter/lab/event/main1.jpg"></center>'
  166. 'You undress and lie down on the couch and Tatiana begins to examine you.'
  167. 'This time, as she uses her charms and strange devices, you actually feel her power reach into you and move around inside, poking and prodding.'
  168. if succubusQW = 4: 'Something in you panics at this and the fear overtakes your mind.'
  169. 'Distantly you hear Tatiana mutter, "Huh, what''s this?" and her power pokes <<$sucself1>>.'
  170. $sclocrt = 'succubus' & $scargrt = 'tatianaask'
  171. $scsubloc = 'tatianasex' & scpopt = 1
  172. sucpcinfo = 3
  173. act 'Continue': xgt 'succubus', 'init'
  174. exit
  175. elseif sucpcinfo = 3:
  176. '<center><img src="images/locations/city/citycenter/lab/event/main1.jpg"></center>'
  177. scpopt = 0
  178. If tatisucsex ! 0:
  179. 'Once you finish that unintended feeding and Tatiana has pulled herself back together, she says "Well, that was unexpected, go ahead and get dressed."'
  180. else
  181. 'Looking flushed once she has finished, Tatiana says "Well, that was interesting, go ahead and get dressed."'
  182. end
  183. sucpcinfo = 4
  184. sucinfoday = daystart + 10 + rand(0,7)
  185. act 'Get dressed': gt 'succubus', 'tatianaask'
  186. exit
  187. end
  188. minut += 10
  189. '<center><img src="images/pre/shared/karinpre.jpg"></center>'
  190. if sucpcinfo >= 4 and ARGS[1] = 0:
  191. '"You are a Succubus. Now, the succubae are not demons that impression is a byproduct of the masking spell; they are instead a type of Fae, like that Fairy you told me about, and they are native to this plain of existence. As Fae, Succubae have nothing to do with "souls", but they do feed on the energy released during sex. The most efficient means of getting this energy is semen taken internally, but a lot is gained by lesbian orgasm if the Succubus is in sexual contact with the woman as she cums."'
  192. if tatisucsex ! 0:
  193. 'She then gives you a coy smile and says, "I can tell you that sex with a willing Succubus is an <i>amazing experience</i>."'
  194. else
  195. 'She then gives you a searching look as she says, "I''m told that sex with a willing Succubus is an amazing experience."'
  196. end
  197. '"Succubae only reproduce by converting normal humans, and by "normal", I mean non-mages. Whatever that Fairy did, it cannot be the normal Succubus conversion, but I don''t know <i>what</i> the normal method is.'
  198. '"They can and should eat normal food as they use more energy just staying alive than a human, but they need sexual energy to survive as well, so you can''t just eat more and not have sex.'
  199. if sucskill < 1:
  200. '"And I will be able to teach you how to tell what your energy levels are."'
  201. end
  202. end
  203. if sucpcinfo >= 5 and (ARGS[1] = 0 or ARGS[1] = 1):
  204. minut += 5
  205. '"Succubae can exceed normal human limitations in a way similar to the way Juugo does, but unlike Juugo since they are Fae the masking spell ignores them.'
  206. '"They automatically store sexual energy in excess of what they need to survive internally and when this energy builds up enough, let''s call that point 100 units, their body will automatically use this energy to improve itself; increasing their physical and mental abilities, keeping itself young looking, and providing a reserve in case she can''t find food.'
  207. '"While lower level Succubae lose any energy not used for improvements, higher level Succubae can store this unused energy in excess of that 100 unit mark.'
  208. if sucskill >= 2:
  209. '"As you know, they can learn to store energy before their body uses it as well as increase their storage capacity, as long as they have some reserves."'
  210. else
  211. '"And," she adds with a grin, "I can teach you to store energy before your body uses it and to increase your storage capacity, as long as you have some reserves! Just make sure your reserves are full before we try to teach you."'
  212. end
  213. end
  214. if sucpcinfo >= 6 and (ARGS[1] = 0 or ARGS[1] = 2):
  215. if sucskill >= 3:
  216. '"Also learning, as you have to be more efficient with the sexual energy, increasing the amount of energy they have available for survival and storage."'
  217. else
  218. minut += 5
  219. '"They have found, after what she described as a "multiday sex bender", that a Succubus can learn to be more efficient with the energy; increasing the amount of energy they have available for survival and storage. She then worked out how they did it and passed that to me. In order for this training to not take several days of non-stop sex, I''ll need to buy several components worth 5000 <b>?</b> and I will need 7 days to build up my own power reserves and you will need to have at least 3 days of reserve and have at least 100 units of stored energy.'
  220. '"Even with these preparations the training is still going to take 8 to 10 hours of... Non... Stop... Sex..."'
  221. if tatisucsex <= 0:
  222. 'She says those last three words in a tone that is equal parts anticipation and trepidation and the look in her eyes mirror this.'
  223. else
  224. 'She says those last three words in a tone that is pure seduction with a look that is equal parts anticipation and lust.'
  225. !! Hopefully can add an arousal call here
  226. end
  227. end
  228. end
  229. if sucpcinfo >= 7 and (ARGS[1] = 0 or ARGS[1] = 3):
  230. minut += 5
  231. '"Succubae are somewhat territorial when hungry, but when sated the impulse is weak enough to suppress easily. They seem to have established neutral territories in the flesh-pots of the world, like Amsterdam, Morocco, and Las Vegas. Places like that are claimed by not one Succubus, instead groups of them have made their homes there.'
  232. '"A Succubae''s body can learn to expend a bit of power to accommodate nearly any size of... implement." She gives you a smug grin with that.'
  233. if sucskill < 4: 'And I can teach you, just go get the biggest dildo they sell at that shop down the street, then bring it and 100 units of stored energy back here.'
  234. end
  235. if ARGS[1] = 0:
  236. '"They likely have other abilities and weaknesses, but the few succubae I have encountered were not that willing to part with information, though I have put out requests for more information from my contacts.'
  237. '"As far as I know, you are the only Succubus in the region."'
  238. act 'Ask if she knows more':
  239. cla
  240. 'You ask her if she knows anything else.'
  241. 'She replies, "No, that''s all I know."'
  242. act 'Continue': gt 'lab', 'Tatiana'
  243. end
  244. end
  245. gs 'stat'
  246. act 'Finish': gt 'lab', 'Tatiana'
  247. end
  248. !!**********
  249. !!This is sex with Tatiana
  250. if $ARGS[0] = 'tatianasex':
  251. gs 'stat'
  252. $scsubloc = 'tatianasex'
  253. if suceatinit = 0: gt 'succubus', 'init'
  254. suceatinit = 0
  255. cls
  256. gs 'stat'
  257. '<center><img src="images/pc/body/succubusself.jpg"></center>'
  258. if sucpcinfo < 4:
  259. tatisucsex -= 2
  260. 'Your power reaches through the connection to Tatiana, enflaming her lust even as <<$sucself1>> grabs ahold of her power.'
  261. 'At this point you gain some control back and cause her power to cycle through you, as <<$sucself1>> cycles through her making her passion and yours move together.'
  262. 'Tatiana quickly strips down and moves between your legs...'
  263. else
  264. 'You take control of <<$sucself1>> and, as you softly kiss her, <<$sucself1>> gently flows into Tatiana even as you coax her power to flow into you.'
  265. 'With her power and <<$sucself1>> fully intertwined, you set up a gently flowing cycle, making her passion and yours move together.'
  266. 'Tatiana then kisses her way down your body, taking up position between your legs.'
  267. end
  268. act 'Continue':
  269. cls
  270. cla
  271. '<center><img src="images/characters/city/tatiana/sex/karinsucsex1.jpg"></center>'
  272. 'As she licks you out, she feels the same things you do until you both have your first orgasm.'
  273. 'You then move her around into a "69" position.'
  274. act 'Continue':
  275. cls
  276. cla
  277. '<center><img src="images/characters/city/tatiana/sex/karinsucsex2.jpg"></center>'
  278. 'You pleasure each other for some time, orgasming together and then at some point you flip over.'
  279. act 'Continue':
  280. if sucpcinfo >= 6 and sucskill < 3 and sctrainprep = 1: gt 'succubus', 'training3sex'
  281. cls
  282. cla
  283. '<center><img src="images/characters/city/tatiana/sex/karinsucsex3.jpg"></center>'
  284. 'You continue this way for some time, flipping back and forth; having multiple simultaneous orgasms, until you sense her body is tiring even though her power level is a bit higher than when you two started.'
  285. act 'Finish':
  286. cla
  287. scfeed = 2 + succublvl + rand(1,4)
  288. lesbian += 1
  289. if tatianaSex = 0: tatianaSex = 1 & girl += 1
  290. pcs_horny = 0
  291. orgasm += scfeed
  292. pcs_willpwr += 15 * scfeed
  293. sexnutrition += 25 * scfeed
  294. suclezsex = lesbian
  295. succubxp += 6
  296. sucabslez = 1
  297. minut += 20 + (20 * scfeed) / succublvl
  298. tatisucsexday = daystart + 1 + scfeed / 3
  299. killvar 'scfeed'
  300. if sucpcinfo < 4: gt 'succubus', 'tatianaask' & exit
  301. tatisucsex += 1
  302. if tatisucsex = 0: tatisucsex = 1
  303. 'As you both put yourselves back together, Tatiana says, "That was intense, Thank You!"'
  304. act 'Continue': gt 'lab', 'Tatiana'
  305. end
  306. end
  307. end
  308. end
  309. end
  310. !!**********
  311. !!Trainging sex ending
  312. if $ARGS[0] = 'training3sex':
  313. cls
  314. cla
  315. '<center><img src="images/characters/city/tatiana/sex/karinsucsex3.jpg"></center>'
  316. 'You continue this way for hours, changing position occasionally, and the whole time you both are causing the massive amount of energy between you to cycle faster and faster, until it almost feels as if you and Tatiana are sharing one body that is having a continuous orgasm.'
  317. 'You lose track of time and are only barely able to perform the tasks Tatiana said you needed to do.'
  318. 'Eventually you sense that the excess energy is depleted, your energy handling channels are significantly improved, and Tatiana, while exhausted, has had a major boost to her own power.'
  319. act 'Finish':
  320. cla
  321. sucskill = 3
  322. killvar 'sctrainprep'
  323. lesbian += 1
  324. suclezsex = lesbian
  325. if tatianaSex = 0: tatianaSex = 1 & girl += 1
  326. tatisucsex += 1
  327. if tatisucsex = 0: tatisucsex = 1
  328. pcs_willpwr = willpowermax
  329. sucexcess -= 100
  330. succhungry += 1
  331. succubxp += 10
  332. tatisucsexday = daystart + rand (5,10)
  333. pcs_hairbsh = 0
  334. if pcs_makeup > 1: pcs_makeup = 0
  335. minut += 480
  336. pcs_energy = 100 & water = 100 & pcs_sleep = 100
  337. gs 'stat'
  338. minut += (15 * rand(0,8))
  339. pcs_energy = 100 & water = 100
  340. gs 'stat'
  341. pcs_energy = 100 & water = 100 & pcs_sleep = 40
  342. gs 'stat'
  343. 'As you both put yourselves back together, Tatiana says, "Wow... just wow! That was... indescribable! I have never felt <i>anything</i> like that!" She gives you a gentle kiss before adding, "Thank You!"'
  344. 'She then lays down on the couch and immediately drops off to sleep, you toss the blanket over her and prepare to leave.'
  345. act 'Leave': gt 'down'
  346. end
  347. end
  348. !!**********
  349. !!This is the computer search
  350. if $ARGS[0] = 'kompresearch':
  351. gs 'stat'
  352. minut += 10 * rand(3,6)
  353. sucpcinfo = 1
  354. '<center><img src="images/shared/accessories/computer/succresrch.jpg"></center>'
  355. 'Other than a host of internet stories, the thing you find that matches closest to what you have been feeling is a succubus, a demonic creature that destroys or corrupts men''s souls through sex.'
  356. 'However, you don''t feel like you have been corrupting anything and the match isn''t that great...'
  357. 'Maybe you should go ask Tatiana...'
  358. act 'Continue': gt 'Komp', 'brows'
  359. end
  360. !!**********
  361. !!This is the start of the Succubus "Sleepwalking" code
  362. if $args[0] = 'sucwalkinginit':
  363. !!This checks for a valid location and sets the zone
  364. !!Zone 1;
  365. !!'bedr' = Apartment on St. Petersburg Residential street
  366. !!'spalnya' = Tanya''s apartment downtown
  367. !!'dom_gor' = Hostel downtown
  368. !!'obroom' = Dorm downtown
  369. !!Zone 2;
  370. !!'bedrPar' = Parent's apartment in Pavlovsk
  371. !!'HotelRoom' = Hotel next to train station in Pavlovsk
  372. !!Zone 3; 'ybedr' = Mansion outside city
  373. !!Zone 4; 'bedr2x' = Apartment in "Old Town" (aka Pushkin)
  374. !!Zone 5; 'Gadhouse' = Grandmother's house in Gadyukino
  375. if $loc = 'bedr' or $loc = 'spalnya' or $loc = 'dom_gor' or $loc = 'obroom':
  376. sucslpzone = 1
  377. elseif $loc = 'bedrPar' or $loc = 'HotelRoom':
  378. sucslpzone = 2
  379. elseif $loc = 'ybedr':
  380. sucslpzone = 3
  381. elseif $loc = 'bedr2x':
  382. sucslpzone = 4
  383. elseif $loc = 'Gadhouse':
  384. sucslpzone = 5
  385. else
  386. exit
  387. end
  388. !!Vibrator and Panty handling (pun intended)
  389. if succublvl <= 2:
  390. if tanga = 1: tanga = 0 & dirtbelo += 1
  391. else
  392. if tanga = 1:
  393. if bedpanty = 1:
  394. tanga = 0 & dirtbelo += 1
  395. else
  396. if clrbelo > 0:
  397. clrbelo -= 1 & dirtbelo += 1
  398. else
  399. tanga = 0 & dirtbelo += 1
  400. end
  401. end
  402. else
  403. if bedpanty = 0 and clrbelo > 0: tanga = 1 & clrbelo -= 1
  404. end
  405. end
  406. if analplugIN = 1: analplugIN = 0
  407. if vibratorIN = 1: vibratorIN = 0
  408. !!This is the simple method for the base level succubus
  409. if succublvl = 1 and $lastwornclothingtype ! 'nude':
  410. gs 'clothing', 'wear_last_worn'
  411. gt 'succubus', 'sucwalkinggo'
  412. end
  413. !!This is to put all owned and wearable clothing in 2 large arrays
  414. x = 0
  415. i = 1
  416. :loopexhibit
  417. if exhibit[i] = 1 and exhibitS[i] = 0 and exhibitH[i] > 0 and exhibitB[i] >= (pcs_hips - 8) and exhibitB[i] <= (pcs_hips + 8):
  418. $succlolistn[x] = 'exhibit' & succlolisti[x] = i & x += 1
  419. end
  420. i += 1
  421. if i <= 42:jump 'loopexhibit'
  422. i = 1
  423. :loopfetish
  424. if fetish[i] = 1 and fetishS[i] = 0 and fetishH[i] > 0 and fetishB[i] >= (pcs_hips - 8) and fetishB[i] <= (pcs_hips + 8):
  425. $succlolistn[x] = 'fetish' & succlolisti[x] = i & x += 1
  426. end
  427. i += 1
  428. if i <= 54:jump 'loopfetish'
  429. i = 1
  430. :loopexpensive
  431. gs 'clothing_attributes', 'expensive', i
  432. if CloStyle ! 5:
  433. if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0 and expensiveB[i] >= (pcs_hips - 8) and expensiveB[i] <= (pcs_hips + 8):
  434. $succlolistn[x] = 'expensive' & succlolisti[x] = i & x += 1
  435. end
  436. else
  437. if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0: $succlolistn[x] = 'expensive' & succlolisti[x] = i & x += 1
  438. end
  439. i += 1
  440. if i <= 150:jump 'loopexpensive'
  441. i = 1
  442. :loopaverage
  443. gs 'clothing_attributes', 'average', i
  444. if CloStyle ! 5:
  445. if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0 and averageB[i] >= (pcs_hips - 8) and averageB[i] <= (pcs_hips + 8):
  446. $succlolistn[x] = 'average' & succlolisti[x] = i & x += 1
  447. end
  448. else
  449. if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0: $succlolistn[x] = 'average' & succlolisti[x] = i & x += 1
  450. end
  451. i += 1
  452. if i <= 132:jump 'loopaverage'
  453. i = 1
  454. :loopcheap
  455. gs 'clothing_attributes', 'cheap', i
  456. if CloStyle ! 5:
  457. if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0 and cheapB[i] >= (pcs_hips - 8) and cheapB[i] <= (pcs_hips + 8):
  458. $succlolistn[x] = 'cheap' & succlolisti[x] = i & x += 1
  459. end
  460. else
  461. if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0: $succlolistn[x] = 'cheap' & succlolisti[x] = i & x += 1
  462. end
  463. i += 1
  464. if i <= 86:jump 'loopcheap'
  465. i = 1
  466. :loopoffice
  467. if office[i] = 1 and officeS[i] = 0 and officeH[i] > 0 and officeB[i] >= (pcs_hips - 8) and officeB[i] <= (pcs_hips + 8):
  468. $succlolistn[x] = 'office' & succlolisti[x] = i & x += 1
  469. end
  470. i += 1
  471. if i <= 44:jump 'loopoffice'
  472. i = 1
  473. :loopschool
  474. if school[i] = 1 and schoolS[i] = 0 and schoolH[i] > 0 and schoolB[i] >= (pcs_hips - 8) and schoolB[i] <= (pcs_hips + 8):
  475. $succlolistn[x] = 'school' & succlolisti[x] = i & x += 1
  476. end
  477. i += 1
  478. if i = 6: i = 7
  479. if i <= 38:jump 'loopschool'
  480. i = 1
  481. :loopexercise
  482. if exercise[i] = 1 and exerciseS[i] = 0 and exerciseH[i] > 0: $succlolistn[x] = 'exercise' & succlolisti[x] = i & x += 1
  483. i += 1
  484. if i <= 37:jump 'loopexercise'
  485. i = 1
  486. :loopformal
  487. if formal[i] = 1 and formalS[i] = 0 and formalH[i] > 0 and formalB[i] >= (pcs_hips - 8) and formalB[i] <= (pcs_hips + 8):
  488. $succlolistn[x] = 'formal' & succlolisti[x] = i & x += 1
  489. end
  490. i += 1
  491. if i <= 33:jump 'loopformal'
  492. i = 1
  493. :loopuniform
  494. if uniform[i] = 1 and uniformS[i] = 0 and uniformH[i] > 0 and uniformB[i] >= (pcs_hips - 8) and uniformB[i] <= (pcs_hips + 8):
  495. $succlolistn[x] = 'uniform' & succlolisti[x] = i & x += 1
  496. end
  497. i += 1
  498. if i <= 32:jump 'loopuniform'
  499. killvar 'i'
  500. x -= 1
  501. if succublvl <= 2:
  502. !! This picks any outfit at random
  503. :oops
  504. clopickrand = rand(0,x)
  505. if $succlolistn[clopickrand] = '': jump 'oops'
  506. gs 'clothing', 'wear', $succlolistn[clopickrand], succlolisti[clopickrand]
  507. dynamic $succlolistn[clopickrand] + 'W[<<succlolisti[clopickrand]>>] = 1'
  508. killvar '$succlolistn' & killvar 'succlolisti' & killvar 'x'
  509. gt 'succubus', 'sucwalkinggo'
  510. else
  511. !! This picks a random outfit by "looks"
  512. $succlocat[0] = 'exhibit'
  513. $succlocat[1] = 'fetish'
  514. $succlocat[2] = 'expensive'
  515. $succlocat[3] = 'average'
  516. $succlocat[4] = 'cheap'
  517. $succlocat[5] = 'office'
  518. $succlocat[6] = 'school'
  519. $succlocat[7] = 'exercise'
  520. $succlocat[8] = 'formal'
  521. $succlocat[9] = 'uniform'
  522. scbimbochk = 1
  523. y = 0 & z = 0
  524. scclocatcnt = 0
  525. :randpoploop
  526. if scbimbochk = 1 and $succlocat[scclocatcnt] = $succlolistn[y]:
  527. gs 'clothing_attributes', $succlolistn[y], succlolisti[y]
  528. if CloBimbo = 1: $succlorandn[z] = $succlolistn[y] & succlorandi[z] = succlolisti[y] & z += 1
  529. elseif $succlocat[scclocatcnt] = $succlolistn[y]:
  530. $succlorandn[z] = $succlolistn[y] & succlorandi[z] = succlolisti[y] & z += 1
  531. end
  532. y += 1
  533. if y <= x: jump 'randpoploop'
  534. scclocatcnt += 1 & y = 0
  535. if scbimbochk = 1:
  536. if scclocatcnt <= 3: jump 'randpoploop'
  537. if z < 1 or scpckrnd > 0:
  538. if z < 1: scpckrnd = 1
  539. if scclocatcnt <= 6: jump 'randpoploop'
  540. end
  541. else
  542. if scclocatcnt <= 3: jump 'randpoploop'
  543. if z < 1 or scpckrnd > 1:
  544. if z < 1: scpckrnd = 2
  545. if scclocatcnt <= 6: jump 'randpoploop'
  546. if z < 1 or scpckrnd > 2:
  547. if z < 1: scpckrnd = 3
  548. if scclocatcnt <= 9: jump 'randpoploop'
  549. end
  550. end
  551. end
  552. if z < 1 and scbimbochk = 1: scclocatcnt = 0 & scbimbochk = 0 & jump 'randpoploop'
  553. z -= 1
  554. :oops
  555. clopickrand = rand(0,z)
  556. if $succlorandn[clopickrand] = '': jump 'oops'
  557. gs 'clothing', 'wear', $succlorandn[clopickrand], succlorandi[clopickrand]
  558. dynamic $succlorandn[clopickrand] + 'W[<<succlorandi[clopickrand]>>] = 1'
  559. killvar '$succlolistn' & killvar 'succlolisti' & killvar '$succlorandn' & killvar 'succlorandi'
  560. killvar '$succlocat' & killvar 'scbimbochk' & killvar 'scclocatcnt' & killvar 'scpckrnd'
  561. killvar 'x' & killvar 'y' & killvar 'z'
  562. !! This covers a high level succubus doing complex activities
  563. if succublvl >= 4:
  564. if pcs_hairbsh = 0: pcs_hairbsh = 1
  565. if lipbalm > 0 and pcs_lipbalm <= 0:
  566. lipbalm -= 1
  567. lipkoef += rand(0, 1)
  568. if lipkoef > 50:
  569. lipkoef = 0
  570. pcs_lip += 1
  571. end
  572. pcs_lipbalm += 8
  573. end
  574. if pcs_makeup <= 1 and kosmetica > 0:
  575. pcs_makeup = 4
  576. if kosmetica < 3 and pcs_makeup = 4: pcs_makeup = 3
  577. if kosmetica < 2 and pcs_makeup = 3: pcs_makeup = 2
  578. if kosmetica < 1 and pcs_makeup ! 1:
  579. pcs_makeup = 1
  580. else
  581. if pcs_makeup = 2: kosmetica -= 1
  582. if pcs_makeup = 3: kosmetica -= 2
  583. if pcs_makeup = 4: vidageday -= 1 & kosmetica -= 3
  584. end
  585. end
  586. gt 'succubus', 'sucwalkinggo'
  587. else
  588. gt 'succubus', 'sucwalkinggo'
  589. end
  590. end
  591. end
  592. !!This sets the results of the "sucwalking" event and picks the final location
  593. if $args[0] = 'sucwalkinggo':
  594. !!Here is what the PC sees
  595. cls
  596. clr
  597. '<center><img src="images/shared/home/bedroom/dream/sucrandream3.jpg"></center>'
  598. if succublvl < 3:
  599. $sucselftmp = 'a personification of <<$sucself1>> in your core'
  600. else
  601. $sucselftmp = $sucself1
  602. end
  603. 'You dream that you are arguing with <<$sucselftmp>>.'
  604. 'You don''t know what it''s about, but you think you <b><i>lost</i></b>...'
  605. killvar '$sucselftmp'
  606. !!This is the results, time, and sleep variable clearing section
  607. sucencntrand = (1 + succublvl)/2 + rand(0,succublvl)
  608. scfeed = (succublvl * sucencntrand) + rand(1,(4 * sucencntrand))
  609. minut += 360 + ((scfeed * 10) / succublvl)
  610. pcs_health += 5 * (360 + ((scfeed * 10) / succublvl))
  611. pcs_sleep += 15 * ((360 + ((scfeed * 10) / succublvl)) / 60)
  612. gs 'stat'
  613. clr
  614. Insleep = 0
  615. pcs_horny = 0
  616. orgasm += scfeed
  617. pcs_willpwr += 15 * scfeed
  618. succubxp += 3 * sucencntrand
  619. sexnutrition += 25 * scfeed
  620. scwalkmon = rand (50,(100 * sucencntrand))
  621. money += scwalkmon
  622. sucwalkday = daystart + sucencntrand + rand(0,5)
  623. sctemp = rand(1,10)
  624. if sucencntrand > 1:
  625. if sctemp <= 6:
  626. sucabscum = 1
  627. elseif sctemp = 7:
  628. sucabslez = 1
  629. else
  630. sucabslez = 1 & sucabscum = 1
  631. end
  632. else
  633. if sctemp <= 7:
  634. sucabscum = 1
  635. else
  636. sucabslez = 1
  637. end
  638. end
  639. killvar 'sctemp'
  640. killvar 'scfeed' & killvar 'sucencntrand'
  641. !!This picks the location where you end up and how you got there
  642. if succublvl >= 4 and car > 0:
  643. if benz <= 4:
  644. if money < (30 * (40 - benz)):
  645. if kanistra > 0:
  646. benz += 5 & kanistra -= 1
  647. else
  648. money = 0
  649. scwalkmon = 0
  650. benz += rand(10,40)
  651. end
  652. else
  653. money -= (30 * (40 - benz))
  654. benz = 40
  655. end
  656. end
  657. sctemp = rand(1,11)
  658. if sctemp = 1: cardrive = 1
  659. if sctemp = 2: cardrive = 2
  660. if sctemp = 3: cardrive = 3
  661. if sctemp = 4: cardrive = 19
  662. if sctemp = 5: cardrive = 4
  663. if sctemp = 6: cardrive = 5
  664. if sctemp = 7: cardrive = 13
  665. if sctemp = 8: cardrive = 14
  666. if sctemp = 9: cardrive = 20
  667. if sctemp = 10: cardrive = 23
  668. if sctemp = 11: cardrive = 24
  669. killvar 'sctemp'
  670. benz -= rand(1,4)
  671. teh -= rand(3,6)
  672. !! This forces the dynmanic at the top of carF to load in case it had not
  673. gs 'carF'
  674. sccarflag = 1
  675. else
  676. sctemp = rand(1,5)
  677. if sucslpzone = 1:
  678. if sctemp = 1: $sucgoloc = 'Nord' & $sucgometka = ''
  679. if sctemp = 2: $sucgoloc = 'street' & $sucgometka = ''
  680. if sctemp = 3: $sucgoloc = 'down' & $sucgometka = ''
  681. if sctemp = 4: $sucgoloc = 'park' & $sucgometka = 'start'
  682. if sctemp = 5: $sucgoloc = 'lake' & $sucgometka = 'start'
  683. elseif sucslpzone = 2:
  684. if sctemp = 1: $sucgoloc = 'pavCommercial' & $sucgometka = ''
  685. if sctemp = 2: $sucgoloc = 'pavResidential' & $sucgometka = ''
  686. if sctemp = 3: $sucgoloc = 'gskver' & $sucgometka = ''
  687. if sctemp = 4: $sucgoloc = 'vokzalG' & $sucgometka = ''
  688. if sctemp = 5: $sucgoloc = 'gLake' & $sucgometka = ''
  689. elseif sucslpzone = 3:
  690. if sctemp = 1: $sucgoloc = 'Nord' & $sucgometka = ''
  691. if sctemp = 2: $sucgoloc = 'park' & $sucgometka = 'start'
  692. if sctemp = 3: $sucgoloc = 'pavCommercial' & $sucgometka = ''
  693. if sctemp = 4: $sucgoloc = 'vokzalG' & $sucgometka = ''
  694. if sctemp = 5: $sucgoloc = 'motel' & $sucgometka = ''
  695. elseif sucslpzone = 4:
  696. if sctemp = 1: $sucgoloc = 'liam' & $sucgometka = ''
  697. if sctemp = 2: $sucgoloc = 'liames' & $sucgometka = ''
  698. if sctemp = 3: $sucgoloc = 'parks' & $sucgometka = ''
  699. if sctemp = 4: $sucgoloc = 'vokzalG' & $sucgometka = ''
  700. if sctemp = 5: $sucgoloc = 'Nord' & $sucgometka = ''
  701. elseif sucslpzone = 5:
  702. if sctemp = 1: $sucgoloc = 'gadukino' & $sucgometka = ''
  703. if sctemp = 2: $sucgoloc = 'vokzalG' & $sucgometka = ''
  704. if sctemp = 3: $sucgoloc = 'motel' & $sucgometka = ''
  705. if sctemp = 4: $sucgoloc = 'Nord' & $sucgometka = ''
  706. if sctemp = 5: $sucgoloc = 'park' & $sucgometka = 'start'
  707. end
  708. killvar 'sctemp' & killvar 'sucslpzone'
  709. end
  710. !!This is the wake up action
  711. act 'Wake Up':
  712. cla
  713. minut += 15
  714. gs 'stat'
  715. $scwrdtmp = '.'
  716. ''
  717. 'You wake up and realize that you''re not in your bed...'
  718. if pcs_hairbsh = 1 and pcs_makeup > 1: $scwrdtmp = ', your hair is brushed, and you''re wearing makeup.'
  719. 'Instead, you are fully dressed<<$scwrdtmp>>'
  720. if scwalkmon > 0: 'You find <<scwalkmon>> <b>₽</b> stuffed in your cleavage (which you place in your wallet)'
  721. 'And you feel aboslutly <i>bursting</i> with energy.'
  722. ''
  723. 'After a moment, you start wondering where you are...'
  724. killvar 'scwalkmon' & killvar '$scwrdtmp'
  725. act 'Look around to see where you are':
  726. if sccarflag = 1:
  727. killvar 'sccarflag'
  728. dynamic $enddrive
  729. else
  730. gt $sucgoloc, $sucgometka
  731. end
  732. end
  733. end
  734. end
  735. !!**********
  736. --- succubus ---------------------------------