080_metro 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  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. set 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 residential area':
  22. set $loc = 'street'
  23. gt 'metro', 'vagon'
  24. end
  25. end
  26. if $loc!'down':
  27. act 'Go to the center':
  28. set $loc = 'down'
  29. gt 'metro', 'vagon'
  30. end
  31. end
  32. if $loc!'Nord':
  33. act 'Go to the northern area':
  34. set $loc = 'Nord'
  35. gt 'metro', 'vagon'
  36. end
  37. end
  38. end
  39. act 'Get off the subway':
  40. set minut += 15
  41. gt '<<$loc>>'
  42. end
  43. end
  44. if $ARGS[0] = 'vagon':
  45. cla
  46. '<center><b><font color="maroon">Subway car</font></b></center>'
  47. clr
  48. set money -= 16
  49. gs 'stat'
  50. fcolor = rgb(0, 0, 0)
  51. bcolor = rgb(255, 255, 255)
  52. lcolor = rgb(106, 90, 205)
  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. end
  57. if hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24:
  58. '<center><img src="images/etogame/vagonFull.jpg"></center>'
  59. 'In the car, a lot of people all standing like statues without paying the slightest attention to others.'
  60. set frotrand = rand(0, 100)
  61. if frotrand >= 90 - (frot * 10) and frot < 3:gt 'frot', 'a'
  62. if 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. set tipfrot = rand(0, 1)
  64. if tipfrot = 0:gt 'frot', 'b'
  65. if tipfrot = 1:gt 'frot', 'd1'
  66. !gt 'frot', 'b'
  67. end
  68. if 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:
  69. set tipfrot = rand(0, 2)
  70. if tipfrot =0:gt 'frot', 'c'
  71. if tipfrot =1:gt 'frot', 'd'
  72. if tipfrot =2:gt 'frot', 'e'
  73. end
  74. end
  75. if sosedQW >= 1:
  76. if hour = 7 or hour = 15:
  77. sosedMetroRand = rand(0, 100)
  78. if sosedMetroRand >= 60 and sosedMetroDay ! day:'You notice in the subway <a href="exec:gt ''TimofeiMetro''">Timothy</a>, your neighbor.'
  79. end
  80. end
  81. if cumfrot > 0 or cumface > 0:
  82. if hour >= 7 and hour <= 21:
  83. manna -= 10
  84. 'Several passengers were hatched at you looking at where you cum smeared.'
  85. end
  86. end
  87. act 'Get out of the car':gt 'metro', 'start'
  88. end
  89. --- metro ---------------------------------