1
0

dom_gor.qsrc 5.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185
  1. # dom_gor
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. $location_type = 'private'
  7. clr
  8. gs 'stat'
  9. gs 'themes', 'indoors'
  10. '<center><b><font color="maroon">Your room</font></b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/vitekhome/kotovkom.jpg"></center>'
  12. 'Your room in a hostel. The room is small, leaving only the bare minimum. 2 <a href="exec:gt ''bed'', ''start''">beds</a>, a <a href="exec:gt ''mirror'', ''start''">mirror</a>, a <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing), and a small TV.'
  13. if $clothingworntype = 'exercise' and teachlevel > 20 and parkrunday ! daystart and hour < 21 and hour > 6:
  14. act 'Go for a jog around the park (1:00)':
  15. cla
  16. *clr
  17. parkrunday = daystart
  18. minut += 30
  19. pcs_mood += 10
  20. pcs_willpwr -= 10
  21. run_exp += 2
  22. fat -= 8
  23. pcs_sweat += 30
  24. '<center><img <<$set_imgh>> src="images/locations/shared/park/parkbeg.jpg"></center>'
  25. 'You run a few laps around the park.'
  26. parkrand = rand (0, 10)
  27. if parkrand > 4 and beguch < 3:
  28. 'In the park you meet a pupil from the school who asks to go for a run with you.'
  29. act 'Run together':
  30. cla
  31. *clr
  32. beguch += 1
  33. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop.jpg"></center>'
  34. 'You''re running with one of your pupils'', sometimes stopping and chatting with ease.'
  35. 'Pupil: "Miss <<$pcs_lastname>>, you are so beautiful, and we are all very fond of you!" You: "Hmm, thank you!"'
  36. act 'Complete run':gt 'gskver', 'start'
  37. end
  38. elseif parkrand >4 and beguch >= 3 and beguch < 6:
  39. 'In the park you meet a pupil of the school who asks to go for a run with you.'
  40. act 'Run together':
  41. cla
  42. *clr
  43. beguch += 1
  44. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop2.jpg"></center>'
  45. 'You stop to do some stretching exercises for your muscles.'
  46. 'Pupil: "Ahh, if only our girls would be at least a little like you!" You: "Get to know them! You''ll find out how they really are."'
  47. act 'Complete run':gt 'gskver', 'start'
  48. end
  49. elseif parkrand >4 and beguch >= 6 and beguch < 9:
  50. 'In the park you meet a pupil of the school who asks to go for a run with you.'
  51. act 'Run together':
  52. cla
  53. *clr
  54. beguch += 1
  55. pcs_horny += 3
  56. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop3.jpg"></center>'
  57. 'You run with the pupil, sometimes stopping and chatting with ease.'
  58. ''
  59. 'Pupil: "<<$pcs_nickname>>, can I take a picture of you?" You: "What are you going to do with my photo?"'
  60. 'Pupil: "I would never masturbate on it!" You: "Aha! I never said you would!"'
  61. 'Pupil: "Im sorry, it was a bad idea." You: "I''m just kidding! Okay, but remember to give me a copy."'
  62. ''
  63. 'You pick a background, stand in a pose and let yourself be photographed.'
  64. act 'Complete run':gt 'gskver', 'start'
  65. end
  66. end
  67. act 'Complete run':gt 'gskver', 'start'
  68. end
  69. end
  70. if hour < 23:
  71. act 'Lie on the couch (1:00)':
  72. cla
  73. minut += 60
  74. if pcs_sleep < 90:
  75. pcs_sleep += 10
  76. else
  77. pcs_sleep = 100
  78. end
  79. 'You relax lying on the couch.'
  80. act 'Stretch':gt 'dom_gor'
  81. end
  82. end
  83. if eda > 0:'In the refrigerator food is stored that''s good for <b><<eda>></b> servings.'
  84. if edaD = 0 and eda = 0:'<b><font color="red">The fridge is empty, nothing to eat in sight.</font></b>'
  85. if edaD > 0:'The refrigerator contains healthy meals that are good for <b><<edaD>></b> servings.'
  86. if eda >= 1:
  87. act 'Prepare meals (2:00)':
  88. cla
  89. *clr
  90. eda -= 1
  91. minut += 120
  92. frost = 0
  93. edahot = 0
  94. pcs_health += 10
  95. pcs_mood += 20
  96. gs 'stat'
  97. if pcs_energy >= 100:
  98. fat += 5
  99. 'You don''t feel like eatting.'
  100. elseif pcs_energy >= 80:
  101. fat += 3
  102. pcs_energy = pcs_energy + 40
  103. else
  104. pcs_energy += 80
  105. fat += 1
  106. 'You eat with pleasure.'
  107. end
  108. if pcs_hydra >= 80:
  109. 'You don''t really need any more tea.'
  110. else
  111. pcs_hydra += 80
  112. cumspclnt = 2
  113. gs 'cum_cleanup'
  114. pcs_breath = 0
  115. 'You gladly drink a cup of tea.'
  116. end
  117. act 'Get up from the table':gt 'dom_gor'
  118. end
  119. end
  120. if edaD > 0:
  121. act 'Eat diet food (0:30)':
  122. cla
  123. *clr
  124. frost = 0
  125. minut += 30
  126. pcs_health += 10
  127. pcs_mood += 20
  128. edaD -= 1
  129. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  130. if pcs_energy >= 100:
  131. 'You can no longer eat...For now at least.'
  132. elseif pcs_energy >= 80:
  133. pcs_energy += 40
  134. 'You push through to eat your meal.'
  135. else
  136. pcs_energy += 80
  137. 'You gladly devoured the cooked meal.'
  138. end
  139. if pcs_hydra >= 80:
  140. 'You don''t need any more tea.'
  141. else
  142. pcs_hydra += 80
  143. cumspclnt = 2
  144. gs 'cum_cleanup'
  145. pcs_breath = 0
  146. 'You gladly drink a cup of tea.'
  147. end
  148. act 'Get up from the table':gt 'dom_gor'
  149. end
  150. end
  151. if gor_dorm > 0:act 'Go to shared bathroom':gt 'etoexhib', 'pos41'
  152. act 'Go out onto the street':
  153. cls
  154. if $clothingworntype = 'nude':
  155. '<b><font color="red">You need to get dressed.</font></b>'
  156. xgt $curloc
  157. elseif sick > 72:
  158. '<b><font color="red">You feel too ill to travel through the streets.</font></b>'
  159. xgt $curloc
  160. else
  161. xgt 'pavCommercial'
  162. end
  163. end
  164. --- dom_gor ---------------------------------