1
0

gadforestrelax.qsrc 8.1 KB

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