gadforestswamp.qsrc 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186
  1. # gadforestswamp
  2. $location_type = 'secluded'
  3. if $ARGS[0] = '1':
  4. $loc = 'gadforestswamp'
  5. $metka = '1'
  6. $location_type = 'secluded'
  7. $menu_loc = 'gadforestswamp'
  8. $menu_arg = '1'
  9. menu_off = 0
  10. gs 'gadukino_event', 'sound'
  11. gs 'stat'
  12. '<center><H4>Swamp</H4></center>'
  13. if month >= 4 and month <= 10:
  14. if hour >= 6 and hour < 22:
  15. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp.jpg"></center>'
  16. else
  17. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_night.jpg"></center>'
  18. end
  19. else
  20. if hour >= 8 and hour < 18:
  21. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_winter.jpg"></center>'
  22. else
  23. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlostswamp_winter_night.jpg"></center>'
  24. end
  25. end
  26. 'You come to the edge of the swamp; you can see a hut in the distance.'
  27. 'You can go back into the woods or try to get to the hut through the marsh, but will you have enough strength and agility to overcome this obstacle?'
  28. act 'Go back to the forest':gt 'gadforestlost','4'
  29. act 'Try to go through the mire':
  30. *clr & cla
  31. menu_off = 1
  32. minut += 10
  33. swamprand = pcs_stren + pcs_agil
  34. pcs_sweat += 15
  35. gs 'stat'
  36. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp.jpg"></center>'
  37. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_ski.jpg"></center>'
  38. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
  39. 'You entered the swamp and felt your feet starting to sink into the mud...'
  40. temp_gads = RAND(1,100)
  41. act 'Give it another try':
  42. if swamprand > temp_gads:gt 'swamp_yard'
  43. if Enable_nogameover = 0:
  44. if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
  45. if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
  46. else
  47. gt 'gadforestswamp', '2'
  48. end
  49. end
  50. end
  51. end
  52. if $ARGS[0] = '2':
  53. $loc = 'gadforestswamp'
  54. $metka = '2'
  55. $location_type = 'secluded'
  56. $menu_loc = 'gadforestswamp'
  57. $menu_arg = '2'
  58. menu_off = 0
  59. gs 'gadukino_event', 'sound'
  60. gs 'stat'
  61. ! unbrush hair and remove makeup
  62. pcs_hairbsh = 0
  63. if pcs_makeup > 1:pcs_makeup = 0
  64. ! clothes wear out
  65. if dirty = 0 and ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear'):dirty = 1 & dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 10'
  66. ! add remove clothes if worn out
  67. if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
  68. 'Your ripped clothes were barely holding together, but now they have finally fell apart.'
  69. 'You are naked now.'
  70. gadforest_clothestorn = 1
  71. gs 'clothing', 'strip', 'gadforestswamp', 2
  72. end
  73. gs 'stat'
  74. '<center><H4>Swamp</H4></center>'
  75. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/panicswamp.jpg"></center>'
  76. 'You are stuck in the quagmire."I''m stuck!", you think in panic "What do I do?". '
  77. act 'Call for help':
  78. *clr & cla
  79. menu_off = 1
  80. minut += 10
  81. if pcs_sweat < 10: pcs_sweat += 10
  82. if week = 6 or week = 7:temp_gads = RAND(1,3)
  83. if week < 6:temp_gads = RAND(1,5)
  84. gs 'stat'
  85. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/gadforestlosthelp.jpg"></center>'
  86. 'You are exhausted and begin to scream for help...'
  87. act 'Wait':
  88. if temp_gads = 1:
  89. *clr & cla
  90. minut += 10
  91. hanters = 1
  92. hanterhelp = 1
  93. gs 'stat'
  94. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/handshelp.jpg"></center>'
  95. 'You hear men speaking and begin to shout louder. The voices come closer and finally, someone''s strong hands grabbed you and dragged back to solid ground.'
  96. 'You are so tired from your ordeal you pass out.'
  97. act 'Wake up':gt 'swamp_yard'
  98. else
  99. *clr & cla
  100. minut += 10
  101. gs 'stat'
  102. '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/panicswamp.jpg"></center>'
  103. 'No one responds to your call, looks like you are all alone.'
  104. act 'Contemplate your life':gt 'gadforestswamp','2'
  105. end
  106. end
  107. end
  108. act 'Try to get back to the woods':
  109. *clr & cla
  110. menu_off = 1
  111. minut += 10
  112. swamprand = pcs_stren + pcs_agil
  113. stren_exp += rand(0,1)
  114. agil_exp += rand(0,1)
  115. pcs_sweat += 30
  116. temp_gads = RAND(1,100)
  117. gs 'stat'
  118. dynamic $swampclothes
  119. 'You decide it''s wisest to try and turn back...'
  120. act 'Give it another try':
  121. if swamprand > temp_gads:gt 'gadforestswamp','1'
  122. if Enable_nogameover = 0:
  123. if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
  124. if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
  125. else
  126. gt 'gadforestswamp', '2'
  127. end
  128. end
  129. end
  130. act 'Try to go on to the hut':
  131. cla
  132. *clr
  133. menu_off = 1
  134. minut += 10
  135. swamprand = pcs_stren + pcs_agil
  136. stren_exp += rand(0,1)
  137. agil_exp += rand(0,1)
  138. pcs_sweat += 30
  139. temp_gads = RAND(1,100)
  140. gs 'stat'
  141. dynamic $swampclothes
  142. 'You decide you might as well keep going forward at this point...'
  143. act 'Give it another try':
  144. if swamprand > temp_gads:gt 'swamp_yard'
  145. if Enable_nogameover = 0:
  146. if swamprand < temp_gads and temp_gads >= 90:over = 10 & gt 'gameover'
  147. if swamprand < temp_gads and temp_gads < 90:gt 'gadforestswamp', '2'
  148. else
  149. gt 'gadforestswamp', '2'
  150. end
  151. end
  152. end
  153. end
  154. $swampclothes = {
  155. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp1.jpg"></center>'
  156. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_ski1.jpg"></center>'
  157. if $clothingworntype = 'nude':'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
  158. }
  159. --- gadforestswamp ---------------------------------