# metro if $ARGS[0] = 'start': '
Metro station
' if $loc = 'street':'
Residential area
' if $loc = 'down':'
Center
' if $loc = 'Nord':'
Northern region
' '
' 'Subway fare costs 16 rubles.' minut += 15 clr gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) if workDisk = 3 and konvert = 1: badrand = rand(0, 100) if badrand >= 80:konvert = 0 end if money >= 16: if $loc ! 'street': act 'Go to the residential area (16 rubles)': $loc = 'street' gt 'metro', 'vagon' end end if $loc ! 'down': act 'Go to the center (16 rubles)': $loc = 'down' gt 'metro', 'vagon' end end if $loc ! 'Nord': act 'Go to the northern area (16 rubles)': $loc = 'Nord' gt 'metro', 'vagon' end end end act 'Get off the subway': minut += 15 gt '<<$loc>>' end end if $ARGS[0] = 'vagon': cla clr money -= 16 gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) '
Subway car
' if hour < 5 or hour > 10 and hour < 15 or hour > 24: '
' 'In the car just a few passengers sadly examines advertising in the car.' elseif hour >= 5 and hour <= 10 or hour >= 15 and hour <= 24: '
' 'In the car, a lot of people all standing like statues without paying the slightest attention to others.' frotrand = rand(0, 100) if frotrand >= 90 - (frot * 10) and frot < 3: gt 'frot', 'a' 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: tipfrot = rand(0, 1) if tipfrot = 0:gt 'frot', 'b' if tipfrot = 1:gt 'frot', 'd1' !!gt 'frot', 'b' 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: tipfrot = rand(0, 2) if tipfrot =0:gt 'frot', 'c' if tipfrot =1:gt 'frot', 'd' if tipfrot =2:gt 'frot', 'e' end end if sosedQW >= 1: if hour = 7 or hour = 15: sosedMetroRand = rand(0, 100) if sosedMetroRand >= 60 and sosedMetroDay ! daystart:'You notice in the subway Timothy, your neighbor.' end end if cumfrot > 0 or cumface > 0: if hour >= 7 and hour <= 21: manna -= 10 'Several passengers were hatched at you looking at where you cum smeared.' end end act 'Get out of the car':gt 'metro', 'start' end --- metro ---------------------------------