gadforestswamp 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
  1. # gadforestswamp
  2. $location_type = 'secluded'
  3. if $ARGS[0] = '1':
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. gs 'gadukino_event', 'sound'
  7. cls
  8. gs'stat'
  9. !gs'time'
  10. '<center><H4>Swamp</H4></center>'
  11. if month >= 4 and month <= 10:
  12. if hour >= 6 and hour < 22:
  13. '<center><img src="images/locations/gadukino/hunters/gadforestlostswamp.jpg"></center>'
  14. else
  15. '<center><img src="images/locations/gadukino/hunters/gadforestlostswamp_night.jpg"></center>'
  16. end
  17. else
  18. if hour >= 8 and hour < 18:
  19. '<center><img src="images/locations/gadukino/hunters/gadforestlostswamp_winter.jpg"></center>'
  20. else
  21. '<center><img src="images/locations/gadukino/hunters/gadforestlostswamp_winter_night.jpg"></center>'
  22. end
  23. end
  24. 'You went to the marsh, behind it you can see some kind of hut. You can go back into the woods or try to get to the hut through the mash, but will you have enough strength and dexterity to overcome this mess?'
  25. act 'Go back to the forest':gt 'gadforestlost','4'
  26. act 'To go through the mire':
  27. cla
  28. *clr
  29. minut += 10
  30. swamprand = pcs_stren + pcs_agil
  31. pcs_sweat += 10
  32. temp = RAND(1,100)
  33. gs 'stat'
  34. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img src="images/locations/gadukino/hunters/goswamp.jpg"></center>'
  35. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img src="images/locations/gadukino/hunters/goswamp_ski.jpg"></center>'
  36. if $clothingworntype = 'nude':'<center><img src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
  37. 'You entered the swamp and felt your feet starting to sink into the mud...'
  38. act 'Go further':
  39. if swamprand > temp:gt 'swamp_yard'
  40. if swamprand < temp and temp >= 90:over = 10 & gt'gameover'
  41. if swamprand < temp and temp < 90:gt 'gadforestswamp','2'
  42. end
  43. end
  44. end
  45. if $ARGS[0] = '2':
  46. $metka = $ARGS[0]
  47. $loc = $CURLOC
  48. gs 'gadukino_event', 'sound'
  49. cls
  50. pcs_hairbsh = 0
  51. if pcs_makeup > 1:pcs_makeup = 0
  52. !clothes wear out, "dirty" to avoid at a time
  53. if dirty = 0 and ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear'):dirty = 1 & dirtyclothes = 1 & dynamic $clothingworntype + 'H[<<clothingwornnumber>>] -= 10'
  54. !add remove cloth if worn out, need better texting by illume.
  55. if dyneval('RESULT = <<$clothingworntype>>H[<<clothingwornnumber>>]') <= 0:
  56. 'Your clothes are torn to pieces, you are naked now.'
  57. gs 'clothing', 'strip'
  58. end
  59. gs'stat'
  60. !gs'time'
  61. '<center><H4>Swamp</H4></center>'
  62. '<center><img src="images/locations/gadukino/hunters/panicswamp.jpg"></center>'
  63. 'You are stuck in the quagmire."I''m stuck!", you think in panic "What do I do?". '
  64. act 'Call for help':
  65. cla
  66. *clr
  67. minut += 10
  68. if pcs_sweat < 10: pcs_sweat += 10
  69. if week = 6 or week = 7:temp = RAND(1,3)
  70. if week < 6:temp = RAND(1,5)
  71. gs 'stat'
  72. '<center><img src="images/locations/gadukino/hunters/gadforestlosthelp.jpg"></center>'
  73. 'You are exhausted and begin to scream for help, suddenly you see people...'
  74. act 'Wait':
  75. if temp = 1:
  76. cla
  77. *clr
  78. minut += 10
  79. hanters = 1
  80. hanterhelp = 1
  81. gs 'stat'
  82. '<center><img src="images/locations/gadukino/hunters/handshelp.jpg"></center>'
  83. 'You hear men speaking and begin to shouting louder. The voices come closer and finally, someone''s strong hands grabbed you and dragged back to solid ground.'
  84. act 'Further':gt 'swamp_yard'
  85. else
  86. cla
  87. *clr
  88. minut += 10
  89. '<center><img src="images/locations/gadukino/hunters/panicswamp.jpg"></center>'
  90. 'No one responds to your call, looks like you are all alone.'
  91. act 'Further':gt 'gadforestswamp','2'
  92. end
  93. end
  94. end
  95. act 'Trying to get back to the woods':
  96. cla
  97. *clr
  98. minut += 10
  99. swamprand = pcs_stren + pcs_agil
  100. stren_exp += rand(0,1)
  101. agil_exp += rand(0,1)
  102. pcs_sweat += 30
  103. temp = RAND(1,100)
  104. gs 'stat'
  105. dynamic $swampclothes
  106. 'You decided not to tempt fate more and turn back...'
  107. act 'Go':
  108. if swamprand > temp:gt 'gadforestswamp','1'
  109. if swamprand < temp and temp <= 20:over = 10 & gt'gameover'
  110. if swamprand < temp and temp > 20:gt 'gadforestswamp','2'
  111. end
  112. end
  113. act 'Try to go on to the house':
  114. cla
  115. *clr
  116. minut += 10
  117. swamprand = pcs_stren + pcs_agil
  118. stren_exp += rand(0,1)
  119. agil_exp += rand(0,1)
  120. pcs_sweat += 30
  121. temp = RAND(1,100)
  122. gs 'stat'
  123. dynamic $swampclothes
  124. 'You thought more about it and decided against it. You move on from the house...'
  125. act 'Go':
  126. if swamprand > temp:gt 'swamp_yard'
  127. if swamprand < temp and temp <= 30:over = 10 & gt'gameover'
  128. if swamprand < temp and temp > 30:gt 'gadforestswamp','2'
  129. end
  130. end
  131. end
  132. $swampclothes = {
  133. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness = 0:'<center><img src="images/locations/gadukino/hunters/goswamp1.jpg"></center>'
  134. if ($clothingworntype ! 'nude' and $clothingworntype ! 'swimwear') and CloSkirtShortness > 0:'<center><img src="images/locations/gadukino/hunters/goswamp_ski1.jpg"></center>'
  135. if $clothingworntype = 'nude':'<center><img src="images/locations/gadukino/hunters/goswamp_nude0.'+rand(4,5)+'.jpg"></center>'
  136. }
  137. --- gadforestswamp ---------------------------------