123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359 |
- # carF
- $enddrive = {
- if cardrive = 1:gt 'street'
- if cardrive = 2:gt 'down'
- if cardrive = 3:gt 'Nord'
- if cardrive = 4:gt 'lake', 'start'
- if cardrive = 5:gt 'park', 'start'
- if cardrive = 6:gt 'zaprF', 'start'
- if cardrive = 7:gt 'autoservisF', 'start'
- if cardrive = 8:gt 'autosalonF', 'start'
- if cardrive = 9:gt 'autotraidF', 'start'
- if cardrive = 10:gt 'park', 'whore'
- if cardrive = 11:gt 'sauna'
- if cardrive = 12:gt 'obekt'
- if cardrive = 18:gt 'youplace'
- if cardrive = 19:gt 'road'
- if cardrive = 20:gt 'gorodok'
- if cardrive = 21:gt 'zaprF', 'start'
- }
- if $ARGS[0] = 'start':
- $metka = $ARGS[0]
- $loc = $CURLOC
- cla
- clr
- *clr
- minut += 1
- gs 'stat'
- fcolor = rgb(0, 0, 0)
- bcolor = rgb(255, 255, 255)
- lcolor = rgb(106, 90, 205)
- '<center><b><<$car>></b></center>'
- '<center><img src="images/picar/car<<car>>.jpg"></center>'
- act 'Move away from the machine':dynamic $enddrive
- if kanistra > 0:
- 'In the trunk <<kanistra>> pc. five-liter jerry cans of gasoline.'
- if benz <= 35:
- act 'Pour canister into the tank':
- cla
- benz += 5
- kanistra -= 1
- 'You filled canister of gasoline in the tank.'
- act 'Move away':gt 'carF', 'start'
- end
- end
- end
- act 'Get in the car':gt 'carF', 'salon'
- end
- if $ARGS[0] = 'salon':
- $metka = $ARGS[0]
- $loc = $CURLOC
- cla
- clr
- *clr
- minut += 1
- gs 'stat'
- '<center><b><<$car>></b></center>'
- '<center><img src="images/picar/salon<<car>>.jpg"></center>'
- 'Gasoline - <<benz>> liters, fuel tank capacity of 40 liters.'
- if teh <= 0:teh = 0 & wrek = 1
- if teh <= 0 or wrek = 1:$teh = 'Car will not start, it needs repairs.'
- if teh >= tehcar * 75 / 100 and wrek = 0:$teh = 'Machine in excellent condition.'
- if teh < tehcar * 75 / 100 and teh >= tehcar * 50 / 100 and wrek = 0:$teh = 'When moving the machine you have any noises'
- if teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:$teh = 'Car crash and barely rides.'
- if teh < tehcar * 25 / 100 and wrek = 0:$teh = 'As this bowl can still go, is a mystery even to the designers.'
- '<<$teh>>'
- if cardrive = 1:'Through the windshield you see the residential area.'
- if cardrive = 2:'Through the windshield you see downtown.'
- if cardrive = 3:'Through the windshield you see the northern region.'
- if cardrive = 4:'Through the windshield you see the lake.'
- if cardrive = 5:'Through the windshield you see the park.'
- if prava = 0:'You have no rights.'
- act 'Out of the car':dynamic $enddrive
- if benz > 0 and wrek = 0 and prava > 0:
- if teh >= tehcar * 75 / 100 and wrek = 0:
- wrekrand = rand(0, 1000)
- if wrekrand = 1000:wrek = 1
- elseif teh < tehcar * 75 / 100 and teh >= tehcar * 50/100 and wrek = 0:
- wrekrand = rand(0, 100)
- if wrekrand = 100:wrek = 1
- elseif teh < tehcar * 50 / 100 and teh >= tehcar * 25 / 100 and wrek = 0:
- wrekrand = rand(0, 100)
- if wrekrand >= 80:wrek = 1
- elseif teh < tehcar * 25 / 100 and wrek = 0:
- wrekrand = rand(0, 100)
- if wrekrand >= 40:wrek = 1
- elseif wrek = 1:
- 'Something clattered loudly and the engine stalled.'
- act 'Fuck':gt 'carF', 'salon'
- end
- if alko > 0:
- dpsrand = rand(0, 100)
- if dpsrand <= alko:
- 'Policeman stops you, he looks at your condition and requests to breath into a tube. You breathe and instrument panel lights red lamochka.'
- 'Traffic police snorts and writes something in his cell, and then shows you. There is written sms with the number 50000'
- 'Or let''s make the report. Now operates divestment forever for driving not sober.'
- if money >= 50000:
- act 'Give a bribe (50,000 rubles)':
- cla
- money = money - 50000
- 'You pay and the policeman warns you that you will not be riding in this state.'
- act 'In the salon':gt 'carF', 'salon'
- end
- end
- act 'Come on, all under the law':
- cla
- prava = 0
- 'Disempower you, not for driving sober.'
- act 'In the salon':gt 'carF', 'salon'
- end
- exit
- end
- elseif alko >= 10:
- avarand = rand(0, 100)
- if avarand >= 50:
- teh /= 2
- wrek = 1
- 'You with a drunk crashed into a tree, breaking the car into pieces.'
- act 'In the salon':gt 'carF', 'salon'
- exit
- end
- end
- if wrek = 0:
- if cardrive >= 20:
- if cardrive ! 3:
- act 'Go to town':
- cla
- minut += 75
- benz -= 1
- teh -= rand(3, 6)
- cardrive = 3
- 'You are more than an hour drive on the highway that would get here before the city.'
- dynamic $enddrive
- end
- end
- if cardrive ! 21:
- act 'Go to the gas station':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 21
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- end
- if placeMansion > 0 and cardrive ! 18:
- act 'Go to your site':
- cla
- if cardrive >= 20:
- minut += 60
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 18
- else
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 18
- end
- 'You drive to the town.'
- dynamic $enddrive
- end
- end
- if cardrive ! 1:
- act 'Go to the residential area':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 1
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 2:
- act 'Go to city center':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 2
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 3:
- act 'Go to the northern area':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 3
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 4:
- act 'Go to the lake':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 4
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 5:
- act 'Go to the park':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 5
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 6:
- act 'Go to the gas station':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 6
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 7:
- act 'Go to the car wash':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 7
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 8:
- act 'Go to a car dealership':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 8
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 9:
- act 'Go to the car market':
- cla
- minut += 15
- benz -= 1
- teh -= rand(1, 3)
- cardrive = 9
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 12:
- act 'Go on to':
- cla
- minut += 60
- benz -= 1
- teh -= rand(2, 5)
- cardrive = 12
- 'You get 15 minutes to the destination.'
- dynamic $enddrive
- end
- end
- if cardrive ! 20:
- act 'Go to town':
- cla
- minut += 75
- benz -= 1
- teh -= rand(3, 6)
- cardrive = 20
- 'You eat more than an hour on the highway to the town.'
- dynamic $enddrive
- end
- end
- act 'Go around the track (1:00)':
- cla
- 'You go on the road.'
- numberRoad = input("In which city will stop (from 0 to 20)")
- if numberRoad >= 0 and numberRoad <= 20:
- cardrive = 19
- nroad = numberRoad
- ncarroad = numberRoad
- end
- xgt 'carF', 'salon'
- end
- act 'To drive on the track (1:00)':
- cla
- minut += 60
- benz -= 4
- teh -= rand(2, 6)
- manna += 20
- wipo += 10
- 'You go to the track and having fun Likhachev, then turn back.'
- act 'Finish':xgt 'carF', 'salon'
- end
- end
- end
- end
- --- carF ---------------------------------
|