1
0

road 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213
  1. # road
  2. $polustanok = {
  3. cls
  4. gs 'stat'
  5. 'Ordinary railway platform.'
  6. act 'Exit':minut += 10 & nroad = 5 & gt 'road'
  7. if money >= 150:
  8. act 'Buy a ticket to the town (150 rubles)':
  9. cls
  10. money -= 150
  11. minut += 15
  12. gs 'stat'
  13. '<center><img src="images/etogame/electri.jpg"></center>'
  14. 'You paid for the ticket and boarded the train going in the town.'
  15. 'After 15 minutes the train stopped at the station.'
  16. act 'To go further':
  17. cls
  18. minut += 15
  19. gs 'stat'
  20. '<center><img src="images/etogame/electri.jpg"></center>'
  21. 'After 15 minutes the train stopped at the station.'
  22. act 'To go further':
  23. cls
  24. minut += 15
  25. gs 'stat'
  26. '<center><img src="images/etogame/electri.jpg"></center>'
  27. 'After 15 minutes the train stopped in the Township.'
  28. act 'Exit':minut += 20 & nroad = 20 & gt 'vokzalG'
  29. end
  30. act 'Exit':minut += 15 & nroad = 15 & gt 'road'
  31. end
  32. act 'Exit':minut += 10 & nroad = 10 & gt 'road'
  33. end
  34. end
  35. if money >= 50:
  36. act 'Buy a ticket to the Centre (50 rubles)':
  37. cls
  38. money -= 50
  39. minut += 15
  40. gs 'stat'
  41. '<center><img src="images/etogame/electri.jpg"></center>'
  42. 'You paid for the ticket and boarded the train going in the town.'
  43. 'After 15 minutes the train stopped at the Centre.'
  44. act 'Exit':minut += 5 & nroad = 0 & gt 'Vokzal'
  45. end
  46. end
  47. }
  48. $polustanok2 = {
  49. cls
  50. gs 'stat'
  51. 'Ordinary railway platform.'
  52. act 'Exit':minut += 10 & nroad = 10 & gt 'road'
  53. if money >= 100:
  54. act 'Buy a ticket to the town (100 rubles)':
  55. cls
  56. money -= 100
  57. minut += 15
  58. gs 'stat'
  59. '<center><img src="images/etogame/electri.jpg"></center>'
  60. 'You paid for the ticket and boarded the train going in the town.'
  61. 'After 15 minutes the train stopped at the station.'
  62. act 'To go further':
  63. cls
  64. minut += 15
  65. gs 'stat'
  66. '<center><img src="images/etogame/electri.jpg"></center>'
  67. 'After 15 minutes the train stopped in the Township.'
  68. act 'Exit':minut += 20 & nroad = 20 & gt 'vokzalG'
  69. end
  70. act 'Exit':minut += 10 & nroad = 15 & gt 'road'
  71. end
  72. end
  73. if money >= 100:
  74. act 'Buy a ticket to the Center (100 rubles)':
  75. cls
  76. money -= 100
  77. minut += 15
  78. gs 'stat'
  79. '<center><img src="images/etogame/electri.jpg"></center>'
  80. 'You paid for the ticket and boarded the train going in the town.'
  81. act 'To go further':
  82. cls
  83. minut += 15
  84. gs 'stat'
  85. '<center><img src="images/etogame/electri.jpg"></center>'
  86. 'After 15 minutes the train stopped at the Centre.'
  87. act 'Exit':minut += 5 & nroad = 0 & gt 'Vokzal'
  88. end
  89. act 'Exit':minut += 20 & nroad = 5 & gt 'road'
  90. end
  91. end
  92. }
  93. $polustanok3 = {
  94. cls
  95. gs 'stat'
  96. 'Ordinary railway platform.'
  97. act 'Exit':minut += 15 & nroad = 15 & gt 'road'
  98. if money >= 50:
  99. act 'Buy a ticket to the town (50 rubles)':
  100. cls
  101. money -= 100
  102. minut += 15
  103. gs 'stat'
  104. '<center><img src="images/etogame/electri.jpg"></center>'
  105. 'You paid for the ticket and boarded the train going in the town.'
  106. 'After 15 minutes the train stopped in the Township.'
  107. act 'Exit':minut += 20 & nroad = 20 & gt 'vokzalG'
  108. end
  109. end
  110. if money >= 150:
  111. act 'Buy a ticket to the Center (150 rubles)':
  112. cls
  113. money -= 150
  114. minut += 15
  115. gs 'stat'
  116. '<center><img src="images/etogame/electri.jpg"></center>'
  117. 'You paid for the ticket and boarded the train going in the town.'
  118. act 'To go further':
  119. cls
  120. minut += 15
  121. gs 'stat'
  122. '<center><img src="images/etogame/electri.jpg"></center>'
  123. 'After 15 minutes the train stopped at the station.'
  124. act 'To go further':
  125. cls
  126. minut += 15
  127. gs 'stat'
  128. '<center><img src="images/etogame/electri.jpg"></center>'
  129. 'After 15 minutes the train stopped at the Centre.'
  130. act 'Exit':minut += 5 & nroad = 0 & gt 'Vokzal'
  131. end
  132. act 'Exit':minut += 5 & nroad = 5 & gt 'road'
  133. end
  134. act 'Exit':minut += 20 & nroad = 10 & gt 'road'
  135. end
  136. end
  137. }
  138. $metka = $ARGS[0]
  139. $loc = $CURLOC
  140. '<center><h4>Northern Highway</h4></center>'
  141. '<center><img src="images/etogame/road.jpg"></center>'
  142. '<center><<nroad>> km</center>'
  143. 'Highway which carried cars at high speed, with the hum of the wind enveloping sweep wagon.'
  144. clr
  145. gs 'stat'
  146. gs 'time'
  147. if car > 0 and cardrive = 19 and ncarroad = nroad:'Standing on the sidelines <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
  148. if nroad = 0:act 'Go to town':minut += 60 & gt 'nord'
  149. if nroad = 16:act 'Go to object':minut += 60 & gt 'obekt'
  150. if nroad = 20:act 'Go to town':minut += 60 & gt 'gorodok'
  151. if nroad < 20:act 'Go north':minut += 60 & nroad += 1 & gt $curloc
  152. if nroad > 0:act 'Go south':minut += 60 & nroad -= 1 & gt $curloc
  153. if nroad = 0:
  154. 'Outskirts of the town which brought sad ramshackle huts of kryazhestyh trees.'
  155. 'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
  156. end
  157. if nroad = 1:'Not podaleku from the city could be seen <a href="exec:minut += 15 & gt ''locmansion''">houses</a>.'
  158. if nroad = 2:''
  159. if nroad = 3:'Podaleku not seen from the road <a href="exec:minut += 15 & gt ''graveyard''">cemetery</a>.'
  160. if nroad = 4:''
  161. if nroad = 5:'Not podaleku from the road is <a href="exec:dynamic $polustanok">railway stop</a> next to which is <a href="exec:minut += 15 & gt ''dachi''">cottage cooperative</a>.'
  162. if nroad = 6:''
  163. if nroad = 7:''
  164. if nroad = 8:''
  165. if nroad = 9:''
  166. if nroad = 10:'Not podaleku from the road is <a href="exec:dynamic $polustanok2">railway stop</a>.'
  167. if nroad = 11:''
  168. if nroad = 12:''
  169. if nroad = 13:''
  170. if nroad = 14:'Near the road is <a href="exec:minut += 15 & gt ''motel''">motel</a>'
  171. if nroad = 15:'Not podaleku from the road is <a href="exec:dynamic $polustanok3">railway stop</a>.'
  172. if nroad = 16:'Not podaleku is seen from the road abandoned building.'
  173. if nroad = 17:''
  174. if nroad = 18:''
  175. if nroad = 19:''
  176. if nroad = 20:
  177. 'Highway abuts the old provincial town.'
  178. 'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
  179. end
  180. --- road ---------------------------------