1
0

dom_gor 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194
  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. if night_mode = 1:
  10. fcolor = rgb(255, 255, 255)
  11. bcolor = rgb(0, 0, 0)
  12. lcolor = rgb(106, 90, 205)
  13. else
  14. fcolor = rgb(0, 0, 0)
  15. bcolor = rgb(255, 255, 255)
  16. lcolor = rgb(106, 90, 205)
  17. end
  18. '<center><b><font color="maroon">Your room</font></b></center>'
  19. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/vitekhome/kotovkom.jpg"></center>'
  20. 'Your room in a hostel. The room is small, there is only the minimum necessary. 2 <a href="exec:gt ''bed'', ''start''">beds</a>, a <a href="exec:gt ''mirror'', ''start''">mirror</a>, a wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) and a small TV.'
  21. 'In the bottom of your wardrobe you have <a href="exec:gt ''shoes'', ''select''">your shoes</a> and next to the wardrobe is a dresser you keep <a href="exec:gt ''underwear'', ''dresser''">your underwear</a> and <a href="exec:gt ''purses'', ''view_purse_list''">purses</a> in.'
  22. if $clothingworntype = 'exercise' and teachlevel > 20 and parkrunday ! daystart and hour < 21 and hour > 6:
  23. act 'Go for a jog around the Square (1:00)':
  24. cla
  25. *clr
  26. parkrunday = daystart
  27. minut += 30
  28. pcs_mood += 10
  29. pcs_willpwr -= 10
  30. run_exp += 2
  31. fat -= 8
  32. pcs_sweat += 30
  33. '<center><img <<$set_imgh>> src="images/locations/shared/park/parkbeg.jpg"></center>'
  34. 'You did a few laps around the park. Out of breath, sweaty and tired.'
  35. parkrand = rand (0, 10)
  36. if parkrand > 4 and beguch < 3:
  37. 'In the park you met a disciple of the school and asked to go for a run with you.'
  38. act 'Run together':
  39. cla
  40. *clr
  41. beguch += 1
  42. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop.jpg"></center>'
  43. 'You run with the pupil sometimes stopping and chatting with ease.'
  44. 'Disciple:- Svetlana, you are so beautiful, you are all so fond of! You:- Hmm, thank you!'
  45. act 'Complete a run':gt 'gskver'
  46. end
  47. elseif parkrand >4 and beguch >= 3 and beguch < 6:
  48. 'In the park you met a disciple of the school and asked to go for a run with you.'
  49. act 'Run together':
  50. cla
  51. *clr
  52. beguch += 1
  53. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop2.jpg"></center>'
  54. 'Have you stopped to do stretching exercises muscles.'
  55. 'Disciple:- Ahh if our girls would be at least a little like you! You:- You just got used to them, get to know them!'
  56. act 'Complete a run':gt 'gskver'
  57. end
  58. elseif parkrand >4 and beguch >= 6 and beguch < 9:
  59. 'In the park you met a disciple of the school and asked to go for a run with you.'
  60. act 'Run together':
  61. cla
  62. *clr
  63. beguch += 1
  64. pcs_horny += 3
  65. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hostel/stop3.jpg"></center>'
  66. 'You run with the pupil sometimes stopping and chatting with ease.'
  67. ''
  68. 'Disciple:- Svetlana, can I take a picture of you! You are:- What are you going to do then with my photo, and the wretch!'
  69. 'Disciple:- No, no, I will not forgive her masturbate! You:- Aha! I did not say that!'
  70. 'Student:- Im sorry, was a bad idea. You:- Yes, Im kidding! Fotkay, just me then do not forget to copy.'
  71. ''
  72. 'You picked up a background, stood in a pose and you photographed.'
  73. act 'Complete a run':gt 'gskver'
  74. end
  75. end
  76. act 'Complete a run':gt 'gskver'
  77. end
  78. end
  79. if hour < 23:
  80. act 'Lie on the couch (1:00)':
  81. cla
  82. minut += 60
  83. if pcs_sleep < 90:
  84. pcs_sleep += 10
  85. else
  86. pcs_sleep = 100
  87. end
  88. 'I relax lying on the couch.'
  89. act 'Stretch':gt 'dom_gor'
  90. end
  91. end
  92. if eda > 0:'In the refrigerator stored food that''s good for <b><<eda>></b> servings.'
  93. if edaD = 0 and eda = 0:'<b><font color="red">The fridge is almost empty, nothing to eat at all.</font></b>'
  94. if edaD > 0:'The refrigerator is kept healthy meal that''s good for <b><<edaD>></b> servings.'
  95. if eda >= 1:
  96. act 'Prepare meals (2:00)':
  97. cla
  98. *clr
  99. eda -= 1
  100. minut += 120
  101. frost = 0
  102. edahot = 0
  103. pcs_health += 10
  104. pcs_mood += 20
  105. gs 'stat'
  106. if pcs_energy >= 100:
  107. fat += 5
  108. 'You do not want to eat.'
  109. elseif pcs_energy >= 80:
  110. fat += 3
  111. pcs_energy = pcs_energy + 40
  112. else
  113. pcs_energy += 80
  114. fat += 1
  115. 'You ate with pleasure.'
  116. end
  117. if water >= 80:
  118. 'You don''t need any more tea.'
  119. else
  120. water += 80
  121. cumspclnt = 2
  122. gs 'cum_cleanup'
  123. pcs_breath = 0
  124. 'You gladly drank a cup of tea.'
  125. end
  126. act 'Get up from the table':gt 'dom_gor'
  127. end
  128. end
  129. if edaD > 0:
  130. act 'Eat diet food (0:30)':
  131. cla
  132. *clr
  133. frost = 0
  134. minut += 30
  135. pcs_health += 10
  136. pcs_mood += 20
  137. edaD -= 1
  138. '<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
  139. if pcs_energy >= 100:
  140. 'You can no longer eat.'
  141. elseif pcs_energy >= 80:
  142. pcs_energy += 40
  143. 'You pushed through the power of a meal.'
  144. else
  145. pcs_energy += 80
  146. 'You gladly ate cooked food.'
  147. end
  148. if water >= 80:
  149. 'You don''t need any more tea.'
  150. else
  151. water += 80
  152. cumspclnt = 2
  153. gs 'cum_cleanup'
  154. pcs_breath = 0
  155. 'You gladly drank a cup of tea.'
  156. end
  157. act 'Get up from the table':gt 'dom_gor'
  158. end
  159. end
  160. if gor_dorm > 0:act 'In a shared bathroom':gt 'etoexhib', 'pos41'
  161. act 'Go out onto the street':
  162. cls
  163. if $clothingworntype = 'nude':
  164. '<b><font color="red">You need to get dressed.</font></b>'
  165. xgt $curloc
  166. elseif sick > 72:
  167. '<b><font color="red">You are too ill to take to the streets.</font></b>'
  168. xgt $curloc
  169. else
  170. xgt 'pavCommercial'
  171. end
  172. end
  173. --- dom_gor ---------------------------------