1
0

metro 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105
  1. # metro
  2. if $ARGS[0] = 'start':
  3. '<center><b><font color="maroon">Metro station</font></b></center>'
  4. if $loc = 'street':'<center><b><font color="maroon">Residential area</font></b></center>'
  5. if $loc = 'down':'<center><b><font color="maroon">Center</font></b></center>'
  6. if $loc = 'Nord':'<center><b><font color="maroon">Northern region</font></b></center>'
  7. '<center><img src="images/etogame/metro.jpg"></center>'
  8. 'Subway fare costs 16 rubles.'
  9. minut += 15
  10. clr
  11. gs 'stat'
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  15. if workDisk = 3 and konvert = 1:
  16. badrand = rand(0, 100)
  17. if badrand >= 80:konvert = 0
  18. end
  19. if money >= 16:
  20. if $loc ! 'street':
  21. act 'Go to the <b>residential area</b> (16 rubles)':
  22. $loc = 'street'
  23. gt 'metro', 'vagon'
  24. end
  25. end
  26. if $loc ! 'down':
  27. act 'Go to the <b>center</b> (16 rubles)':
  28. $loc = 'down'
  29. gt 'metro', 'vagon'
  30. end
  31. end
  32. if $loc ! 'Nord':
  33. act 'Go to the <b>northern area</b> (16 rubles)':
  34. $loc = 'Nord'
  35. gt 'metro', 'vagon'
  36. end
  37. end
  38. end
  39. act 'Get off the subway':
  40. minut += 15
  41. gt '<<$loc>>'
  42. end
  43. end
  44. if $ARGS[0] = 'vagon':
  45. cla
  46. clr
  47. money -= 16
  48. gs 'stat'
  49. fcolor = rgb(0, 0, 0)
  50. bcolor = rgb(255, 255, 255)
  51. lcolor = rgb(106, 90, 205)
  52. '<center><b><font color="maroon">Subway car</font></b></center>'
  53. if hour < 5 or hour > 10 and hour < 15 or hour > 24:
  54. '<center><img src="images/etogame/vagon.jpg"></center>'
  55. 'In the car just a few passengers sadly examines advertising in the car.'
  56. elseif hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
  57. '<center><img src="images/etogame/vagonFull.jpg"></center>'
  58. 'In the car, a lot of people all standing like statues without paying the slightest attention to others.'
  59. frotrand = rand(0, 100)
  60. if frotrand >= 90 - (frot * 10) and frot < 3:
  61. gt 'frot', 'a'
  62. elseif frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 1 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 1:
  63. tipfrot = rand(0, 1)
  64. if tipfrot = 0:gt 'frot', 'b'
  65. if tipfrot = 1:gt 'frot', 'd1'
  66. !!gt 'frot', 'b'
  67. elseif frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and ski = 0 or frotrand >= 90 - (frot * 10) and frot >= 3 and cumfrot = 0 and glamur = 0:
  68. tipfrot = rand(0, 2)
  69. if tipfrot =0:gt 'frot', 'c'
  70. if tipfrot =1:gt 'frot', 'd'
  71. if tipfrot =2:gt 'frot', 'e'
  72. end
  73. end
  74. if sosedQW >= 1:
  75. if hour = 7 or hour = 15:
  76. sosedMetroRand = rand(0, 100)
  77. if sosedMetroRand >= 60 and sosedMetroDay ! daystart:'You notice in the subway <a href="exec:gt ''TimofeiMetro''">Timothy</a>, your neighbor.'
  78. end
  79. end
  80. if cumfrot > 0 or cumface > 0:
  81. if hour >= 7 and hour <= 21:
  82. manna -= 10
  83. 'Several passengers were hatched at you looking at where you cum smeared.'
  84. end
  85. end
  86. act 'Get out of the car':gt 'metro', 'start'
  87. end
  88. --- metro ---------------------------------