cityTrain 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119
  1. # cityTrain
  2. if $ARGS[0] = 'start':
  3. $metka = 'start'
  4. $loc = 'cityTrain'
  5. $location_type = 'public_outdoors'
  6. cls
  7. gs'stat'
  8. '<center><B>City center railway station</B></center>'
  9. if hour < 9 or hour > 19:
  10. '<center><img src="images/locations/city/shared/trainstation/central_station_night.jpg"></center>'
  11. else
  12. '<center><img src="images/locations/city/shared/trainstation/central_station_day.jpg"></center>'
  13. end
  14. 'The main station for the city, it is always busy offering services to many destinations and the best place to park your car or hire a taxi.'
  15. if car > 0 and cardrive = 2:
  16. 'In the parking lot is <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  17. end
  18. act 'Enter the station building': gt 'cityTrain', 'inside'
  19. act 'Go to the city center':minut += 5 & gt 'down'
  20. end
  21. if $ARGS[0] = 'inside':
  22. $metka = 'inside'
  23. $loc = 'cityTrain'
  24. $location_type = 'public_indoors'
  25. cls
  26. gs'stat'
  27. '<center><B>City center railway station</B></center>'
  28. '<center><img src="images/locations/city/shared/trainstation/central_station_inside.jpg"></center>'
  29. 'The grand old station is even more impressive on the inside and has a number of shops and bars as well as all the platforms and trains. '
  30. act 'Buy a ticket': gt 'cityTrain', 'tickets'
  31. act 'Leave the station': gt 'cityTrain', 'start'
  32. end
  33. if $ARGS[0] = 'tickets':
  34. cls
  35. !! This is a lie, but a useful one don''t change the $loc and $metka
  36. $loc = 'cityTrain'
  37. $metka = 'industrial'
  38. gs 'stat'
  39. '<center><h4>Ticket office</h4></center>'
  40. '<center><img src="images/locations/shared/train/kassa.jpg" ></center>'
  41. if money >= 50:
  42. act 'Buy a ticket to the city industrial area (50 <b>₽</b>)':
  43. train_event = 0
  44. money -= 50
  45. train_dir = 2
  46. train_dest = 2
  47. gt 'cityTrain', 'industrial'
  48. end
  49. end
  50. if money >= 75:
  51. act 'Buy a ticket to the old platform by the communal village (75 <b>₽</b>)':
  52. train_event = 0
  53. money -= 75
  54. train_dir = 2
  55. train_dest = 3
  56. gt 'cityTrain', 'industrial'
  57. end
  58. end
  59. if money >= 100:
  60. act 'Buy a ticket to the village of Gadyukino (100 <b>₽</b>)':
  61. train_event = 0
  62. money -= 100
  63. train_dir = 2
  64. train_dest = 4
  65. gt 'cityTrain', 'industrial'
  66. end
  67. end
  68. if money >= 125:
  69. act 'Buy a ticket to the old town (125 <b>₽</b>)':
  70. train_event = 0
  71. money -= 125
  72. train_dir = 2
  73. train_dest = 5
  74. if rand(1, 100) < 15: gt 'train', 'private'
  75. gt 'cityTrain', 'industrial'
  76. end
  77. end
  78. if money >= 150:
  79. act 'Buy a ticket to Pavlovsk (150 <b>₽</b>)':
  80. train_event = 0
  81. money -= 150
  82. train_dir = 2
  83. train_dest = 6
  84. if rand(1, 100) < 15: gt 'train', 'private'
  85. gt 'cityTrain', 'industrial'
  86. end
  87. end
  88. act 'Leave the ticket office':minut += 1 & gt 'cityTrain', 'inside'
  89. end
  90. if $ARGS[0] = 'industrial':
  91. cls
  92. gs 'stat'
  93. '<center><img src="images/locations/shared/train/electri.jpg"></center>'
  94. 'You pay for the ticket and board the next train going to Pavlovsk.'
  95. 'After 5 minutes, you see the commercial buildings and warehouses of the industrial area. The train stops at the city industrial area station.'
  96. act 'Get off the train at this station':minut += 5 & gt 'vokzal'
  97. if train_dest > 2:
  98. act 'Continue your journey':
  99. gt 'train', 'industrialS'
  100. end
  101. end
  102. end
  103. --- cityTrain ---------------------------------