1
0

gadforestrelax.qsrc 8.3 KB

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