1
0

dom_gor 5.2 KB

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