1
0

din_bad 34 KB

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