din_bad 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886
  1. # din_bad
  2. $mobile_check = {
  3. gs 'stat'
  4. if vladimirday ! daystart and hour >= 15 and hour <= 17:
  5. if vladimirQW = 20:
  6. '<b><font color="red">Your phone is ringing</font></b>'
  7. $caller = 'Vladimir'
  8. $callerid = 'images/characters/city/vladimir/001.jpg'
  9. gs 'telefon','phone_ring'
  10. pl'<center><a href="exec:gt ''qwloc'',''2''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  11. elseif vladimirQW = 25 and week = 6:
  12. '<b><font color="red">Your phone is ringing</font></b>'
  13. $caller = 'Vladimir'
  14. $callerid = 'images/characters/city/vladimir/001.jpg'
  15. gs 'telefon','phone_ring'
  16. pl'<center><a href="exec:gt ''qwloc'',''3''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  17. elseif vladimirQW = 35 and week = 6:
  18. '<b><font color="red">Your phone is ringing</font></b>'
  19. $caller = 'Vladimir'
  20. $callerid = 'images/characters/city/vladimir/001.jpg'
  21. gs 'telefon','phone_ring'
  22. pl'<center><a href="exec:gt ''qwloc'',''4''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  23. end
  24. end
  25. if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0:
  26. '<b><font color="red">Your phone is ringing</font></b>'
  27. $caller = 'Leonid Vostov'
  28. $callerid = 'images/characters/pavlovsk/resident/leonid/leonidphone.jpg'
  29. gs 'telefon','phone_ring'
  30. pl'<center><a href="exec:gt ''leonid'', ''call''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:leonidSlaveDay = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  31. end
  32. if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12:
  33. '<b><font color="red">Your phone is ringing</font></b>'
  34. $caller = 'Margaret'
  35. $callerid = ''
  36. gs 'telefon','phone_ring'
  37. pl''
  38. pl''
  39. pl''
  40. pl''
  41. pl''
  42. pl''
  43. pl''
  44. pl''
  45. pl''
  46. pl''
  47. pl'<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:qwdogiventday = daystart & gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  48. end
  49. !! iterating all lovers
  50. lover_number = 0
  51. :loverloop
  52. if pcs_lovers[lover_number] = 1 and loverday[lover_number] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) > 5:
  53. if pcs_apprnc < vneshlover[lover_number]:
  54. loverrelation[lover_number] -= 1
  55. if loverrelation[lover_number] = 0:
  56. '<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
  57. else
  58. 'Your boyfriend <<$loverdesc[lover_number]>> has not called you.'
  59. end
  60. else
  61. ring = 1
  62. ringA = 1
  63. '<b><font color="red">Your phone is ringing</font></b>'
  64. PLAY 'sound/old_phone.mp3',30
  65. $caller = '<<$loverdesc[lover_number]>>'
  66. $callerid = 'images/characters/shared/'+lover_picture[lover_number]+'.jpg'
  67. gs 'telefon','phone_ring'
  68. pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a> <a href="exec:gt $loc, $metka"><img src="images/system/phone/decline.png"></a></center>'
  69. end
  70. end
  71. lover_number += 1
  72. if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
  73. killvar 'lover_number'
  74. }
  75. $d_salf = {
  76. clr
  77. if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 12 & gs ''cum_cleanup'' & cumspclnt = 9 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe your face and hands</b></a>'
  78. if cumloc[14] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your belly</b></a>'
  79. if cumloc[15] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your breasts</b></a>'
  80. if cumloc[1] > 0 or cumloc[4] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 15 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your ass and pussy</b></a>'
  81. if cumloc[10] > 0 or cumloc[9] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 17 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your arms and legs</b></a>'
  82. if cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 6 & gs ''cum_cleanup'' & gs ''stat''"><b>Clean up clothing</b></a>'
  83. if pcs_makeup ! 1:pl '<a href="exec:salfetka -= 1 & pcs_makeup = 1 & gs ''stat''"><b>Wipe cosmetics</b></a>'
  84. pl '<a href="exec:gs ''stat''"><br><b>Not using tissue</b></a>'
  85. }
  86. $d_kosmetitka = {
  87. clr
  88. pl '<a href="exec:gs ''stat''"><b>Close makeup bag</b></a>'
  89. if kosmetitka >= 1:pl '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 2 & kosmetitka -= 1 & gs ''stat''"><b>Light make-up</b></a>'
  90. if kosmetitka >= 2:pl '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 3 & kosmetitka -= 2 & gs ''stat''"><b>Natural make-up</b></a>'
  91. if kosmetitka >= 3:pl '<a href="exec:makupskl_exp += rand(1,3) & pcs_makeup = 4 & kosmetitka -= 3 & gs ''stat''"><b>Heavy make-up</b></a>'
  92. }
  93. $d_mouthwash = {
  94. clr
  95. pcs_breath = 1
  96. cumspclnt = 2
  97. gs 'cum_cleanup'
  98. mouthwash -= 1
  99. pl 'Your breath smells minty fresh'
  100. pl ''
  101. pl '<a href="exec:gs ''stat''"><b>Done</b></a>'
  102. }
  103. $d_bag = {
  104. clr
  105. pl '<center><img src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>" height="300"></center>'
  106. if salfetka > 0:pl 'You have <<salfetka>> wet wipes. <a href="exec:dynamic $d_salf"><b>Use tissue</b></a>'
  107. if pain_timer > totminut - 242 and painkiller > 0:pl 'You could take a <a href="exec:pain[''killer''] = 1 & painkiller -= 1 & pain_timer = totminut & dynamic $d_bag">painkiller</a>. Painkillers left <<painkiller>>.'
  108. if kosmetitka > 0 and pcs_makeup = 1:pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>. <a href="exec:dynamic $d_kosmetitka"><b>Put on makeup</b></a>'
  109. if kosmetitka > 0 and pcs_makeup ! 1:pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>.'
  110. if mouthwash > 0 and pcs_breath = 0:pl 'You have mouthwash in your bag. Uses remaining: <<mouthwash>>. <a href="exec:dynamic $d_mouthwash"><b>Use mouthwash</b></a>'
  111. if mouthwash > 0 and pcs_breath = 1:pl 'You have mouthwash in your bag. Uses remaining: <<mouthwash>>.'
  112. if greben > 0 and pcs_hairbsh = 0:pl 'You have a hairbrush. <a href="exec:pcs_hairbsh = 1 & gs ''stat''"><b>Brush your hair</b></a>'
  113. if greben > 0 and pcs_hairbsh = 1:pl 'You have a hairbrush.'
  114. if prezik + prezikcount + preziksabo > 0:
  115. if preziktype = 2 or preziksabo > 0:
  116. P 'You have <<iif(preziktype = 2, prezikcount, prezikcount+prezik)>> normal, and <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms.</b></a>'
  117. elseif preziktype < 2 and preziksabo = 0:
  118. P 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms.</b></a>'
  119. END
  120. NL
  121. else
  122. pl 'You are out of condoms.'
  123. end
  124. if amphetamine > 0 :
  125. pl 'You have <<amphetamine>> tablets of amphetamine left. <b><a href="exec:dynamic $use_amphetamines & dynamic $d_bag">Take One</a></b>'
  126. end
  127. if tabletki > 0 and pillsleft[ptype] > 0:
  128. pl 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a> and <<pillsleft[ptype]>> pills left in your opened package.</b>'
  129. elseif tabletki = 0 and pillsleft[ptype] > 0:
  130. pl 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left.</b>'
  131. elseif tabletki > 0 and pillsleft[ptype] = 0:
  132. pl 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a>.'
  133. else
  134. pl 'You are out of birth control pills.'
  135. end
  136. if mentats_have > 0:
  137. pl'<a href="exec:dynamic $use_mentats & dynamic $d_bag"><b>Take neurobooster pill.</b></a> Uses left: <<mentats_have>>. Warning on the box says not to take more than one per day.'
  138. end
  139. if steroid_have > 0:
  140. pl'<a href="exec:dynamic $use_steroids & dynamic $d_bag"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  141. end
  142. if bcream_have > 0:
  143. pl'<a href="exec:dynamic $use_bcream & dynamic $d_bag"><b>Apply breast cream.</b></a> Uses left: <<bcream_have>>.'
  144. end
  145. if aphrodisiac_have > 0:
  146. pl'<a href="exec:dynamic $use_aphrodisiac & dynamic $d_bag"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  147. end
  148. if lubri > 0:pl'You have a tube of lubricant - enough for <<lubri>> applications.'
  149. if bottle > 0:pl 'You have a bottle of water. <a href="exec:bottle = 0 & water = 100 & cumspclnt = 2 & gs ''cum_cleanup'' & gs ''stat''"><b>Drink</b></a>'
  150. if buterbrod > 0:pl 'You have a sandwich. <a href="exec:buterbrod = 0 & pcs_energy += 20 & cumspclnt = 2 & gs ''cum_cleanup'' & fat += 1 & gs ''stat''"><b>Eat</b></a>'
  151. if wine = 1 and alkowine = 0:pl'Your purse contains a bottle of <a href="exec:dynamic $dinalkowin1">wine</a>'
  152. if wine = 1 and alkowine = 1:pl'Your purse contains a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a>'
  153. if foto = 1:pl'Your purse contains a strange photo'
  154. if pattest > 0:
  155. if pattest > 1:$tt = 's' else $tt = ''
  156. pl'You carry <<pattest>> unused paternity test<<$tt>> with you.'
  157. end
  158. if used_pattest > 0:
  159. if used_pattest > 1:$tt = 's' else $tt = ''
  160. pl'You carry <<used_pattest>> <a href="exec:dynamic $test_purse">unsent</a> paternity test<<$tt>> with you.'
  161. end
  162. pl'<br><center><a href="exec:gs''stat''"><img src="images/system/icon/back.png"></a></center>'
  163. killvar 'tt'
  164. }
  165. $dinalkowin1 = {
  166. alkowine = 1
  167. if water <= 90:
  168. water = 100
  169. else
  170. water += 10
  171. end
  172. if pcs_intel > 5 : intel_deg -= 1
  173. alko += 5
  174. cumspclnt = 2
  175. gs 'cum_cleanup'
  176. pcs_breath = 0
  177. gs'stat'
  178. view 'images/shared/food/alkowin.jpg'
  179. 'You take the bottle of wine out of your purse and slowly drink half of it.'
  180. }
  181. $dinalkowin2 = {
  182. alkowine = 0
  183. if water <= 90:
  184. water = 100
  185. else
  186. water += 10
  187. end
  188. wine = 0
  189. if pcs_intel > 5: intel_deg -= 1
  190. alko += 5
  191. cumspclnt = 2
  192. gs 'cum_cleanup'
  193. pcs_breath = 0
  194. gs'stat'
  195. view 'images/shared/food/alkowin.jpg'
  196. 'You take the remaining half bottle of wine out of your purse, slowly drink it then throw the empty bottle away.'
  197. }
  198. $din_Switch_Condom_Menu = {
  199. dynamic $din_Update_Condom_Counts
  200. clr
  201. i = 0
  202. pl 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal, <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms.'
  203. nl
  204. if preziktype > 0:
  205. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to Normal Condoms</a>.'
  206. end
  207. if preziktype ! 1:
  208. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using Condoms</a>.'
  209. end
  210. if preziktype ! 2:
  211. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to Sabotaged Condoms</a>.'
  212. end
  213. if prezikcount > 0 or preziktype = 0:
  214. pl '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  215. end
  216. NL
  217. PL '<a href="exec:gs ''stat''">Return</a>'
  218. }
  219. $din_Table_Condom_Menu = {
  220. dynamic $din_Update_Condom_Counts
  221. *clr
  222. i = 1
  223. 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal, <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms.'
  224. nl
  225. if preziktype > 0:
  226. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to Normal Condoms</a>.'
  227. end
  228. if preziktype ! 1:
  229. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using Condoms</a>.'
  230. end
  231. if preziktype ! 2:
  232. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to Sabotaged Condoms</a>.'
  233. end
  234. if prezikcount > 0 or preziktype = 0:
  235. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  236. end
  237. NL
  238. '<a href="exec:gt ''stol'', ''bc''">Return</a>'
  239. }
  240. $din_Do_Condom_Counts = {
  241. !{set condom count and type}
  242. if ARGS[0] = 1:
  243. clr
  244. 'You will offer a condom the next time you have sex.'
  245. if preziktype = 2: preziksabo = prezik
  246. prezik = prezikcount
  247. prezikcount = 0
  248. preziktype = 0
  249. elseif ARGS[0] = 2:
  250. 'You will not offer a condom the next time you have sex.'
  251. if preziktype = 0: prezikcount = prezik
  252. if preziktype = 2: preziksabo = prezik
  253. prezik = 0
  254. preziktype = 1
  255. elseif ARGS[0] = 3:
  256. 'You will offer your sabotaged condom the next time you have sex.'
  257. if preziktype = 0: prezikcount = prezik
  258. prezik = preziksabo
  259. preziksabo = 0
  260. preziktype = 2
  261. elseif ARGS[0] = 4:
  262. if preziktype ! 0 and prezikcount > 0:
  263. preziksabo +=1
  264. prezikcount -=1
  265. 'You use a needle to punch holes in one of your condoms.'
  266. elseif preziktype = 0 and prezik > 0:
  267. preziksabo +=1
  268. prezik -=1
  269. 'You use a needle to punch holes in one of your condoms.'
  270. else
  271. 'You do not have any condoms to sabotage.'
  272. end
  273. end
  274. if i = 0:
  275. dynamic $din_Switch_Condom_Menu
  276. else
  277. dynamic $din_Table_Condom_Menu
  278. end
  279. }
  280. $din_Update_Condom_Counts = {
  281. if prezik + prezikcount + preziksabo > 0: prezikmsg = 1
  282. if preziktype = 0:
  283. if prezikcount > 0:
  284. prezik += prezikcount
  285. prezikcount = 0
  286. end
  287. if prezik <= 0:
  288. 'You are out of condoms.'
  289. prezik = 0
  290. prezikcount = 0
  291. preziktype = 1
  292. end
  293. elseif preziktype = 1:
  294. if prezik > 0:
  295. prezikcount += prezik
  296. prezik = 0
  297. end
  298. elseif preziktype = 2:
  299. if preziksabo > 0:
  300. prezik += preziksabo
  301. preziksabo = 0
  302. end
  303. if prezik <= 0 and prezikcount <= 0:
  304. if prezikmsg = 1:prezikmsg = 2
  305. prezik = 0
  306. preziksabo = 0
  307. prezikcount = 0
  308. preziktype = 1
  309. elseif prezik <= 0 and prezikcount > 0:
  310. 'You have run out of sabotaged condoms so will use normal condoms.'
  311. prezik = prezikcount
  312. prezikcount = 0
  313. preziktype = 0
  314. end
  315. end
  316. }
  317. $d_tabletkied = {
  318. clr
  319. tabloc = 0
  320. if tabletkiday < daystart: pl '<a href="exec:dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  321. if tabletkicheck = 0:
  322. pl '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  323. elseif tabletkicheck = 1:
  324. pl '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  325. end
  326. pl '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  327. if tabletkioddk = 1: pl '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  328. PL '<a href="exec:gs ''stat''">Return</a>'
  329. }
  330. $d_tabletkiedt = {
  331. tabloc = 1
  332. if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  333. if tabletkicheck = 0:
  334. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  335. elseif tabletkicheck = 1:
  336. '<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  337. end
  338. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  339. if tabletkioddk = 1: pl '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  340. '<a href="exec:gt ''stol'', ''bc''">Return</a>'
  341. }
  342. $d_tabletkiedA = {
  343. if ARGS[0] = 1:
  344. tabletkipd += tabletkipt
  345. if tabletkiday ! daystart:
  346. gs 'din_bad','takepill'
  347. tabletkiday = daystart
  348. tabletkipt = 0
  349. tabletkipi = 0
  350. else
  351. pcs_health -= 1
  352. end
  353. pilldaychk = 1
  354. 'You take a birth control pill.'
  355. gs 'stat'
  356. elseif ARGS[0] = 2:
  357. 'You will do your best to remember to take your birth control pills every day.'
  358. tabletkicheck = 1
  359. gs 'stat'
  360. elseif ARGS[0] = 3:
  361. 'You will take your birth control pills as desired.'
  362. tabletkicheck = 0
  363. gs 'stat'
  364. elseif ARGS[0] = 4:
  365. if pcs_intel + pillsdays <= rand(30,95):
  366. 'These pills appear to be normal birth control pills.'
  367. tabletkioddk = 0
  368. gs 'stat'
  369. else
  370. if ptype = 0: $pillprob = 'nothing unusual about them.'
  371. if ptype = 1: $pillprob = 'that the pills have expired months ago.'
  372. if ptype = 2: $pillprob = 'that the label has spelling mistakes and the logo is backwards.'
  373. if ptype = 3: $pillprob = 'that the pills are discoloured and there is no expiry date.'
  374. if ptype = 4: $pillprob = 'that the pills are all the same colour.'
  375. if ptype = 5: $pillprob = 'that the pills seem to be smaller than normal.'
  376. 'Upon taking a closer look at your birth control pills, you notice <<$pillprob>>'
  377. if ptype > 0: tabletkioddk = 1
  378. gs 'stat'
  379. if tabloc = 0:
  380. dynamic $d_tabletkied
  381. else
  382. dynamic $d_tabletkiedt
  383. end
  384. end
  385. elseif ARGS[0] = 5:
  386. 'You get rid of the strange pills.'
  387. tabletkioddk = 0
  388. pillsleft[ptype] = 0
  389. tabletkioddp = 0
  390. gs 'stat'
  391. end
  392. if tabloc = 0:
  393. dynamic $d_tabletkied
  394. else
  395. dynamic $d_tabletkiedt
  396. end
  397. }
  398. $d_cycreport_choice = {
  399. clr
  400. dynamic $d_cycreport_update
  401. PL 'Current Status: <<$cycreport_txt>>.'
  402. if $cycreport_txt ! 'In labour':
  403. NL
  404. PL 'Change Status because:'
  405. if thinkpreg = 0:
  406. if knowpreg = 1:
  407. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I''m pregnant.</a>'
  408. else
  409. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I think I am Pregnant.</a>'
  410. end
  411. elseif thinkpreg = 1:
  412. PL '<a href="exec: dynamic $d_cycreport_actor, 1">I''m not Pregnant.</a>'
  413. end
  414. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  415. PL '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  416. elseif thinkpreg ! 1:
  417. PL '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  418. PL '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  419. end
  420. if thinkpreg = 1 or knowpreg = 1:
  421. PL '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  422. PL '<a href="exec: dynamic $d_cycreport_actor, 7">I think the Father is...</a>'
  423. end
  424. elseif cycle = 5:
  425. pl 'Broken water and contractions, it''s pretty clear what is going on. Labour. You need to get to a hospital ASAP.'
  426. else
  427. dynamic $d_cycreport_actor, 10
  428. end
  429. PL '<a href="exec:gs ''stat''">Return</a>'
  430. }
  431. $d_cycreport_actor = {
  432. if ARGS[0] = 1:
  433. if knowpreg = 1:
  434. denypreg = 1
  435. thinkpreg = 0
  436. else
  437. denypreg = 0
  438. thinkpreg = 0
  439. temp[1] = daystart - daylastperiod
  440. end
  441. dynamic $d_cycreport_update
  442. gs 'stat'
  443. elseif ARGS[0] = 2:
  444. thinkpreg = 1
  445. denypreg = 0
  446. dynamic $d_cycreport_update
  447. gs 'stat'
  448. elseif ARGS[0] = 3:
  449. thinkpreg = 0
  450. denypreg = 0
  451. daylastperiod = daystart
  452. dynamic $d_cycreport_update
  453. gs 'stat'
  454. elseif ARGS[0] = 4:
  455. thinkpreg = 0
  456. denypreg = 0
  457. clr
  458. pl 'How many days ago was your last period?'
  459. pl 'Currently: <<pertemp>>'
  460. pl '<a href="exec: pertemp += 1 & clr & dynamic $d_cycreport_actor, 4">+1</a> <a href="exec: pertemp += 5 & clr & dynamic $d_cycreport_actor, 4">+5</a> <a href="exec: pertemp += 10 & clr & dynamic $d_cycreport_actor, 4">+10</a> <a href="exec: pertemp = 0 & clr & dynamic $d_cycreport_actor, 4">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat''">Accept</a>'
  461. elseif ARGS[0] = 5:
  462. thinkpreg = 0
  463. denypreg = 0
  464. $cycreport_txt = 'You do not believe you have periods any more.'
  465. gs 'stat'
  466. elseif ARGS[0] = 6:
  467. clr
  468. pl 'How many days ago was your last period?'
  469. pl 'Currently: <<pertemp>>'
  470. pl '<a href="exec: pertemp += 1 & clr & dynamic $d_cycreport_actor, 6">+1</a> <a href="exec: pertemp += 5 & clr & dynamic $d_cycreport_actor, 6">+5</a> <a href="exec: pertemp += 10 & clr & dynamic $d_cycreport_actor, 6">+10</a> <a href="exec: pertemp = 0 & clr & dynamic $d_cycreport_actor, 6">Reset</a> <a href="exec: daylastperiod = daystart - pertemp & dynamic $d_cycreport_update & gs ''stat''">Accept</a>'
  471. elseif ARGS[0] = 7:
  472. clr
  473. tempmax = arrsize('$cumfthname')-1
  474. tempcurr = 0
  475. sumcum = 0
  476. *nl
  477. :potfathloop
  478. if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
  479. if cumtime[tempcurr] > 0:pl '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
  480. if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
  481. if sumcum > 1:$cum = 's' else $cum = ''
  482. pl '<br>You think you have had <<sumcum>> load<<$cum>> of cumshot<<$cum>> in your womb alltogether that could have gotten you pregnant.'
  483. pl 'You currently think the father is: <<$wombthfath>><br>'
  484. *nl
  485. tempcurr = 0
  486. :pickfathloop
  487. if cumtime[tempcurr] > 0:
  488. if $npc_usedname[$cumfthname[tempcurr]] <> '':
  489. pl ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
  490. else
  491. pl ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7">Unknown (-)</a>'
  492. end
  493. end
  494. if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
  495. killvar 'sumcum'
  496. killvar 'cum'
  497. killvar 'tempmax'
  498. killvar 'tempcurr'
  499. pl '<br> <a href="exec:dynamic $d_cycreport_choice">Accept</a>'
  500. elseif ARGS[0] = 10:
  501. temp = arrsize('Babyptype')
  502. temp -= 1
  503. $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  504. gs 'stat'
  505. end
  506. }
  507. $d_cycreport_update = {
  508. killvar 'temp'
  509. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  510. if mesec > 0:
  511. $cycreport_txt = 'You are currently on your period.'
  512. else
  513. if cyccustom = 1:
  514. if preg = 1 and knowpreg = 1:
  515. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  516. if $wombthfath ! 'unknown': $cycreport_txt = '<<$cycreport_txt>> You think the father is <<$wombthfath>>'
  517. elseif knowpregloss = 1:
  518. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy.'
  519. elseif knowpregrecover = 1:
  520. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  521. elseif menoage <= age and cycle = 6:
  522. $cycreport_txt = 'You have gone through menopause.'
  523. else
  524. temp[1] = daystart-lastmens
  525. if tabletkishot > 0:
  526. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=green>You are currently protected by a birth control shot.</font>'
  527. elseif pillcon2 > 30000:
  528. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=green>You are currently on the pill.</font>'
  529. elseif pillcon2 > 8000 and ((FocH > (Foch_Max - 96)) or ovulate > 0):
  530. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. You are currently on the pill but it is not yet effective. <font color=red>It is currently a dangerous day.</font>'
  531. elseif pillcon2 > 8000:
  532. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. You are currently on the pill but it is not yet effective.'
  533. elseif daystart = tabletkiday:
  534. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. You have taken the pill but it will be several weeks before it is fully effective.'
  535. elseif FocH > (Foch_Max - 96) or ovulate > 0:
  536. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=red>It is currently your fertile stage.</font>'
  537. else
  538. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  539. end
  540. end
  541. elseif denypreg = 1:
  542. if pregchem < 525:
  543. denypreg = 1
  544. thinkpreg = 0
  545. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  546. elseif pregchem < 1863:
  547. denypreg = 1
  548. thinkpreg = 0
  549. $cycreport_txt = 'You have a strange flu making you feel ill.'
  550. elseif pregchem < 4000:
  551. denypreg = 1
  552. thinkpreg = 0
  553. $cycreport_txt = 'Your strange flu still hasn''t gone away. As soon as it does you plan to exercise and lose the excess fat you are building up.'
  554. elseif pregchem < 6000:
  555. denypreg = 1
  556. thinkpreg = 0
  557. $cycreport_txt = 'Your weight just won''t come off...'
  558. elseif pregchem < 7500:
  559. denypreg = 1
  560. thinkpreg = 0
  561. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  562. elseif pregchem >= 7500:
  563. thinkpreg = 0
  564. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  565. else
  566. temp = daystart-lastmens
  567. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  568. end
  569. elseif cyccustom = 0:
  570. if $cycreport_txt ! 'In labour':
  571. if thinkpreg = 1 or knowpreg = 1:
  572. if knowpreg = 0: $temp = ' think you'
  573. if $wombthfath = 'unknown' or $wombthfath = '':
  574. $cycreport_txt = 'You<<$temp>> are pregnant. You aren''t yet sure who the father is. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  575. else
  576. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  577. end
  578. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  579. temp = daystart-lastmens
  580. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  581. end
  582. killvar 'temp'
  583. end
  584. end
  585. end
  586. }
  587. $d_cycreport_upduedate = {
  588. temp = (280 + daylastperiod) - daystart
  589. pregdueday = day
  590. pregduemonth = month
  591. pregdueyear = year
  592. :pregduedateloop
  593. if pregduemonth = 1 and temp > 31 - pregdueday:
  594. pregduemonth += 1
  595. temp -= 31 - pregdueday
  596. pregdueday = 0
  597. elseif pregduemonth = 2 and temp > 28 - pregdueday:
  598. pregduemonth += 1
  599. temp -= 28 - pregdueday
  600. pregdueday = 0
  601. elseif pregduemonth = 3 and temp > 31 - pregdueday:
  602. pregduemonth += 1
  603. temp -= 31 - pregdueday
  604. pregdueday = 0
  605. elseif pregduemonth = 4 and temp > 30 - pregdueday:
  606. pregduemonth += 1
  607. temp -= 30 - pregdueday
  608. pregdueday = 0
  609. elseif pregduemonth = 5 and temp > 31 - pregdueday:
  610. pregduemonth += 1
  611. temp -= 31 - pregdueday
  612. pregdueday = 0
  613. elseif pregduemonth = 6 and temp > 30 - pregdueday:
  614. pregduemonth += 1
  615. temp -= 30 - pregdueday
  616. pregdueday = 0
  617. elseif pregduemonth = 7 and temp > 31 - pregdueday:
  618. pregduemonth += 1
  619. temp -= 31 - pregdueday
  620. pregdueday = 0
  621. elseif pregduemonth = 8 and temp > 31 - pregdueday:
  622. pregduemonth += 1
  623. temp -= 31 - pregdueday
  624. pregdueday = 0
  625. elseif pregduemonth = 9 and temp > 30 - pregdueday:
  626. pregduemonth += 1
  627. temp -= 30 - pregdueday
  628. pregdueday = 0
  629. elseif pregduemonth = 10 and temp > 31 - pregdueday:
  630. pregduemonth += 1
  631. temp -= 31 - pregdueday
  632. pregdueday = 0
  633. elseif pregduemonth = 11 and temp > 30 - pregdueday:
  634. pregduemonth += 1
  635. temp -= 30 - pregdueday
  636. pregdueday = 0
  637. elseif pregduemonth = 12 and temp > 31 - pregdueday:
  638. pregduemonth = 1
  639. pregdueyear += 1
  640. temp -= 31 - pregdueday
  641. pregdueday = 0
  642. else
  643. pregdueday = temp
  644. temp = 0
  645. end
  646. if temp > 0: jump 'pregduedateloop'
  647. $pregduedate = '<<pregduemonth>> / <<pregdueday>> / <<pregdueyear>>'
  648. }
  649. $d_pregmovement = {
  650. if denypreg = 0 and pregchem > 0:
  651. if thinkpreg > 0 and knowpreg = 0:
  652. knowpreg = 1
  653. if kid <= 0:
  654. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  655. else
  656. 'Movement inside you confirms what you already thought. You are pregnant again.'
  657. end
  658. elseif knowpreg > 0:
  659. temprand = rand(0,2)
  660. if temprand = 0:
  661. if pregchem > 5000:
  662. 'Your baby visibly moves around inside you.'
  663. else
  664. 'You feel movement deep inside you as your baby shifts around.'
  665. end
  666. elseif temprand = 1:
  667. if pregchem > 5000:
  668. 'You wince as your baby delivers a vicious kick to your insides'
  669. else
  670. 'You feel your baby kicking.'
  671. end
  672. elseif temprand = 2:
  673. if pregchem > 5000:
  674. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  675. else
  676. 'You feel your baby kicking.'
  677. end
  678. end
  679. else
  680. if cyccustom = 1:
  681. if pregchem < 4000:
  682. if kid <= 0 :
  683. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should go to the doctor?'
  684. else
  685. 'It feels as if a baby move inside you. Are you pregnant?'
  686. end
  687. else
  688. knowpreg = 1
  689. if kid <= 0:
  690. 'It''s become pretty obvious. You are pregnant.'
  691. else
  692. 'It''s become pretty obvious. You are pregnant again.'
  693. end
  694. end
  695. end
  696. end
  697. elseif pregchem > 0:
  698. if kid > 0 and PregChem > 3903:
  699. 'You try to deny it, but you just can''t any more. The large belly, the movement, You are pregnant again.'
  700. denypreg = 0
  701. dynamic $d_cycreport_upduedate
  702. $cycreport_txt = 'You are pregnant.'
  703. else
  704. 'You feel movement deep inside you. It''s probably just gas.'
  705. end
  706. end
  707. }
  708. $use_mentats = {
  709. if mentats_dose < 3:
  710. '<font color = green>You take a pill and swallow it.</font>'
  711. mentats_dose += 1
  712. mentats_have -= 1
  713. else
  714. 'You really shouldn''t take any more today.'
  715. end
  716. }
  717. $use_steroids = {
  718. if steroid_dose < 3:
  719. '<font color = blue>You swallow the orange pill.</font>'
  720. steroid_dose += 1
  721. steroid_counter += 1
  722. steroid_have -= 1
  723. else
  724. 'You really shouldn''t take any more today.'
  725. end
  726. }
  727. $use_amphetamines = {
  728. if amphIntake < 2:
  729. '<font color= blue>You take a white pill</font>'
  730. amphIntake += 1
  731. amphetamine -=1
  732. amphHigh = 12
  733. else
  734. 'Your hearts already hammering in your chest, perhaps you shouldn''t take anymore'
  735. end
  736. }
  737. $use_bcream = {
  738. if bcream_used < 1:
  739. '<font color = #DB7093>You smear cream onto your breasts and rub it in.</font>'
  740. bcream_used = 1
  741. bcream_have -= 1
  742. else
  743. 'Using more won''t have any effect.'
  744. end
  745. }
  746. $use_aphrodisiac = {
  747. if aphrodisiac_overdose = 1:
  748. 'You had enough for today.'
  749. elseif aphrodisiac_timer = 0:
  750. '<font color = #DB7093>You take a gum and chew it. Tastes like strawberry, but is also kind of spicy.</font>'
  751. aphrodisiac_have -= 1
  752. aphrodisiac_timer += 8
  753. pcs_horny = 80
  754. elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8:
  755. '<font color = #DB7093>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'
  756. aphrodisiac_have -= 1
  757. aphrodisiac_timer += 8
  758. pcs_horny = 100
  759. elseif aphrodisiac_timer > 8 and min_arousal < 60:
  760. '<font color = red><b>You take yet another gum and start chewing it. Suddenly you find yourself in grip of an intense orgasm!<br> It goes on and on and you sink to the ground and do your best to endure it.</b></font>'
  761. aphrodisiac_have -= 1
  762. orgasm += 1
  763. min_arousal += 10
  764. aphrodisiac_overdose = 1
  765. if min_arousal = 10:'<font color = #DB7093>That was intense! You can still feel the tingles.</font>'
  766. if min_arousal = 20:'<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'
  767. if min_arousal = 30:'<font color = #DB7093>As you are trying to get back to your feet you notice that you are still horny. What is happening to you?</font>'
  768. if min_arousal = 40:'<font color = #DB7093>You are certain of it. Every time those gums give you an orgasm they also increase your libido.</font>'
  769. if min_arousal = 50:'<font color = #DB7093>You run a finger across your slit and shudder. You really should stop taking those gums while you can still think of something other than sex.</font>'
  770. if min_arousal = 60:'<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'
  771. else
  772. '<font color = #DB7093>You chew another gum with trepidation, looking forward to more orgasms but nothing happens. Huh. Have you become immune?</font>'
  773. aphrodisiac_have -= 1
  774. end
  775. }
  776. if $ARGS[0] = 'takepill':
  777. if tabletki > 0 and pillsleft[ptype] = 0:
  778. tabletkirand = rand(1, tabletki)
  779. if tabletkirand <= tabletkiold:
  780. tabletki -=1
  781. tabletkiold -=1
  782. ptype = 1
  783. pillsleft[ptype] = 28
  784. elseif tabletkirand <= tabletkiold + tabletkifake:
  785. tabletki -=1
  786. tabletkifake -=1
  787. ptype = 2
  788. pillsleft[ptype] = 28
  789. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej:
  790. tabletki -=1
  791. tabletkirej -=1
  792. ptype = 3
  793. pillsleft[ptype] = 28
  794. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug:
  795. tabletki -=1
  796. tabletkisug -=1
  797. ptype = 4
  798. pillsleft[ptype] = 28
  799. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert:
  800. tabletki -=1
  801. tabletkifert -=1
  802. ptype = 5
  803. pillsleft[ptype] = 28
  804. else
  805. tabletki -=1
  806. ptype = 0
  807. pillsleft[ptype] = 28
  808. end
  809. killvar 'tabletkirand'
  810. end
  811. !! added empty week to allow menstruation - it take effect only when the pills are taken automatically
  812. if placebopart <= 0 or tabletkicheck ! 1:
  813. !!pillcon2 is the ideal state, PC cosiders this the believed pillcon value
  814. pillcon2 += ((pillcon2+15000)/40)+1000
  815. if pillcon2 > 40000:pillcon2 = 40000
  816. if ptype = 0:
  817. pillsleft[ptype] -= 1
  818. pcs_skin += 1
  819. pillcon += ((pillcon+15000)/40)+1000
  820. if pillcon > 40000: pillcon = 40000
  821. elseif ptype = 1:
  822. pillsleft[ptype] -= 1
  823. pcs_skin += rand(0,1)
  824. pillcon += ((pillcon+15000)/40)+ rand(250,1000)
  825. if pillcon > 40000: pillcon = 40000
  826. elseif ptype = 2:
  827. pillsleft[ptype] -= 1
  828. pcs_skin += rand(0,1)
  829. pillcon += ((pillcon+15000)/40)+ rand(0,500)
  830. if pillcon > 40000: pillcon = 40000
  831. elseif ptype = 3:
  832. pillsleft[ptype] -= 1
  833. pcs_skin += rand(0,1)
  834. if rand(0,4) = 0: pain['tummy'] += rand(5,10)
  835. pillcon += ((pillcon+15000)/40)+ rand(250,2000)
  836. if pillcon > 40000: pillcon = 40000
  837. elseif ptype = 4:
  838. pillsleft[ptype] -= 1
  839. elseif ptype = 5:
  840. pillsleft[ptype] -= 1
  841. pcs_skin += 1
  842. EggRH += rand(10,80)
  843. end
  844. end
  845. end
  846. --- din_bad ---------------------------------