dangeon 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170
  1. # dangeon
  2. $dundincif = {
  3. cls
  4. gs 'stat'
  5. '8809 = 6'
  6. '7111 = 0'
  7. '2172 = 0'
  8. '6666 = 4'
  9. '1111 = 0'
  10. '3213 = 0'
  11. '7662 = 2'
  12. '9312 = 1'
  13. '0000 = 4'
  14. '2222 = 0'
  15. '3333 = 0'
  16. '5555 = 0'
  17. '8193 = 3'
  18. '8096 = 5'
  19. '7777 = 0'
  20. '9999 = 4'
  21. '7756 = 1'
  22. '6855 = 3'
  23. '9881 = 5'
  24. '5531 = 0'
  25. 'Have a smart sense in such tomfoolery, because often clever fool walks.'
  26. act 'Move away from labels':gt $curloc
  27. }
  28. $dundinboch = {
  29. cls
  30. if openstateDM2 = 0:openstateDM2 = 1
  31. gs 'stat'
  32. 'Chimes hear soon reconcile those who quarrel.'
  33. act 'Move away from the barrel':gt $curloc
  34. }
  35. $dundinsvitok = {
  36. cls
  37. svitokRTS = 1
  38. heart += 1
  39. gs 'stat'
  40. 'You picked up the scroll and he crumbled. As if you breathed in the wind. You listen to the feelings and understand that you have something changed. You feel like somewhere, as if in another dimension another beating heart belongs to you, which will die for you in battle.'
  41. act 'Move away':gt $curloc
  42. }
  43. gs 'stat'
  44. if dungeonMark = 0:
  45. '<center><img src="images/picpre/dunpre.jpg"></center>'
  46. 'The man-made cave in depth which shows the door.'
  47. act 'Get out of the dungeon':minut += 5 & gt 'obekt2'
  48. act 'Enter the door':minut += 5 & dungeonMark = 1 & gt $curloc
  49. elseif dungeonMark = 1:
  50. '<center><img src="images/picpre/dunpre1.jpg"></center>'
  51. 'Quite large and deserted room in which there is nothing but a bunch of bones in the corner.'
  52. act 'Leave':minut += 5 & dungeonMark = 0 & gt $curloc
  53. act 'Go deep into':minut += 5 & dungeonMark = 2 & gt $curloc
  54. elseif dungeonMark = 2:
  55. if svitokRTS = 1:exit
  56. '<center><img src="images/picpre/dunpre2.jpg"></center>'
  57. 'Dilapidated gallery in the recesses of which are visible doors to other rooms.'
  58. act 'Exit from the gallery':minut += 5 & dungeonMark = 1 & gt $curloc
  59. act 'Sign in 1yu room':minut += 5 & dungeonMark = 3 & gt $curloc
  60. act 'Sign in 2w room':
  61. cls
  62. if openstateDM = 1:
  63. minut += 5
  64. dungeonMark = 4
  65. gt $curloc
  66. end
  67. if openstateDM = 0:
  68. :markanotherrand
  69. DMN[1] = rand(0, 9)
  70. DMN[2] = rand(0, 9)
  71. DMN[3] = rand(0, 9)
  72. DMN[4] = rand(0, 9)
  73. if DMN[1] = DMN[2] and DMN[1] = DMN[3] and DMN[1] = DMN[4]:jump 'markanotherrand'
  74. if DMN[1] = 8 and DMN[2] = 8 and DMN[3] = 0 and DMN[4] = 9:jump 'markanotherrand'
  75. if DMN[1] = 7 and DMN[2] = 1 and DMN[3] = 1 and DMN[4] = 1:jump 'markanotherrand'
  76. if DMN[1] = 2 and DMN[2] = 1 and DMN[3] = 7 and DMN[4] = 2:jump 'markanotherrand'
  77. if DMN[1] = 3 and DMN[2] = 2 and DMN[3] = 1 and DMN[4] = 3:jump 'markanotherrand'
  78. if DMN[1] = 7 and DMN[2] = 6 and DMN[3] = 6 and DMN[4] = 2:jump 'markanotherrand'
  79. if DMN[1] = 9 and DMN[2] = 3 and DMN[3] = 1 and DMN[4] = 2:jump 'markanotherrand'
  80. if DMN[1] = 8 and DMN[2] = 1 and DMN[3] = 9 and DMN[4] = 3:jump 'markanotherrand'
  81. if DMN[1] = 8 and DMN[2] = 0 and DMN[3] = 9 and DMN[4] = 6:jump 'markanotherrand'
  82. if DMN[1] = 7 and DMN[2] = 7 and DMN[3] = 5 and DMN[4] = 6:jump 'markanotherrand'
  83. if DMN[1] = 6 and DMN[2] = 8 and DMN[3] = 5 and DMN[4] = 5:jump 'markanotherrand'
  84. if DMN[1] = 9 and DMN[2] = 8 and DMN[3] = 8 and DMN[4] = 1:jump 'markanotherrand'
  85. if DMN[1] = 5 and DMN[2] = 5 and DMN[3] = 3 and DMN[4] = 1:jump 'markanotherrand'
  86. i = 0
  87. numdmr = 0
  88. :markdnm
  89. i += 1
  90. if DMN[i] = 0 or DMN[i] = 6 or DMN[i] = 9:
  91. numdmr += 1
  92. elseif DMN[i] = 8:
  93. numdmr += 2
  94. end
  95. if i < 4:jump 'markdnm'
  96. numberOSDM = input("<<DMN[1]>><<DMN[2]>><<DMN[3]>><<DMN[4]>> >= ?")
  97. if numberOSDM < 0 or numberOSDM > 8 or numdmr ! numberOSDM:
  98. msg("Silence, nothing has changed")
  99. gt $curloc
  100. else
  101. openstateDM = 1
  102. msg("In the door that just clicked")
  103. gt $curloc
  104. end
  105. end
  106. end
  107. if openstateDM2 = 2:act 'Sign in third room':minut += 5 & dungeonMark = 5 & gt $curloc
  108. elseif dungeonMark = 3:
  109. '<center><img src="images/picpre/dunpre3.jpg"></center>'
  110. 'The room in which the middle stands a stone dais on which are various dusty bottles.'
  111. 'Scrawled on the wall of what is <a href="exec:dynamic $dundincif">signs</a>.'
  112. act 'Leave the room':minut += 5 & dungeonMark = 2 & gt $curloc
  113. elseif dungeonMark = 4:
  114. '<center><img src="images/picpre/dunpre4.jpg"></center>'
  115. 'Small room in which there are what that <a href="exec:dynamic $dundinboch">Drums</a>.'
  116. act 'Leave the room':minut += 5 & dungeonMark = 2 & gt $curloc
  117. if openstateDM2 = 1:
  118. 'In another barrel you see a device where you can enter numbers.'
  119. act 'Enter the numbers':
  120. cls
  121. numberOSDM2 = input("12, 1, 1, 1, 2, 1, 3, ?, ?, ?, ?")
  122. if numberOSDM2 = rikudootvet:
  123. openstateDM2 = 2
  124. msg("Outside that it rattled.")
  125. else
  126. msg("Silence, nothing has changed")
  127. end
  128. gt $curloc
  129. end
  130. end
  131. elseif dungeonMark = 5:
  132. '<center><img src="images/picpre/dunpre5.jpg"></center>'
  133. 'The room in which the middle, sitting on a stone throne cobwebbed skeleton.'
  134. if svitokRTS = 0:'In the hands of a skeleton lying <a href="exec:dynamic $dundinsvitok">scroll</a>.'
  135. act 'Leave the room':minut += 5 & dungeonMark = 2 & gt $curloc
  136. end
  137. --- dangeon ---------------------------------