1
0

gadforestrelax 8.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192
  1. # gadforestrelax
  2. $location_type = 'secluded'
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. if StoryLine = 1 and forest_lostday > 0 and daystart > forest_lostday and rand(1,10) + bonfire > 8: gt 'gadforestlost', 'forestrescue' & !add rescue by illume
  6. gs 'gadukino_event', 'sound'
  7. cls
  8. wolfrand = rand(1,10)
  9. gs'stat'
  10. !gs'time'
  11. '<center><H4>Forest</H4></center>'
  12. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0 and bonfire = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax1.jpg"></center>'
  13. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0 and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax2.jpg"></center>'
  14. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and bonfire = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski1.jpg"></center>'
  15. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and $pantyworntype ! 'none' and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski2.jpg"></center>'
  16. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0 and $pantyworntype = 'none' and bonfire = 1:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski3.jpg"></center>'
  17. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nude'+ rand(1,3) +'.jpg"></center>'
  18. 'You are tired and decided to rest a little.'
  19. if wolfrand <= 3 and bonfire = 0 and hour = 23 or hour >= 0 and hour < 6 and bonfire = 0 and wolfrand <= 3:gt 'gadforest_event', 'relax'
  20. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and bonfire = 0:
  21. act 'Kindle fire':
  22. cla
  23. *clr
  24. minut += 10
  25. bonfire = 1
  26. gs 'stat'
  27. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire1.jpg"></center>'
  28. 'You have a match and decide to light a fire...'
  29. act 'Further':gt 'gadforestrelax'
  30. end
  31. end
  32. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and bonfire = 1:
  33. if edahot = 1:
  34. act 'To eat fried mushrooms':
  35. cla
  36. *clr
  37. minut += 15
  38. edahot = 0
  39. pcs_health += 10
  40. pcs_mood += 20
  41. gs'stat'
  42. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletuscook.jpg"></center>'
  43. if pcs_energy >= 100:
  44. fat += 5
  45. 'You can`t eat anymore.'
  46. elseif pcs_energy >= 70:
  47. fat += 3
  48. pcs_energy += 10
  49. 'You force yourself to eat more food.'
  50. else
  51. pcs_energy += 20
  52. 'You love to eat fried mushrooms.'
  53. end
  54. act 'Further':gt 'gadforestrelax'
  55. end
  56. end
  57. act 'To get warm by the fire':
  58. cla
  59. *clr
  60. minut += 60
  61. pcs_sleep += 9
  62. pcs_health += 10
  63. frost = 0
  64. pcs_mood += 10
  65. if hour >= 6 and hour < 21:
  66. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire2.jpg"></center>'
  67. else
  68. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfire3.jpg"></center>'
  69. end
  70. 'You sit in silence for hours looking at the fire. You feel warm and rested, perhaps it''s time to move on.'
  71. act 'Further':gt 'gadforestrelax'
  72. end
  73. act 'To lie down to take a NAP around the campfire':
  74. cla
  75. *clr
  76. if pcs_sleep < 40:
  77. pcs_sleep += 30
  78. pcs_health += 20
  79. minut += 180
  80. frost = 0
  81. pcs_mood += 50
  82. gs'stat'
  83. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfiresleep.jpg"></center>'
  84. 'You doze off for about 3 hours, you wake up feeling more cheerful and rested.'
  85. act 'Wake up':gt 'gadforestrelax'
  86. else
  87. cla
  88. *clr
  89. minut += 5
  90. frost = 0
  91. gs'stat'
  92. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_bonfiresleep.jpg"></center>'
  93. 'You`re trying to sleep, but can''t.'
  94. act 'Further':gt 'gadforestrelax'
  95. end
  96. end
  97. if boletus > 0:
  98. act 'Grill the mushrooms in the fire':
  99. cla
  100. *clr
  101. minut += 30
  102. edahot = 1
  103. boletus -= 1
  104. frost = 0
  105. gs'stat'
  106. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/boletushot.jpg"></center>'
  107. 'You grilled some mushrooms in the fire.'
  108. act 'Further':gt 'gadforestrelax'
  109. end
  110. end
  111. end
  112. if $clothingworntype ! 'nude' and bonfire = 0:
  113. act 'Sit on the grass':
  114. cla
  115. *clr
  116. if temper < 12:pcs_health -= healthmax/20
  117. minut += 60
  118. pcs_sleep += 6
  119. pcs_mood += 10
  120. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax3.jpg"></center>'
  121. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski4.jpg"></center>'
  122. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_ski5.jpg"></center>'
  123. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nude'+rand(1,2)+'.jpg"></center>'
  124. 'You sit in silence for hours looking at the fire. You feel warm and rested, perhaps it''s time to move on.'
  125. act 'Further':gt 'gadforestrelax'
  126. end
  127. act 'To lie down and take a NAP':
  128. cla
  129. *clr
  130. if pcs_sleep < 40:
  131. pcs_sleep += 30
  132. if temper < 12:pcs_health -= healthmax/10
  133. minut += 180
  134. pcs_mood += 20
  135. gs'stat'
  136. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleep.jpg"></center>'
  137. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype ! 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski.jpg"></center>'
  138. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and $pantyworntype = 'none' and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepski1.jpg"></center>'
  139. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_sleepnude1.'+rand(1,2)+'.jpg"></center>'
  140. 'You doze off for about 3 hours, you wake up feeling more cheerful and rested.'
  141. act 'Wake up':gt 'gadforestrelax'
  142. else
  143. minut += 5
  144. gs'stat'
  145. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestrelax_nosleep.jpg"></center>'
  146. 'You`re trying to sleep, but can''t.'
  147. act 'Further':gt 'gadforestrelax'
  148. end
  149. end
  150. end
  151. if bilberry > 0:
  152. act 'To eat berries':
  153. cla
  154. *clr
  155. minut += 30
  156. pcs_energy += 15
  157. water += 40
  158. bilberry -= 1
  159. pcs_willpwr += 5
  160. pcs_health += 5
  161. pcs_mood += 10
  162. gs'stat'
  163. '<center><img <<$set_imgh>> src="images/locations/gadukino/forest/bilberry.jpg"></center>'
  164. 'You ate a few berries.'
  165. act 'Further':gt 'gadforestrelax'
  166. end
  167. end
  168. act 'Look for the road':
  169. if lost = 1:bonfire = 0 & minut += 15 & gt 'gadforestlost','1'
  170. if lost = 2:bonfire = 0 & minut += 15 & gt 'gadforestlost','2'
  171. if lost = 3:bonfire = 0 & minut += 15 & gt 'gadforestlost','3'
  172. if lost = 4:bonfire = 0 & minut += 15 & gt 'gadforestlost','4'
  173. end
  174. --- gadforestrelax ---------------------------------