1
0

road 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231
  1. # road
  2. $polustanok = {
  3. cls
  4. gs 'stat'
  5. 'Ordinary railway platform.'
  6. act 'Leave':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 'Leave':minut += 20 & nroad = 20 & gt 'vokzalG'
  29. end
  30. act 'Leave':minut += 15 & nroad = 15 & gt 'road'
  31. end
  32. act 'Leave':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 'Leave':minut += 5 & nroad = 0 & gt 'Vokzal'
  45. end
  46. end
  47. }
  48. $polustanok2 = {
  49. cls
  50. gs 'stat'
  51. 'Ordinary railway platform.'
  52. act 'Leave':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 'Leave':minut += 20 & nroad = 20 & gt 'vokzalG'
  69. end
  70. act 'Leave':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 'Leave':minut += 5 & nroad = 0 & gt 'Vokzal'
  88. end
  89. act 'Leave':minut += 20 & nroad = 5 & gt 'road'
  90. end
  91. end
  92. }
  93. $polustanok3 = {
  94. cls
  95. gs 'stat'
  96. 'Ordinary railway platform.'
  97. act 'Leave':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 'Leave':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 'Leave':minut += 5 & nroad = 0 & gt 'Vokzal'
  131. end
  132. act 'Leave':minut += 5 & nroad = 5 & gt 'road'
  133. end
  134. act 'Leave':minut += 20 & nroad = 10 & gt 'road'
  135. end
  136. end
  137. }
  138. $metka = $ARGS[0]
  139. $loc = $CURLOC
  140. clr
  141. gs 'stat'
  142. gs 'time'
  143. '<center><h4>Northern Highway</h4></center>'
  144. '<center><img src="images/etogame/road.jpg"></center>'
  145. '<center><<nroad>> km</center>'
  146. 'Highway which carried cars at high speed, with the hum of the wind enveloping sweep wagon.'
  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. elseif nroad = 1:
  157. 'Not podaleku from the city could be seen <a href="exec:minut += 15 & gt ''locmansion''">houses</a>.'
  158. elseif nroad = 2:
  159. ''
  160. elseif nroad = 3:
  161. 'Podaleku not seen from the road <a href="exec:minut += 15 & gt ''graveyard''">cemetery</a>.'
  162. elseif nroad = 4:
  163. ''
  164. elseif nroad = 5:
  165. '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>.'
  166. elseif nroad = 6:
  167. ''
  168. elseif nroad = 7:
  169. ''
  170. elseif nroad = 8:
  171. ''
  172. elseif nroad = 9:
  173. ''
  174. elseif nroad = 10:
  175. 'Not podaleku from the road is <a href="exec:dynamic $polustanok2">railway stop</a>.'
  176. elseif nroad = 11:
  177. ''
  178. elseif nroad = 12:
  179. ''
  180. elseif nroad = 13:
  181. ''
  182. elseif nroad = 14:
  183. 'Near the road is <a href="exec:minut += 15 & gt ''motel''">motel</a>'
  184. elseif nroad = 15:
  185. 'Not podaleku from the road is <a href="exec:dynamic $polustanok3">railway stop</a>. From the little station leads to a dirt road <a href="exec:minut += 30 & gt ''gadukino''">Village Gadyukino</a>'
  186. elseif nroad = 16:
  187. 'Not podaleku is seen from the road abandoned building.'
  188. elseif nroad = 17:
  189. ''
  190. elseif nroad = 18:
  191. ''
  192. elseif nroad = 19:
  193. ''
  194. elseif nroad = 20:
  195. 'Highway abuts the old provincial town.'
  196. 'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
  197. end
  198. --- road ---------------------------------