1
0

dom_gor 4.9 KB

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