# road <<<<<<< 393_road $polustanok = { cls gs 'stat' 'Ordinary railway platform.' act 'Exit': minut += 10 & nroad = 5 & gt 'road' if money >= 150: act 'Buy a ticket to the town (150 rubles)': cls money -= 150 minut += 15 gs 'stat' '
' 'You paid for the ticket and boarded the train going in the town.' 'After 15 minutes the train stopped at the station.' act 'To go further': cls minut += 15 gs 'stat' '
' 'After 15 minutes the train stopped at the station.' act 'To go further': cls minut += 15 gs 'stat' '
' 'After 15 minutes the train stopped in the Township.' act 'Exit': minut += 20 & nroad = 20 & gt 'vokzalG' end act 'Exit': minut += 15 & nroad = 15 & gt 'road' end act 'Exit': minut += 10 & nroad = 10 & gt 'road' end end if money >= 50: act 'Buy a ticket to the Centre (50 rubles)': cls money -= 50 minut += 15 gs 'stat' '
' 'You paid for the ticket and boarded the train going in the town.' 'After 15 minutes the train stopped at the Centre.' act 'Exit': minut += 5 & nroad = 0 & gt 'Vokzal' end ======= $polustanok={ cls gs'stat' 'Ordinary railway platform.' act 'Go_Out':minut+=10&nroad=5>'road' if money>=150: act 'Buy a ticket to town (150 RUB)': cls money-=150 minut+=15 gs'stat' '
' 'You paid for a ticket and boarded the train going into town.' 'through 15 minute train stopped at the station.' act 'go further': cls minut+=15 gs'stat' '
' 'through 15 minute train stopped at the station Gadyukino.' act 'go further': cls minut+=15 gs'stat' '
' 'through 15 minute train stopped in town.' act 'Go_Out':minut+=20&nroad=20>'vokzalG' end act 'Go_Out':minut+=15&nroad=15>'road' end act 'Go_Out':minut+=10&nroad=10>'road' end end if money>=50: act 'Buy a ticket to the Center (50 RUB)': cls money-=50 minut+=15 gs'stat' '
' 'You paid for a ticket and boarded the train going into town.' 'through 15 minute train stopped in the center.' act 'Go_Out':minut+=5&nroad=0>'Vokzal' end >>>>>>> 393_road end } <<<<<<< 393_road $polustanok2 = { cls gs 'stat' 'Ordinary railway platform.' act 'Exit': minut += 10 & nroad = 10 & gt 'road' if money >= 100: act 'Buy a ticket to the town (100 rubles)': cls money -= 100 minut += 15 gs 'stat' '
' 'You paid for the ticket and boarded the train going in the town.' 'After 15 minutes the train stopped at the station.' act 'To go further': cls minut += 15 gs 'stat' '
' 'After 15 minutes the train stopped in the Township.' act 'Exit': minut += 20 & nroad = 20 & gt 'vokzalG' end act 'Exit': minut += 10 & nroad = 15 & gt 'road' end end if money >= 100: act 'Buy a ticket to the Center (100 rubles)': cls money -= 100 minut += 15 gs 'stat' '
' 'You paid for the ticket and boarded the train going in the town.' act 'To go further': cls minut += 15 gs 'stat' '
' 'After 15 minutes the train stopped at the Centre.' act 'Exit': minut += 5 & nroad = 0 & gt 'Vokzal' end act 'Exit': minut += 20 & nroad = 5 & gt 'road' end ======= $polustanok2={ cls gs'stat' 'Ordinary railway platform.' act 'Go_Out':minut+=10&nroad=10>'road' if money>=100: act 'Buy a ticket to town (100 RUB)': cls money-=100 minut+=15 gs'stat' '
' 'You paid for a ticket and boarded the train going into town.' 'through 15 minute train stopped at the station Gadyukino.' act 'go further': cls minut+=15 gs'stat' '
' 'through 15 minute train stopped in town.' act 'Go_Out':minut+=20&nroad=20>'vokzalG' end act 'Go_Out':minut+=10&nroad=15>'road' end end if money>=100: act 'Buy a ticket to the Center (100 RUB)': cls money-=100 minut+=15 gs'stat' '
' 'You paid for a ticket and boarded the train going into town.' act 'go further': cls minut+=15 gs'stat' '
' 'through 15 minute train stopped in the center.' act 'Go_Out':minut+=5&nroad=0>'Vokzal' end act 'Go_Out':minut+=20&nroad=5>'road' end >>>>>>> 393_road end } <<<<<<< 393_road $polustanok3 = { cls gs 'stat' 'Ordinary railway platform.' act 'Exit': minut += 15 & nroad = 15 & gt 'road' if money >= 50: act 'Buy a ticket to the town (50 rubles)': cls money -= 100 minut += 15 gs 'stat' '
' 'You paid for the ticket and boarded the train going in the town.' 'After 15 minutes the train stopped in the Township.' act 'Exit': minut += 20 & nroad = 20 & gt 'vokzalG' end end if money >= 150: act 'Buy a ticket to the Center (150 rubles)': cls money -= 150 minut += 15 gs 'stat' '
' 'You paid for the ticket and boarded the train going in the town.' act 'To go further': cls minut += 15 gs 'stat' '
' 'After 15 minutes the train stopped at the station.' act 'To go further': cls minut += 15 gs 'stat' '
' 'After 15 minutes the train stopped at the Centre.' act 'Exit': minut += 5 & nroad = 0 & gt 'Vokzal' end act 'Exit': minut += 5 & nroad = 5 & gt 'road' end act 'Exit': minut += 20 & nroad = 10 & gt 'road' end ======= $polustanok3={ cls gs'stat' 'Ordinary railway platform.' act 'Go_Out':minut+=15&nroad=15>'road' if money>=50: act 'Buy a ticket to town (50 RUB)': cls money-=100 minut+=15 gs'stat' '
' 'You paid for a ticket and boarded the train going into town.' 'through 15 minute train stopped in town.' act 'Go_Out':minut+=20&nroad=20>'vokzalG' end end if money>=150: act 'Buy a ticket to the Center (150 RUB)': cls money-=150 minut+=15 gs'stat' '
' 'You paid for a ticket and boarded the train going into town.' act 'go further': cls minut+=15 gs'stat' '
' 'through 15 minute train stopped at the station.' act 'go further': cls minut+=15 gs'stat' '
' 'through 15 minute train stopped in the center.' act 'Go_Out':minut+=5&nroad=0>'Vokzal' end act 'Go_Out':minut+=5&nroad=5>'road' end act 'Go_Out':minut+=20&nroad=10>'road' end >>>>>>> 393_road end } $metka = $ARGS[0] $loc = $CURLOC '

Northern Highway

' <<<<<<< 393_road '
' '
<> km
' 'Highway which carried cars at high speed, with the hum of the wind enveloping sweep wagon.' clr gs 'stat' gs 'time' if car > 0 and cardrive = 19 and ncarroad = nroad: ======= '
' '
<> kilometer
' 'Highway vehicles that fly at high speed, with sweeping trucks rumble enveloping wind.' clr gs'stat' gs'time' if car > 0 and cardrive = 19 and ncarroad=nroad: >>>>>>> 393_road 'Standing on the sidelines your <<$car>>.' end <<<<<<< 393_road if nroad = 0: act 'Go to town': minut += 60 & gt 'nord' if nroad = 16: act 'Go to object': minut += 60 & gt 'obekt' if nroad = 20: act 'Go to town': minut += 60 & gt 'gorodok' if nroad < 20: act 'Go north': minut += 60 & nroad += 1 & gt $curloc if nroad > 0: act 'Go south': minut += 60 & nroad -= 1 & gt $curloc if nroad = 0: 'Outskirts of the town which brought sad ramshackle huts of kryazhestyh trees.' end if nroad = 1: 'Not podaleku from the city could be seen houses.' end if nroad = 2: ======= if nroad=0:act 'Go to town':minut+=60>'nord' if nroad=16:act 'Go to the object':minut+=60>'obekt' if nroad=20:act 'Go into town':minut+=60>'gorodok' if nroad<20:act 'Go north':minut+=60&nroad+=1> $curloc if nroad>0:act 'Go south':minut+=60&nroad-=1> $curloc if nroad=0: 'Outskirts of the town which brought sad dilapidated huts among the trees kryazhestyh.' 'At a roadside stand Lorry' end if nroad=1: 'Not podaleku of the city are seen mansions.' end if nroad=2: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 3: 'Podaleku not seen from the road cemetery.' end if nroad = 4: ======= if nroad=3: 'Podaleku not seen from the road cemetery.' end if nroad=4: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 5: 'Not podaleku from the road is railway stop next to which is cottage cooperative.' end if nroad = 6: ======= if nroad=5: 'Not podaleku from the road is train whistle-stop next to which is dacha cooperative.' end if nroad=6: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 7: ======= if nroad=7: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 8: ======= if nroad=8: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 9: ======= if nroad=9: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 10: 'Not podaleku from the road is railway stop.' end if nroad = 11: ======= if nroad=10: 'Not podaleku from the road is train whistle-stop.' end if nroad=11: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 12: ======= if nroad=12: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 13: ======= if nroad=13: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 14: 'Near the road is motel' end if nroad = 15: 'Not podaleku from the road is railway stop.' end if nroad = 16: 'Not podaleku is seen from the road abandoned building.' end if nroad = 17: ======= if nroad=14: 'Near the road is motel' end if nroad=15: 'Not podaleku from the road is train whistle-stop. From the little station leads to a dirt road village Gadyukino' end if nroad=16: 'Not podaleku from the road you can see the abandoned building.' end if nroad=17: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 18: ======= if nroad=18: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 19: ======= if nroad=19: >>>>>>> 393_road '' end <<<<<<< 393_road if nroad = 20: 'Highway abuts the old provincial town.' ======= if nroad=20: 'Track rests on the old provincial town.' 'At a roadside stand Lorry' >>>>>>> 393_road end --- road ---------------------------------