1
0

liam 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105
  1. # liam
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. CLOSE ALL
  5. if sound = 0:PLAY 'sound/street.mp3',30
  6. gs'dinam'
  7. set minut = minut + 5
  8. '<center><B>Old town center</B></center>'
  9. '<center><img src="images/pic/liam.jpeg" ></center>'
  10. 'The old part of the city, usually call old town. A couple of centuries ago, this was an ordinary village, located near a town that is now the city.'
  11. 'Later, the rich bought land of the poor here and knocked down the wooden shacks and farm houses to build large houses.'
  12. 'As the city continued to grow rapidly, it became a desirable suburb.'
  13. 'Since then even the old huts, have long since lost there original appearance, improved, extended and modernized.'
  14. CLOSE ALL
  15. clr
  16. gs'stat'
  17. gs 'outdoors'
  18. set palMir=0
  19. set bordysh=0
  20. set housrA=0
  21. set palMir=0
  22. set obdysh=0
  23. set tanhouse1=0
  24. set obMir=0
  25. set obLoker=0
  26. set houseob=0
  27. set borMir=0
  28. set minut+=10
  29. '<a href="exec:GT ''dvorik'',''start''">Patio</a> .'
  30. !'On narrow <a href="exec:GT ''dvor'',''start''">street</a> .'
  31. 'Closeby is a quiet <a href="exec:GT ''liamel'',''start''">street</a> .'
  32. 'You can <a href="exec:GT ''spusk'',''start''">Climb to the top</a> .'
  33. if car > 0 and cardrive = 24:
  34. set cardrive = 24
  35. 'I parked at the curb <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  36. end
  37. act 'Taxi':
  38. cla
  39. *clr
  40. minut += 5
  41. '<center><img src="images/pic/taxi1.jpg"></center>'
  42. 'You caught a passing taksishku.'
  43. 'Fare 250 RUB.'
  44. if $loc!'street':
  45. act 'Go to the sleeping area':
  46. set $loc='street'
  47. dynamic $taxi
  48. end
  49. end
  50. if $loc!'down':
  51. act 'To go to the center':
  52. set $loc='down'
  53. dynamic $taxi
  54. end
  55. end
  56. !'if $loc!'liam':
  57. act 'Go to Old Town':
  58. set $loc='liam'
  59. dynamic $taxi
  60. end
  61. end'
  62. if $loc!'vokzal':
  63. act 'Go to the station':
  64. set $loc='vokzal'
  65. dynamic $taxi
  66. end
  67. end
  68. if $loc!'Nord':
  69. act 'To go into the northern area':
  70. set $loc='Nord'
  71. dynamic $taxi
  72. end
  73. end
  74. act 'Takeout':gt'<<$loc>>'
  75. end
  76. act '<font size = 1>Wait</font>':
  77. cla
  78. waiting = input ("How many minutes to wait? (Not more 120 minutes)")
  79. if waiting <= 0 or waiting > 120:
  80. set minut = minut + 15
  81. end
  82. if waiting > 0 and waiting <= 120:
  83. set minut = minut + waiting
  84. end
  85. act 'Consult a watch':gt curloc
  86. end
  87. act 'Walk 1 h':
  88. cla
  89. set minut+=60
  90. set manna = manna + 10
  91. set willpower = willpower + 10
  92. gs'stat'
  93. 'You slowly walk along the narrow streets of the Old Town, It became one of the areas of the big city, admiring the beautiful architecture buildings, built long ago and miraculously survived to our times. Breathe in the fresh air, reflecting on the vicissitudes of fate.'
  94. act 'Complete outing':gt'liam','start'
  95. end
  96. if hour >= 4 and hour <= 23:'Station <a href="exec:GT ''metro'',''start''">Metro</a> located at 5 walking distance.'
  97. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  98. --- liam ---------------------------------