swamp.tw 6.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156
  1. :: swamp[mod mod_gad]
  2. <<set $here = 'swamp'>>
  3. <<set $ARGS = $location_var[$here]>>
  4. <<if $location_var[$here][0] == 'start'>>
  5. <<set $loc = 'swamp'>>
  6. <<set $loc_arg = 'start'>>
  7. <<set $location_type = 'secluded'>>
  8. <<set $menu_loc = 'swamp'>>
  9. <<set $menu_arg = 'start'>>
  10. <<set $menu_off = 0>>
  11. <<gs 'gadukino_event' 'sound'>>
  12. <h2>Swamp</h2>
  13. <<if $time.month >= 4 and $time.month <= 10>>
  14. <center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(dayStage < 4,'swamp.jpg','swamp_night.jpg')+'"></center>
  15. <<else>>
  16. <center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(dayStage < 4,'swamp_winter.jpg','swamp_winter_night.jpg')+'"></center>
  17. <</if>>
  18. You are at the village''s swamp on the far side of the woods.
  19. It can be dangerous to hike in this area unless you are physically fit or know the forest well.
  20. <<actCLA 'Head back to the forest (0:15)'>>
  21. <<set $time.minutes += 15>> <<gt 'gadforest' 'forest_center'>>
  22. <</actCLA>>
  23. <<if getvar("$hunterscabin") == 1>>
  24. You can see the small path to the clearing that contains the hunters'' cabin.
  25. <<actCLA 'Walk to the hunters` cabin (0:15)'>>
  26. <!-- ! daytime chance to get stuck in swamp - use bike to get there 100% of the time-->
  27. <<if $time.dayStage < 4>>
  28. <<set $swamp_stuck = 0>>
  29. <<gt 'swamp' 'stuck' 'swamp'>>
  30. <!-- ! nighttime chased by wolves - Sveta probably should not be roaming the forest at this time-->
  31. <<else>>
  32. <<gt 'gadforestlost' 'wolves' 'swamp'>>
  33. <</if>>
  34. <</actCLA>>
  35. <</if>>
  36. <</if>>
  37. <<if $location_var[$here][0] == 'stuck'>>
  38. <!-- ! if player is skilled at forest or very agile or strong then don't get stuck in swamp at all-->
  39. <<if $pc.skillLevel("bushcraft") < 80 and $pc.skillLevel("agility") < 70 and $pc.skillLevel("strength") < 70>>
  40. <<set $loc = 'swamp'>>
  41. <<set $loc_arg = 'stuck'>>
  42. <<set $location_type = 'secluded'>>
  43. <<set $menu_loc = 'swamp'>>
  44. <<set $menu_arg = 'stuck'>>
  45. <<set $menu_off = 0>>
  46. <<gs 'gadukino_event' 'sound'>>
  47. <h2>Swamp</h2>
  48. <<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0>>
  49. <<image "locations/gadukino/hunters/goswamp1.jpg">>
  50. <<elseif $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt > 0>>
  51. <<image "locations/gadukino/hunters/goswamp_ski1.jpg">>
  52. <<elseif $wardrobe.clothingworntype == 'nude'>>
  53. <<image "locations/gadukino/hunters/goswamp_nude0.#.jpg" 4 5>>
  54. <</if>>
  55. As you walk through the swamp, you feel yourself begin to sink into the mud with each step.
  56. You know you're so close to your destination, but you're not sure you can make it.
  57. <<actCLA 'Struggle'>>
  58. <<set $swamp_stuck += 1>>
  59. <<set $time.minutes += 15>>
  60. <<run $pc.sweatAdd(15)>>
  61. <<if $swamp_stuck % 3 == 0>>
  62. <<set $swamp_check = $pc.skillLevel("strength") + $pc.skillLevel("agility") + $pc.skillLevel("bushcraft")>>
  63. <<set $swamprand = rand(0,225)>>
  64. <<elseif $swamp_stuck % 2 == 0>>
  65. <<set $swamp_check = $pc.skillLevel("strength") + $pc.skillLevel("agility")>>
  66. <<set $swamprand = rand(0,150)>>
  67. <<else>>
  68. <<set $swamp_check = $pc.skillLevel("strength")>>
  69. <<set $swamprand = rand(0,75)>>
  70. <</if>>
  71. <<if getvar("$swamp_stuck") == 10 and getvar("$Enable_nogameover") == 0>>
  72. <<set $pc.gameover= 10>>
  73. <<gt 'gameover'>>
  74. <<else>>
  75. <<if $swamp_check > $swamprand>>
  76. <h2>Swamp</h2>
  77. <<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0>>
  78. <<image "locations/gadukino/hunters/goswamp.jpg">>
  79. <<elseif $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt > 0>>
  80. <<image "locations/gadukino/hunters/goswamp_ski.jpg">>
  81. <<elseif $wardrobe.clothingworntype == 'nude'>>
  82. <<set $swamprand = rand(0,3)>>
  83. <<if getvar("$swamprand") == 0>>
  84. <<image 'locations/gadukino/hunters/goswamp_nude0... jpg'>>
  85. <<else>>
  86. <<image `'locations/gadukino/hunters/goswamp_nude0.'+swamprand+'.jpg'`>>
  87. <</if>>
  88. <</if>>
  89. Your efforts are not vain as you begin to feel the mud''s hold loosen. Then, with another burst of strength, you free yourself and sigh in relief.
  90. <<act 'Success!'>>
  91. <<gt 'swamp_yard' 'start'>>
  92. <</act>>
  93. <<else>>
  94. <h2>Swamp</h2>
  95. <<if $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt == 0>>
  96. <<image "locations/gadukino/hunters/goswamp1.jpg">>
  97. <<elseif $wardrobe.clothingworntype != 'nude' and $wardrobe.PCloSkirt > 0>>
  98. <<image "locations/gadukino/hunters/goswamp_ski1.jpg">>
  99. <<elseif $wardrobe.clothingworntype == 'nude'>>
  100. <<image "locations/gadukino/hunters/goswamp_nude0.#.jpg" 4 5>>
  101. <</if>>
  102. Your efforts are for nothing. The mud''s hold feels as tight as ever. In fact, you feel yourself sinking even deeper.
  103. <<act 'Failure'>>
  104. <<gt 'swamp' 'stuck'>>
  105. <</act>>
  106. <</if>>
  107. <</if>>
  108. <</actCLA>>
  109. <<if $time.month >= 4 and $time.month <= 10>>
  110. <<actCLA 'Scream for help'>>
  111. <<set $time.minutes += 15>>
  112. <<if (($time.hour >= 8 and $time.hour < 12) or ($time.hour >= 14 and $time.hour < 18))>>
  113. <<set $swamprand = rand(1,4)>>
  114. <<elseif ($time.hour >= 7 and $time.hour < 23)>>
  115. <<set $swamprand = rand(1,5)>>
  116. <<else>>
  117. <<set $swamprand = rand(1,6)>>
  118. <</if>>
  119. <h2>Swamp</h2>
  120. <<image "locations/gadukino/hunters/gadforestlosthelp.jpg">>
  121. 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.
  122. <<if getvar("$swamprand") == 1>>
  123. <<actCLA 'Success!'>>
  124. <<image "locations/gadukino/hunters/handshelp.jpg">>
  125. * nl '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 the solid ground.'
  126. <<act 'Relax'>>
  127. <<gt 'swamp_yard' 'start'>>
  128. <</act>>
  129. <</actCLA>>
  130. <<else>>
  131. * nl 'You yell out into the void , but your only response is the howling of the wind and the chirp of some crickets.'
  132. <<act 'Failure'>>
  133. <<gt 'swamp' 'stuck'>>
  134. <</act>>
  135. <</if>>
  136. <</actCLA>>
  137. <</if>>
  138. <<else>>
  139. <h2>Swamp</h2>
  140. <<if $time.month >= 4 and $time.month <= 10>>
  141. <center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(dayStage < 4,'gadforestlostswamp.jpg','gadforestlostswamp_night.jpg')+'"></center>
  142. <<else>>
  143. <center><img <<$set_imgh>> src="images/locations/gadukino/hunters/'+iif(dayStage < 4,'gadforestlostswamp_winter.jpg','gadforestlostswamp_winter_night.jpg')+'"></center>
  144. <</if>>
  145. <<if $location_var[$here][1] == 'forest_edge'>>
  146. <<set $time.minutes += 60>>
  147. After an hour of walking through the forest, you finally see the hunters'' cabin ahead.
  148. <<elseif $location_var[$here][1] == 'swamp'>>
  149. <<set $time.minutes += 15>>
  150. After walking through the swamp for a few minutes, you finally see the hunters'' cabin ahead.
  151. <</if>>
  152. <<act 'Continue'>>
  153. <<gt 'swamp_yard' 'start'>>
  154. <</act>>
  155. <</if>>
  156. <</if>>