1
0

mey_home 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568
  1. # mey_home
  2. *clr & cla
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. FColor = RGB(0,0,0)
  8. BColor = RGB(255,255,255)
  9. LColor = RGB(106,90,205)
  10. $location_type = 'indoors'
  11. ! a crutch for the action in the kitchen
  12. if val($args[0]) > 0: args[0] = val($args[0])
  13. ! check for availability
  14. if args[0] < 0:
  15. $_str[0] = 'No time to walk-in guests...'
  16. $_str[1] = 'You came to the house of Manolidou and rang the doorbell...'
  17. $_str[2] = 'But no one opened, you see, there was nobody home.'
  18. $_str[3] = 'After a short wait, the lock clicked and the door opened mom Kathy and Vicki: <br><do>Oh, <<$nickname>>, hi! Come in, make yourself at home.</do>'
  19. $_str[4] = 'The door opened and Kate quickly dragged you to your room.'
  20. $_str[5] = 'You opened the door with the key and entered the house.'
  21. if mey_vika['key'] = 1:
  22. $_str[5]
  23. act 'Enter': gt 'mey_home', 0
  24. exit
  25. end
  26. if hour < 20 and ((week < 6 and hour >= 17) or (week >= 6 and hour > 10)):
  27. if mey_vika['mey_vika_qw'] >= 27:
  28. if mey_vika['mey_vika_qw'] = 27: gt 'mey_tamara_events', 'next_meet'
  29. i = 3
  30. else
  31. i = 2
  32. end
  33. if i = 2:
  34. cla
  35. $_str[1]+ '<br>' +$_str[4]
  36. act 'Go to Katjas room':
  37. if frost > 0: frost = 0
  38. gt 'KatjaHomeTalk'
  39. end
  40. exit
  41. end
  42. if i = 3:
  43. '<center><img src="images/qwest/alter/meynolds/tamara_tea1.jpg"></center>'
  44. $_str[1]+ '<br>' +$_str[3]
  45. act 'Enter': gt 'mey_home', 0
  46. exit
  47. end
  48. else
  49. '<center><img src="images/qwest/alter/meynolds/tamara_tea0.jpg"></center>'
  50. iif(hour < 10 or hour > 20,$_str[0],$_str[1]+ '<br>' +$_str[2])
  51. act 'Go': minut += 10 & gt 'pavResidential'
  52. exit
  53. end
  54. end
  55. killvar '$_str'
  56. mey_loc_id = args[0]
  57. minut += 1
  58. gs 'stat'
  59. ! ----- NAV array ----- !
  60. $mey_desc[0+"_"+'name'] = 'Hall'
  61. $mey_desc[1+"_"+'name'] = 'Kitchen'
  62. $mey_desc[2+"_"+'name'] = 'Bathroom'
  63. $mey_desc[3+"_"+'name'] = 'Guest'
  64. $mey_desc[4+"_"+'name'] = 'Hall'
  65. $mey_desc[5+"_"+'name'] = 'Room Katja'
  66. $mey_desc[6+"_"+'name'] = 'Room Viki'
  67. $mey_desc[7+"_"+'name'] = 'Room Tamara Mikhailovna'
  68. $mey_desc[8+"_"+'name'] = 'Veranda'
  69. $mey_desc[9+"_"+'name'] = 'The yard'
  70. $mey_desc[0+"_"+'image'] = 'corridor'
  71. $mey_desc[1+"_"+'image'] = 'kitchen'
  72. $mey_desc[2+"_"+'image'] = 'bathroom'
  73. $mey_desc[3+"_"+'image'] = 'guestroom'
  74. $mey_desc[4+"_"+'image'] = 'hall'
  75. $mey_desc[5+"_"+'image'] = 'katya_room'
  76. $mey_desc[6+"_"+'image'] = 'vika_room'
  77. $mey_desc[7+"_"+'image'] = 'tamara_room'
  78. $mey_desc[8+"_"+'image'] = 'terrace'
  79. $mey_desc[9+"_"+'image'] = 'courtyard'
  80. $mey_desc[0+"_"+'text'] = 'Large and bright hall, which "hallway" do not dare to call this "hallway" on the bike ride! A half wall is a huge full-body mirror. Out of it exits to the kitchen, where I see a big oval dining table and hall. Here the stairs leading to the second floor. Here there are signs on the doors "Toilet" and "Bathroom".'
  81. $mey_desc[1+"_"+'text'] = 'The kitchen is huge and luxurious. It is decorated in a minimalist high-tech style. Standing around in the middle of her oval dining room table, as hall, to ride a bike. Appliances are all hidden. The kitchen is sparkly clean.'
  82. $mey_desc[2+"_"+'text'] = 'Spacious hall with shower cubicle with glass door, toilet with bidet, and a large part of the room is a huge hot tub, more like a small pool.'
  83. $mey_desc[3+"_"+'text'] = 'Overall it looks like a standard room in any hotel "middling". Bed, small wardrobe, Desk, bedside table, mirror on the wall.'
  84. $mey_desc[4+"_"+'text'] = 'Spacious room with a sofa and armchairs, on the wall hangs a large plasma TV, located next to the bookcase, and on the opposite side is the fireplace, from the hall there is access to a bright veranda, overgrown with grapes'
  85. $mey_desc[5+"_"+'text'] = 'In the room Katie feeling that she briefly moved in and will soon move out. Perfect order, mirror the purity and feeling "non-residential premises". "Neobitaemi" dilute only numerous flowers in pots on the windowsill, in pots on the walls and in tubs on the floor that Katina gives the room a kind of greenhouse. In one corner stands a Desk with a computer, opposite the bed. In another corner of the spacious but somehow seeming cramped room, hidden wardrobe. Is standing in front of a bookcase, but it is almost invisible because of wildly overgrown flowers.'
  86. $mey_desc[6+"_"+'text'] = 'In of Vika`s room is always a mess. It`s clean, but scattered in creative disarray. Everywhere soft toys in absolutely enormous quantities, and all the walls are plastered with posters of pop stars and film actors. On the table by the window is a laptop, as if accidentally brought a degree of orderliness of their presence in Vicino room. Because of the mountains some of the magazines are music speakers. But the main place in the room is the bed is absolutely cyclopean, next to which lay lost on its background and wardrobe. Somewhere in the corner lonely hiding in a lonely chair.'
  87. $mey_desc[7+"_"+'text'] = 'Room Tamara Mikhailovna is more reminiscent of the office, if not for the bed in the corner. Here is office computer Desk with computer, office chair he had a wardrobe, but big and pretty modest bed. The room is small and cramped. "Decorations" it does not, but hanging on the wall, why then the sword. What is he doing here - is unclear.'
  88. $mey_desc[8+"_"+'text'] = 'Porch looking into the yard from the neighbors it is obscured by a high fence and all braided grapes. Here is compactly housed a summer kitchen with grill and wicker furniture - a few chairs, table and sun bed, which is mattress-pillow.'
  89. $mey_desc[9+"_"+'text'] = 'In the yard is a car mother Tamara Mikhailovna, and there is a small prefabricated pool.'
  90. '<center><h4><font color="maroon">'+$mey_desc[mey_loc_id+'_'+name]+'</font></h4></center>'
  91. '<center><img src="images/qwest/alter/meynolds/'+$mey_desc[mey_loc_id+"_"+'image'] + '.jpg"></center>'
  92. $mey_desc[mey_loc_id+"_"+'text']
  93. killvar '$mey_desc'
  94. ! ---------------------- !
  95. ! actions
  96. if mey_loc_id = 0:
  97. act '<b>On the street</b>': killvar 'mey_loc_id' & gt 'pavResidential'
  98. act 'Patio': gt $curloc, 9
  99. end
  100. if mey_loc_id ! 0: act 'Hall': gt $curloc, 0
  101. if mey_loc_id ! 1: act 'Kitchen': gt $curloc, 1
  102. if mey_loc_id ! 2: act 'Bathroom': gt $curloc, 2
  103. act '<center><img src="images/qwest/alter/meynolds/splitter.png" width=100% height=1></center>': exit
  104. if mey_loc_id ! 3: act 'Guest': gt $curloc, 3
  105. if mey_loc_id ! 4: act 'Hall': gt $curloc, 4
  106. if mey_loc_id = 4: act 'Veranda': gt $curloc, 8
  107. if mey_loc_id ! 5: act 'Room Katja': gt $curloc, 5
  108. if mey_loc_id ! 6: act 'Room Viki': gt $curloc, 6
  109. if mey_loc_id ! 7: act 'Room Tamara Mikhailovna': gt $curloc, 7
  110. ! corporate only at the end of the month on weekends, check
  111. if day <= 25 and mey_vika['mey_vika_qw'] > 40: mey_vika['mey_vika_qw'] = 40
  112. if mey_loc_id = 2:
  113. !bathroom
  114. *clr & cla
  115. minut += 1
  116. gs 'stat'
  117. $location_type = 'bathroom'
  118. '<center><b><font color = maroon></font></b></center>'
  119. '<center><img src="images/nigma/gor/hotel/hotel.room.best1.jpg"></center>'
  120. 'Luxurious, truly Royal San node.'
  121. !acts copy from [shulgabath]
  122. act 'Return to the hallway': gt $loc, $metka
  123. dynamic $shower
  124. dynamic $bteeth
  125. dynamic $tampon
  126. dynamic $quickwash
  127. dynamic $wearpan
  128. dynamic $basin
  129. if spdirtyc > 0:
  130. act 'Clean semen stains from your clothing':
  131. cls
  132. cumspclnt = 6
  133. gs 'cum_cleanup'
  134. minut = minut + 15
  135. gs'stat'
  136. '<center><img src="images/etogame/frotsp.jpg"></center>'
  137. 'You take fifteen minutes to thoroughly rinse the semen stains out of your clothes. By the time you''re done, all the evidence that remains of them are some quickly drying damp spots.'
  138. act 'Finish': gt 'shulgabath', 'start'
  139. end
  140. end
  141. if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
  142. act 'Give yourself an enema (0:05)':
  143. cla
  144. *clr
  145. cumspclnt = 7
  146. gs 'cum_cleanup'
  147. minut += 5
  148. klismaday = daystart
  149. klismaday1= 1
  150. '<center><img src="images/picv/klisma.jpg"></center>'
  151. 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  152. act 'Finish':gt 'shulgabath', 'start'
  153. end
  154. end
  155. if analplug = 1 and analplugin = 1:
  156. act 'Take out your butt plug (0:05)':
  157. cla
  158. *clr
  159. minut += 5
  160. analplugIN = 0
  161. if anus < 30:anus += 1
  162. '<center><img src="images/body/analplug.jpg"></center>'
  163. 'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.'
  164. act 'Finish':gt 'shulgabath', 'start'
  165. end
  166. elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
  167. act 'Wear your butt plug (0:05)':
  168. cla
  169. *clr
  170. minut += 5
  171. analplugIN = 1
  172. if anus < 10:anus = anus + 5
  173. if anus >= 10 and anus < 20:anus += rand(1, 2)
  174. if anus >= 20 and anus < 30:anus += rand(0, 1)
  175. '<center><img src="images/body/analplug.jpg"></center>'
  176. if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
  177. if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
  178. act 'Finish':gt 'shulgabath', 'start'
  179. end
  180. end
  181. if pregtest > 0:
  182. act 'Do a pregnancy test':
  183. cla
  184. pregtest -= 1
  185. gs 'stat'
  186. if pregchem > 120:
  187. knowpreg = 1
  188. thinkpreg = 1
  189. 'The test shows the two strips: you''re pregnant!'
  190. else
  191. knowpreg = 0
  192. 'The test shows one band: you''re not pregnant.'
  193. end
  194. act 'Finish':gt 'shulgabath', 'start'
  195. end
  196. end
  197. if vibrator = 1 and vibratorIN = 1:
  198. act 'Remove the vibrator (0:05)':
  199. cla
  200. *clr
  201. minut += 5
  202. vibratorIN = 0
  203. if vagina < 30:vagina += 1
  204. '<center><img src="images/etogame/vibrator.jpg"></center>'
  205. 'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
  206. act 'Finish':gt 'shulgabath', 'start'
  207. end
  208. elseif vibrator = 1 and vibratorIN = 0:
  209. act 'Insert the vibrator in your vagina (0:05)':
  210. cla
  211. *clr
  212. minut += 5
  213. vibratorIN = 1
  214. if vagina < 30:vagina += 2
  215. '<center><img src="images/etogame/vibrator.jpg"></center>'
  216. 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
  217. act 'Finish':gt 'shulgabath', 'start'
  218. end
  219. end
  220. end
  221. ! hall
  222. if mey_loc_id = 0:
  223. if mey_vika['mey_vika_qw'] = 30 and mey_vika['qw_day'] ! day and hour = 23: gs 'mey_vika_events', 'case_gift'
  224. if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! day and hour = 16 and minut >= 30: gs 'mey_vika_events', 'gym0'
  225. if week mod 2 ! 0 and mey_vika['mey_vika_qw'] >= 32 and mey_vika['gym_day'] ! day and hour = 17 and minut >= 30: gs 'mey_vika_events', 'gym1'
  226. if mey_vika['mey_vika_qw'] >= 32 and mey_vika['mey_vika_qw'] < 35 and mey_vika['qw_day'] ! day and hour >= 23: gs 'mey_vika_events', 'learning0'
  227. if mey_vika['mey_vika_qw'] >= 32:
  228. ! welcome to the corporate
  229. if week = 7 and hour >= 12 and hour <= 16 and day > 25 and mey_vika['mey_vika_qw'] = 40 and mey_tamara['qw_end'] = 0 and GorSlut < 3:
  230. gt 'mey_tamara_events', 'party0'
  231. end
  232. ! check appearance before going to corporate
  233. if (hour = 17 or hour = 18) and mey_vika['mey_vika_qw'] = 41:
  234. '<br>In the lobby waiting for you <a href="exec: gt''mey_tamara_events'',''check_look''">Tamara Mikhailovna.</a>'
  235. exit
  236. end
  237. ! need to fuck Katja!
  238. if KatjaSex >= 5 and mey_vika['mey_vika_qw'] > 35 and hour = 23 and mey_vika['mey_vika_bang_qw'] = 0:
  239. gs 'mey_vika_events', 'bang_katya'
  240. exit
  241. end
  242. ! Vic calls in the shower
  243. if mesec = 0 and vagina > 0 and mey_vika['bath_qw'] = 1 and mey_vika['bath_qw_day'] ! day and rand(0,10) > 5 and ((week < 6 and hour >= 16) or (week = 6 and hour >= 8)):
  244. gs 'mey_vika_events', 'bath_qw1'
  245. exit
  246. end
  247. if ((week < 6 and hour >= 16 and hour < 20) or (week = 6 and hour >= 10 and hour < 20)) and mey_tamara['help_day'] ! day:
  248. act 'To clean the house':
  249. cla
  250. mey_tamara['help_day'] = day
  251. mey_tamara['help_count'] += 1
  252. minut += rand(50,70)
  253. sweat += 3
  254. manna -= 5
  255. gs 'stat'
  256. if mey_vika['bath_qw'] = 0 and mey_vika['bath_qw_day'] ! day:
  257. gs 'mey_vika_events', 'bath_qw0'
  258. else
  259. '<br>You pulled out of the closet hefty a vacuum cleaner, and within an hour had a facial in the house.'
  260. act 'Finish': gt 'mey_home', 0
  261. end
  262. end
  263. end
  264. end
  265. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  266. end
  267. ! kitchen
  268. if mey_loc_id = 1:
  269. cla
  270. $loc = $curloc
  271. $metka = str(mey_loc_id)
  272. if mey_vika['mey_vika_qw'] >= 32 and ((week < 6 and hour >= 16 and hour < 20) or (week = 6 and hour >= 10 and hour < 20)) and mey_tamara['help_day'] ! day:
  273. act 'To cook at all':
  274. cla
  275. mey_tamara['help_day'] = day
  276. mey_tamara['help_count'] += 1
  277. minut += rand(50,70)
  278. gs 'stat'
  279. '<br>Did you get the food from the refrigerator, and the hour was busy in the kitchen cooking for all the family.'
  280. act 'Finish': gt 'mey_home', 0
  281. end
  282. end
  283. !copy acts from [gadhouse]
  284. act 'Eat a full meal (0:30)':gs 'food', 'm_meal'
  285. act 'Eat a light meal (0:20)':gs 'food', 's_meal'
  286. act 'Have a snack (0:15)':gs 'food', 'snack'
  287. act 'Have a cup of tea (0:05)':
  288. cls
  289. minut += 5
  290. if water >= 100:
  291. 'You don''t need any more tea.'
  292. else
  293. water += 80
  294. cumspclnt = 2
  295. gs 'cum_cleanup'
  296. fbreath = 0
  297. 'You have a cup of tea, quenching your thirst.'
  298. end
  299. gs 'stat'
  300. act 'Get up from the table':gt 'Gadhouse'
  301. end
  302. if pranik > 0:
  303. 'You brought your <<pranik>> cookies with you.'
  304. act 'Drink tea with cookies (0:05)':
  305. cla
  306. *clr
  307. minut += 5
  308. pranik -= 1
  309. health += 30
  310. manna += 100
  311. energy += 20
  312. water += 20
  313. cumspclnt = 2
  314. gs 'cum_cleanup'
  315. fbreath = 0
  316. fat += 4
  317. frost = 0
  318. gs 'stat'
  319. '<center><img src="images/pics/food.jpg"></center>'
  320. 'You enjoy a cup of tea while you eat some cookies. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
  321. act 'Get up from the table':gt 'Gadhouse'
  322. end
  323. end
  324. if edaD > 0:
  325. act 'Eat diet food (0:30)':
  326. cla
  327. *clr
  328. frost = 0
  329. minut += 30
  330. health += 10
  331. manna += 20
  332. edaD -= 1
  333. '<center><img src="images/pics/food.jpg"></center>'
  334. if energy >= 100:
  335. 'You prepare a diet meal and try to eat it, but you''re really not hungry at all. You can''t finish the meal.'
  336. elseif energy >= 80:
  337. energy += 40
  338. 'You try to enjoy the diet meal, but half-way in you realize you weren''t all that hungry yet. You manage to finish the meal, but feel like it was kind of a waste to prepare it.'
  339. else
  340. energy += 80
  341. 'The diet meal is tasty, and you enjoy eating it.'
  342. end
  343. if water >= 80:
  344. 'You don''t need any more tea.'
  345. else
  346. water = 100
  347. cumspclnt = 2
  348. gs 'cum_cleanup'
  349. fbreath = 0
  350. 'You have a cup of tea, quenching your thirst.'
  351. end
  352. act 'Get up from the table':gt 'Gadhouse'
  353. end
  354. end
  355. dynamic $fatdel
  356. if lekarstvo > 0:
  357. 'You have <<lekarstvo>> tablet(s).'
  358. if sick > 0 and lekarday ! daystart:
  359. act 'Take a pill (0:05)':
  360. cla
  361. *clr
  362. minut += 5
  363. lekarday = daystart
  364. lekarstvo -= 1
  365. sick -= sick * 20 / 100
  366. if water < 50 : water += 30 else water +=15
  367. if water > 100: water = 100
  368. '<center><img src="images/inbed/lekr<<picrand>>.jpg"></center>'
  369. 'You swallow the pill, and shortly after you feel a bit better.'
  370. act 'Continue':gt 'Gadhouse'
  371. end
  372. end
  373. end
  374. if vitamin > 0:
  375. 'You have <<vitamin>> vitamin pills.'
  376. if vitaminday ! daystart:
  377. act 'Take vitamins (0:05)':
  378. cla
  379. *clr
  380. if fat > salo:fat = salo
  381. minut += 5
  382. vitaminday = daystart
  383. vitamin -= 1
  384. frost = 0
  385. if water < 50 : water += 30 else water +=15
  386. if water > 100: water = 100
  387. if KandidozOnce = 1:Kandidoz -= 2
  388. if GerpesOnce = 1:Gerpes -= 2
  389. if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
  390. skinvan += 1
  391. 'You take some vitamins to stay healthy.'
  392. act 'Continue':gt 'Gadhouse'
  393. end
  394. end
  395. end
  396. gs 'events', 'read'
  397. act 'Out': gt 'mey_home', 0
  398. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  399. end
  400. ! guestroom
  401. if mey_loc_id = 3:
  402. cla
  403. $loc = $curloc
  404. $metka = str(mey_loc_id)
  405. !add room function from [bedrpar]
  406. 'A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall near the front door, besides that are the <a href="exec:gt ''cloakroom'', ''view_coat_list''">coat hooks</a>.'
  407. if komp = 1:'Your <a href="exec:GT ''Komp'',''start''">laptop</a> is on the desk.'
  408. act '<b>Out</b>':
  409. if ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
  410. *clr
  411. '<center><img src="'+'images/clothing/'+iif(tanga=0,'0','tanga')+'.jpg'+'"></center>'
  412. '<center><font color=red><b>In this form the guests better not to go!</b></font></center>'
  413. exit
  414. end
  415. gt 'mey_home', 0
  416. end
  417. act 'Sleep': gs 'bed', 'start'
  418. act 'Cabinet': gt 'clothing', 'view_clothing_list', 'wardrobe'
  419. gs 'events', 'sport'
  420. if horny >= 50: act 'Masturbate':gt 'selfplay'
  421. if pornMagazine > 0:
  422. 'You have hidden your porn magazines under the mattress of your bed.'
  423. gs 'events', 'read_porn'
  424. end
  425. gs 'events', 'read'
  426. if dur > 0 and narkday ! daystart:
  427. act 'Use some Pale Lady (0:05)':
  428. cla
  429. *clr
  430. minut += 5
  431. narkday = daystart
  432. health = vital * 10 + stren * 5
  433. willpower = intel * 5 + will * 5
  434. manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  435. horny = 100
  436. nark += 10
  437. dur -= 1
  438. '<center><img src="images/etogame/dur.jpg"></center>'
  439. 'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'
  440. act 'Continue':gt $curloc
  441. end
  442. end
  443. if tanga = 0:
  444. act 'Wear underwear':
  445. cla
  446. tanga = 1
  447. gt $curloc
  448. end
  449. elseif tanga = 1:
  450. act 'Take off your underwear':
  451. cla
  452. tanga = 0
  453. gt $curloc
  454. end
  455. end
  456. act 'Wait':
  457. cla
  458. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  459. if waiting <= 0 or waiting > 120:
  460. minut += 15
  461. elseif waiting > 0 and waiting <= 120:
  462. minut += waiting
  463. end
  464. act 'Take a look at the clock':gt curloc
  465. end
  466. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  467. end
  468. ! courtyard
  469. if mey_loc_id = 9:
  470. if hour = 7 and minut >= 30 and week < 6:
  471. 'In the yard in front of a car talking on the phone <a href="exec:gs''mey_tamara_events'',''tamara''">aunt Tamara.</a>'
  472. end
  473. end
  474. if mey_loc_id = 5:
  475. !add room katja
  476. cla
  477. $loc = $curloc
  478. $metka = str(mey_loc_id)
  479. if katjaFirstKiss >= 1:
  480. if hour >= 17 and week < 6 and kanikuli = 0 and hour < 20 or hour >= 9 and week >= 6 and kanikuli = 0 and hour < 20 or hour >= 9 and kanikuli > 0 and hour < 20:
  481. act 'Chat with Katja': gt'KatjaHomeTalk'
  482. end
  483. else
  484. '<font color=red>Your relations are not good enough to just step in her room, better leave as soon as possible.</font>'
  485. end
  486. act '<b>Out</b>': gt 'mey_home', 0
  487. end
  488. --- mey_home ---------------------------------