1
0

din_bad 57 KB

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