1
0

metro 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117
  1. # metro
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. if sound = 0:PLAY 'sound/metro.mp3',30
  5. '<center><b><font color="maroon">Metro station</font></b></center>'
  6. if $loc = 'street':'<center><b><font color="maroon">Residential area</font></b></center>'
  7. if $loc = 'down':'<center><b><font color="maroon">Center</font></b></center>'
  8. if $loc = 'Nord':'<center><b><font color="maroon">Northern region</font></b></center>'
  9. '<center><img src="images/etogame/metro.jpg"></center>'
  10. 'Subway fare costs 16 <b>₽</b>.'
  11. minut += 15
  12. clr
  13. gs 'stat'
  14. fcolor = rgb(0, 0, 0)
  15. bcolor = rgb(255, 255, 255)
  16. lcolor = rgb(106, 90, 205)
  17. if workDisk = 3 and konvert = 1:
  18. badrand = rand(0, 100)
  19. if badrand >= 80:konvert = 0
  20. end
  21. if money >= 16:
  22. if $loc ! 'street':
  23. act 'Go to the <b>residential area</b> (16 <b>₽</b>)':
  24. $loc = 'street'
  25. gt 'metro', 'vagon'
  26. end
  27. end
  28. if $loc ! 'down':
  29. act 'Go to the <b>center</b> (16 <b>₽</b>)':
  30. $loc = 'down'
  31. gt 'metro', 'vagon'
  32. end
  33. end
  34. if $loc ! 'Nord':
  35. act 'Go to the <b>northern area</b> (16 <b>₽</b>)':
  36. $loc = 'Nord'
  37. gt 'metro', 'vagon'
  38. end
  39. end
  40. if $loc ! 'liam':
  41. act 'Go to the <b>the old town</b> (16 <b>₽</b>)':
  42. $loc = 'liam'
  43. gt 'metro', 'vagon'
  44. end
  45. end
  46. end
  47. act 'Get off the subway':
  48. minut += 15
  49. gt '<<$loc>>'
  50. end
  51. end
  52. if $ARGS[0] = 'vagon':
  53. cla
  54. clr
  55. CLOSE ALL
  56. if sound = 0:PLAY 'sound/metro1.mp3',30
  57. money -= 16
  58. gs 'stat'
  59. fcolor = rgb(0, 0, 0)
  60. bcolor = rgb(255, 255, 255)
  61. lcolor = rgb(106, 90, 205)
  62. '<center><b><font color="maroon">Subway car</font></b></center>'
  63. if hour < 5 or hour > 10 and hour < 15 or hour > 24:
  64. '<center><img src="images/etogame/vagon.jpg"></center>'
  65. 'In the car are just a few passengers vacantly reading magazines and papers.'
  66. elseif hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
  67. '<center><img src="images/etogame/vagonFull.jpg"></center>'
  68. 'In the car there are lots of people all standing like statues, trying not to make eye conteact with each other.'
  69. frotrand = rand(0, 100)
  70. if frotrand >= 90 - (frot * 10) and frot < 3:
  71. gt 'frot', 'a'
  72. elseif frotrand >= 90 - (frot * 10) and frot >= 3 and spdirtyc = 0 and PCloSkirt > 0:
  73. tipfrot = rand(0, 1)
  74. if tipfrot = 0:gt 'frot', 'b'
  75. if tipfrot = 1:gt 'frot', 'd1'
  76. !!gt 'frot', 'b'
  77. elseif frotrand >= 90 - (frot * 10) and frot >= 3 and spdirtyc = 0 and PCloSkirt = 0:
  78. tipfrot = rand(0, 2)
  79. if tipfrot =0:gt 'frot', 'c'
  80. if tipfrot =1:gt 'frot', 'd'
  81. if tipfrot =2:gt 'frot', 'e'
  82. end
  83. end
  84. if sosedQW >= 1:
  85. if hour = 7 or hour = 15:
  86. sosedMetroRand = rand(0, 100)
  87. if sosedMetroRand >= 60 and sosedMetroDay ! daystart:'You notice in the subway <a href="exec:gt ''TimofeiMetro''">Timothy</a>, your neighbor.'
  88. end
  89. end
  90. if spdirtyc > 0 or spdirtyv > 0:
  91. if hour >= 7 and hour <= 21:
  92. manna -= 10
  93. 'Several passengers are shocked, looking at where you are cum smeared.'
  94. end
  95. end
  96. act 'Get out of the car':gt 'metro', 'start'
  97. end
  98. --- metro ---------------------------------