# 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.' set 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': set $loc = 'street' gt 'metro', 'vagon' end end if $loc!'down': act 'Go to the center': set $loc = 'down' gt 'metro', 'vagon' end end if $loc!'Nord': act 'Go to the northern area': set $loc = 'Nord' gt 'metro', 'vagon' end end end act 'Get off the subway': set minut += 15 gt '<<$loc>>' end end if $ARGS[0] = 'vagon': cla '
Subway car
' clr set money -= 16 gs 'stat' fcolor = rgb(0, 0, 0) bcolor = rgb(255, 255, 255) lcolor = rgb(106, 90, 205) 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.' end if 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.' set frotrand = rand(0, 100) if frotrand >= 90 - (frot * 10) and frot < 3:gt 'frot', 'a' 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: set tipfrot = rand(0, 1) if tipfrot = 0:gt 'frot', 'b' if tipfrot = 1:gt 'frot', 'd1' !gt 'frot', 'b' end 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: set 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 ! day:'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 ---------------------------------