gadforestswamp.qsrc 5.9 KB

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