swamp.qsrc 6.4 KB

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