1
0

lover_change.qsrc 52 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179
  1. # lover_change
  2. gs 'lover_pronouns'
  3. if $ARGS[0] = 'Hair':
  4. 'As you arrive at the salon with <<$loverdesc[lover_number]>>, <<$tXe>> heads over to the counter and tells something to the barber. The barber nods and comes towards you.'
  5. '"So Ms.<<$pcs_lastname>>, you want to get your hair dyed <<$hairPref>> now is that right?"'
  6. act 'Nod':
  7. cla
  8. 'Knowing there is no way to back out of this now, you meekly nod.'
  9. '"Alrighty then, your hair will be <<$hairPref>> before you know it!"'
  10. act 'Take a seat':
  11. cla
  12. if pcs_haircol ! hairPref: pcs_haircol = hairPref
  13. dyefade = rand(35,42)
  14. collength = pcs_hairlng
  15. minut += 20
  16. 'In less then 20 minutes you see that your hair''s original color has been changed to <<$hairPref>>.'
  17. act 'Get up from chair and go to your <<$tBoyGirlfriend>>.':
  18. cla
  19. 'You walk towards your <<$tBoyGirlfriend>> with your new <<$hairPref>> hair and <<$tXe>> tells you that you look amazing.'
  20. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  21. 'You then leave the salon and head home.'
  22. loverscompliance[lover_number] += 1
  23. act 'Continue': dynamic $go_home
  24. exit
  25. end
  26. end
  27. end
  28. end
  29. if $ARGS[0] = 'Make':
  30. 'After you agree to change your makeup routine for <<$tXem>>, you talk a bit with <<$tXem>> for an hour and then head home.'
  31. 'You can''t say why, but you feel it would be harder to say no next time if he asked you to change something.'
  32. minut += 60
  33. if makeupSetting ! makePrefTmp: makeupSetting = makePrefTmp
  34. loverscompliance[lover_number] += 1
  35. act 'Continue': dynamic $go_home
  36. exit
  37. end
  38. if $ARGS[0] = 'Pier':
  39. 'Since you agreed to adjust your piercings to fit your <<$tBoyGirlfriend>>''s preferences, <<$tXe>> looks at any pre-existing piercings you may have.'
  40. if pierWearCount < pierPrefTmpMin and pierCount >= pierPrefTmpMin:
  41. '<<$loverdesc[lover_number]>> sees that you have enough piercings already, and that you just need to wear them.'
  42. act 'Let <<$tXem>> add piercings':
  43. cla
  44. '<<$tXec>> pulls out a couple of piercings and starts to put them on you.'
  45. if pirsA = 1000 and pierWearCount < pierPrefTmpMin:
  46. '<<$tXec>> asks you to stick out your tongue, then inserts a barbell into your tongue.'
  47. pirsA = 1
  48. pierWearCount += 1
  49. end
  50. if pirsB = 1000 and pierWearCount < pierPrefTmpMin:
  51. '<<$tXec>> gently holds your lip, then inserts a ring.'
  52. pirsB = 1
  53. pierWearCount += 1
  54. end
  55. if pirsC = 1000 and pierWearCount < pierPrefTmpMin:
  56. '<<$tXec>> sees you do not have earrings and proceeds to put rings onto your ears. '
  57. pirsC = 1
  58. pierWearCount += 1
  59. end
  60. if pirsD = 1000 and pierWearCount < pierPrefTmpMin:
  61. '<<$tXec>> takes out a ring and then carefully inserts a ring through your nose.'
  62. pirsD = 1
  63. pierWearCount += 1
  64. end
  65. if pirsE = 1000 and pierWearCount < pierPrefTmpMin:
  66. '<<$loverdesc[lover_number]>> moves to your eyebrow and proceeds to insert a barbell.'
  67. pirsE = 1
  68. pierWearCount += 1
  69. end
  70. if pirsN = 1000 and pierWearCount < pierPrefTmpMin:
  71. '<<$tXec>> takes out a barbell and inserts it into your navel.'
  72. pcs_horny += 2
  73. pirsN = 1
  74. pierWearCount += 1
  75. end
  76. if pirsF = 1000 and pierWearCount < pierPrefTmpMin:
  77. '<<$loverdesc[lover_number]>> looks around, then pulls out a couple of nipple rings. You can tell it slightly turns <<$tXem>> on as <<$tXe>> works <<$tXyr>> way up your shirt to put on the nipple rings.'
  78. pcs_horny += 5
  79. pirsF = 1
  80. pierWearCount += 1
  81. end
  82. if pirsG = 1000 and pierWearCount < pierPrefTmpMin:
  83. '<<$loverdesc[lover_number]>> gets close to your ear, "Don''t make a scene okay?", then <<$tXe>> nonchalantly slides <<$tXyr>> hand down to your labia, and inserts a ring.'
  84. 'You cover your mouth as you let out a quick "Eep!", but in a second, its over.'
  85. pcs_horny += 7
  86. pirsG = 1
  87. pierWearCount += 1
  88. end
  89. act '"All done!" <<$loverdesc[lover_number]>> says.':
  90. cla
  91. gs'stat'
  92. 'You look at your body and examine it.'
  93. if pierPrefTmp = 1:
  94. 'This should not fire off how did <<$tXe>> want to add stuff to nothing?'
  95. elseif pierPrefTmp = 2:
  96. 'You can tell <<$tXe>> likes a girl with a bit more piercings, and you can''t help but agree in some aspect, it does make you look a bit sexier.'
  97. elseif pierPrefTmp = 3:
  98. 'With this many piercings, you can feel many people will be exploring your body with their eyes, curious on where else you may have piercings.'
  99. end
  100. if haraklover[lover_number] = 0:
  101. 'You can see <<$tXe>> loves how many piercings you have, as <<$tXe>> has a slight blush on his face.'
  102. elseif haraklover[lover_number] = 1:
  103. '<<$loverdesc[lover_number]>> gives you one last examination with $tXyr eyes and gives you a quick kiss on your cheek.'
  104. elseif haraklover[lover_number] = 2:
  105. '<<$loverdesc[lover_number]>> comes up to you, and with a quick squeeze on the ass, kisses you on the lips and says, "Now this is a bombshell."'
  106. end
  107. act 'Continue':
  108. cla
  109. 'After this you guys talk for an hour about various things, before <<$tXe>> gets up and says <<$tXe>> has to go.'
  110. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  111. loverscompliance[lover_number] += 1
  112. minut += 60
  113. act 'Continue': dynamic $go_home
  114. exit
  115. end
  116. end
  117. end
  118. elseif pierWearCount > pierPrefTmpMax:
  119. '<<$loverdesc[lover_number]>> says that you just need to remove the ones that you have and you will look amazing.'
  120. act 'Let <<$tXem>> remove some piercings.':
  121. cla
  122. if pirsN > 0 and pirsN < 1000 and pierWearCount < pierPrefTmpMin:
  123. '<<$tXec>> takes the barbell out of your navel.'
  124. pcs_horny += 2
  125. pirsN = 1000
  126. pierWearCount -= 1
  127. end
  128. if pirsE > 0 and pirsE < 1000 and pierWearCount > pierPrefTmpMax:
  129. '<<$loverdesc[lover_number]>> <<$tXec>> sees the piercing in your eyebrow and proceeds to remove it.'
  130. pirsE = 1000
  131. pierWearCount -= 1
  132. end
  133. if pirsB > 0 and pirsB < 1000 and pierWearCount > pierPrefTmpMax:
  134. '<<$tXec>> carefully takes the ring out of your lips.'
  135. pirsB = 1000
  136. pierWearCount -= 1
  137. end
  138. if pirsF > 0 and pirsF < 1000 and pierWearCount > pierPrefTmpMax:
  139. '<<$loverdesc[lover_number]>> looks around, then carefully uses <<$tXyr>> hands to take the nipple rings off your breasts.'
  140. pcs_horny += 5
  141. pirsF = 1000
  142. pierWearCount -= 1
  143. end
  144. if pirsD > 0 and pirsD < 1000 and pierWearCount > pierPrefTmpMax:
  145. '<<$tXec>> sees the nose ring that you are wearing and removes it.'
  146. pirsD = 1000
  147. pierWearCount -= 1
  148. end
  149. if pirsG > 0 and pirsG < 1000 and pierWearCount > pierPrefTmpMax:
  150. '<<$loverdesc[lover_number]>> gets close to your ear, "Don''t make a scene okay?", then he non chalontely slides <<$tXyr>> hand down to your labia, and removes the ring there.'
  151. 'You cover your mouth as you let out a quick "Eep!", but in a second, its over.'
  152. pcs_horny += 7
  153. pirsG = 1000
  154. pierWearCount -= 1
  155. end
  156. if pirsA > 0 and pirsA < 1000 and pierWearCount > pierPrefTmpMax:
  157. '<<$tXec>> asks you to stick out your tongue, then removes the barbell in your tongue.'
  158. pirsA = 1000
  159. pierWearCount -= 1
  160. end
  161. if pirsC > 0 and pirsC < 1000 and pierWearCount > pierPrefTmpMax:
  162. '<<$tXec>> sees your earrings and quickly takes them off.'
  163. pirsC = 1000
  164. pierWearCount -= 1
  165. end
  166. act '"All done!" <<$loverdesc[lover_number]>> says.':
  167. cla
  168. minut += 60
  169. gs'stat'
  170. '<<$loverdesc[lover_number]>> says "All done!" and promptly hands you the piercings <<$tXe>> took off.'
  171. 'After this you guys talk for an hour about various things, before <<$tXe>> gets up and says <<$tXe>> has to go.'
  172. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  173. loverscompliance[lover_number] += 1
  174. act 'Continue': dynamic $go_home
  175. exit
  176. end
  177. end
  178. elseif pierWearCount < pierPrefTmpMin and pierCount < pierPrefTmpMin:
  179. '<<$loverdesc[lover_number]>> takes you by the hand and heads over to the piercing salon.'
  180. act 'Enter the piercing salon':
  181. cla
  182. 'As you both arrive at the salon, <<$tXe>> talks real quick to the tattoo artist and piercer.'
  183. 'You see <<$tXem>> hand the artist some money and the artist starts to walk up towards you.'
  184. '"Your <<$tBoyGirlfriend>> says you want to get some piercings?", the artist asks.'
  185. act 'Quietly nod':
  186. cla
  187. 'You know you can''t pull out now, so you meekly nod.'
  188. 'The man shrugs and says "Head over to the chair over there okay?"'
  189. act 'Head over to the chair':
  190. cla
  191. 'As you sit down you see the man come over with the various needles he needs to do his job.'
  192. 'He sees you are a little bit concerned about the needles and laughs, "Don''t worry ma ''am, it will be all over before you know it!"'
  193. 'He takes out a clean needle and proceeds with his job.'
  194. act 'Continue':
  195. cls
  196. :alreadyGotPierLoop
  197. randchan = rand(0, 7)
  198. if randchan = 0 and pirsC = 0:
  199. if pirsC = 0 and pierCount < pierPrefTmpMin:
  200. 'The artist takes a look at your unpierced ears, and with a quick sharp pain, pierces them.'
  201. '<center><img <<$set_imgh>> src="images/pc/body/piercings/c1.jpg"></center>'
  202. pirsC = 1
  203. pierCount += 1
  204. pierWearCount += 1
  205. gs 'pain', 7, 'ears', 'pierce'
  206. end
  207. elseif randchan = 1 and pirsA = 0:
  208. if pirsA = 0 and pierCount < pierPrefTmpMin:
  209. 'He asks you to stick out your tongue. You comply and then start to regret it as he pierces your tongue.'
  210. '<center><img <<$set_imgh>> src="images/pc/body/piercings/a1.jpg"></center>'
  211. pirsA = 1
  212. pierCount += 1
  213. pierWearCount += 1
  214. gs 'pain', 7, 'tongue', 'pierce'
  215. end
  216. elseif randchan = 2 and pirsB = 0:
  217. if pirsB = 0 and pierCount < pierPrefTmpMin:
  218. 'The artist gently holds your lip as he drives the needle through to pierce it.'
  219. '<center><img <<$set_imgh>> src="images/pc/body/piercings/b1.jpg"></center>'
  220. pirsB = 1
  221. pierCount += 1
  222. pierWearCount += 1
  223. gs 'pain', 7, 'lips', 'pierce'
  224. end
  225. elseif randchan = 3 and pirsD = 0:
  226. if pirsD = 0 and pierCount < pierPrefTmpMin:
  227. 'You feel a sharp pain in your nose as he pierces your nose.'
  228. '<center><img <<$set_imgh>> src="images/pc/body/piercings/d1.jpg"></center>'
  229. pirsD = 1
  230. pierCount += 1
  231. pierWearCount += 1
  232. gs 'pain', 7, 'nose', 'pierce'
  233. end
  234. elseif randchan = 4 and pirsE = 0:
  235. if pirsE = 0 and pierCount < pierPrefTmpMin:
  236. 'The artist moves to above your eyes and quickly pierces your eyebrow.'
  237. '<center><img <<$set_imgh>> src="images/pc/body/piercings/e1.jpg"></center>'
  238. pirsE = 1
  239. pierCount += 1
  240. pierWearCount += 1
  241. gs 'pain', 7, 'eyebrows', 'pierce'
  242. end
  243. elseif randchan = 5 and pirsN = 0:
  244. if pirsN = 0 and pierCount < pierPrefTmpMin:
  245. 'He positions himself to pierce your belly button. You feel a sharp pain through your navel as he pierces it.'
  246. '<center><img <<$set_imgh>> src="images/pc/body/piercings/n1.jpg"></center>'
  247. pcs_horny += 2
  248. pirsN = 1
  249. pierCount += 1
  250. pierWearCount += 1
  251. gs 'pain', 7, 'tummy', 'pierce'
  252. end
  253. elseif randchan = 6 and pirsF = 0:
  254. if pirsF = 0 and pierCount < pierPrefTmpMin:
  255. 'He motions for you to lift up your shirt. After you do the man grabs your breasts rather softly and carefully pierces each nipple.'
  256. !!'<center><img <<$set_imgh>> src="images/pc/body/piercings/f1.jpg"></center>'
  257. pcs_horny += 5
  258. pirsF = 1
  259. pierCount += 1
  260. pierWearCount += 1
  261. gs 'pain', 7, 'nipples', 'pierce'
  262. end
  263. elseif randchan = 7 and pirsG = 0:
  264. if pirsG = 0 and pierCount < pierPrefTmpMin:
  265. '"Ma ''am can you take off your bottoms?", the man says. You realize that he plans to pierce your labia and you reluctantly present yourself.'
  266. 'You cover your mouth as you let out a quick "Eep!", as you feel a quick pain through your labia, but in a second, its over.'
  267. !!'<center><img <<$set_imgh>> src="images/pc/body/piercings/g1.jpg"></center>'
  268. pcs_horny += 7
  269. pirsG = 1
  270. pierCount += 1
  271. pierWearCount += 1
  272. gs 'pain', 7, 'pubic', 'pierce'
  273. end
  274. else
  275. emergencyAbort += 1
  276. if emergencyAbort > 10000 :
  277. '<b><font color="teal">DEVELOPER WARNING: Emergency backout. Either you got very lucky or some dev made a mistake, if it happens again, file a bug report. </font></b>'
  278. else
  279. jump 'alreadyGotPierLoop'
  280. end
  281. end
  282. gs'stat'
  283. '"All done!", the artist says as he starts to clean up his various tools. He says to not irritate the places that he pierced and baby them for a week or two.'
  284. 'Before you leave he puts on the various new piercings throughout your body.'
  285. act 'Go back towards your <<$tBoyGirlfriend>>':
  286. cla
  287. 'As you go back towards him, <<$tXe>> looks you up and down.'
  288. if pierWearCount < pierPrefTmpMin and pierCount >= pierPrefTmpMin:
  289. '"Now lets just add the rest of the piercings...", <<$loverdesc[lover_number]>> says.'
  290. if pirsA = 1000 and pierWearCount < pierPrefTmpMin:
  291. '<<$tXec>> asks you to stick out your tongue, then inserts a barbell into your tongue.'
  292. pirsA = 1
  293. pierWearCount += 1
  294. end
  295. if pirsB = 1000 and pierWearCount < pierPrefTmpMin:
  296. '<<$tXec>> gently holds your lip, then inserts a ring.'
  297. pirsB = 1
  298. pierWearCount += 1
  299. end
  300. if pirsC = 1000 and pierWearCount < pierPrefTmpMin:
  301. '<<$tXec>> sees you do not have earrings and proceeds to put rings onto your ears. '
  302. pirsC = 1
  303. pierWearCount += 1
  304. end
  305. if pirsD = 1000 and pierWearCount < pierPrefTmpMin:
  306. '<<$tXec>> takes out a ring and then carefully inserts a ring through your nose.'
  307. pirsD = 1
  308. pierWearCount += 1
  309. end
  310. if pirsE = 1000 and pierWearCount < pierPrefTmpMin:
  311. '<<$loverdesc[lover_number]>> moves to your eyebrow and proceeds to insert a barbell.'
  312. pirsE = 1
  313. pierWearCount += 1
  314. end
  315. if pirsN = 1000 and pierWearCount < pierPrefTmpMin:
  316. '<<$tXec>> takes out a barbell and inserts it into your navel.'
  317. pcs_horny += 2
  318. pirsN = 1
  319. pierWearCount += 1
  320. end
  321. if pirsF = 1000 and pierWearCount < pierPrefTmpMin:
  322. '<<$loverdesc[lover_number]>> looks around, then pulls out a couple of nipple rings. You can tell it slightly turns <<$tXem>> on as <<$tXe>> works <<$tXyr>> way up your shirt to put on the nipple rings.'
  323. pcs_horny += 5
  324. pirsF = 1
  325. pierWearCount += 1
  326. end
  327. if pirsG = 1000 and pierWearCount < pierPrefTmpMin:
  328. '<<$loverdesc[lover_number]>> gets close to your ear, "Don''t make a scene okay?", then <<$tXe>> nonchalantly slides <<$tXyr>> hand down to your labia, and inserts a ring.'
  329. 'You cover your mouth as you let out a quick "Eep!", but in a second, its over.'
  330. pcs_horny += 7
  331. pirsG = 1
  332. pierWearCount += 1
  333. end
  334. gs'stat'
  335. '"There we go!", <<$tXe>> says with a smile.'
  336. if pierPrefTmp = 2:
  337. 'You can tell <<$tXe>> likes a girl with a bit more piercings, and you can''t help but agree in some aspect, it does make you look a bit sexier.'
  338. elseif pierPrefTmp = 3:
  339. 'With this many piercings, you can feel many people will be exploring your body with their eyes, curious on where else you may have piercings.'
  340. end
  341. if haraklover[lover_number] = 0:
  342. 'You can see <<$tXe>> loves how many piercings you have, as <<$tXe>> has a slight blush on <<$tXyr>> face.'
  343. elseif haraklover[lover_number] = 1:
  344. '<<$loverdesc[lover_number]>> gives you one last examination with <<$tXyr>> eyes and gives you a quick kiss on your cheek.'
  345. elseif haraklover[lover_number] = 2:
  346. '<<$loverdesc[lover_number]>> comes up to you, and with a quick squeeze on the ass, kisses you on the lips and says, "Now this is a bombshell."'
  347. end
  348. act 'Continue':
  349. minut += 40
  350. cla
  351. 'After getting the piercings, you both part ways and head home.'
  352. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  353. minut += 20
  354. act 'Continue': dynamic $go_home
  355. exit
  356. end
  357. elseif pierWearCount >= pierPrefTmpMin:
  358. '"There we go!", <<$tXe>> says with a smile.'
  359. if pierPrefTmp = 2:
  360. 'You can tell <<$tXe>> likes a girl with a bit more piercings, and you can''t help but agree in some aspect, it does make you look a bit sexier.'
  361. elseif pierPrefTmp = 3:
  362. 'With this many piercings, you can feel many people will be exploring your body with their eyes, curious on where else you may have piercings.'
  363. end
  364. if haraklover[lover_number] = 0:
  365. 'You can see <<$tXe>> loves how many piercings you have, as <<$tXe>> has a slight blush on <<$tXyr>> face.'
  366. elseif haraklover[lover_number] = 1:
  367. '<<$loverdesc[lover_number]>> gives you one last examination with <<$tXyr>> eyes and gives you a quick kiss on your cheek.'
  368. elseif haraklover[lover_number] = 2:
  369. '<<$loverdesc[lover_number]>> comes up to you, and with a quick squeeze on the ass, kisses you on the lips and says, "Now this is a bombshell."'
  370. end
  371. act 'Continue':
  372. minut += 40
  373. cla
  374. 'After getting the piercings, you both part ways and head home.'
  375. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  376. loverscompliance[lover_number] += 1
  377. minut += 20
  378. act 'Continue': dynamic $go_home
  379. exit
  380. end
  381. else
  382. '"There we go!", <<$tXe>> says with a smile.'
  383. if pierPrefTmp > 1: 'You can tell <<$tXe>> likes a girl with a more piercings and you can''t help but agree in some aspect, it does make you look a bit sexier.'
  384. if haraklover[lover_number] = 0:
  385. 'You can see <<$tXe>> is pleased with your piercing, as <<$tXe>> has a slight blush on <<$tXyr>> face.'
  386. elseif haraklover[lover_number] = 1:
  387. '<<$loverdesc[lover_number]>> gives you one last examination with <<$tXyr>> eyes and gives you a quick kiss on your cheek.'
  388. elseif haraklover[lover_number] = 2:
  389. '<<$loverdesc[lover_number]>> comes up to you, and with a quick squeeze on the ass, kisses you on the lips and says, "You look much better."'
  390. end
  391. act 'Continue':
  392. minut += 40
  393. cla
  394. 'After getting the piercing, you both part ways and head home.'
  395. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  396. loverscompliance[lover_number] += 1
  397. minut += 20
  398. act 'Continue': dynamic $go_home
  399. exit
  400. end
  401. end
  402. end
  403. end
  404. end
  405. end
  406. end
  407. else
  408. 'This should not fire off. NO else if.'
  409. end
  410. end
  411. if $ARGS[0] = 'Tatt':
  412. !! Arm Slot tatarm4, tatarm
  413. !! ass slot tatass21, tatass
  414. !! back slot tatback2, tatback
  415. !! belly slot tatblly1, tatblly
  416. !! Breast Slot tatbrst8, tatbrst
  417. !! Chest Slot tatchst1, tatchst
  418. !! face slot tatfce1, tatfce
  419. !! Foot Slot tatankle5, tatankle
  420. !! Leg Slot tatleg2, tatleg
  421. !! Lip Slot tatlip1, tatlip
  422. !! Neck Slot tatnck12, tatneck
  423. !! Pubic Slot tatvag6, tatvag
  424. !! Shoulder Slot tatshldr7 ,tatlech
  425. !! Side Slot tatside9 ,tatside
  426. !! Tramp Slot tatlowbck16 , tatupb
  427. !! UnderBreast Slot tatundbreast5 , tatunder
  428. !! Wrist Slot tatwrst8 , tatwrist
  429. act 'Enter Tattoo Parlor':
  430. cla
  431. 'As you arrive at the tattoo parlor, <<$loverdesc[lover_number]>> looks you up and down to decide what needs to be done about your tattoos.'
  432. if tattCount < tattPrefTmpMin:
  433. 'You need some more tattoos, it would make you look so much better!'
  434. '<<$tXec>> heads over to the counter and starts talks to the tattoo artist.'
  435. 'You see <<$tXem>> hand the artist some money and the artist starts to walk up towards you.'
  436. '"Your <<$tBoyGirlfriend>> says you want to get some tattoos?", the artist asks.'
  437. act 'Quietly nod':
  438. cla
  439. 'You know you can''t pull out now, so you meekly nod.'
  440. 'The man shrugs and says "Head over to the chair over there okay?"'
  441. act 'Head over to the chair':
  442. cls
  443. 'As you sit down you see the man come over with the various needles he needs to do his job.'
  444. 'He sees you are a little bit concerned about the needles and laughs, "Don''t worry ma ''am, it will be all over before you know it!"'
  445. 'He takes out a clean needle and proceeds with his job.'
  446. randchan = rand(0, 17)
  447. if randchan = 0 and tatarm = 0:
  448. randchan = rand(1, 82)
  449. !!randchan = 4
  450. if tatarm = 0 and tattCount < tattPrefTmpMin:
  451. tatarm = randchan
  452. tattCount += 1
  453. 'He gives you a tattoo on your arm.'
  454. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
  455. end
  456. elseif randchan = 1 and tatass = 0:
  457. randchan = rand(1, 23)
  458. !!randchan = 21
  459. if tatass = 0 and tattCount < tattPrefTmpMin:
  460. tatass = randchan
  461. tattCount += 1
  462. 'He gives you a tattoo on your ass.'
  463. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
  464. end
  465. elseif randchan = 2 and tatback = 0:
  466. randchan = rand(1, 53)
  467. !!randchan = 2
  468. if tatback = 0 and tattCount < tattPrefTmpMin:
  469. tatback = randchan
  470. tattCount += 1
  471. 'He gives you a tattoo on your back.'
  472. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/back/tatback<<tatback>>.jpg"></center>'
  473. end
  474. !!
  475. elseif randchan = 3 and tatblly = 0:
  476. randchan = rand(1, 20)
  477. !!randchan = 1
  478. if tatblly = 0 and tattCount < tattPrefTmpMin:
  479. tatblly = randchan
  480. tattCount += 1
  481. 'He gives you a tattoo on your belly.'
  482. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
  483. end
  484. elseif randchan = 4 and tatbrst = 0:
  485. randchan = rand(1, 10)
  486. !!randchan = 8
  487. if tatbrst = 0 and tattCount < tattPrefTmpMin:
  488. tatbrst = randchan
  489. tattCount += 1
  490. 'He gives you a tattoo on your breasts.'
  491. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/breasts/tatbrst<<tatbrst>>.jpg"></center>'
  492. end
  493. elseif randchan = 5 and tatchst = 0:
  494. randchan = rand(1, 15)
  495. !!randchan = 1
  496. if tatchst = 0 and tattCount < tattPrefTmpMin:
  497. tatchst = randchan
  498. tattCount += 1
  499. 'He gives you a tattoo on your chest.'
  500. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/chest/tatchst<<tatchst>>.jpg"></center>'
  501. end
  502. elseif randchan = 6 and tatfce = 0:
  503. randchan = rand(1, 8)
  504. !!randchan = 1
  505. if tatfce = 0 and tattCount < tattPrefTmpMin:
  506. tatfce = randchan
  507. tattCount += 1
  508. 'He gives you a tattoo on your face.'
  509. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/face/tatfce<<tatfce>>.jpg"></center>'
  510. end
  511. elseif randchan = 7 and tatankle = 0:
  512. randchan = rand(1, 25)
  513. !!randchan = 5
  514. if tatankle = 0 and tattCount < tattPrefTmpMin:
  515. tatankle = randchan
  516. tattCount += 1
  517. 'He gives you a tattoo on your ankles.'
  518. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
  519. end
  520. elseif randchan = 8 and tatleg = 0:
  521. randchan = rand(1, 36)
  522. !!randchan = 2
  523. if tatleg = 0 and tattCount < tattPrefTmpMin:
  524. tatleg = randchan
  525. tattCount += 1
  526. 'He gives you a tattoo on your legs.'
  527. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/legs/tatleg<<tatleg>>.jpg"></center>'
  528. end
  529. elseif randchan = 9 and tatlip = 0:
  530. randchan = rand(1, 9)
  531. !!randchan = 1
  532. if tatlip = 0 and tattCount < tattPrefTmpMin:
  533. tatlip = randchan
  534. tattCount += 1
  535. 'He gives you a tattoo on your bottom lip.'
  536. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg"></center>'
  537. end
  538. elseif randchan = 10 and tatneck = 0:
  539. randchan = rand(1, 28)
  540. !!randchan = 12
  541. if tatneck = 0 and tattCount < tattPrefTmpMin:
  542. tatneck = randchan
  543. tattCount += 1
  544. 'He gives you a tattoo on your neck.'
  545. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
  546. end
  547. elseif randchan = 11 and tatvag = 0:
  548. randchan = rand(1, 44)
  549. !!randchan = 6
  550. if tatvag = 0 and tattCount < tattPrefTmpMin:
  551. tatvag = randchan
  552. tattCount += 1
  553. 'He gives you a tattoo above your cunt.'
  554. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/pubic/tatvag<<tatvag>>.jpg"></center>'
  555. end
  556. elseif randchan = 12 and tatlech = 0:
  557. randchan = rand(1, 25)
  558. !!randchan = 7
  559. if tatlech = 0 and tattCount < tattPrefTmpMin:
  560. tatlech = randchan
  561. tattCount += 1
  562. 'He gives you a tattoo on your shoulder.'
  563. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg"></center>'
  564. end
  565. elseif randchan = 13 and tatside = 0:
  566. randchan = rand(1, 18)
  567. !!randchan = 9
  568. if tatside = 0 and tattCount < tattPrefTmpMin:
  569. tatside = randchan
  570. tattCount += 1
  571. 'He gives you a tattoo on your sides.'
  572. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/side/tatside<<tatside>>.jpg"></center>'
  573. end
  574. elseif randchan = 14 and tatupb = 0:
  575. randchan = rand(1, 30)
  576. !!randchan = 16
  577. if tatupb = 0 and tattCount < tattPrefTmpMin:
  578. tatupb = randchan
  579. tattCount += 1
  580. 'He gives you a tramp stamp.'
  581. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/trampStamp/tatlowbck<<tatupb>>.jpg"></center>'
  582. end
  583. elseif randchan = 15 and tatunder = 0:
  584. randchan = rand(1, 22)
  585. !!randchan = 5
  586. if tatunder = 0 and tattCount < tattPrefTmpMin:
  587. tatunder = randchan
  588. tattCount += 1
  589. 'He gives you a tattoo under your breasts.'
  590. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/underBreast/tatundbreast<<tatunder>>.jpg"></center>'
  591. end
  592. elseif randchan = 16 and tatwrist = 0:
  593. randchan = rand(1, 51)
  594. !!randchan = 8
  595. if tatwrist = 0 and tattCount < tattPrefTmpMin:
  596. tatwrist = randchan
  597. tattCount += 1
  598. 'He gives you a tattoo on your wrists.'
  599. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/wrists/tatwrst<<tatwrist>>.jpg"></center>'
  600. end
  601. elseif randchan = 17 and tathand = 0:
  602. randchan = rand(1, 9)
  603. !!randchan = 8
  604. if tathand = 0 and tattCount < tattPrefTmpMin:
  605. tathand = randchan
  606. tattCount += 1
  607. 'He gives you a tattoo on your hand.'
  608. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/hand/tathnd<<tathand>>.jpg"></center>'
  609. end
  610. end
  611. gs'stat'
  612. '"All done!", the artist smiles as he starts to clean up his various tools."'
  613. '"I must say, your body looks amazing with the art on you!"'
  614. 'You are reluctant to admit it, but having these tattoos feels like they do make you look sexier for some people, though a bit more slutty too.'
  615. act 'Go back towards your <<$tBoyGirlfriend>>':
  616. cls
  617. 'As you go back towards him, <<$tXe>> looks you up and down.'
  618. '"There we go!", <<$tXe>> says with a smile.'
  619. if pierPrefTmp = 2:
  620. 'You can tell <<$tXe>> likes a girl with at least a couple of tattoos, and you can''t help but agree in some aspect, it does make you look a bit sexier.'
  621. elseif pierPrefTmp = 3:
  622. 'With this many tattoos, you look like a punk or scene girl, and you can feel that many people would want to explore you to see if you have any "hidden" gems underneath your clothes.'
  623. end
  624. if haraklover[lover_number] = 0:
  625. 'You can see <<$tXe>> loves how many tattoos you have, as <<$tXe>> has a slight blush on <<$tXyr>> face.'
  626. elseif haraklover[lover_number] = 1:
  627. '<<$loverdesc[lover_number]>> gives you one last examination with <<$tXyr>> eyes and gives you a quick kiss on your cheek.'
  628. elseif haraklover[lover_number] = 2:
  629. '<<$loverdesc[lover_number]>> comes up to you, and with a quick squeeze on the ass, kisses you on the lips and says, "Now this is a bombshell."'
  630. end
  631. act 'Continue':
  632. minut += 40
  633. cla
  634. 'After getting the tattoos, you both part ways and head home.'
  635. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  636. loverscompliance[lover_number] += 1
  637. minut += 20
  638. act 'Continue': dynamic $go_home
  639. exit
  640. end
  641. end
  642. end
  643. end
  644. elseif tattCount > tattPrefTmpMax:
  645. 'You need to get rid of some tattoos, it would make you look so much better!'
  646. '<<$tXec>> heads over to the counter and starts talks to the tattoo artist.'
  647. 'You see <<$tXem>> hand the artist some money and the artist starts to walk up towards you.'
  648. '"Your <<$tBoyGirlfriend>> says you want to get rid of some tattoos?", the artist asks.'
  649. act 'Quietly nod':
  650. cla
  651. 'You know you can''t pull out now, so you meekly nod.'
  652. 'The man shrugs and says "Head over to the chair over there okay?"'
  653. act 'Head over to the chair':
  654. cls
  655. 'As you sit down you see the man come over with the various needles and lasers he needs to do his job.'
  656. 'He sees you are a little bit concerned about the laser and laughs, "Don''t worry ma ''am, it will be all over before you know it!"'
  657. 'He takes he turns on the mini laser and proceeds with his job.'
  658. randchan = rand(0, 16)
  659. if randchan = 0 and tatarm > 0:
  660. if tattCount > tattPrefTmpMax:
  661. tatarm = 0
  662. tattCount -= 1
  663. 'He removes the tattoo on your arm.'
  664. end
  665. elseif randchan = 1 and tatass > 0:
  666. if tattCount > tattPrefTmpMax:
  667. tatass = 0
  668. tattCount -= 1
  669. 'He removes the tattoo on your ass.'
  670. end
  671. elseif randchan = 2 and tatback > 0:
  672. if tattCount > tattPrefTmpMax:
  673. tatback = 0
  674. tattCount -= 1
  675. 'He removes the tattoo on your back.'
  676. end
  677. elseif randchan = 3 and tatblly > 0:
  678. if tattCount > tattPrefTmpMax:
  679. tatblly = 0
  680. tattCount -= 1
  681. 'He removes the tattoo on your belly.'
  682. end
  683. elseif randchan = 4 and tatbrst > 0:
  684. if tattCount > tattPrefTmpMax:
  685. tatbrst = 0
  686. tattCount -= 1
  687. 'He removes the tattoo on your breasts.'
  688. end
  689. elseif randchan = 5 and tatchst > 0:
  690. if tattCount > tattPrefTmpMax:
  691. tatchst = 0
  692. tattCount -= 1
  693. 'He removes the tattoo on your chest.'
  694. end
  695. elseif randchan = 6 and tatfce > 0:
  696. if tattCount > tattPrefTmpMax:
  697. tatfce = 0
  698. tattCount -= 1
  699. 'He removes the tattoo on your face.'
  700. end
  701. elseif randchan = 7 and tatankle > 0:
  702. if tattCount > tattPrefTmpMax:
  703. tatankle = 0
  704. tattCount -= 1
  705. 'He removes the tattoo on your ankles.'
  706. end
  707. elseif randchan = 8 and tatleg > 0:
  708. if tattCount > tattPrefTmpMax:
  709. tatleg = 0
  710. tattCount -= 1
  711. 'He removes the tattoo on your legs.'
  712. end
  713. elseif randchan = 9 and tatlip > 0:
  714. if tattCount > tattPrefTmpMax:
  715. tatlip = 0
  716. tattCount -= 1
  717. 'He removes the tattoo on your bottom lip.'
  718. end
  719. elseif randchan = 10 and tatneck > 0:
  720. if tattCount > tattPrefTmpMax:
  721. tatneck = 0
  722. tattCount -= 1
  723. 'He removes the tattoo on your neck.'
  724. end
  725. elseif randchan = 11 and tatvag > 0:
  726. if tattCount > tattPrefTmpMax:
  727. tatvag = 0
  728. tattCount -= 1
  729. 'He removes the tattoo above your cunt.'
  730. end
  731. elseif randchan = 12 and tatlech > 0:
  732. if tattCount > tattPrefTmpMax:
  733. tatlech = 0
  734. tattCount -= 1
  735. 'He removes the tattoo on your shoulder.'
  736. end
  737. elseif randchan = 13 and tatside > 0:
  738. if tattCount > tattPrefTmpMax:
  739. tatside = 0
  740. tattCount -= 1
  741. 'He removes the tattoo on your sides.'
  742. end
  743. elseif randchan = 14 and tatupb > 0:
  744. if tattCount > tattPrefTmpMax:
  745. tatupb = 0
  746. tattCount -= 1
  747. 'He removes your tramp stamp.'
  748. end
  749. elseif randchan = 15 and tatunder > 0:
  750. if tattCount > tattPrefTmpMax:
  751. tatunder = 0
  752. tattCount -= 1
  753. 'He removes the tattoo under your breasts.'
  754. end
  755. elseif randchan = 16 and tatwrist > 0:
  756. if tattCount > tattPrefTmpMax:
  757. tatwrist = 0
  758. tattCount -= 1
  759. 'He removes the tattoo on your wrists.'
  760. end
  761. end
  762. gs'stat'
  763. '"All done!", the artist says as he starts to clean up his various tools."'
  764. '"Me myself, I like a girl with a lot of tattoos, but to each their own." he tells you.'
  765. 'You are reluctant to admit it, but taking away tattoos does make your skin look much cleaner, and makes people focus more on the figure, and not just the art on it.'
  766. act 'Go back towards your <<$tBoyGirlfriend>>':
  767. cla
  768. 'As you go back towards <<$tXem>>, <<$tXe>> looks you up and down.'
  769. '"There we go!", <<$tXe>> says with a smile.'
  770. if tattPrefTmp = 1:
  771. 'You can tell <<$tXe>> hates girls with tattoos and likes them to have as few as possible. You can''t help but agree in some aspect, it does make your body look a bit sexier.'
  772. elseif tattPrefTmp = 2:
  773. 'You can tell that though <<$loverdesc[lover_number]>> likes a girl to have some tattoos, <<$tXe>> doesn''t want them to be the focus on a girl. You can''t help but agree that there is a thing as too many tattoos.'
  774. end
  775. if haraklover[lover_number] = 0:
  776. 'You can see <<$tXe>> loves how many tattoos you have, as <<$tXe>> has a slight blush on <<$tXyr>> face.'
  777. elseif haraklover[lover_number] = 1:
  778. '<<$loverdesc[lover_number]>> gives you one last examination with <<$tXyr>> eyes and gives you a quick kiss on your cheek.'
  779. elseif haraklover[lover_number] = 2:
  780. '<<$loverdesc[lover_number]>> comes up to you, and with a quick squeeze on the ass, kisses you on the lips and says, "Now this is a bombshell."'
  781. end
  782. act 'Continue':
  783. minut += 40
  784. cla
  785. 'After getting rid of the tattoos, you both part ways and head home.'
  786. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  787. loverscompliance[lover_number] += 1
  788. minut += 20
  789. act 'Continue': dynamic $go_home
  790. exit
  791. end
  792. end
  793. end
  794. end
  795. end
  796. end
  797. end
  798. if $ARGS[0] = 'Lips':
  799. act 'Enter clinic':
  800. cla
  801. 'As you arrive at the clinic, <<$loverdesc[lover_number]>> walks up to the front desc and asks to speak with the plastic surgeon. After a couple of minutes the plastic surgeon comes out with a clipboard.'
  802. '<<$loverdesc[lover_number]>> talks to the surgeon and after a brief exchange of words, <<$tXe>> hands the surgeon a respectable stack of bills. The surgeon discreetly puts the bills into his jacket and starts to walk toward you.'
  803. 'Even though you don''t know what <<$loverdesc[lover_number]>> said to the surgeon, you still jump when he starts to speak to you.'
  804. if pcs_lip < lipsPrefTmpMin:
  805. '"So that <<$loverGenderName>> over there says you want to get lip enhancements?", the doctor asks quizically, looking at the size of your lips.'
  806. else
  807. '"So that <<$loverGenderName>> over there says you want to get a lip reduction?", the doctor asks quizically, looking at the size of your lips.'
  808. end
  809. '"Y-yes.", you manage to squeek out, your face turning slightly red at the topic of the conversation.'
  810. '"All right, lets get started right away", he says as he looks at his clipboard.'
  811. act 'Go with doctor to operating room':
  812. cls
  813. 'The doctor motions for you to sit on the operating table, and you reluctantly comply.'
  814. '"Don''t worry it will just be a quick injection and we will be done, its perfectly safe.", the doctor says.'
  815. 'As you try to get confortable on the table the doctor comes up to you with the injection.'
  816. '"Okay now if you can pucker out your lips it will give me a nice surface for the shot.", he says holding your face gently.'
  817. act 'Pucker out lips':
  818. cla
  819. '"And... Done. There we go! You should feel the effects almost immediately."'
  820. 'He holds up a mirror and you look at your changed lips.'
  821. if pcs_lip < lipsPrefTmpMin:
  822. minut += 20
  823. pcs_lip = lipsPrefTmpMin + 1
  824. gs 'stat'
  825. 'Your lips have grown! They are whorishly huge!'
  826. 'You look at the doctor and he shrugs, "You look much nicer with huge lips in my opinion."'
  827. else
  828. minut += 20
  829. pcs_lip = lipsPrefTmpMax - 1
  830. 'Your lips have shrunk! They look much more modest now.'
  831. 'You look at the doctor and he shrugs, "You look much nicer with more modest lips in my opinion."'
  832. end
  833. 'You stand up and leave the room.'
  834. act 'Go back towards your <<$tBoyGirlfriend>>':
  835. cla
  836. 'As you go back towards <<$tXem>>, <<$tXe>> looks you up and down.'
  837. '"There we go!", <<$tXe>> says with a smile.'
  838. if lipsPrefTmp = 1:
  839. 'You can tell <<$tXe>> loves girls with more modest yet full lips, and you have to admit, its better then having big whorish, cocksucking lips.'
  840. elseif lipsPrefTmp = 2:
  841. 'You can tell that <<$loverdesc[lover_number]>> likes a girl to have whorish, cocksucking lips, and as you give the mirror in the room a quick slutty face, you have to admit it does make you look sexier.'
  842. end
  843. if haraklover[lover_number] = 0:
  844. 'You can see <<$tXe>> loves the size of your lips, for even with all of <<$tXyr>> shyness, <<$tXe>> still gives you a kiss on your new lips.'
  845. elseif haraklover[lover_number] = 1:
  846. '<<$loverdesc[lover_number]>> gives you one last examination of your new lips before giving you a kiss on the lips, probably to test the new wares.'
  847. elseif haraklover[lover_number] = 2:
  848. '<<$loverdesc[lover_number]>> comes up to you, and with a quick squeeze on the ass, kisses you on your new lips and says, "Now those lips are the lips of a goddess."'
  849. end
  850. act 'Continue':
  851. cla
  852. 'After improving your lips, you both part ways and head home.'
  853. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  854. loverscompliance[lover_number] += 1
  855. minut += 20
  856. act 'Continue': dynamic $go_home
  857. exit
  858. end
  859. end
  860. end
  861. end
  862. end
  863. end
  864. if $ARGS[0] = 'Tits':
  865. act 'Enter clinic':
  866. cla
  867. 'As you arrive at the clinic, <<$loverdesc[lover_number]>> walks up to the front desc and asks to speak with the plastic surgeon. After a couple of minutes the plastic surgeon comes out with a clipboard.'
  868. '<<$loverdesc[lover_number]>> talks to the surgeon and after a brief exchange of words, <<$tXe>> hands the surgeon a respectable stack of bills. The surgeon discreetly puts the bills into his jacket and starts to walk toward you.'
  869. if tits < titMin:
  870. 'Even though you don''t know what <<$loverdesc[lover_number]>> said to the surgeon, you still jump when he starts to speak to you.'
  871. '"So that <<$loverGenderName>> over there says you want to get breast implants?", the doctor asks quizically, looking you up and down.'
  872. '"Y-yes.", you manage to squeek out, your face turning slightly red at the topic of the conversation.'
  873. '"All right, lets get started right away, let me see what size <<$tXe>> got for you...", he says as he looks at his clipboard.'
  874. titAmount = (titMin - tits) * 5 + 9
  875. if titAmount <= 10:
  876. '"It seems you will be getting our smallest breast implants."'
  877. 'As you hear this you relax a bit. At least it''s not a big difference.'
  878. elseif titAmount <= 15:
  879. '"It seems you will be getting small breast implants." '
  880. 'As you hear this you shift nervously. At least it''s not going to be that big of a change.'
  881. elseif titAmount <= 20:
  882. '"It seems you will be getting medium breast implants."'
  883. 'Your heart skips a beat, "Those are kind of big.", you think to yourself.'
  884. elseif titAmount <= 25:
  885. '"It seems you will be getting large breast implants."'
  886. 'Your heart skips a beat, What? "Those will be huge...", you tell to yourself.'
  887. elseif titAmount <= 30:
  888. '"It seems you will be getting our largest, the XLarge breast implants." '
  889. 'What?! You are about to get up and leave, but you realize that its to late for that now. "God, those will be MASSIVE", you think to yourself.'
  890. else
  891. 'This should not shoot off, if you go from 10 to 35 it should fall into preference still.'
  892. end
  893. '"If you would follow me, I will take you to the operating room.", the doctor says indifferently.'
  894. act 'Go with doctor to operating room':
  895. cls
  896. 'The doctor motions for you to lay on the operating table, and you reluctantly comply.'
  897. '"Now this is going to take about 2 hours for us to do the procedure, but do not worry, the procedure is safe, I have done this dozens of times." the doctor says.'
  898. 'As you try to get confortable on the table the doctor comes up to you with the anesthesia.'
  899. '"Okay before I continue I want you to take a deep breath okay?", he says.'
  900. act 'Take a deep breath':
  901. cla
  902. 'You take a deep breath of the sleeping gas, and soon the room starts to spin and your mind starts to fog, then everything goes dark...'
  903. *nl
  904. *nl
  905. *nl
  906. act 'Wake up':
  907. cla
  908. minut += 120
  909. silicone += titAmount
  910. gs 'stat'
  911. '"<<$pcs_firstname>> <<$pcs_lastname>>, are you listening?"'
  912. ' ''Wait... I''m awake?'' It seemed just a couple of seconds ago you were laying down on the operating table about to have surgery.'
  913. ' ''My breasts feel fuller...'' '
  914. 'You grab your breasts as you look down, and you see you have a bigger breasts! Your breasts are now <<$titsize>>s.'
  915. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
  916. 'You aren''t paying attention to the doctor as he finishes up, and you slowly get off the operating table and head over to your <<$tBoyGirlfriend>>.'
  917. act 'Head over to your <<$tBoyGirlfriend>>':
  918. cla
  919. 'As you go back towards <<$tXem>>, <<$tXe>> looks you up and down.'
  920. '"There we go!", <<$tXe>> says with a smile.'
  921. if titBoy = 0:
  922. 'If you are getting inplants this should not fire off.'
  923. elseif titBoy = 1:
  924. 'You can tell that <<$loverdesc[lover_number]>> likes a girl with a good rack, thankfully although you look more like a bimbo then before, <<$tXyr>> tit preference is not outragously big, and you must admit, it does make you look sexier.'
  925. elseif titBoy = 2:
  926. 'You can clearly tell <<$loverdesc[lover_number]>> loves a girl with bimbo-sized tits, as you hold your tits you look at yourself in the mirror. The girl staring back at you looks like a bimbo that doesn''t know where to put her whorish tits. And you have to admit, it does turn you on a little.'
  927. end
  928. if haraklover[lover_number] = 0:
  929. 'From the blush on <<$tXyr>> face, you can tell <<$loverdesc[lover_number]>> loves your new breasts.'
  930. elseif haraklover[lover_number] = 1:
  931. '<<$loverdesc[lover_number]>> gives you one last look and gives you a quick kiss on your cheek.'
  932. elseif haraklover[lover_number] = 2:
  933. '<<$loverdesc[lover_number]>> comes up to you, and with a quick slap on the ass, kisses you on the lips and says, "Now you look like a bombshell!"'
  934. end
  935. act 'Continue':
  936. minut += 40
  937. cla
  938. 'After getting your new breasts, you both part ways and head home.'
  939. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  940. loverscompliance[lover_number] += 1
  941. minut += 20
  942. act 'Continue': dynamic $go_home
  943. end
  944. exit
  945. end
  946. end
  947. end
  948. end
  949. elseif tits > titMax:
  950. 'Even though you don''t know what <<$loverdesc[lover_number]>> said to the surgeon, you still jump when he starts to speak to you.'
  951. '"So that <<$loverGenderName>> over there says you want to get breast implants?", the doctor asks quizically, looking you up and down.'
  952. '"Y-yes.", you manage to squeek out, your face turning slightly red at the topic of the conversation.'
  953. '"All right, lets get started right away, <<$tXe>> had a set size <<$tXe>> wanted so we will be doing that.", he says as he looks at his clipboard.'
  954. titAmount = (tits - titMax) * 5 + 9
  955. '"If you would follow me, I will take you to the operating room.", the doctor says indifferently.'
  956. act 'Go with doctor to operating room':
  957. cls
  958. 'The doctor motions for you to lay on the operating table, and you reluctantly comply.'
  959. '"Now this is going to take about 2 hours for us to do the procedure, but do not worry, the procedure is safe, I have done this dozens of times." the doctor says.'
  960. 'As you try to get confortable on the table the doctor comes up to you with the anesthesia.'
  961. '"Okay before I continue I want you to take a deep breath okay?", he says.'
  962. act 'Take a deep breath':
  963. cla
  964. 'You take a deep breath of the sleeping gas, and soon the room starts to spin and your mind starts to fog, then everything goes dark...'
  965. *nl
  966. *nl
  967. *nl
  968. act 'Wake up':
  969. cla
  970. minut += 120
  971. if silicone - titAmount < 0:
  972. titExtra = titAmount - silicone
  973. silicone = 0
  974. nbsize -= titExtra
  975. else
  976. silicone -= titAmount
  977. end
  978. gs 'stat'
  979. '"<<$pcs_firstname>> <<$pcs_lastname>>, are you listening?"'
  980. ' ''Wait... I''m awake?'' It seemed just a couple of seconds ago you were laying down on the operating table about to have surgery.'
  981. ' ''My breasts feel lighter...'' '
  982. 'You grab your breasts as you look down, and you realize you have much smaller breasts! Your breasts are now <<$titsize>>s.'
  983. '<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
  984. 'You aren''t paying attention to the doctor as he finishes up, and you slowly get off the operating table and head over to your <<$tBoyGirlfriend>>.'
  985. act 'Head over to your <<$tBoyGirlfriend>>':
  986. cla
  987. 'As you go back towards <<$tXem>>, <<$tXe>> looks you up and down.'
  988. '"There we go!", <<$tXe>> says with a smile.'
  989. if titBoy = 0:
  990. 'You can tell that <<$loverdesc[lover_number]>> likes a girl without whorish tits, and you can kind of see why as you slowly grope your now tinier breasts.'
  991. elseif titBoy = 1:
  992. 'You can tell that <<$loverdesc[lover_number]>> likes a girl with a good rack, but thankfully not to big, and you admittadly agree with <<$tXem>>, as you slowly massage your breasts.'
  993. elseif titBoy = 2:
  994. 'Reducing to max? What?'
  995. end
  996. if haraklover[lover_number] = 0:
  997. 'From the blush on <<$tXyr>> face, you can tell <<$loverdesc[lover_number]>> loves your new breasts.'
  998. elseif haraklover[lover_number] = 1:
  999. '<<$loverdesc[lover_number]>> gives you one last look and gives you a quick kiss on your cheek.'
  1000. elseif haraklover[lover_number] = 2:
  1001. '<<$loverdesc[lover_number]>> comes up to you, and with a quick slap on the ass, kisses you on the lips and says, "Now you look like a bombshell!"'
  1002. end
  1003. act 'Continue':
  1004. minut += 40
  1005. cla
  1006. 'After getting your new breasts, you both part ways and head home.'
  1007. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  1008. loverscompliance[lover_number] += 1
  1009. minut += 20
  1010. act 'Continue': dynamic $go_home
  1011. end
  1012. exit
  1013. end
  1014. end
  1015. end
  1016. end
  1017. end
  1018. end
  1019. end
  1020. !!This is a interesting one as it will take in a couple of things, not just clothes preferences. I need to find clothing pictures for most of the types of clothes. Think of these as quest clothes.
  1021. if $ARGS[0] = 'Clothes':
  1022. !! void code - need future work
  1023. !! act 'Enter Clothing Shop':
  1024. !! cla
  1025. !! if
  1026. !! end
  1027. end
  1028. !! This should not increase the weight at all, and should only have been called if they weigh over the figurePrefMax
  1029. if $ARGS[0] = 'Figure':
  1030. act 'Enter clinic':
  1031. cla
  1032. 'As you arrive at the clinic, <<$loverdesc[lover_number]>> walks up to the front desc and asks to speak with the plastic surgeon. After a couple of minutes the plastic surgeon comes out with a clipboard.'
  1033. '<<$loverdesc[lover_number]>> talks to the surgeon and after a brief exchange of words, <<$tXe>> hands the surgeon a respectable stack of bills. The surgeon discreetly puts the bills into his jacket and starts to walk toward you.'
  1034. 'Even though you don''t know what <<$loverdesc[lover_number]>> said to the surgeon, you still jump when he starts to speak to you.'
  1035. '"So you want to get a lyposuction procedure done, is that right?", the doctor asks you.'
  1036. act 'Meekly nod':
  1037. cla
  1038. 'You know you can''t back out now. "Y-yes.", you manage to squeek out, your face turning slightly red at the topic of the conversation.'
  1039. '"All right, lets get started right away, if you can follow me into the operating room.'
  1040. act 'Go with doctor to operating room':
  1041. cls
  1042. 'The doctor motions for you to lay on the operating table, and you reluctantly comply.'
  1043. '"Now this is going to take about 2 hours for us to do the procedure, but do not worry, the procedure is safe, I have done this dozens of times." the doctor says.'
  1044. 'As you try to get confortable on the table the doctor comes up to you with the anesthesia.'
  1045. '"Okay before I continue I want you to take a deep breath okay?", he says.'
  1046. act 'Take a deep breath':
  1047. cla
  1048. 'You take a deep breath of the sleeping gas, and soon the room starts to spin and your mind starts to fog, then everything goes dark...'
  1049. *nl
  1050. *nl
  1051. *nl
  1052. !!'<<salocatnow>> is the value for salocatnow, the value for fat is <<fat>>, and the value for salo is <<salo>>.'
  1053. act 'Wake up':
  1054. cla
  1055. minut += 120
  1056. if figurlover[lover_number] ! 3:
  1057. :loopfatRemover
  1058. salo = 20 * figurePrefMin + 1
  1059. if salo < 11: salo = 11
  1060. gs 'body_shape', 'softreset'
  1061. !!'<<salocatnow>> is the value for salocatnow, the value for fat is <<fat>>, and the value for salo is <<salo>>.'
  1062. if salocatnow > figurePrefMax:jump 'loopfatRemover'
  1063. else
  1064. 'This should not fire, I made it so that you can''t ADD weight.'
  1065. end
  1066. gs 'stat'
  1067. !!'The stat for salocatnow is <<salocatnow>> and the stat for figurePrefMax is <<figurPrefMax>>.'
  1068. '"<<$pcs_firstname>> <<$pcs_lastname>>, are you listening?"'
  1069. ' ''Wait... I''m awake?'' It seemed just a couple of seconds ago you were laying down on the operating table about to have surgery.'
  1070. 'You aren''t paying attention to the doctor as he finishes up, and you slowly get off the operating table and head over to your <<$tBoyGirlfriend>>.'
  1071. act 'Head over to your <<$tBoyGirlfriend>>':
  1072. cls
  1073. 'As you go back towards <<$tXem>>, <<$tXe>> looks you up and down.'
  1074. '"There we go!", <<$tXe>> says with a smile.'
  1075. gs 'obj_din', 'body'
  1076. if figurlover[lover_number] = 0:
  1077. 'You can tell that <<$loverdesc[lover_number]>> likes a girl that has very little fat on her whorish tits, and you can kind of see why as you slowly look at yourself in the mirror.'
  1078. elseif figurBoy = 1:
  1079. 'You can tell that <<$loverdesc[lover_number]>> likes a girl thats not too fat, but thankfully not too skinny, and you admittadly agree with <<$tXem>>, as you slowly run your hands over your now smaller curves.'
  1080. elseif figurBoy = 2:
  1081. 'Reducing to max? What?'
  1082. end
  1083. if haraklover[lover_number] = 0:
  1084. 'From the blush on <<$tXyr>> face, you can tell <<$loverdesc[lover_number]>> loves your new figure.'
  1085. elseif haraklover[lover_number] = 1:
  1086. '<<$loverdesc[lover_number]>> gives your figure one last look and gives you a quick kiss on your cheek.'
  1087. elseif haraklover[lover_number] = 2:
  1088. '<<$loverdesc[lover_number]>> comes up to you, and with a quick slap on the ass, kisses you on the lips and says, "Now you have the body of a bombshell!"'
  1089. end
  1090. act 'Continue':
  1091. cla
  1092. 'After getting a lyposuction treatment, you both part ways and head home.'
  1093. 'You can''t say why, but you feel it would be harder to say no next time if <<$tXe>> asked you to change something.'
  1094. loverscompliance[lover_number] += 1
  1095. minut += 20
  1096. act 'Continue': dynamic $go_home
  1097. end
  1098. exit
  1099. end
  1100. end
  1101. end
  1102. end
  1103. end
  1104. end
  1105. end
  1106. --- lover_change ---------------------------------