dom_gor.qsrc 5.1 KB

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