dom_gor.qsrc 5.2 KB

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