swamp.qsrc 6.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198
  1. # swamp
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. $loc = 'swamp'
  5. $metka = 'start'
  6. $location_type = 'secluded'
  7. $menu_loc = 'swamp'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. CLOSE ALL
  11. gs 'gadukino_event', 'sound'
  12. gs 'stat'
  13. '<center><H4>Swamp</H4></center>'
  14. if month >= 4 and month <= 10:
  15. if hour >= 6 and hour < 22:
  16. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp.jpg"></center>'
  17. else
  18. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_night.jpg"></center>'
  19. end
  20. else
  21. if hour >= 8 and hour < 20:
  22. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_winter.jpg"></center>'
  23. else
  24. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swamp_winter_night.jpg"></center>'
  25. end
  26. end
  27. *nl
  28. 'You are at the swamp on the far side of the woods from the village.'
  29. 'It can be dangerous to hike in this area, unless physically fit or have a good knowledge of the forest.'
  30. act 'Head back to the forest (0:15)': minut += 15 & gt 'gadforest', 'forest_center'
  31. if hunterscabin = 1:
  32. 'You can see the small path to the clearing that contains the hunters cabin.'
  33. act 'Go to the hunters cabin (0:15)':
  34. ! daytime chance to get stuck in swamp - use bike to get there 100% of the time
  35. if hour >= 6 and hour <= 22:
  36. swamp_stuck = 0
  37. gt 'swamp', 'stuck','swamp'
  38. ! nighttime chased by wolves - Sveta probably should not be roaming the forest at this time
  39. else
  40. gt 'gadforestlost','wolves','swamp'
  41. end
  42. end
  43. end
  44. end
  45. if $ARGS[0] = 'stuck':
  46. ! if player is skilled at forest or very agile or strong then don''t get stuck in swamp at all
  47. if pcs_bushcraft < 70 and pcs_agil < 70 and pcs_stren < 70:
  48. *clr & cla
  49. $loc = 'swamp'
  50. $metka = 'stuck'
  51. $location_type = 'secluded'
  52. $menu_loc = 'swamp'
  53. $menu_arg = 'stuck'
  54. menu_off = 0
  55. CLOSE ALL
  56. gs 'gadukino_event', 'sound'
  57. gs 'stat'
  58. '<center><H4>Swamp</H4></center>'
  59. if $clothingworntype ! 'nude' and PCloSkirt = 0:
  60. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp1.jpg"></center>'
  61. elseif $clothingworntype ! 'nude' and PCloSkirt > 0:
  62. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_ski1.jpg"></center>'
  63. elseif $clothingworntype = 'nude':
  64. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
  65. end
  66. *nl
  67. 'As you walk through the swamp, you feel yourself begin to sink into the mud of the swamp with each step.'
  68. 'You know you''re so close to your destination, but you''re not sure you can make it.'
  69. act 'Struggle':
  70. *clr & cla
  71. swamp_stuck += 1
  72. minut += 15
  73. gs 'sweat', 'add', 15
  74. gs 'stat'
  75. if swamp_stuck mod 3 = 0:
  76. swamp_check = pcs_stren + pcs_agil + pcs_bushcraft
  77. swamprand = rand(0,225)
  78. elseif swamp_stuck mod 2 = 0:
  79. swamp_check = pcs_stren + pcs_agil
  80. swamprand = rand(0,150)
  81. else
  82. swamp_check = pcs_stren
  83. swamprand = rand(0,75)
  84. end
  85. if swamp_stuck = 10 and Enable_nogameover = 0:
  86. over = 10
  87. gt 'gameover'
  88. else
  89. if swamp_check > swamprand:
  90. '<center><H4>Swamp</H4></center>'
  91. if $clothingworntype ! 'nude' and PCloSkirt = 0:
  92. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp.jpg"></center>'
  93. elseif $clothingworntype ! 'nude' and PCloSkirt > 0:
  94. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_ski.jpg"></center>'
  95. elseif $clothingworntype = 'nude':
  96. swamprand = rand(0,3)
  97. if swamprand = 0:
  98. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0..jpg"></center>'
  99. else
  100. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+swamprand+'.jpg"></center>'
  101. end
  102. end
  103. *nl
  104. 'Your efforts are not in vain as you begin to feel the muds hold loosen. With another burst of strength you free yourself and breathe a sigh of relief.'
  105. act 'Success!':gt 'swamp_yard','start'
  106. else
  107. '<center><H4>Swamp</H4></center>'
  108. if $clothingworntype ! 'nude' and PCloSkirt = 0:
  109. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp1.jpg"></center>'
  110. elseif $clothingworntype ! 'nude' and PCloSkirt > 0:
  111. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_ski1.jpg"></center>'
  112. elseif $clothingworntype = 'nude':
  113. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
  114. end
  115. *nl
  116. 'Your efforts are for nothing, the muds hold feels as tight as ever. In fact you feel yourself sinking even deeper.'
  117. act 'Failure':gt 'swamp','stuck'
  118. end
  119. end
  120. end
  121. if month >= 4 and month <= 10:
  122. act 'Scream for help':
  123. *clr & cla
  124. minut += 15
  125. if ((hour >= 8 and hour < 12) or (hour >= 14 and hour < 18)):
  126. swamprand = rand(1,4)
  127. elseif (hour >= 7 and hour < 23):
  128. swamprand = rand(1,5)
  129. else
  130. swamprand = rand(1,6)
  131. end
  132. gs 'stat'
  133. '<center><H4>Swamp</H4></center>'
  134. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlosthelp.jpg"></center>'
  135. *nl
  136. 'You don''t think you''re strong enough to break free of the mud and decide your best chance is to simply yell for help. Hopefully you''re close enough to the hunters cabin that they''ll hear you.'
  137. if swamprand = 1:
  138. act 'Success!':
  139. *clr & cla
  140. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/handshelp.jpg"></center>'
  141. *nl
  142. 'You hear men speaking and begin to shout louder. The voices come closer and finally, you feel strong hands grab you and drag you out to solid ground.'
  143. act 'Relax':gt 'swamp_yard','start'
  144. end
  145. else
  146. *nl
  147. 'You yell out into the void, but your only response is the howling of the wind and the chirp of some crickets.'
  148. act 'Failure':gt 'swamp','stuck'
  149. end
  150. end
  151. end
  152. else
  153. '<center><H4>Swamp</H4></center>'
  154. if month >= 4 and month <= 10:
  155. if hour >= 6 and hour < 22:
  156. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp.jpg"></center>'
  157. else
  158. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_night.jpg"></center>'
  159. end
  160. else
  161. if hour >= 8 and hour < 18:
  162. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_winter.jpg"></center>'
  163. else
  164. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_winter_night.jpg"></center>'
  165. end
  166. end
  167. *nl
  168. if $ARGS[1] = 'forest_edge':
  169. minut += 60
  170. 'After an hour walking through the forest you finally see the hunters cabin ahead.'
  171. elseif $ARGS[1] = 'swamp':
  172. minut += 15
  173. 'After a few mintues walking through the swamp you finally see the hunters cabin ahead.'
  174. end
  175. gs 'stat'
  176. act 'Continue':gt 'swamp_yard', 'start'
  177. end
  178. end
  179. --- swamp ---------------------------------