din_bad 42 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034
  1. # din_bad
  2. $mobile_check = {
  3. if vladimirday ! daystart and hour >= 15 and hour <= 17:
  4. if vladimirQW = 20:
  5. '<b><font color="red">Your phone is ringing</font></b>'
  6. $caller = 'Vladimir'
  7. $callerid = 'images/qwest/vladimir/001'
  8. dynamic $phone_ring
  9. pl'<center><a href="exec:gt ''qwloc2''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  10. elseif vladimirQW = 25 and week = 6:
  11. '<b><font color="red">Your phone is ringing</font></b>'
  12. $caller = 'Vladimir'
  13. $callerid = 'images/qwest/vladimir/001'
  14. dynamic $phone_ring
  15. pl'<center><a href="exec:gt ''qwloc3''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  16. elseif vladimirQW = 35 and week = 6:
  17. '<b><font color="red">Your phone is ringing</font></b>'
  18. $caller = 'Vladimir'
  19. $callerid = 'images/qwest/vladimir/001'
  20. dynamic $phone_ring
  21. pl'<center><a href="exec:gt ''qwloc4''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:vladimirday = daystart & gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  22. end
  23. end
  24. if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12:
  25. '<b><font color="red">Your phone is ringing</font></b>'
  26. $caller = 'Margaret'
  27. $callerid = ''
  28. dynamic $phone_ring
  29. pl''
  30. pl''
  31. pl''
  32. pl''
  33. pl''
  34. pl''
  35. pl''
  36. pl''
  37. pl''
  38. pl''
  39. pl'<center><a href="exec:gt ''qwlocdog''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:qwdogiventday = daystart & gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  40. end
  41. if bfA > 0 and boydayA ! daystart and hour > 5 and hour < 20 and ringA = 0:
  42. if bfB = 1:bfB = 0
  43. if bfC = 1:bfC = 0
  44. if vnesh < vneshBoyA:
  45. bfA -= 1
  46. if bfA = 0:
  47. '<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
  48. else
  49. 'Your boyfriend <<$boyA>> has not called you.'
  50. end
  51. else
  52. ring = 1
  53. ringA = 1
  54. '<b><font color="red">Your phone is ringing</font></b>'
  55. PLAY 'sound/Old_Phone.mp3',30
  56. $caller = '<<$boyA>>'
  57. $callerid = 'images/pic/boy_face/'+boypicA+'.jpg'
  58. dynamic $phone_ring
  59. pl'<center><a href="exec:gt ''telefon'', ''boyA''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:boydayA = daystart & gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  60. end
  61. elseif bfB > 0 and boydayB ! daystart and hour > 5 and hour < 20 and ringB = 0:
  62. if bfA = 1:bfA = 0
  63. if bfC = 1:bfC = 0
  64. if vnesh < vneshBoyB:
  65. bfB -= 1
  66. if bfB = 0:
  67. '<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
  68. else
  69. 'Your boyfriend <<$boyB>> has not called you.'
  70. end
  71. else
  72. ring = 1
  73. ringB = 1
  74. '<b><font color="red">Your phone is ringing</font></b>'
  75. PLAY 'sound/Old_Phone.mp3',30
  76. $caller = '<<$boyB>>'
  77. $callerid = 'images/pic/boy_face/'+boypicB+'.jpg'
  78. dynamic $phone_ring
  79. pl'<center><a href="exec:gt ''telefon'', ''boyB''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:boydayB = daystart & gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  80. end
  81. elseif bfC > 0 and boydayC ! daystart and hour > 5 and hour < 20 and ringC = 0:
  82. if bfA = 1:bfA = 0
  83. if bfB = 1:bfB = 0
  84. if vnesh < vneshBoyC:
  85. 'Your boyfriend <<$boyC>> has not called you.'
  86. bfC -= 1
  87. if bfC = 0:
  88. '<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
  89. else
  90. 'Your boyfriend <<$boyC>> has not called you.'
  91. end
  92. else
  93. ring = 1
  94. ringC = 1
  95. '<b><font color="red">Your phone is ringing</font></b>'
  96. PLAY 'sound/Old_Phone.mp3',30
  97. $caller = '<<$boyC>>'
  98. $callerid = 'images/pic/boy_face/'+boypicC+'.jpg'
  99. dynamic $phone_ring
  100. pl'<center><a href="exec:gt ''telefon'', ''boyC''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:boydayC = daystart & gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  101. end
  102. end
  103. }
  104. $phone_ring ={
  105. clr
  106. if hour < 10:
  107. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  108. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  109. elseif hour > 9:
  110. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  111. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  112. end
  113. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  114. pl'<center><font size=6><<$caller>> calling</font></center>'
  115. pl'<center><img src="<<$callerid>>"><br></center>'
  116. pl''
  117. pl''
  118. pl''
  119. pl''
  120. ! pl'<center><a href="exec:gt ''telefon'', ''start''"><img src="images/pic/phone/call_accept.png"></a> <a href="exec:gs ''stat''"><img src="images/pic/phone/decline.png"></a></center>'
  121. }
  122. $phone_call_receive = {
  123. clr
  124. if hour < 10:
  125. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  126. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  127. elseif hour > 9:
  128. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  129. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  130. end
  131. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  132. pl'<center><font size=6>Talking to <<$caller>></font></center>'
  133. pl'<center><img src="<<$callerid>>"><br></center>'
  134. }
  135. $phone_balance = {
  136. if balans < 4:
  137. clr
  138. if hour < 10:
  139. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  140. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  141. elseif hour > 9:
  142. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  143. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  144. end
  145. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  146. pl'<center><font size=6>Not enough credit on your account</font></center>'
  147. pl'<center><img src="<<$callerid>>"><br></center>'
  148. pl'<center><a href="exec:gt $locM, $metkaM"><img src="images/pic/phone/decline.png"></a></center>'
  149. wait 3500
  150. cla
  151. gt $locM, $metkaM
  152. elseif balans >= 4:
  153. balans -= 4
  154. end
  155. }
  156. $Phone_call = {
  157. clr
  158. if hour < 10:
  159. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  160. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  161. elseif hour > 9:
  162. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  163. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  164. end
  165. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  166. pl'<center><font size=6>Calling Mom</font></center>'
  167. pl'<center><img src="images/pic/phone/icons/icon_npc1.png"><br></center>'
  168. pl'<center><a href="exec:dynamic $Phone_contactlist"><img src="images/pic/phone/decline.png"></a></center>'
  169. wait 1500
  170. minut += 1
  171. $callerid = 'images/pic/phone/icons/icon_npc1.png'
  172. dynamic $phone_balance
  173. $callerid = 'icon_npc1'
  174. dynamic $phone_call_reject
  175. }
  176. $phone_call_reject = {
  177. clr
  178. if hour < 10:
  179. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  180. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  181. elseif hour > 9:
  182. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  183. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  184. end
  185. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  186. pl'<center><font size=6>Calling....</font></center>'
  187. pl'<center><img src="images/pic/phone/icons/<<$callerid>>.png"><br></center>'
  188. pl'<center><a href="exec:dynamic $Phone_contactlist"><img src="images/pic/phone/decline.png"></a></center>'
  189. }
  190. $Phone_megafon = {
  191. clr
  192. if hour < 10:
  193. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  194. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  195. elseif hour > 9:
  196. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  197. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  198. end
  199. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  200. pl'<center><font size=6>Bullhorn</font></center>'
  201. pl'<center><img src="images/pic/icon/icon_megafon.png"><br></center>'
  202. pl'<center><B>The balance in the account: </B><font size=5><i><font size=6><<balans>></font></i> <b>₽</b>.</center>.'
  203. pl'<center><a href="exec:gt $locM, $metkaM"><img src="images/pic/icon/back.png"></a></center>'
  204. }
  205. $Phone_contactlist = {
  206. clr
  207. if hour < 10:
  208. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  209. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  210. elseif hour > 9:
  211. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  212. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  213. end
  214. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  215. pl'<center><font size=6>Contacts</font></center>'
  216. pl'<center><img src="images/pic/icon/icon_call.png"><br></center>'
  217. if StoryLine = 1:pl'<center><img src="images/pic/phone/icons/icon_npc1.png">..................................................<a href="exec:dynamic $Phone_call"><b>Call</b></a></center>'
  218. if hour >= 8 and hour <= 19:
  219. if telalla > 0:
  220. pl'<center><img src="images/pic/phone/icons/icon_ira1.png">..................................................<a href="exec:$callerid = ''images/pic/phone/icons/icon_ira1.png'' & $telsob = ''Alla'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></center>'
  221. end
  222. if telmasha > 0:
  223. pl'<center><img src="images/pic/phone/icons/icon_masha.png">..................................................<a href="exec:$callerid = ''images/pic/phone/icons/icon_masha.png'' & $telsob = ''Masha'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></center>'
  224. end
  225. if telkat > 0:
  226. pl'<center><img src="images/pic/phone/icons/icon_kat.png">..................................................<a href="exec:$callerid = ''images/pic/phone/icons/icon_kat.png'' & $telsob = ''Kate'' & gt ''telefon'', ''mobilaraz''"><b>Call</b></a></center>'
  227. end
  228. if bfA > 0 and svidanieA = 0:
  229. pl'<center><img src="images/pic/phone/icons/icon_bf'+boypicA+'.png">..................................................<a href="exec:gt ''telefon'', ''mobilarazboy''"><b>Call</b></a></center>'
  230. end
  231. else
  232. if telalla > 0:
  233. pl'<center><img src="images/pic/phone/icons/icon_ira1.png">..................................................<a href="exec:$callerid = ''icon_ira1'' & dynamic $phone_call_reject"><b>Call</b></a></center>'
  234. end
  235. if telmasha > 0:
  236. pl'<center><img src="images/pic/phone/icons/icon_masha.png">..................................................<a href="exec:$callerid = ''icon_masha'' & dynamic $phone_call_reject"><b>Call</b></a></center>'
  237. end
  238. if telkat > 0:
  239. pl'<center><img src="images/pic/phone/icons/icon_kat.png">..................................................<a href="exec:$callerid = ''icon_kat'' & dynamic $phone_call_reject"><b>Call</b></a></center>'
  240. end
  241. if bfA > 0 and svidanieA = 0:
  242. pl'<center><img src="images/pic/phone/icons/icon_bf'+boypicA+'.png">..................................................<a href="exec:$callerid = ''icon_bf''+boypicA & dynamic $phone_call_reject"><b>Call</b></a></center>'
  243. end
  244. end
  245. if nastjaqw > 0:
  246. pl'<center><img src="images/pic/phone/icons/icon_nastja.png">..................................................<a href="exec:gt ''telefon'', ''start''"><b>Call</b></a></center>'
  247. end
  248. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/pic/icon/back.png"></a></center>'
  249. }
  250. $Phone_pictures = {
  251. clr
  252. if hour < 10:
  253. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  254. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  255. elseif hour > 9:
  256. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  257. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  258. end
  259. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  260. pl'<center><font size=6>Gallery</font></center>'
  261. pl'<center><img src="images/pic/icon/icon_pictures.png"><br></center>'
  262. if phone_selfie[1] = 1:pl'<a href="exec:view''images/pic/phone/selfie/phone_selfie1.jpg''"><b>Photo number1</b></a>'
  263. if phone_selfie[2] = 1:pl'<a href="exec:view''images/pic/phone/selfie/phone_selfie2.jpg''"><b>Photo number2</b></a>'
  264. if vanr_selfie[0] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (0).jpg''"><b>Self after showering number1</b></a>'
  265. if vanr_selfie[1] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (1).jpg''"><b>Self after showering number2</b></a>'
  266. if vanr_selfie[2] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (2).jpg''"><b>Self after showering number3</b></a>'
  267. if vanr_selfie[3] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (3).jpg''"><b>Self after showering number4</b></a>'
  268. if vanr_selfie[4] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (4).jpg''"><b>Self after showering number5</b></a>'
  269. if vanr_selfie[5] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (5).jpg''"><b>Self after showering number6</b></a>'
  270. if vanr_selfie[6] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (6).jpg''"><b>Self after showering number7</b></a>'
  271. if vanr_selfie[7] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (7).jpg''"><b>Self after showering number8</b></a>'
  272. if vanr_selfie[8] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (8).jpg''"><b>Self after showering number9</b></a>'
  273. if vanr_selfie[9] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (9).jpg''"><b>Self after showering number10</b></a>'
  274. if vanr_selfie[10] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (10).jpg''"><b>Self after showering number11</b></a>'
  275. if vanr_selfie[11] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (11).jpg''"><b>Self after showering number12</b></a>'
  276. if vanr_selfie[12] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (12).jpg''"><b>Self after showering number13</b></a>'
  277. if vanr_selfie[13] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (13).jpg''"><b>Self after showering number14</b></a>'
  278. if vanr_selfie[14] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (14).jpg''"><b>Self after showering number15</b></a>'
  279. if vanr_selfie[15] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (15).jpg''"><b>Self after showering number16</b></a>'
  280. if vanr_selfie[16] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (16).jpg''"><b>Self after showering number17</b></a>'
  281. if vanr_selfie[17] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (17).jpg''"><b>Self after showering number18</b></a>'
  282. if vanr_selfie[18] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (18).jpg''"><b>Self after showering number19</b></a>'
  283. if vanr_selfie[19] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (19).jpg''"><b>Self after showering number20</b></a>'
  284. !if vanr_selfie[20] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (20).jpg''"><b>Self after showering number21</b></a>'
  285. if vanr_selfie[21] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (21).jpg''"><b>Self after showering number22</b></a>'
  286. if vanr_selfie[22] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (22).jpg''"><b>Self after showering number23</b></a>'
  287. if vanr_selfie[23] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (23).jpg''"><b>Self after showering number24</b></a>'
  288. if vanr_selfie[24] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (24).jpg''"><b>Self after showering number25</b></a>'
  289. if vanr_selfie[25] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (25).jpg''"><b>Self after showering number26</b></a>'
  290. if vanr_selfie[26] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (26).jpg''"><b>Self after showering number27</b></a>'
  291. if vanr_selfie[27] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (27).jpg''"><b>Self after showering number28</b></a>'
  292. if vanr_selfie[28] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (28).jpg''"><b>Self after showering number29</b></a>'
  293. if vanr_selfie[29] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (29).jpg''"><b>Self after showering number30</b></a>'
  294. if vanr_selfie[30] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (30).jpg''"><b>Self after showering number31</b></a>'
  295. if vanr_selfie[31] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (31).jpg''"><b>Self after showering number32</b></a>'
  296. if vanr_selfie[32] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (32).jpg''"><b>Self after showering number33</b></a>'
  297. if vanr_selfie[33] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (33).jpg''"><b>Self after showering number34</b></a>'
  298. if vanr_selfie[34] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (34).jpg''"><b>Self after showering number35</b></a>'
  299. if vanr_selfie[35] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (35).jpg''"><b>Self after showering number36</b></a>'
  300. if vanr_selfie[36] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (36).jpg''"><b>Self after showering number37</b></a>'
  301. if vanr_selfie[37] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (37).jpg''"><b>Self after showering number38</b></a>'
  302. if vanr_selfie[38] = 1:pl'<a href="exec:view''images/pic/phone/selfie/ero_selfie/vanr/s (38).jpg''"><b>Self after showering number39</b></a>'
  303. !if phone_selfie[m] = 1:pl'<a href="exec:view''images/pic/phone/phone_selfieM.jpg''"><b>Photo in sperm number1</b></a>'
  304. !if phone_selfie[n] = 1:pl'<a href="exec:view''images/pic/phone/phone_selfieN.jpg''"><b>Photo in sperm number2</b></a>'
  305. !if phone_selfie[x] = 1:pl'<a href="exec:view''images/pic/phone/phone_selfieX.jpg''"><b>Photo Event number1</b></a>'
  306. !if phone_selfie[y] = 1:pl'<a href="exec:view''images/pic/phone/phone_selfieY.jpg''"><b>Photo Event number2</b></a>'
  307. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/pic/icon/back.png"></a></center>'
  308. }
  309. $Phone_camera_selfie = {
  310. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan' and mirror_steam = hour:
  311. minut += RAND (5,7)
  312. phone_rand = RAND (0,38)
  313. vanr_selfie[phone_rand] = 1
  314. dynamic $Phone_pictures
  315. view 'images/pic/phone/selfie/ero_selfie/vanr/s (<<phone_rand>>).jpg'
  316. else
  317. minut += RAND (5,7)
  318. phone_rand = RAND (1,2)
  319. phone_selfie[phone_rand] = 1
  320. dynamic $Phone_pictures
  321. view 'images/pic/phone/selfie/phone_selfie<<phone_rand>>.jpg'
  322. end
  323. !if spdirtyf > 0: phone_rand = RAND (m,n) - for SELF in the semen
  324. !if photo_event_pic = x: phone_rand = RAND (x,y) - for photos during the events (by heart)
  325. !view 'images/pic/phone/phone_selfie<<phone_rand>>.jpg'
  326. }
  327. $Phone_camera = {
  328. clr
  329. if hour < 10:
  330. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  331. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  332. elseif hour > 9:
  333. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  334. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  335. end
  336. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  337. pl'<center><font size=6>Camera</font></center>'
  338. pl'<center><img src="images/pic/icon/icon_camera.png"><br></center>'
  339. pl'<a href="exec:dynamic $Phone_camera_selfie"><b>Make Self</b></a>'
  340. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/pic/icon/back.png"></a></center>'
  341. }
  342. $Phone_wheather = {
  343. clr
  344. if hour < 10:
  345. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  346. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  347. elseif hour > 9:
  348. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  349. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  350. end
  351. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  352. pl'<center><font size=6>Weather</font></center>'
  353. pl'<center><img src="images/pic/icon/icon_weather.png"><br></center>'
  354. pl'<center><B>Temperature: </B><font size=5><i><font size=6><<temper>></font></i> degrees Celsius. <i><<$osadki>></i></font></center>.'
  355. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/pic/icon/back.png"></a></center>'
  356. }
  357. $Phone_calendar = {
  358. clr
  359. if hour < 10:
  360. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  361. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  362. elseif hour > 9:
  363. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  364. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  365. end
  366. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  367. pl'<center><font size=6>Calendar</font></center>'
  368. pl'<center><img src="images/pic/icon/icon_calendar.png"><br></center>'
  369. pl'<center><B>Today: </B><font size=5><<$week>>, <i><font size=6><<day>></font></i> <<$month>> <i><font size=6><<year>></font></i> year.</font></center>'
  370. pl'<center><a href="exec:dynamic $Phone_menu"><img src="images/pic/icon/back.png"></a></center>'
  371. }
  372. $Phone_menu = {
  373. gs'stat'
  374. clr
  375. if hour < 10:
  376. if minut > 9:pl'<center><b>0<<hour>> : <<minut>></b></center>'
  377. if minut < 10:pl'<center><b>0<<hour>> : 0<<minut>></b></center>'
  378. elseif hour > 9:
  379. if minut > 9:pl'<center><b><<hour>> : <<minut>></b></center>'
  380. if minut < 10:pl'<center><b><<hour>> : 0<<minut>></b></center>'
  381. end
  382. pl'<center><img src="images/pic/icon/icon_statusbar.png"><br></center>'
  383. pl'<center><a href="exec:dynamic $Phone_camera"><img src="images/pic/icon/icon_camera.png"></a> <a href="exec: dynamic $Phone_calendar"><img src="images/pic/icon/icon_calendar.png"></a> <a href="exec:dynamic $Phone_pictures"><img src="images/pic/icon/icon_pictures.png"></a></center>'
  384. pl'<center><a href="exec: "><img src="images/pic/icon/icon_music.png"></a> <a href="exec:dynamic $objcheat_menu"><img src="images/pic/icon/icon_settings.png"></a> <a href="exec:dynamic $Phone_wheather"><img src="images/pic/icon/icon_weather.png"></a></center>'
  385. pl'<center><a href="exec:dynamic $Phone_contactlist"><img src="images/pic/icon/icon_call.png"></a> <a href="exec: "><img src="images/pic/icon/icon_sms.png"></a> <a href="exec:dynamic $Phone_megafon"><img src="images/pic/icon/icon_megafon.png"></a></center>'
  386. pl'<center><a href="exec:gs''stat''"><img src="images/pic/icon/back.png"></a></center>'
  387. }
  388. $d_salf = {
  389. clr
  390. if sparrloc[13] > 0 or sparrloc[11] > 0 or sparrloc[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>'
  391. if sparrloc[14] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your belly</b></a>'
  392. if sparrloc[15] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your breasts</b></a>'
  393. if sparrloc[1] > 0 or sparrloc[4] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 15 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your ass and pussy</b></a>'
  394. if sparrloc[10] > 0 or sparrloc[9] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your arms and legs</b></a>'
  395. if sparrloc[2] > 0 or sparrloc[5] > 0 or sparrloc[6] > 0 or sparrloc[7] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 6 & gs ''cum_cleanup'' & gs ''stat''"><b>Clean up clothing</b></a>'
  396. if mop ! 1:pl '<a href="exec:salfetka -= 1 & mop = 1 & gs ''stat''"><b>Wipe cosmetics</b></a>'
  397. pl '<a href="exec:gs ''stat''"><br><b>Not using tissue</b></a>'
  398. }
  399. $d_kosmetitka = {
  400. clr
  401. pl '<a href="exec:gs ''stat''"><b>Close makeup bag</b></a>'
  402. if kosmetitka >= 1:pl '<a href="exec:mop = 2 & kosmetitka -= 1 & gs ''stat''"><b>Light make-up</b></a>'
  403. if kosmetitka >= 2:pl '<a href="exec:mop = 3 & kosmetitka -= 2 & gs ''stat''"><b>Natural make-up</b></a>'
  404. if kosmetitka >= 3:pl '<a href="exec:mop = 4 & kosmetitka -= 3 & gs ''stat''"><b>Heavy make-up</b></a>'
  405. }
  406. $d_mouthwash = {
  407. clr
  408. fbreath = 1
  409. cumspclnt = 2
  410. gs 'cum_cleanup'
  411. mouthwash -= 1
  412. pl 'Your breath smells minty fresh'
  413. pl ''
  414. pl '<a href="exec:gs ''stat''"><b>Done</b></a>'
  415. }
  416. $d_bag = {
  417. clr
  418. pl'<center><img src="images/pic/icon/purse_icon.png"><br></center>'
  419. if salfetka > 0:pl 'You have <<salfetka>> wet wipes. <a href="exec:dynamic $d_salf"><b>Use tissue</b></a>'
  420. if kosmetitka > 0 and mop = 1:pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>. <a href="exec:dynamic $d_kosmetitka"><b>Put on makeup</b></a>'
  421. if kosmetitka > 0 and mop ! 1:pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>.'
  422. if mouthwash > 0 and fbreath = 0:pl 'You have mouthwash in your bag. Uses remaining: <<mouthwash>>. <a href="exec:dynamic $d_mouthwash"><b>Use mouthwash</b></a>'
  423. if mouthwash > 0 and fbreath = 1:pl 'You have mouthwash in your bag. Uses remaining: <<mouthwash>>.'
  424. if greben > 0 and hapri = 0:pl 'You have a hairbrush. <a href="exec:hapri = 1 & gs ''stat''"><b>Brush your hair</b></a>'
  425. if greben > 0 and hapri = 1:pl 'You have a hairbrush.'
  426. if prezik + prezikcount + preziksabo > 0:
  427. if preziktype = 2 or preziksabo > 0:
  428. 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>'
  429. elseif preziktype < 2 and preziksabo = 0:
  430. P 'You have <<prezik+prezikcount>> <a href="exec:dynamic $din_Switch_Condom_Menu"><b>condoms.</b></a>'
  431. END
  432. NL
  433. else
  434. pl 'You are out of condoms.'
  435. end
  436. if tabletki > 0:
  437. pl 'You have <<tabletki>> <a href="exec:dynamic $d_tabletkied">birth control pills.</b></a>'
  438. else
  439. pl 'You are out of birth control pills.'
  440. end
  441. if lubri > 0:pl'Do you have lubricant. Enough for <<lubri>> time.'
  442. 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>'
  443. if buterbrod > 0:pl 'You have a sandwich. <a href="exec:buterbrod = 0 & energy += 20 & cumspclnt = 2 & gs ''cum_cleanup'' & salo += 1 & gs ''stat''"><b>Eat</b></a>'
  444. if wine = 1 and alkowine = 0:pl'Your purse contains a bottle of <a href="exec:dynamic $dinalkowin1">wine</a>'
  445. if wine = 1 and alkowine = 1:pl'Your purse contains a half-bottle of <a href="exec:dynamic $dinalkowin2">wine</a>'
  446. if foto = 1:pl'Your purse contains a strange photo'
  447. pl '<a href="exec:dynamic $Phone_menu "><b>Phone</b></a>'
  448. pl'<center><a href="exec:gs''stat''"><img src="images/pic/icon/back.png"></a></center>'
  449. pl'<center><a href="exec:gs''stat''"><b>Return</b></a></center>'
  450. }
  451. $dinalkowin1 = {
  452. cla
  453. *clr
  454. alkowine = 1
  455. if water <= 90:
  456. water = 100
  457. else
  458. water += 10
  459. end
  460. if intel > 5 : intel -= 1
  461. alko += 5
  462. cumspclnt = 2
  463. gs 'cum_cleanup'
  464. fbreath = 0
  465. gs'stat'
  466. '<center><img src="images/pic/alkowin.jpg"></center>'
  467. 'You opened her purse and pulled out, laid up in it, a bottle of wine and slowly drank half.'
  468. act '...':gt $CURLOC
  469. }
  470. $dinalkowin2 = {
  471. cla
  472. *clr
  473. alkowine = 0
  474. if water <= 90:
  475. water = 100
  476. else
  477. water += 10
  478. end
  479. wine = 0
  480. if intel > 5: intel -= 1
  481. alko += 5
  482. cumspclnt = 2
  483. gs 'cum_cleanup'
  484. fbreath = 0
  485. gs'stat'
  486. '<center><img src="images/pic/alkowin.jpg"></center>'
  487. 'You opened her purse and pulled out, the remaining half bottle of wine and drank slowly threw the empty bottle.'
  488. act '...':gt $CURLOC
  489. }
  490. $din_Switch_Condom_Menu = {
  491. dynamic $din_Update_Condom_Counts
  492. clr
  493. i = 0
  494. pl 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal, <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms.'
  495. nl
  496. if preziktype > 0:
  497. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to Normal Condoms</a>.'
  498. end
  499. if preziktype ! 1:
  500. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using Condoms</a>.'
  501. end
  502. if preziktype ! 2:
  503. PL '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to Sabotaged Condoms</a>.'
  504. end
  505. if prezikcount > 0 or preziktype = 0:
  506. pl '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  507. end
  508. NL
  509. PL '<a href="exec:gs ''stat''">Return</a>'
  510. }
  511. $din_Table_Condom_Menu = {
  512. dynamic $din_Update_Condom_Counts
  513. *clr
  514. i = 1
  515. 'You have <<iif(preziktype < 2, prezik+prezikcount, prezikcount)>> normal, <<iif(preziktype = 2, prezik+preziksabo, preziksabo)>> sabotaged condoms.'
  516. nl
  517. if preziktype > 0:
  518. '<a href="exec:dynamic $din_Do_Condom_Counts, 1">Switch to Normal Condoms</a>.'
  519. end
  520. if preziktype ! 1:
  521. '<a href="exec:dynamic $din_Do_Condom_Counts, 2">Stop using Condoms</a>.'
  522. end
  523. if preziktype ! 2:
  524. '<a href="exec:dynamic $din_Do_Condom_Counts, 3">Switch to Sabotaged Condoms</a>.'
  525. end
  526. if prezikcount > 0 or preziktype = 0:
  527. '<a href="exec:dynamic $din_Do_Condom_Counts, 4">Sabotage a condom</a>.'
  528. end
  529. NL
  530. '<a href="exec:gt ''stol'', ''bc''">Return</a>'
  531. }
  532. $din_Do_Condom_Counts = {
  533. !{set condom count and type}
  534. if ARGS[0] = 1:
  535. clr
  536. 'You will offer a condom the next time you have sex.'
  537. if preziktype = 2: preziksabo = prezik
  538. prezik = prezikcount
  539. prezikcount = 0
  540. preziktype = 0
  541. elseif ARGS[0] = 2:
  542. 'You will not offer a condom the next time you have sex.'
  543. if preziktype = 0: prezikcount = prezik
  544. if preziktype = 2: preziksabo = prezik
  545. prezik = 0
  546. preziktype = 1
  547. elseif ARGS[0] = 3:
  548. 'You will offer your sabotaged condom the next time you have sex.'
  549. if preziktype = 0: prezikcount = prezik
  550. prezik = preziksabo
  551. preziksabo = 0
  552. preziktype = 2
  553. elseif ARGS[0] = 4:
  554. if preziktype ! 0 and prezikcount > 0:
  555. preziksabo +=1
  556. prezikcount -=1
  557. 'You use a needle to punch holes in one of your condoms.'
  558. elseif preziktype = 0 and prezik > 0:
  559. preziksabo +=1
  560. prezik -=1
  561. 'You use a needle to punch holes in one of your condoms.'
  562. else
  563. 'You do not have any condoms to sabotage.'
  564. end
  565. end
  566. if i = 0:
  567. dynamic $din_Switch_Condom_Menu
  568. else
  569. dynamic $din_Table_Condom_Menu
  570. end
  571. }
  572. $din_Update_Condom_Counts = {
  573. if preziktype = 0:
  574. if prezikcount > 0:
  575. prezik += prezikcount
  576. prezikcount = 0
  577. end
  578. if prezik <= 0:
  579. 'You are out of condoms.'
  580. prezik = 0
  581. prezikcount = 0
  582. preziktype = 1
  583. end
  584. elseif preziktype = 1:
  585. if prezik > 0:
  586. prezikcount += prezik
  587. prezik = 0
  588. end
  589. elseif preziktype = 2:
  590. if preziksabo > 0:
  591. prezik += preziksabo
  592. preziksabo = 0
  593. end
  594. if prezik <= 0 and prezikcount <= 0:
  595. 'You are out of condoms.'
  596. prezik = 0
  597. preziksabo = 0
  598. prezikcount = 0
  599. preziktype = 1
  600. elseif prezik <= 0 and prezikcount > 0:
  601. 'You have run out of sabotaged condoms so will use normal condoms.'
  602. prezik = prezikcount
  603. prezikcount = 0
  604. preziktype = 0
  605. end
  606. end
  607. }
  608. $d_tabletkied = {
  609. clr
  610. tabloc = 0
  611. if tabletkiday < daystart: pl '<a href="exec:dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  612. if tabletkicheck = 0:
  613. pl '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  614. elseif tabletkicheck = 1:
  615. pl '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  616. end
  617. pl '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  618. if tabletkioddk = 1: pl '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  619. PL '<a href="exec:gs ''stat''">Return</a>'
  620. }
  621. $d_tabletkiedt = {
  622. tabloc = 1
  623. if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  624. if tabletkicheck = 0:
  625. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  626. elseif tabletkicheck = 1:
  627. '<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  628. end
  629. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  630. if tabletkioddk = 1: pl '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  631. '<a href="exec:gt ''stol'', ''bc''">Return</a>'
  632. }
  633. $d_tabletkiedA = {
  634. if ARGS[0] = 1:
  635. tabletkipd += tabletkipt
  636. tabletki -= 1
  637. if tabletkiday ! daystart:
  638. pillcon += 1000+(pillcon+15000)/40
  639. if pillcon > 40000: pillcon = 40000
  640. tabletkiday = daystart
  641. tabletkipt = 0
  642. tabletkipi = 0
  643. else
  644. health -= 1
  645. end
  646. 'You take a birth control pill.'
  647. gs 'stat'
  648. elseif ARGS[0] = 2:
  649. 'You will do your best to remember to take your birth control pills every day.'
  650. tabletkicheck = 1
  651. gs 'stat'
  652. elseif ARGS[0] = 3:
  653. 'You will take your birth control pills as desired.'
  654. tabletkicheck = 0
  655. gs 'stat'
  656. elseif ARGS[0] = 4:
  657. if tabletkioddp <= 0:
  658. 'These pills appear to be normal birth control pills.'
  659. tabletkioddk = 0
  660. gs 'stat'
  661. else
  662. if Tabletki <= 30:
  663. 'There is something unusual about the pills. They do not look normal.'
  664. else
  665. 'There is something unusual about some of your pills. They do not look normal.'
  666. end
  667. tabletkioddk = 1
  668. gs 'stat'
  669. if tabloc = 0:
  670. dynamic $d_tabletkied
  671. else
  672. dynamic $d_tabletkiedt
  673. end
  674. end
  675. elseif ARGS[0] = 5:
  676. 'You get rid of the strange pills.'
  677. tabletkioddk = 0
  678. tabletki -= 30
  679. tabletkioddp = 0
  680. if tabletki < 0:
  681. tabletki = 0
  682. end
  683. gs 'stat'
  684. end
  685. if tabloc = 0:
  686. dynamic $d_tabletkied
  687. else
  688. dynamic $d_tabletkiedt
  689. end
  690. }
  691. $d_cycreport_choice = {
  692. clr
  693. dynamic $d_cycreport_update
  694. PL 'Current Status: <<$cycreport_txt>>.'
  695. if $cycreport_txt ! 'In labour':
  696. NL
  697. PL 'Change Status because:'
  698. if thinkpreg = 0:
  699. if knowpreg = 1:
  700. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I''m pregnant.</a>'
  701. else
  702. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I think I am Pregnant.</a>'
  703. end
  704. elseif thinkpreg = 1:
  705. PL '<a href="exec: dynamic $d_cycreport_actor, 1">I''m not Pregnant.</a>'
  706. end
  707. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  708. PL '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  709. elseif thinkpreg ! 1:
  710. PL '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  711. PL '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  712. end
  713. if thinkpreg = 1 or knowpreg = 1:
  714. PL '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  715. PL '<a href="exec: dynamic $d_cycreport_actor, 7">I think the Father is...</a>'
  716. end
  717. elseif cycle = 5:
  718. pl 'Broken water and contractions, it''s pretty clear what is going on. Labour. You need to get to a hospital ASAP.'
  719. else
  720. dynamic $d_cycreport_actor, 10
  721. end
  722. PL '<a href="exec:gs ''stat''">Return</a>'
  723. }
  724. $d_cycreport_actor = {
  725. if ARGS[0] = 1:
  726. if knowpreg = 1:
  727. denypreg = 1
  728. thinkpreg = 0
  729. else
  730. denypreg = 0
  731. thinkpreg = 0
  732. temp[1] = daystart-daylastperiod
  733. end
  734. dynamic $d_cycreport_update
  735. gs 'stat'
  736. elseif ARGS[0] = 2:
  737. thinkpreg = 1
  738. denypreg = 0
  739. dynamic $d_cycreport_update
  740. gs 'stat'
  741. elseif ARGS[0] = 3:
  742. thinkpreg = 0
  743. denypreg = 0
  744. daylastperiod = daystart
  745. dynamic $d_cycreport_update
  746. gs 'stat'
  747. elseif ARGS[0] = 4:
  748. thinkpreg = 0
  749. denypreg = 0
  750. clr
  751. pl 'How many days ago was your last period?'
  752. pl 'Currently: <<pertemp>>'
  753. 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>'
  754. elseif ARGS[0] = 5:
  755. thinkpreg = 0
  756. denypreg = 0
  757. $cycreport_txt = 'You do not believe you have periods any more.'
  758. gs 'stat'
  759. elseif ARGS[0] = 6:
  760. clr
  761. pl 'How many days ago was your last period?'
  762. pl 'Currently: <<pertemp>>'
  763. 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>'
  764. elseif ARGS[0] = 7:
  765. temp = arrsize('$wombpotfath')
  766. if temp <= 0:
  767. $wombpotfath[0] = 'Unknown'
  768. FathpotAdd = 1
  769. Fathpotcheck = 0
  770. temp = arrsize('$cumarrnam')
  771. :potfakefathaddLoop
  772. if temp > Fathpotcheck:
  773. if cumarrkno[Fathpotcheck] = 1:
  774. $wombpotfath[Fathpotadd] = $cumarrnam[Fathpotcheck]
  775. Fathpotadd += 1
  776. end
  777. Fathpotcheck += 1
  778. Jump 'potfakefathaddloop'
  779. end
  780. temp = arrsize('$wombpotfath')
  781. end
  782. pl '<a href="exec: $wombthfath = ''<<$wombpotfath[temp]>>'' & dynamic $d_cycreport_actor, 2"><<$wombpotfath[temp]>></a>'
  783. :cyccustfathchoice
  784. if temp => 0:
  785. pl '<a href="exec: $wombthfath = ''<<$wombpotfath[temp]>>'' & dynamic $d_cycreport_actor, 2"><<$wombpotfath[temp]>></a>'
  786. temp -= 1
  787. jump 'cyccustfathchoice'
  788. end
  789. elseif ARGS[0] = 10:
  790. temp = arrsize('Babyptype')
  791. temp -= 1
  792. $cycreport_txt 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  793. gs 'stat'
  794. end
  795. }
  796. $d_cycreport_update = {
  797. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  798. if cyccustom = 1:
  799. if preg = 1 and knowpreg = 1:
  800. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  801. if $wombthfath ! 'Unknown': $cycreport_txt = '<<$cycreport_txt>> You think the father is <<$wombthfath>>'
  802. elseif knowpregloss = 1:
  803. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy.'
  804. elseif knowpregrecover = 1:
  805. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  806. elseif menoage <= age:
  807. $cycreport_txt = 'You have gone through menopause.'
  808. else
  809. temp[1] = daystart-daylastperiod
  810. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  811. end
  812. elseif denypreg = 1:
  813. if pregchem < 525:
  814. denypreg = 1
  815. thinkpreg = 0
  816. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  817. elseif pregchem < 1863:
  818. denypreg = 1
  819. thinkpreg = 0
  820. $cycreport_txt = 'You have a strange flu making you feel ill.'
  821. elseif pregchem < 4000:
  822. denypreg = 1
  823. thinkpreg = 0
  824. $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.'
  825. elseif pregchem < 6000:
  826. denypreg = 1
  827. thinkpreg = 0
  828. $cycreport_txt = 'Your weight just won''t come off...'
  829. elseif pregchem < 7500:
  830. denypreg = 1
  831. thinkpreg = 0
  832. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  833. elseif pregchem >= 7500:
  834. thinkpreg = 0
  835. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  836. else
  837. temp = daystart-daylastperiod
  838. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  839. end
  840. elseif cyccustom = 0:
  841. if $cycreport_txt ! 'In labour':
  842. if thinkpreg = 1 or knowpreg = 1:
  843. if knowpreg = 0: $temp = ' think you'
  844. if $wombthfath = 'Unknown' or $wombthfath = '':
  845. $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>>.'
  846. else
  847. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  848. end
  849. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  850. temp = daystart-daylastperiod
  851. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  852. end
  853. end
  854. end
  855. }
  856. $d_cycreport_upduedate = {
  857. temp = (280 + daylastperiod) - daystart
  858. pregdueday = day
  859. pregduemonth = month
  860. pregdueyear = year
  861. :pregduedateloop
  862. if pregduemonth = 1 and temp > 31 - pregdueday:
  863. pregduemonth += 1
  864. temp -= 31 - pregdueday
  865. pregdueday = 0
  866. elseif pregduemonth = 2 and temp > 28 - pregdueday:
  867. pregduemonth += 1
  868. temp -= 28 - pregdueday
  869. pregdueday = 0
  870. elseif pregduemonth = 3 and temp > 31 - pregdueday:
  871. pregduemonth += 1
  872. temp -= 31 - pregdueday
  873. pregdueday = 0
  874. elseif pregduemonth = 4 and temp > 30 - pregdueday:
  875. pregduemonth += 1
  876. temp -= 30 - pregdueday
  877. pregdueday = 0
  878. elseif pregduemonth = 5 and temp > 31 - pregdueday:
  879. pregduemonth += 1
  880. temp -= 31 - pregdueday
  881. pregdueday = 0
  882. elseif pregduemonth = 6 and temp > 30 - pregdueday:
  883. pregduemonth += 1
  884. temp -= 30 - pregdueday
  885. pregdueday = 0
  886. elseif pregduemonth = 7 and temp > 31 - pregdueday:
  887. pregduemonth += 1
  888. temp -= 31 - pregdueday
  889. pregdueday = 0
  890. elseif pregduemonth = 8 and temp > 31 - pregdueday:
  891. pregduemonth += 1
  892. temp -= 31 - pregdueday
  893. pregdueday = 0
  894. elseif pregduemonth = 9 and temp > 30 - pregdueday:
  895. pregduemonth += 1
  896. temp -= 30 - pregdueday
  897. pregdueday = 0
  898. elseif pregduemonth = 10 and temp > 31 - pregdueday:
  899. pregduemonth += 1
  900. temp -= 31 - pregdueday
  901. pregdueday = 0
  902. elseif pregduemonth = 11 and temp > 30 - pregdueday:
  903. pregduemonth += 1
  904. temp -= 30 - pregdueday
  905. pregdueday = 0
  906. elseif pregduemonth = 12 and temp > 31 - pregdueday:
  907. pregduemonth = 1
  908. pregdueyear += 1
  909. temp -= 31 - pregdueday
  910. pregdueday = 0
  911. else
  912. pregdueday = temp
  913. temp = 0
  914. end
  915. if temp > 0: jump 'pregduedateloop'
  916. $pregduedate = '<<pregduemonth>> / <<pregdueday>> / <<pregdueyear>>'
  917. }
  918. $d_pregmovement = {
  919. if denypreg = 0 and pregchem > 0:
  920. if thinkpreg >= 0:
  921. knowpreg = 1
  922. if kid <= 0:
  923. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  924. else
  925. 'Movement inside you confirms what you already thought. You are pregnant again.'
  926. end
  927. elseif knowpreg > 0:
  928. temprand = rand(0,2)
  929. if temprand = 0:
  930. if pregchem > 5000:
  931. 'Your baby visibly moves around inside you.'
  932. else
  933. 'You feel movement deep inside you as your baby shifts around.'
  934. end
  935. elseif temprand = 1:
  936. if pregchem > 5000:
  937. 'You wince as your baby delivers a vicious kick to your insides'
  938. else
  939. 'You feel your baby kicking.'
  940. end
  941. elseif temprand = 2:
  942. if pregchem > 5000:
  943. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  944. else
  945. 'You feel your baby kicking.'
  946. end
  947. end
  948. else
  949. if cyccustom = 1:
  950. if pregchem < 4000:
  951. if kid <= 0 :
  952. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should go to the doctor?'
  953. else
  954. 'It feels as if a baby move inside you. Are you pregnant?'
  955. end
  956. else
  957. knowpreg = 1
  958. if kid <= 0:
  959. 'It''s become pretty obvious. You are pregnant.'
  960. else
  961. 'It''s become pretty obvious. You are pregnant again.'
  962. end
  963. end
  964. end
  965. end
  966. elseif pregchem > 0:
  967. if kid > 0 and PregChem > 3903:
  968. 'You try to deny it, but you just can''t any more. The large belly, the movement, You are pregnant again.'
  969. denypreg = 0
  970. dynamic $d_cycreport_upduedate
  971. $cycreport_txt = 'You are pregnant.'
  972. else
  973. 'You feel movement deep inside you. It''s probably just gas.'
  974. end
  975. end
  976. }
  977. --- din_bad ---------------------------------