1
0

din_bad 56 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323
  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. dynamic $phone_ring
  10. pl'<center><a href="exec:gt ''qwloc2''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $locM, $metkaM"><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. dynamic $phone_ring
  16. pl'<center><a href="exec:gt ''qwloc3''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $locM, $metkaM"><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. dynamic $phone_ring
  22. pl'<center><a href="exec:gt ''qwloc4''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $locM, $metkaM"><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. dynamic $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 $locM, $metkaM"><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. dynamic $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 $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
  48. end
  49. if bfA > 0 and boydayA ! daystart and hour > 5 and hour < 20 and ringA = 0:
  50. if bfB = 1:bfB = 0
  51. if bfC = 1:bfC = 0
  52. if pcs_apprnc < vneshBoyA:
  53. bfA -= 1
  54. if bfA = 0:
  55. '<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
  56. else
  57. 'Your boyfriend <<$boydescA>> has not called you.'
  58. end
  59. else
  60. ring = 1
  61. ringA = 1
  62. '<b><font color="red">Your phone is ringing</font></b>'
  63. PLAY 'sound/Old_Phone.mp3',30
  64. $caller = '<<$boydescA>>'
  65. $callerid = 'images/characters/shared/'+boypicA+'.jpg'
  66. dynamic $phone_ring
  67. pl'<center><a href="exec:gt ''telefon'', ''boyA''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:boydayA = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
  68. end
  69. elseif bfB > 0 and boydayB ! daystart and hour > 5 and hour < 20 and ringB = 0:
  70. if bfA = 1:bfA = 0
  71. if bfC = 1:bfC = 0
  72. if pcs_apprnc < vneshBoyB:
  73. bfB -= 1
  74. if bfB = 0:
  75. '<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
  76. else
  77. 'Your boyfriend <<$boydescB>> has not called you.'
  78. end
  79. else
  80. ring = 1
  81. ringB = 1
  82. '<b><font color="red">Your phone is ringing</font></b>'
  83. PLAY 'sound/Old_Phone.mp3',30
  84. $caller = '<<$boydescB>>'
  85. $callerid = 'images/characters/shared/'+boypicB+'.jpg'
  86. dynamic $phone_ring
  87. pl'<center><a href="exec:gt ''telefon'', ''boyB''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:boydayB = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
  88. end
  89. elseif bfC > 0 and boydayC ! daystart and hour > 5 and hour < 20 and ringC = 0:
  90. if bfA = 1:bfA = 0
  91. if bfB = 1:bfB = 0
  92. if pcs_apprnc < vneshBoyC:
  93. 'Your boyfriend <<$boydescC>> has not called you.'
  94. bfC -= 1
  95. if bfC = 0:
  96. '<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
  97. else
  98. 'Your boyfriend <<$boydescC>> has not called you.'
  99. end
  100. else
  101. ring = 1
  102. ringC = 1
  103. '<b><font color="red">Your phone is ringing</font></b>'
  104. PLAY 'sound/Old_Phone.mp3',30
  105. $caller = '<<$boydescC>>'
  106. $callerid = 'images/characters/shared/'+boypicC+'.jpg'
  107. dynamic $phone_ring
  108. pl'<center><a href="exec:gt ''telefon'', ''boyC''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:boydayC = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
  109. end
  110. end
  111. }
  112. $phone_ring ={
  113. clr
  114. if hour < 10:
  115. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  116. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  117. elseif hour > 9:
  118. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  119. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  120. end
  121. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  122. pl'<center><font size=6><<$caller>> calling</font></center>'
  123. pl'<center><img src="<<$callerid>>"><br></center>'
  124. pl''
  125. pl''
  126. pl''
  127. pl''
  128. ! pl'<center><a href="exec:gt ''telefon'', ''start''"><img src="images/system/phone/call_accept.png"></a> <a href="exec:gs ''stat''"><img src="images/system/phone/decline.png"></a></center>'
  129. }
  130. $phone_call_receive = {
  131. clr
  132. if hour < 10:
  133. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  134. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  135. elseif hour > 9:
  136. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  137. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  138. end
  139. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  140. pl'<center><font size=6>Talking to <<$caller>></font></center>'
  141. pl'<center><img src="<<$callerid>>"><br></center>'
  142. }
  143. $phone_balance = {
  144. if balans < 4:
  145. clr
  146. if hour < 10:
  147. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  148. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  149. elseif hour > 9:
  150. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  151. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  152. end
  153. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  154. pl'<center><font size=6>Not enough credit on your account</font></center>'
  155. pl'<center><img src="<<$callerid>>"><br></center>'
  156. pl'<center><a href="exec:gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
  157. wait 3500
  158. cla
  159. gt $locM, $metkaM
  160. elseif balans >= 4:
  161. balans -= 4
  162. end
  163. }
  164. $Phone_call = {
  165. clr
  166. if hour < 10:
  167. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  168. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  169. elseif hour > 9:
  170. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  171. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  172. end
  173. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  174. pl'<center><font size=6>Calling Mom</font></center>'
  175. pl'<center><img src="images/system/phone/icons/icon_npc1.png"><br></center>'
  176. pl'<center><a href="exec:dynamic $Phone_contactlist"><img src="images/system/phone/decline.png"></a></center>'
  177. wait 1500
  178. minut += 1
  179. $callerid = 'images/system/phone/icons/icon_npc1.png'
  180. dynamic $phone_balance
  181. $callerid = 'icon_npc1'
  182. dynamic $phone_call_reject
  183. }
  184. $phone_call_reject = {
  185. clr
  186. if hour < 10:
  187. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  188. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  189. elseif hour > 9:
  190. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  191. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  192. end
  193. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  194. pl'<center><font size=6>Calling....</font></center>'
  195. pl'<center><img src="images/system/phone/icons/<<$callerid>>.png"><br></center>'
  196. pl'<center><a href="exec:dynamic $Phone_contactlist"><img src="images/system/phone/decline.png"></a></center>'
  197. }
  198. $Phone_megafon = {
  199. clr
  200. if hour < 10:
  201. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  202. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  203. elseif hour > 9:
  204. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  205. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  206. end
  207. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  208. pl'<center><font size=6>Bullhorn</font></center>'
  209. pl'<center><img src="images/system/icon/icon_megafon.png"><br></center>'
  210. pl'<center><B>The balance in the account: </B><font size=5><i><font size=6><<balans>></font></i> <b>₽</b>.</center>.'
  211. pl'<center><a href="exec:gt $locM, $metkaM"><img src="images/system/icon/back.png"></a></center>'
  212. }
  213. $Phone_contactlist = {
  214. clr
  215. if hour < 10:
  216. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  217. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  218. elseif hour > 9:
  219. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  220. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  221. end
  222. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  223. pl'<center><font size=6>Contacts</font></center>'
  224. pl'<center><img src="images/system/icon/icon_call.png"><br></center>'
  225. if StoryLine = 1:pl'<center><img src="images/system/phone/icons/icon_npc1.png">..................................................<a href="exec:dynamic $Phone_call"><b>Call</b></a></center>'
  226. if hour >= 8 and hour <= 19:
  227. if telalla > 0:
  228. pl'<center><img src="images/system/phone/icons/icon_ira1.png">..................................................<a href="exec:$callerid = ''images/system/phone/icons/icon_ira1.png'' & $telsob = ''Alla'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></center>'
  229. end
  230. if telmasha > 0:
  231. pl'<center><img src="images/system/phone/icons/icon_masha.png">..................................................<a href="exec:$callerid = ''images/system/phone/icons/icon_masha.png'' & $telsob = ''Masha'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></center>'
  232. end
  233. if telkat > 0:
  234. pl'<center><img src="images/system/phone/icons/icon_kat.png">..................................................<a href="exec:$callerid = ''images/system/phone/icons/icon_kat.png'' & $telsob = ''Kate'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></center>'
  235. end
  236. if bfA > 0 and svidanieA = 0:
  237. pl'<center><img src="images/system/phone/icons/icon_bf'+boypicA+'.png">..................................................<a href="exec:gt ''telefon'', ''mobilarazboy''"><b>Call</b></a></center>'
  238. end
  239. else
  240. if telalla > 0:
  241. pl'<center><img src="images/system/phone/icons/icon_ira1.png">..................................................<a href="exec:$callerid = ''icon_ira1'' & dynamic $phone_call_reject"><b>Call</b></a></center>'
  242. end
  243. if telmasha > 0:
  244. pl'<center><img src="images/system/phone/icons/icon_masha.png">..................................................<a href="exec:$callerid = ''icon_masha'' & dynamic $phone_call_reject"><b>Call</b></a></center>'
  245. end
  246. if telkat > 0:
  247. pl'<center><img src="images/system/phone/icons/icon_kat.png">..................................................<a href="exec:$callerid = ''icon_kat'' & dynamic $phone_call_reject"><b>Call</b></a></center>'
  248. end
  249. if bfA > 0 and svidanieA = 0:
  250. pl'<center><img src="images/system/phone/icons/icon_bf'+boypicA+'.png">..................................................<a href="exec:$callerid = ''icon_bf''+boypicA & dynamic $phone_call_reject"><b>Call</b></a></center>'
  251. end
  252. end
  253. if npc_QW['A192'] > 0:
  254. pl'<center><img src="images/system/phone/icons/icon_nastja.png">..................................................<a href="exec:gs ''telefon'', ''start''"><b>Call</b></a></center>'
  255. end
  256. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/system/icon/back.png"></a></center>'
  257. }
  258. $Phone_notebook = {
  259. clr
  260. pl'<center><font size=6>Planner</font></center>'
  261. pl'<center><<year>>-<<$month>>-<<day>>, <<$week[week]>><br></center>'
  262. rent = -1
  263. if BuyHous = 2 and ArendHouseSL > 0:rent = ArendHouseSL
  264. preg1 = pregtime
  265. d1 = day
  266. w1 = week
  267. m1 = month
  268. y1 = year
  269. i = 0
  270. $list = '<br>&emsp;<b>•</b> '
  271. :pnotebook
  272. daynum = daystart+i
  273. $calendarday = ''
  274. if m1 = 1 and d1 >= 1 and d1 <= 8:
  275. $calendarday += $list + 'New Year holidays'
  276. if d1 = 1:$calendarday += ', New Year'
  277. if d1 = 7:$calendarday += ', Christmas'
  278. end
  279. if m1 = 2 and d1 = 23:$calendarday += $list + 'Defender of Fatherland Day'
  280. if m1 = 3 and d1 = 8:$calendarday += $list + 'Women''s Day'
  281. if m1 = 5 and d1 = 1:$calendarday += $list + 'Spring and Labor Day'
  282. if m1 = 5 and d1 = 2:$calendarday += $list + 'National holiday'
  283. if m1 = 5 and d1 = 9:$calendarday += $list + 'Victory Day'
  284. if m1 = 6 and d1 = 12:$calendarday += $list + 'Russia Day'
  285. if m1 = 6 and d1 = 13:$calendarday += $list + 'National holiday'
  286. if m1 = 11 and d1 = 4:$calendarday += $list + 'Unity Day'
  287. if storyline = 1 and SchoolAtestat = 0:
  288. if m1 = 1 and d1 = 1:$calendarday += $list + 'First day of Winter break.'
  289. if m1 = 1 and d1 = 15:$calendarday += $list + 'Last day of Winter break.'
  290. if m1 = 3 and d1 = 20:$calendarday += $list + 'First day of Spring break.'
  291. if m1 = 3 and d1 = 26:$calendarday += $list + 'Last day of Spring break.'
  292. if schoool_year = 2000 and y1 = 2017 and m1 = 5 and d1 = 25:$calendarday += $list + 'Graduation Day!'
  293. if schoool_year = 2001 and y1 = 2018 and m1 = 6 and d1 = 1:$calendarday += $list + 'First day of Summer break.'
  294. if m1 = 8 and d1 = 31:$calendarday += $list + 'Last day of Summer break.'
  295. if m1 = 11 and d1 = 4:$calendarday += $list + 'First day of Autumn break.'
  296. if m1 = 11 and d1 = 11:$calendarday += $list + 'Last day of Autumn break.'
  297. end
  298. if daynum >= lastmens+20 and daynum < lastmens+24:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
  299. if daynum >= lastmens+6 and daynum < lastmens+8:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
  300. if preg1 = 280:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
  301. if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
  302. if w1 < 5 and workFabrika = 1:
  303. $calendarday += $list + 'Working as a seamstress. '
  304. if age < 18:$calendarday += '<i>(16:00 - 20:00)</i>' else $calendarday += '<i>(8:00 - 16:00)</i>'
  305. end
  306. if w1 > 1 and w1 <= 5 and workhosp = 1:$calendarday += $list + 'Working as nurse. <i>(8:00 - 16:00)</i>'
  307. if worksalon = 1 and (w1 = 1 or w1 = 3 or w1 = 5):$calendarday += $list + 'Working as masseuse. <i>(9:00 - 17:00)</i>'
  308. !! if maidqw > 0:$calendarday += '<br>&emsp;<b>•</b> Working as maid. <i>(16:00 - 19:00)</i>'
  309. if pfilmday[i] > 0:$calendarday += $list + 'Porn shoot: <i><<$porndesc[pfilmday[i]]>></i>'
  310. if d1 = 25 and (PersSecWork = 1 or workKafe = 1 or workhosp = 1 or worksalon = 1 or tanwork = 1 or workSec = 1 or workFabrika = 1):$calendarday += $list + '<i>Pay day!</i>'
  311. if d1 = 31 and m1 = 12 and (year - year_start) < 2 and StoryLine = 1:$calendarday += $list + 'New Year''s party at 14:00!'
  312. if (npc_QW['A33']-2) mod 2 = 1 and sisboyday+1 = daynum:
  313. if sisboytrioQW = 1:
  314. $calendarday += $list + '<font color="orange">Threesome with Anja and Roma at 18:00</font>'
  315. else
  316. $calendarday += $list + '<font color="orange">Anja having sex with Roma at 18:00</font>'
  317. end
  318. end
  319. if rent = 0:$calendarday += $list + 'Rent on apartment expires!'
  320. if birthday = d1 and birthmonth = m1:$calendarday += $list + 'My birthday!'
  321. if kid > 0:
  322. k1 = kid
  323. :kiddieloop
  324. if daykid[k1] = d1 and monthkid[k1] = m1:$calendarday += $list + 'Birthday of my <<$polreb[k1]>> <<$kidname[k1]>>, my <<kid>>. baby!'
  325. if k1 > 1:k1 -= 1 & jump 'kiddieloop'
  326. end
  327. if $calendarday ! '':
  328. p '<b><<$monthName[m1]>> <<d1>>, <<$week[w1]>>:</b>'
  329. pl $calendarday
  330. end
  331. if i < 14:
  332. preg1 += 1
  333. rent -= 1
  334. i += 1
  335. w1 += 1
  336. if w1 > 7:w1 = 1
  337. d1 += 1
  338. if monthsend[m1] < d1:
  339. m1 += 1 & d1 = 1
  340. if m1 = 13: m1 = 1 & y1 += 1
  341. end
  342. jump 'pnotebook'
  343. end
  344. killvar 'calendarday'
  345. killvar 'rent'
  346. killvar 'preg1'
  347. killvar 'd1'
  348. killvar 'w1'
  349. killvar 'm1'
  350. killvar 'y1'
  351. killvar 'daynum'
  352. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/system/icon/back.png"></a></center>'
  353. }
  354. $Phone_pictures = {
  355. clr
  356. if hour < 10:
  357. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  358. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  359. elseif hour > 9:
  360. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  361. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  362. end
  363. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  364. pl'<center><font size=6>Gallery</font></center>'
  365. pl'<center><img src="images/system/icon/icon_pictures.png"><br></center>'
  366. if phone_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie1.jpg''"><b>Photo number1</b></a>'
  367. if phone_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/phone_selfie2.jpg''"><b>Photo number2</b></a>'
  368. if vanr_selfie[0] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (0).jpg''"><b>Self after showering number1</b></a>'
  369. if vanr_selfie[1] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (1).jpg''"><b>Self after showering number2</b></a>'
  370. if vanr_selfie[2] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (2).jpg''"><b>Self after showering number3</b></a>'
  371. if vanr_selfie[3] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (3).jpg''"><b>Self after showering number4</b></a>'
  372. if vanr_selfie[4] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (4).jpg''"><b>Self after showering number5</b></a>'
  373. if vanr_selfie[5] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (5).jpg''"><b>Self after showering number6</b></a>'
  374. if vanr_selfie[6] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (6).jpg''"><b>Self after showering number7</b></a>'
  375. if vanr_selfie[7] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (7).jpg''"><b>Self after showering number8</b></a>'
  376. if vanr_selfie[8] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (8).jpg''"><b>Self after showering number9</b></a>'
  377. if vanr_selfie[9] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (9).jpg''"><b>Self after showering number10</b></a>'
  378. if vanr_selfie[10] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (10).jpg''"><b>Self after showering number11</b></a>'
  379. if vanr_selfie[11] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (11).jpg''"><b>Self after showering number12</b></a>'
  380. if vanr_selfie[12] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (12).jpg''"><b>Self after showering number13</b></a>'
  381. if vanr_selfie[13] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (13).jpg''"><b>Self after showering number14</b></a>'
  382. if vanr_selfie[14] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (14).jpg''"><b>Self after showering number15</b></a>'
  383. if vanr_selfie[15] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (15).jpg''"><b>Self after showering number16</b></a>'
  384. if vanr_selfie[16] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (16).jpg''"><b>Self after showering number17</b></a>'
  385. if vanr_selfie[17] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (17).jpg''"><b>Self after showering number18</b></a>'
  386. if vanr_selfie[18] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (18).jpg''"><b>Self after showering number19</b></a>'
  387. if vanr_selfie[19] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (19).jpg''"><b>Self after showering number20</b></a>'
  388. !if vanr_selfie[20] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (20).jpg''"><b>Self after showering number21</b></a>'
  389. if vanr_selfie[21] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (21).jpg''"><b>Self after showering number22</b></a>'
  390. if vanr_selfie[22] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (22).jpg''"><b>Self after showering number23</b></a>'
  391. if vanr_selfie[23] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (23).jpg''"><b>Self after showering number24</b></a>'
  392. if vanr_selfie[24] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (24).jpg''"><b>Self after showering number25</b></a>'
  393. if vanr_selfie[25] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (25).jpg''"><b>Self after showering number26</b></a>'
  394. if vanr_selfie[26] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (26).jpg''"><b>Self after showering number27</b></a>'
  395. if vanr_selfie[27] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (27).jpg''"><b>Self after showering number28</b></a>'
  396. if vanr_selfie[28] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (28).jpg''"><b>Self after showering number29</b></a>'
  397. if vanr_selfie[29] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (29).jpg''"><b>Self after showering number30</b></a>'
  398. if vanr_selfie[30] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (30).jpg''"><b>Self after showering number31</b></a>'
  399. if vanr_selfie[31] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (31).jpg''"><b>Self after showering number32</b></a>'
  400. if vanr_selfie[32] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (32).jpg''"><b>Self after showering number33</b></a>'
  401. if vanr_selfie[33] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (33).jpg''"><b>Self after showering number34</b></a>'
  402. if vanr_selfie[34] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (34).jpg''"><b>Self after showering number35</b></a>'
  403. if vanr_selfie[35] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (35).jpg''"><b>Self after showering number36</b></a>'
  404. if vanr_selfie[36] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (36).jpg''"><b>Self after showering number37</b></a>'
  405. if vanr_selfie[37] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (37).jpg''"><b>Self after showering number38</b></a>'
  406. if vanr_selfie[38] = 1:pl'<a href="exec:view''images/system/phone/selfie/bathroom/s (38).jpg''"><b>Self after showering number39</b></a>'
  407. !if phone_selfie[m] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiem.jpg''"><b>Photo in sperm number1</b></a>'
  408. !if phone_selfie[n] = 1:pl'<a href="exec:view''images/system/phone/phone_selfien.jpg''"><b>Photo in sperm number2</b></a>'
  409. !if phone_selfie[x] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiex.jpg''"><b>Photo Event number1</b></a>'
  410. !if phone_selfie[y] = 1:pl'<a href="exec:view''images/system/phone/phone_selfiey.jpg''"><b>Photo Event number2</b></a>'
  411. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/system/icon/back.png"></a></center>'
  412. }
  413. $Phone_camera_selfie = {
  414. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan' and mirror_steam = hour:
  415. minut += RAND (5,7)
  416. phone_rand = RAND (0,38)
  417. vanr_selfie[phone_rand] = 1
  418. dynamic $Phone_pictures
  419. view 'images/system/phone/selfie/bathroom/s (<<phone_rand>>).jpg'
  420. else
  421. minut += RAND (5,7)
  422. phone_rand = RAND (1,2)
  423. phone_selfie[phone_rand] = 1
  424. dynamic $Phone_pictures
  425. view 'images/system/phone/selfie/phone_selfie<<phone_rand>>.jpg'
  426. end
  427. !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
  428. !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
  429. !view 'images/system/phone/phone_selfie<<phone_rand>>.jpg'
  430. }
  431. $Phone_camera = {
  432. clr
  433. if hour < 10:
  434. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  435. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  436. elseif hour > 9:
  437. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  438. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  439. end
  440. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  441. pl'<center><font size=6>Camera</font></center>'
  442. pl'<center><img src="images/system/icon/icon_camera.png"><br></center>'
  443. pl'<a href="exec:dynamic $Phone_camera_selfie"><b>Make Self</b></a>'
  444. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/system/icon/back.png"></a></center>'
  445. }
  446. $Phone_wheather = {
  447. clr
  448. if hour < 10:
  449. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  450. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  451. elseif hour > 9:
  452. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  453. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  454. end
  455. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  456. pl'<center><font size=6>Weather</font></center>'
  457. pl'<center><img src="images/system/icon/icon_weather.png"><br></center>'
  458. pl'<center><font size=6><b>Temperature: <<$temperature>> degrees Celsius. <i><<$osadki>></i></b></font></center>'
  459. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/system/icon/back.png"></a></center>'
  460. }
  461. $Phone_calendar = {
  462. clr
  463. if hour < 10:
  464. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  465. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  466. elseif hour > 9:
  467. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  468. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  469. end
  470. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  471. pl'<center><font size=6>Calendar</font></center>'
  472. pl'<center><img src="images/system/icon/icon_calendar.png"><br></center>'
  473. pl'<center><B>Today: </B><font size=5><<$week[week]>>, <i><font size=6><<day>></font></i> <<$month>> <i><font size=6><<year>></font></i> year.</font></center>'
  474. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/system/icon/back.png"></a></center>'
  475. }
  476. $Phone_menu = {
  477. gs'stat'
  478. clr
  479. if hour < 10:
  480. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  481. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  482. elseif hour > 9:
  483. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  484. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  485. end
  486. pl'<center><img src="images/system/icon/icon_statusbar.png"><br></center>'
  487. pl'<center><a href="exec:dynamic $Phone_camera"><img src="images/system/icon/icon_camera.png"></a> <a href="exec: dynamic $Phone_calendar"><img src="images/system/icon/icon_calendar.png"></a> <a href="exec:dynamic $Phone_pictures"><img src="images/system/icon/icon_pictures.png"></a></center>'
  488. pl'<center><a href="exec: "><img src="images/system/icon/icon_music.png"></a> <a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[main]"><img src="images/system/icon/icon_settings.png"></a> <a href="exec:dynamic $Phone_wheather"><img src="images/system/icon/icon_weather.png"></a></center>'
  489. pl'<center><a href="exec:dynamic $Phone_contactlist"><img src="images/system/icon/icon_call.png"></a> <a href="exec: "><img src="images/system/icon/icon_sms.png"></a> <a href="exec:dynamic $Phone_megafon"><img src="images/system/icon/icon_megafon.png"></a></center>'
  490. pl'<center><a href="exec:dynamic $Phone_notebook"><img src="images/system/icon/icon_notebook.png"></a></center>'
  491. pl'<center><a href="exec:gs''stat''"><img src="images/system/icon/back.png"></a></center>'
  492. }
  493. $d_salf = {
  494. clr
  495. 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>'
  496. if cumloc[14] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your belly</b></a>'
  497. if cumloc[15] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your breasts</b></a>'
  498. 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>'
  499. 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>'
  500. 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>'
  501. if pcs_makeup ! 1:pl '<a href="exec:salfetka -= 1 & pcs_makeup = 1 & gs ''stat''"><b>Wipe cosmetics</b></a>'
  502. pl '<a href="exec:gs ''stat''"><br><b>Not using tissue</b></a>'
  503. }
  504. $d_kosmetitka = {
  505. clr
  506. pl '<a href="exec:gs ''stat''"><b>Close makeup bag</b></a>'
  507. 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>'
  508. 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>'
  509. 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>'
  510. }
  511. $d_mouthwash = {
  512. clr
  513. pcs_breath = 1
  514. cumspclnt = 2
  515. gs 'cum_cleanup'
  516. mouthwash -= 1
  517. pl 'Your breath smells minty fresh'
  518. pl ''
  519. pl '<a href="exec:gs ''stat''"><b>Done</b></a>'
  520. }
  521. $d_bag = {
  522. clr
  523. pl'<center><img src="images/system/icon/purse_icon.png"><br></center>'
  524. if salfetka > 0:pl 'You have <<salfetka>> wet wipes. <a href="exec:dynamic $d_salf"><b>Use tissue</b></a>'
  525. 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>>.'
  526. 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>'
  527. if kosmetitka > 0 and pcs_makeup ! 1:pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>.'
  528. 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>'
  529. if mouthwash > 0 and pcs_breath = 1:pl 'You have mouthwash in your bag. Uses remaining: <<mouthwash>>.'
  530. 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>'
  531. if greben > 0 and pcs_hairbsh = 1:pl 'You have a hairbrush.'
  532. if prezik + prezikcount + preziksabo > 0:
  533. if preziktype = 2 or preziksabo > 0:
  534. 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>'
  535. elseif preziktype < 2 and preziksabo = 0:
  536. P 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms.</b></a>'
  537. END
  538. NL
  539. else
  540. pl 'You are out of condoms.'
  541. end
  542. if tabletki > 0 and pillsleft[ptype] > 0:
  543. 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>'
  544. elseif tabletki = 0 and pillsleft[ptype] > 0:
  545. pl 'You have <<pillsleft[ptype]>> <a href="exec:dynamic $d_tabletkied">birth control pills</a> left.</b>'
  546. elseif tabletki > 0 and pillsleft[ptype] = 0:
  547. pl 'You have <<tabletki>> unopened packages of <a href="exec:dynamic $d_tabletkied">birth control pills</a>.'
  548. else
  549. pl 'You are out of birth control pills.'
  550. end
  551. if mentats_have > 0:
  552. 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.'
  553. end
  554. if steroid_have > 0:
  555. pl'<a href="exec:dynamic $use_steroids & dynamic $d_bag"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
  556. end
  557. if bcream_have > 0:
  558. pl'<a href="exec:dynamic $use_bcream & dynamic $d_bag"><b>Apply breast cream.</b></a> Uses left: <<bcream_have>>.'
  559. end
  560. if aphrodisiac_have > 0:
  561. pl'<a href="exec:dynamic $use_aphrodisiac & dynamic $d_bag"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
  562. end
  563. if lubri > 0:pl'You have a tube of lubricant - enough for <<lubri>> applications.'
  564. 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>'
  565. 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>'
  566. if wine = 1 and alkowine = 0:pl'Your purse contains a bottle of <a href="exec:dynamic $dinalkowin1">wine</a>'
  567. if wine = 1 and alkowine = 1:pl'Your purse contains a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a>'
  568. if foto = 1:pl'Your purse contains a strange photo'
  569. if pattest > 0:
  570. if pattest > 1:$tt = 's' else $tt = ''
  571. pl'You carry <<pattest>> unused paternity test<<$tt>> with you.'
  572. end
  573. if used_pattest > 0:
  574. if used_pattest > 1:$tt = 's' else $tt = ''
  575. pl'You carry <<used_pattest>> <a href="exec:dynamic $test_purse">unsent</a> paternity test<<$tt>> with you.'
  576. end
  577. pl'<br><center><a href="exec:gs''stat''"><img src="images/system/icon/back.png"></a></center>'
  578. killvar 'tt'
  579. }
  580. $dinalkowin1 = {
  581. alkowine = 1
  582. if water <= 90:
  583. water = 100
  584. else
  585. water += 10
  586. end
  587. if pcs_intel > 5 : intel_deg -= 1
  588. alko += 5
  589. cumspclnt = 2
  590. gs 'cum_cleanup'
  591. pcs_breath = 0
  592. gs'stat'
  593. view 'images/shared/food/alkowin.jpg'
  594. 'You take the bottle of wine out of your purse and slowly drink half of it.'
  595. }
  596. $dinalkowin2 = {
  597. alkowine = 0
  598. if water <= 90:
  599. water = 100
  600. else
  601. water += 10
  602. end
  603. wine = 0
  604. if pcs_intel > 5: intel_deg -= 1
  605. alko += 5
  606. cumspclnt = 2
  607. gs 'cum_cleanup'
  608. pcs_breath = 0
  609. gs'stat'
  610. view 'images/shared/food/alkowin.jpg'
  611. 'You take the remaining half bottle of wine out of your purse, slowly drink it then throw the empty bottle away.'
  612. }
  613. $din_Switch_Condom_Menu = {
  614. dynamic $din_Update_Condom_Counts
  615. clr
  616. i = 0
  617. pl 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal, <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms.'
  618. nl
  619. if preziktype > 0:
  620. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to Normal Condoms</a>.'
  621. end
  622. if preziktype ! 1:
  623. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using Condoms</a>.'
  624. end
  625. if preziktype ! 2:
  626. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to Sabotaged Condoms</a>.'
  627. end
  628. if prezikcount > 0 or preziktype = 0:
  629. pl '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  630. end
  631. NL
  632. PL '<a href="exec:gs ''stat''">Return</a>'
  633. }
  634. $din_Table_Condom_Menu = {
  635. dynamic $din_Update_Condom_Counts
  636. *clr
  637. i = 1
  638. 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal, <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms.'
  639. nl
  640. if preziktype > 0:
  641. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to Normal Condoms</a>.'
  642. end
  643. if preziktype ! 1:
  644. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using Condoms</a>.'
  645. end
  646. if preziktype ! 2:
  647. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to Sabotaged Condoms</a>.'
  648. end
  649. if prezikcount > 0 or preziktype = 0:
  650. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  651. end
  652. NL
  653. '<a href="exec:gt ''stol'', ''bc''">Return</a>'
  654. }
  655. $din_Do_Condom_Counts = {
  656. !{set condom count and type}
  657. if ARGS[0] = 1:
  658. clr
  659. 'You will offer a condom the next time you have sex.'
  660. if preziktype = 2: preziksabo = prezik
  661. prezik = prezikcount
  662. prezikcount = 0
  663. preziktype = 0
  664. elseif ARGS[0] = 2:
  665. 'You will not offer a condom the next time you have sex.'
  666. if preziktype = 0: prezikcount = prezik
  667. if preziktype = 2: preziksabo = prezik
  668. prezik = 0
  669. preziktype = 1
  670. elseif ARGS[0] = 3:
  671. 'You will offer your sabotaged condom the next time you have sex.'
  672. if preziktype = 0: prezikcount = prezik
  673. prezik = preziksabo
  674. preziksabo = 0
  675. preziktype = 2
  676. elseif ARGS[0] = 4:
  677. if preziktype ! 0 and prezikcount > 0:
  678. preziksabo +=1
  679. prezikcount -=1
  680. 'You use a needle to punch holes in one of your condoms.'
  681. elseif preziktype = 0 and prezik > 0:
  682. preziksabo +=1
  683. prezik -=1
  684. 'You use a needle to punch holes in one of your condoms.'
  685. else
  686. 'You do not have any condoms to sabotage.'
  687. end
  688. end
  689. if i = 0:
  690. dynamic $din_Switch_Condom_Menu
  691. else
  692. dynamic $din_Table_Condom_Menu
  693. end
  694. }
  695. $din_Update_Condom_Counts = {
  696. if prezik + prezikcount + preziksabo > 0: prezikmsg = 1
  697. if preziktype = 0:
  698. if prezikcount > 0:
  699. prezik += prezikcount
  700. prezikcount = 0
  701. end
  702. if prezik <= 0:
  703. 'You are out of condoms.'
  704. prezik = 0
  705. prezikcount = 0
  706. preziktype = 1
  707. end
  708. elseif preziktype = 1:
  709. if prezik > 0:
  710. prezikcount += prezik
  711. prezik = 0
  712. end
  713. elseif preziktype = 2:
  714. if preziksabo > 0:
  715. prezik += preziksabo
  716. preziksabo = 0
  717. end
  718. if prezik <= 0 and prezikcount <= 0:
  719. if prezikmsg = 1:prezikmsg = 2
  720. prezik = 0
  721. preziksabo = 0
  722. prezikcount = 0
  723. preziktype = 1
  724. elseif prezik <= 0 and prezikcount > 0:
  725. 'You have run out of sabotaged condoms so will use normal condoms.'
  726. prezik = prezikcount
  727. prezikcount = 0
  728. preziktype = 0
  729. end
  730. end
  731. }
  732. $d_tabletkied = {
  733. clr
  734. tabloc = 0
  735. if tabletkiday < daystart: pl '<a href="exec:dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  736. if tabletkicheck = 0:
  737. pl '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  738. elseif tabletkicheck = 1:
  739. pl '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  740. end
  741. pl '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  742. if tabletkioddk = 1: pl '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  743. PL '<a href="exec:gs ''stat''">Return</a>'
  744. }
  745. $d_tabletkiedt = {
  746. tabloc = 1
  747. if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  748. if tabletkicheck = 0:
  749. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  750. elseif tabletkicheck = 1:
  751. '<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  752. end
  753. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  754. if tabletkioddk = 1: pl '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  755. '<a href="exec:gt ''stol'', ''bc''">Return</a>'
  756. }
  757. $d_tabletkiedA = {
  758. if ARGS[0] = 1:
  759. tabletkipd += tabletkipt
  760. if tabletkiday ! daystart:
  761. gs 'din_bad','takepill'
  762. tabletkiday = daystart
  763. tabletkipt = 0
  764. tabletkipi = 0
  765. else
  766. pcs_health -= 1
  767. end
  768. pilldaychk = 1
  769. 'You take a birth control pill.'
  770. gs 'stat'
  771. elseif ARGS[0] = 2:
  772. 'You will do your best to remember to take your birth control pills every day.'
  773. tabletkicheck = 1
  774. gs 'stat'
  775. elseif ARGS[0] = 3:
  776. 'You will take your birth control pills as desired.'
  777. tabletkicheck = 0
  778. gs 'stat'
  779. elseif ARGS[0] = 4:
  780. if pcs_intel + pillsdays <= rand(30,95):
  781. 'These pills appear to be normal birth control pills.'
  782. tabletkioddk = 0
  783. gs 'stat'
  784. else
  785. if ptype = 0: $pillprob = 'nothing unusual about them.'
  786. if ptype = 1: $pillprob = 'that the pills have expired months ago.'
  787. if ptype = 2: $pillprob = 'that the label has spelling mistakes and the logo is backwards.'
  788. if ptype = 3: $pillprob = 'that the pills are discoloured and there is no expiry date.'
  789. if ptype = 4: $pillprob = 'that the pills are all the same colour.'
  790. if ptype = 5: $pillprob = 'that the pills seem to be smaller than normal.'
  791. 'Upon taking a closer look at your birth control pills, you notice <<$pillprob>>'
  792. if ptype > 0: tabletkioddk = 1
  793. gs 'stat'
  794. if tabloc = 0:
  795. dynamic $d_tabletkied
  796. else
  797. dynamic $d_tabletkiedt
  798. end
  799. end
  800. elseif ARGS[0] = 5:
  801. 'You get rid of the strange pills.'
  802. tabletkioddk = 0
  803. pillsleft[ptype] = 0
  804. tabletkioddp = 0
  805. gs 'stat'
  806. end
  807. if tabloc = 0:
  808. dynamic $d_tabletkied
  809. else
  810. dynamic $d_tabletkiedt
  811. end
  812. }
  813. $d_cycreport_choice = {
  814. clr
  815. dynamic $d_cycreport_update
  816. PL 'Current Status: <<$cycreport_txt>>.'
  817. if $cycreport_txt ! 'In labour':
  818. NL
  819. PL 'Change Status because:'
  820. if thinkpreg = 0:
  821. if knowpreg = 1:
  822. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I''m pregnant.</a>'
  823. else
  824. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I think I am Pregnant.</a>'
  825. end
  826. elseif thinkpreg = 1:
  827. PL '<a href="exec: dynamic $d_cycreport_actor, 1">I''m not Pregnant.</a>'
  828. end
  829. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  830. PL '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  831. elseif thinkpreg ! 1:
  832. PL '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  833. PL '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  834. end
  835. if thinkpreg = 1 or knowpreg = 1:
  836. PL '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  837. PL '<a href="exec: dynamic $d_cycreport_actor, 7">I think the Father is...</a>'
  838. end
  839. elseif cycle = 5:
  840. pl 'Broken water and contractions, it''s pretty clear what is going on. Labour. You need to get to a hospital ASAP.'
  841. else
  842. dynamic $d_cycreport_actor, 10
  843. end
  844. PL '<a href="exec:gs ''stat''">Return</a>'
  845. }
  846. $d_cycreport_actor = {
  847. if ARGS[0] = 1:
  848. if knowpreg = 1:
  849. denypreg = 1
  850. thinkpreg = 0
  851. else
  852. denypreg = 0
  853. thinkpreg = 0
  854. temp[1] = daystart - daylastperiod
  855. end
  856. dynamic $d_cycreport_update
  857. gs 'stat'
  858. elseif ARGS[0] = 2:
  859. thinkpreg = 1
  860. denypreg = 0
  861. dynamic $d_cycreport_update
  862. gs 'stat'
  863. elseif ARGS[0] = 3:
  864. thinkpreg = 0
  865. denypreg = 0
  866. daylastperiod = daystart
  867. dynamic $d_cycreport_update
  868. gs 'stat'
  869. elseif ARGS[0] = 4:
  870. thinkpreg = 0
  871. denypreg = 0
  872. clr
  873. pl 'How many days ago was your last period?'
  874. pl 'Currently: <<pertemp>>'
  875. 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>'
  876. elseif ARGS[0] = 5:
  877. thinkpreg = 0
  878. denypreg = 0
  879. $cycreport_txt = 'You do not believe you have periods any more.'
  880. gs 'stat'
  881. elseif ARGS[0] = 6:
  882. clr
  883. pl 'How many days ago was your last period?'
  884. pl 'Currently: <<pertemp>>'
  885. 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>'
  886. elseif ARGS[0] = 7:
  887. clr
  888. tempmax = arrsize('$cumfthname')-1
  889. tempcurr = 0
  890. sumcum = 0
  891. *nl
  892. :potfathloop
  893. if cumtime[tempcurr] > 1:$cum = 'cumshots' else $cum = 'cumshot'
  894. if cumtime[tempcurr] > 0:pl '<<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>) - <<cumtime[tempcurr]>> <<$cum>>' & sumcum += cumtime[tempcurr]
  895. if tempcurr < tempmax:tempcurr += 1 & jump 'potfathloop'
  896. if sumcum > 1:$cum = 's' else $cum = ''
  897. pl '<br>You think you have had <<sumcum>> load<<$cum>> of cumshot<<$cum>> in your womb alltogether that could have gotten you pregnant.'
  898. pl 'You currently think the father is: <<$wombthfath>><br>'
  899. *nl
  900. tempcurr = 0
  901. :pickfathloop
  902. if cumtime[tempcurr] > 0:
  903. if $npc_usedname[$cumfthname[tempcurr]] <> '':
  904. pl ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7"><<$npc_usedname[$cumfthname[tempcurr]]>> (<<$cumfthname[tempcurr]>>)</a>'
  905. else
  906. pl ' <a href="exec: $wombthfath = ''<<$npc_usedname[$cumfthname[tempcurr]]>>'' & $wombthfathID = ''<<$cumfthname[tempcurr]>>'' & dynamic $d_cycreport_actor, 7">Unknown (-)</a>'
  907. end
  908. end
  909. if tempcurr < tempmax:tempcurr += 1 & jump 'pickfathloop'
  910. killvar 'sumcum'
  911. killvar 'cum'
  912. killvar 'tempmax'
  913. killvar 'tempcurr'
  914. pl '<br> <a href="exec:dynamic $d_cycreport_choice">Accept</a>'
  915. elseif ARGS[0] = 10:
  916. temp = arrsize('Babyptype')
  917. temp -= 1
  918. $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  919. gs 'stat'
  920. end
  921. }
  922. $d_cycreport_update = {
  923. killvar 'temp'
  924. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  925. if mesec > 0:
  926. $cycreport_txt = 'You are currently on your period.'
  927. else
  928. if cyccustom = 1:
  929. if preg = 1 and knowpreg = 1:
  930. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  931. if $wombthfath ! 'unknown': $cycreport_txt = '<<$cycreport_txt>> You think the father is <<$wombthfath>>'
  932. elseif knowpregloss = 1:
  933. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy.'
  934. elseif knowpregrecover = 1:
  935. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  936. elseif menoage <= age and cycle = 6:
  937. $cycreport_txt = 'You have gone through menopause.'
  938. else
  939. temp[1] = daystart-lastmens
  940. if tabletkishot > 0:
  941. $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>'
  942. elseif pillcon2 > 30000:
  943. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=green>You are currently on the pill.</font>'
  944. elseif pillcon2 > 8000 and (FocH > 70 or ovulate > 0):
  945. $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>'
  946. elseif pillcon2 > 8000:
  947. $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.'
  948. elseif daystart = tabletkiday:
  949. $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.'
  950. elseif FocH > 70 or ovulate > 0:
  951. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=red>It is currently a dangerous day.</font>'
  952. else
  953. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  954. end
  955. end
  956. elseif denypreg = 1:
  957. if pregchem < 525:
  958. denypreg = 1
  959. thinkpreg = 0
  960. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  961. elseif pregchem < 1863:
  962. denypreg = 1
  963. thinkpreg = 0
  964. $cycreport_txt = 'You have a strange flu making you feel ill.'
  965. elseif pregchem < 4000:
  966. denypreg = 1
  967. thinkpreg = 0
  968. $cycreport_txt = 'Your strange flu still hasn''t gone away. As soon as it does you plan to exercise and loose the excess fat you are building up.'
  969. elseif pregchem < 6000:
  970. denypreg = 1
  971. thinkpreg = 0
  972. $cycreport_txt = 'Your weight just won''t come off...'
  973. elseif pregchem < 7500:
  974. denypreg = 1
  975. thinkpreg = 0
  976. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  977. elseif pregchem >= 7500:
  978. thinkpreg = 0
  979. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  980. else
  981. temp = daystart-lastmens
  982. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  983. end
  984. elseif cyccustom = 0:
  985. if $cycreport_txt ! 'In labour':
  986. if thinkpreg = 1 or knowpreg = 1:
  987. if knowpreg = 0: $temp = ' think you'
  988. if $wombthfath = 'unknown' or $wombthfath = '':
  989. $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>>.'
  990. else
  991. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  992. end
  993. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  994. temp = daystart-lastmens
  995. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  996. end
  997. killvar 'temp'
  998. end
  999. end
  1000. end
  1001. }
  1002. $d_cycreport_upduedate = {
  1003. temp = (280 + daylastperiod) - daystart
  1004. pregdueday = day
  1005. pregduemonth = month
  1006. pregdueyear = year
  1007. :pregduedateloop
  1008. if pregduemonth = 1 and temp > 31 - pregdueday:
  1009. pregduemonth += 1
  1010. temp -= 31 - pregdueday
  1011. pregdueday = 0
  1012. elseif pregduemonth = 2 and temp > 28 - pregdueday:
  1013. pregduemonth += 1
  1014. temp -= 28 - pregdueday
  1015. pregdueday = 0
  1016. elseif pregduemonth = 3 and temp > 31 - pregdueday:
  1017. pregduemonth += 1
  1018. temp -= 31 - pregdueday
  1019. pregdueday = 0
  1020. elseif pregduemonth = 4 and temp > 30 - pregdueday:
  1021. pregduemonth += 1
  1022. temp -= 30 - pregdueday
  1023. pregdueday = 0
  1024. elseif pregduemonth = 5 and temp > 31 - pregdueday:
  1025. pregduemonth += 1
  1026. temp -= 31 - pregdueday
  1027. pregdueday = 0
  1028. elseif pregduemonth = 6 and temp > 30 - pregdueday:
  1029. pregduemonth += 1
  1030. temp -= 30 - pregdueday
  1031. pregdueday = 0
  1032. elseif pregduemonth = 7 and temp > 31 - pregdueday:
  1033. pregduemonth += 1
  1034. temp -= 31 - pregdueday
  1035. pregdueday = 0
  1036. elseif pregduemonth = 8 and temp > 31 - pregdueday:
  1037. pregduemonth += 1
  1038. temp -= 31 - pregdueday
  1039. pregdueday = 0
  1040. elseif pregduemonth = 9 and temp > 30 - pregdueday:
  1041. pregduemonth += 1
  1042. temp -= 30 - pregdueday
  1043. pregdueday = 0
  1044. elseif pregduemonth = 10 and temp > 31 - pregdueday:
  1045. pregduemonth += 1
  1046. temp -= 31 - pregdueday
  1047. pregdueday = 0
  1048. elseif pregduemonth = 11 and temp > 30 - pregdueday:
  1049. pregduemonth += 1
  1050. temp -= 30 - pregdueday
  1051. pregdueday = 0
  1052. elseif pregduemonth = 12 and temp > 31 - pregdueday:
  1053. pregduemonth = 1
  1054. pregdueyear += 1
  1055. temp -= 31 - pregdueday
  1056. pregdueday = 0
  1057. else
  1058. pregdueday = temp
  1059. temp = 0
  1060. end
  1061. if temp > 0: jump 'pregduedateloop'
  1062. $pregduedate = '<<pregduemonth>> / <<pregdueday>> / <<pregdueyear>>'
  1063. }
  1064. $d_pregmovement = {
  1065. if denypreg = 0 and pregchem > 0:
  1066. if thinkpreg > 0 and knowpreg = 0:
  1067. knowpreg = 1
  1068. if kid <= 0:
  1069. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  1070. else
  1071. 'Movement inside you confirms what you already thought. You are pregnant again.'
  1072. end
  1073. elseif knowpreg > 0:
  1074. temprand = rand(0,2)
  1075. if temprand = 0:
  1076. if pregchem > 5000:
  1077. 'Your baby visibly moves around inside you.'
  1078. else
  1079. 'You feel movement deep inside you as your baby shifts around.'
  1080. end
  1081. elseif temprand = 1:
  1082. if pregchem > 5000:
  1083. 'You wince as your baby delivers a vicious kick to your insides'
  1084. else
  1085. 'You feel your baby kicking.'
  1086. end
  1087. elseif temprand = 2:
  1088. if pregchem > 5000:
  1089. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  1090. else
  1091. 'You feel your baby kicking.'
  1092. end
  1093. end
  1094. else
  1095. if cyccustom = 1:
  1096. if pregchem < 4000:
  1097. if kid <= 0 :
  1098. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should go to the doctor?'
  1099. else
  1100. 'It feels as if a baby move inside you. Are you pregnant?'
  1101. end
  1102. else
  1103. knowpreg = 1
  1104. if kid <= 0:
  1105. 'It''s become pretty obvious. You are pregnant.'
  1106. else
  1107. 'It''s become pretty obvious. You are pregnant again.'
  1108. end
  1109. end
  1110. end
  1111. end
  1112. elseif pregchem > 0:
  1113. if kid > 0 and PregChem > 3903:
  1114. 'You try to deny it, but you just can''t any more. The large belly, the movement, You are pregnant again.'
  1115. denypreg = 0
  1116. dynamic $d_cycreport_upduedate
  1117. $cycreport_txt = 'You are pregnant.'
  1118. else
  1119. 'You feel movement deep inside you. It''s probably just gas.'
  1120. end
  1121. end
  1122. }
  1123. $use_mentats = {
  1124. if mentats_dose < 3:
  1125. '<font color = green>You take a pill and swallow it.</font>'
  1126. mentats_dose += 1
  1127. mentats_have -= 1
  1128. else
  1129. 'You really shouldn''t take any more today.'
  1130. end
  1131. }
  1132. $use_steroids = {
  1133. if steroid_dose < 3:
  1134. '<font color = blue>You swallow the orange pill.</font>'
  1135. steroid_dose += 1
  1136. steroid_counter += 1
  1137. steroid_have -= 1
  1138. else
  1139. 'You really shouldn''t take any more today.'
  1140. end
  1141. }
  1142. $use_bcream = {
  1143. if bcream_used < 1:
  1144. '<font color = #DB7093>You smear cream onto your breasts and rub it in.</font>'
  1145. bcream_used = 1
  1146. bcream_have -= 1
  1147. else
  1148. 'Using more won''t have any effect.'
  1149. end
  1150. }
  1151. $use_aphrodisiac = {
  1152. if aphrodisiac_overdose = 1:
  1153. 'You had enough for today.'
  1154. elseif aphrodisiac_timer = 0:
  1155. '<font color = #DB7093>You take a gum and chew it. Tastes like strawberry, but is also kind of spicy.</font>'
  1156. aphrodisiac_have -= 1
  1157. aphrodisiac_timer += 8
  1158. pcs_horny = 80
  1159. elseif aphrodisiac_timer > 0 and aphrodisiac_timer <= 8:
  1160. '<font color = #DB7093>You take another gum and chew it. It makes your mouth feel kinda tingly.</font>'
  1161. aphrodisiac_have -= 1
  1162. aphrodisiac_timer += 8
  1163. pcs_horny = 100
  1164. elseif aphrodisiac_timer > 8 and min_arousal < 60:
  1165. '<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>'
  1166. aphrodisiac_have -= 1
  1167. orgasm += 1
  1168. min_arousal += 10
  1169. aphrodisiac_overdose = 1
  1170. if min_arousal = 10:'<font color = #DB7093>That was intense! You can still feel the tingles.</font>'
  1171. if min_arousal = 20:'<font color = #DB7093>You are really starting to enjoy these! Your crotch still feels kinda hot though.</font>'
  1172. 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>'
  1173. 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>'
  1174. 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>'
  1175. if min_arousal = 60:'<font color = #DB7093>You are burning up. You feel like you could fuck anything and everything all day long.</font>'
  1176. else
  1177. '<font color = #DB7093>You chew another gum with trepidation, looking forward to more orgasms but nothing happens. Huh. Have you become immune?</font>'
  1178. aphrodisiac_have -= 1
  1179. end
  1180. }
  1181. if $ARGS[0] = 'takepill':
  1182. if tabletki > 0 and pillsleft[ptype] = 0:
  1183. tabletkirand = rand(1, tabletki)
  1184. if tabletkirand <= tabletkiold:
  1185. tabletki -=1
  1186. tabletkiold -=1
  1187. ptype = 1
  1188. pillsleft[ptype] = 28
  1189. elseif tabletkirand <= tabletkiold + tabletkifake:
  1190. tabletki -=1
  1191. tabletkifake -=1
  1192. ptype = 2
  1193. pillsleft[ptype] = 28
  1194. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej:
  1195. tabletki -=1
  1196. tabletkirej -=1
  1197. ptype = 3
  1198. pillsleft[ptype] = 28
  1199. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug:
  1200. tabletki -=1
  1201. tabletkisug -=1
  1202. ptype = 4
  1203. pillsleft[ptype] = 28
  1204. elseif tabletkirand <= tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert:
  1205. tabletki -=1
  1206. tabletkifert -=1
  1207. ptype = 5
  1208. pillsleft[ptype] = 28
  1209. else
  1210. tabletki -=1
  1211. ptype = 0
  1212. pillsleft[ptype] = 28
  1213. end
  1214. killvar 'tabletkirand'
  1215. end
  1216. !!pillcon2 is the ideal state, PC cosiders this the believed pillcon value
  1217. pillcon2 += ((pillcon2+15000)/40)+1000
  1218. if pillcon2 > 40000:pillcon2 = 40000
  1219. if ptype = 0:
  1220. pillsleft[ptype] -= 1
  1221. pcs_skin += 1
  1222. pillcon += ((pillcon+15000)/40)+1000
  1223. if pillcon > 40000: pillcon = 40000
  1224. elseif ptype = 1:
  1225. pillsleft[ptype] -= 1
  1226. pcs_skin += rand(0,1)
  1227. pillcon += ((pillcon+15000)/40)+ rand(250,1000)
  1228. if pillcon > 40000: pillcon = 40000
  1229. elseif ptype = 2:
  1230. pillsleft[ptype] -= 1
  1231. pcs_skin += rand(0,1)
  1232. pillcon += ((pillcon+15000)/40)+ rand(0,500)
  1233. if pillcon > 40000: pillcon = 40000
  1234. elseif ptype = 3:
  1235. pillsleft[ptype] -= 1
  1236. pcs_skin += rand(0,1)
  1237. if rand(0,4) = 0: pain['tummy'] += rand(5,10)
  1238. pillcon += ((pillcon+15000)/40)+ rand(250,2000)
  1239. if pillcon > 40000: pillcon = 40000
  1240. elseif ptype = 4:
  1241. pillsleft[ptype] -= 1
  1242. elseif ptype = 5:
  1243. pillsleft[ptype] -= 1
  1244. pcs_skin += 1
  1245. EggRH += rand(10,80)
  1246. end
  1247. end
  1248. --- din_bad ---------------------------------