1
0

din_bad 44 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049
  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:gs ''Cheatmenu_din'' & dynamic $cheatmenu[main]"><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 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>'
  391. if cumloc[14] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 14 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your belly</b></a>'
  392. if cumloc[15] > 0:pl '<a href="exec:salfetka -= 1 & cumspclnt = 16 & gs ''cum_cleanup'' & gs ''stat''"><b>Wipe clean your breasts</b></a>'
  393. 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>'
  394. 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>'
  395. 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>'
  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 prezik + prezikcount + preziksabo > 0: prezikmsg = 1
  574. if preziktype = 0:
  575. if prezikcount > 0:
  576. prezik += prezikcount
  577. prezikcount = 0
  578. end
  579. if prezik <= 0:
  580. 'You are out of condoms.'
  581. prezik = 0
  582. prezikcount = 0
  583. preziktype = 1
  584. end
  585. elseif preziktype = 1:
  586. if prezik > 0:
  587. prezikcount += prezik
  588. prezik = 0
  589. end
  590. elseif preziktype = 2:
  591. if preziksabo > 0:
  592. prezik += preziksabo
  593. preziksabo = 0
  594. end
  595. if prezik <= 0 and prezikcount <= 0:
  596. if prezikmsg = 1:prezikmsg = 2
  597. prezik = 0
  598. preziksabo = 0
  599. prezikcount = 0
  600. preziktype = 1
  601. elseif prezik <= 0 and prezikcount > 0:
  602. 'You have run out of sabotaged condoms so will use normal condoms.'
  603. prezik = prezikcount
  604. prezikcount = 0
  605. preziktype = 0
  606. end
  607. end
  608. }
  609. $d_tabletkied = {
  610. clr
  611. tabloc = 0
  612. if tabletkiday < daystart: pl '<a href="exec:dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  613. if tabletkicheck = 0:
  614. pl '<a href="exec:dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  615. elseif tabletkicheck = 1:
  616. pl '<a href="exec:dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  617. end
  618. pl '<a href="exec:dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  619. if tabletkioddk = 1: pl '<a href="exec:dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  620. PL '<a href="exec:gs ''stat''">Return</a>'
  621. }
  622. $d_tabletkiedt = {
  623. tabloc = 1
  624. if tabletkiday < daystart: '<a href="exec:*clr & dynamic $d_tabletkieda, 1">Take a pill now.</b></a>'
  625. if tabletkicheck = 0:
  626. '<a href="exec:*clr & dynamic $d_tabletkieda, 2">Automatically take your pills.</b></a>'
  627. elseif tabletkicheck = 1:
  628. '<a href="exec:*clr & dynamic $d_tabletkieda, 3">Stop automatically taking your pills.</b></a>'
  629. end
  630. '<a href="exec:*clr & dynamic $d_tabletkieda, 4">Examine the birth control pills.</b></a>'
  631. if tabletkioddk = 1: pl '<a href="exec:*clr & dynamic $d_tabletkieda, 5">Dump the strange pills.</b></a>'
  632. '<a href="exec:gt ''stol'', ''bc''">Return</a>'
  633. }
  634. $d_tabletkiedA = {
  635. if ARGS[0] = 1:
  636. tabletkipd += tabletkipt
  637. tabletki -= 1
  638. if tabletkiday ! daystart:
  639. pillcon += 1000+(pillcon+15000)/40
  640. if pillcon > 40000: pillcon = 40000
  641. tabletkiday = daystart
  642. tabletkipt = 0
  643. tabletkipi = 0
  644. else
  645. health -= 1
  646. end
  647. 'You take a birth control pill.'
  648. gs 'stat'
  649. elseif ARGS[0] = 2:
  650. 'You will do your best to remember to take your birth control pills every day.'
  651. tabletkicheck = 1
  652. gs 'stat'
  653. elseif ARGS[0] = 3:
  654. 'You will take your birth control pills as desired.'
  655. tabletkicheck = 0
  656. gs 'stat'
  657. elseif ARGS[0] = 4:
  658. if tabletkioddp <= 0:
  659. 'These pills appear to be normal birth control pills.'
  660. tabletkioddk = 0
  661. gs 'stat'
  662. else
  663. if Tabletki <= 30:
  664. 'There is something unusual about the pills. They do not look normal.'
  665. else
  666. 'There is something unusual about some of your pills. They do not look normal.'
  667. end
  668. tabletkioddk = 1
  669. gs 'stat'
  670. if tabloc = 0:
  671. dynamic $d_tabletkied
  672. else
  673. dynamic $d_tabletkiedt
  674. end
  675. end
  676. elseif ARGS[0] = 5:
  677. 'You get rid of the strange pills.'
  678. tabletkioddk = 0
  679. tabletki -= 30
  680. tabletkioddp = 0
  681. if tabletki < 0:
  682. tabletki = 0
  683. end
  684. gs 'stat'
  685. end
  686. if tabloc = 0:
  687. dynamic $d_tabletkied
  688. else
  689. dynamic $d_tabletkiedt
  690. end
  691. }
  692. $d_cycreport_choice = {
  693. clr
  694. dynamic $d_cycreport_update
  695. PL 'Current Status: <<$cycreport_txt>>.'
  696. if $cycreport_txt ! 'In labour':
  697. NL
  698. PL 'Change Status because:'
  699. if thinkpreg = 0:
  700. if knowpreg = 1:
  701. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I''m pregnant.</a>'
  702. else
  703. PL '<a href="exec: dynamic $d_cycreport_actor, 2">I think I am Pregnant.</a>'
  704. end
  705. elseif thinkpreg = 1:
  706. PL '<a href="exec: dynamic $d_cycreport_actor, 1">I''m not Pregnant.</a>'
  707. end
  708. if mesec > 0 and thinkpreg ! 1 and knowpreg ! 1:
  709. PL '<a href="exec: dynamic $d_cycreport_actor, 3">I''m menstruating.</a>'
  710. elseif thinkpreg ! 1:
  711. PL '<a href="exec: dynamic $d_cycreport_actor, 4">I just recently menstruated.</a>'
  712. PL '<a href="exec: dynamic $d_cycreport_actor, 5">I think my menstrual cycle has stopped.</a>'
  713. end
  714. if thinkpreg = 1 or knowpreg = 1:
  715. PL '<a href="exec: dynamic $d_cycreport_actor, 6">I think my due date is...</a>'
  716. PL '<a href="exec: dynamic $d_cycreport_actor, 7">I think the Father is...</a>'
  717. end
  718. elseif cycle = 5:
  719. pl 'Broken water and contractions, it''s pretty clear what is going on. Labour. You need to get to a hospital ASAP.'
  720. else
  721. dynamic $d_cycreport_actor, 10
  722. end
  723. PL '<a href="exec:gs ''stat''">Return</a>'
  724. }
  725. $d_cycreport_actor = {
  726. if ARGS[0] = 1:
  727. if knowpreg = 1:
  728. denypreg = 1
  729. thinkpreg = 0
  730. else
  731. denypreg = 0
  732. thinkpreg = 0
  733. temp[1] = daystart - daylastperiod
  734. end
  735. dynamic $d_cycreport_update
  736. gs 'stat'
  737. elseif ARGS[0] = 2:
  738. thinkpreg = 1
  739. denypreg = 0
  740. dynamic $d_cycreport_update
  741. gs 'stat'
  742. elseif ARGS[0] = 3:
  743. thinkpreg = 0
  744. denypreg = 0
  745. daylastperiod = daystart
  746. dynamic $d_cycreport_update
  747. gs 'stat'
  748. elseif ARGS[0] = 4:
  749. thinkpreg = 0
  750. denypreg = 0
  751. clr
  752. pl 'How many days ago was your last period?'
  753. pl 'Currently: <<pertemp>>'
  754. 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>'
  755. elseif ARGS[0] = 5:
  756. thinkpreg = 0
  757. denypreg = 0
  758. $cycreport_txt = 'You do not believe you have periods any more.'
  759. gs 'stat'
  760. elseif ARGS[0] = 6:
  761. clr
  762. pl 'How many days ago was your last period?'
  763. pl 'Currently: <<pertemp>>'
  764. 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>'
  765. elseif ARGS[0] = 7:
  766. temp = arrsize('$wombpotfath')
  767. if temp <= 0:
  768. $wombpotfath[0] = 'Unknown'
  769. FathpotAdd = 1
  770. Fathpotcheck = 0
  771. temp = arrsize('$cumarrnam')
  772. :potfakefathaddLoop
  773. if temp > Fathpotcheck:
  774. if cumarrkno[Fathpotcheck] = 1:
  775. $wombpotfath[Fathpotadd] = $cumarrnam[Fathpotcheck]
  776. Fathpotadd += 1
  777. end
  778. Fathpotcheck += 1
  779. Jump 'potfakefathaddloop'
  780. end
  781. temp = arrsize('$wombpotfath')
  782. end
  783. pl '<a href="exec: $wombthfath = ''<<$wombpotfath[temp]>>'' & dynamic $d_cycreport_actor, 2"><<$wombpotfath[temp]>></a>'
  784. :cyccustfathchoice
  785. if temp => 0:
  786. pl '<a href="exec: $wombthfath = ''<<$wombpotfath[temp]>>'' & dynamic $d_cycreport_actor, 2"><<$wombpotfath[temp]>></a>'
  787. temp -= 1
  788. jump 'cyccustfathchoice'
  789. end
  790. elseif ARGS[0] = 10:
  791. temp = arrsize('Babyptype')
  792. temp -= 1
  793. $cycreport_txt = 'You are currently recovering from childbirth. You gave birth on <<monthkid[temp]>> / <<daykid[temp]>> / <<yearkid[temp]>>.'
  794. gs 'stat'
  795. end
  796. }
  797. $d_cycreport_update = {
  798. if thinkpreg = 1 or knowpreg = 1: dynamic $d_cycreport_upduedate
  799. if cyccustom = 1:
  800. if preg = 1 and knowpreg = 1:
  801. $cycreport_txt = 'You are pregnant. Your due date is around <<$pregduedate>>.'
  802. if $wombthfath ! 'Unknown': $cycreport_txt = '<<$cycreport_txt>> You think the father is <<$wombthfath>>'
  803. elseif knowpregloss = 1:
  804. $cycreport_txt = 'Your body is recovering from the trauma of pregnancy.'
  805. elseif knowpregrecover = 1:
  806. $cycreport_txt = 'Your body is recovering from the trauma of childbirth.'
  807. elseif menoage <= age:
  808. $cycreport_txt = 'You have gone through menopause.'
  809. else
  810. temp[1] = daystart-daylastperiod
  811. if tabletkishot > 0:
  812. $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>'
  813. elseif pillcon > 30000:
  814. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=green>You are currently on the pill.</font>'
  815. elseif pillcon > 8000 and (FocH > 70 or ovulate > 0):
  816. $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>'
  817. elseif pillcon > 8000:
  818. $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.'
  819. elseif daystart = tabletkiday:
  820. $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.'
  821. elseif FocH > 70 or ovulate > 0:
  822. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period. <font color=red>It is currently a dangerous day.</font>'
  823. else
  824. $cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'
  825. end
  826. end
  827. elseif denypreg = 1:
  828. if pregchem < 525:
  829. denypreg = 1
  830. thinkpreg = 0
  831. $cycreport_txt = 'There is nothing wrong, your cycle is just irregular.'
  832. elseif pregchem < 1863:
  833. denypreg = 1
  834. thinkpreg = 0
  835. $cycreport_txt = 'You have a strange flu making you feel ill.'
  836. elseif pregchem < 4000:
  837. denypreg = 1
  838. thinkpreg = 0
  839. $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.'
  840. elseif pregchem < 6000:
  841. denypreg = 1
  842. thinkpreg = 0
  843. $cycreport_txt = 'Your weight just won''t come off...'
  844. elseif pregchem < 7500:
  845. denypreg = 1
  846. thinkpreg = 0
  847. $cycreport_txt = 'People are rude, constantly asking you when you are due. You are not pregnant!'
  848. elseif pregchem >= 7500:
  849. thinkpreg = 0
  850. $cycreport_txt = 'Surely if you were pregnant, you''d have had the baby by now, so you can''t possibly be pregnant.'
  851. else
  852. temp = daystart-daylastperiod
  853. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  854. end
  855. elseif cyccustom = 0:
  856. if $cycreport_txt ! 'In labour':
  857. if thinkpreg = 1 or knowpreg = 1:
  858. if knowpreg = 0: $temp = ' think you'
  859. if $wombthfath = 'Unknown' or $wombthfath = '':
  860. $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>>.'
  861. else
  862. $cycreport_txt = 'You<<$temp>> are pregnant with <<$wombthfath>>''s baby. Based on your last remembered period, your due date is probably around <<$pregduedate>>.'
  863. end
  864. elseif $cycreport_txt ! 'You do not believe you have periods any more.':
  865. temp = daystart-daylastperiod
  866. $cycreport_txt = 'It has been <<temp>> days since you last remember having a period.'
  867. end
  868. end
  869. end
  870. }
  871. $d_cycreport_upduedate = {
  872. temp = (280 + daylastperiod) - daystart
  873. pregdueday = day
  874. pregduemonth = month
  875. pregdueyear = year
  876. :pregduedateloop
  877. if pregduemonth = 1 and temp > 31 - pregdueday:
  878. pregduemonth += 1
  879. temp -= 31 - pregdueday
  880. pregdueday = 0
  881. elseif pregduemonth = 2 and temp > 28 - pregdueday:
  882. pregduemonth += 1
  883. temp -= 28 - pregdueday
  884. pregdueday = 0
  885. elseif pregduemonth = 3 and temp > 31 - pregdueday:
  886. pregduemonth += 1
  887. temp -= 31 - pregdueday
  888. pregdueday = 0
  889. elseif pregduemonth = 4 and temp > 30 - pregdueday:
  890. pregduemonth += 1
  891. temp -= 30 - pregdueday
  892. pregdueday = 0
  893. elseif pregduemonth = 5 and temp > 31 - pregdueday:
  894. pregduemonth += 1
  895. temp -= 31 - pregdueday
  896. pregdueday = 0
  897. elseif pregduemonth = 6 and temp > 30 - pregdueday:
  898. pregduemonth += 1
  899. temp -= 30 - pregdueday
  900. pregdueday = 0
  901. elseif pregduemonth = 7 and temp > 31 - pregdueday:
  902. pregduemonth += 1
  903. temp -= 31 - pregdueday
  904. pregdueday = 0
  905. elseif pregduemonth = 8 and temp > 31 - pregdueday:
  906. pregduemonth += 1
  907. temp -= 31 - pregdueday
  908. pregdueday = 0
  909. elseif pregduemonth = 9 and temp > 30 - pregdueday:
  910. pregduemonth += 1
  911. temp -= 30 - pregdueday
  912. pregdueday = 0
  913. elseif pregduemonth = 10 and temp > 31 - pregdueday:
  914. pregduemonth += 1
  915. temp -= 31 - pregdueday
  916. pregdueday = 0
  917. elseif pregduemonth = 11 and temp > 30 - pregdueday:
  918. pregduemonth += 1
  919. temp -= 30 - pregdueday
  920. pregdueday = 0
  921. elseif pregduemonth = 12 and temp > 31 - pregdueday:
  922. pregduemonth = 1
  923. pregdueyear += 1
  924. temp -= 31 - pregdueday
  925. pregdueday = 0
  926. else
  927. pregdueday = temp
  928. temp = 0
  929. end
  930. if temp > 0: jump 'pregduedateloop'
  931. $pregduedate = '<<pregduemonth>> / <<pregdueday>> / <<pregdueyear>>'
  932. }
  933. $d_pregmovement = {
  934. if denypreg = 0 and pregchem > 0:
  935. if thinkpreg > 0 and knowpreg = 0:
  936. knowpreg = 1
  937. if kid <= 0:
  938. 'Your heart flutters as you feel a baby moving around inside you for the first time.'
  939. else
  940. 'Movement inside you confirms what you already thought. You are pregnant again.'
  941. end
  942. elseif knowpreg > 0:
  943. temprand = rand(0,2)
  944. if temprand = 0:
  945. if pregchem > 5000:
  946. 'Your baby visibly moves around inside you.'
  947. else
  948. 'You feel movement deep inside you as your baby shifts around.'
  949. end
  950. elseif temprand = 1:
  951. if pregchem > 5000:
  952. 'You wince as your baby delivers a vicious kick to your insides'
  953. else
  954. 'You feel your baby kicking.'
  955. end
  956. elseif temprand = 2:
  957. if pregchem > 5000:
  958. 'You feel your baby kicking, look down, and see your belly twitching from it''s movements.'
  959. else
  960. 'You feel your baby kicking.'
  961. end
  962. end
  963. else
  964. if cyccustom = 1:
  965. if pregchem < 4000:
  966. if kid <= 0 :
  967. 'You feel a weird and strange fluttering sensation around inside your stomach. Perhaps you should go to the doctor?'
  968. else
  969. 'It feels as if a baby move inside you. Are you pregnant?'
  970. end
  971. else
  972. knowpreg = 1
  973. if kid <= 0:
  974. 'It''s become pretty obvious. You are pregnant.'
  975. else
  976. 'It''s become pretty obvious. You are pregnant again.'
  977. end
  978. end
  979. end
  980. end
  981. elseif pregchem > 0:
  982. if kid > 0 and PregChem > 3903:
  983. 'You try to deny it, but you just can''t any more. The large belly, the movement, You are pregnant again.'
  984. denypreg = 0
  985. dynamic $d_cycreport_upduedate
  986. $cycreport_txt = 'You are pregnant.'
  987. else
  988. 'You feel movement deep inside you. It''s probably just gas.'
  989. end
  990. end
  991. }
  992. --- din_bad ---------------------------------