gadforestswamp 5.3 KB

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