# autotraidF
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
minut += 5
gs 'stat'
'
Car'
'
'
'Machine can only be bought if you have permission. And you can not have two cars.'
if hour <= 17:
if car > 0:act 'Approach the car salesman':gt 'autotraidF', 'manager1'
act 'View cars put up for sale':gt 'autotraidF', 'car'
end
act 'Leave':gt 'Nord'
end
if $ARGS[0] = 'manager1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
minut += 5
gs 'stat'
'Car'
'
'
gs 'avb'
if cardrive = 9 and car > 0:
'Fence walked around the car and offered you for it <> rubles'
act 'Sell for (<> rubles) (1:00)':
cla
minut += 60
money = money + bupay
car = 0
'You sold your car.'
act 'Leave':gt 'Nord'
end
elseif cardrive ! 9:
'Fence says that he needs to look at the car before you a price, and if you want, it will call a tow truck for 2500 that would take your car to the market.'
if money >= 2500:
act 'Pay for towing service to the car market (2,500 rubles) (1:00)':
cla
minut += 60
cardrive = 9
money -= 2500
'You gave the money and waited for an hour and when you bring a car, you will finally see her tow truck unloaded near the market.'
act 'Go to car salesman':gt 'autotraidF', 'manager1'
end
end
end
act 'Leave':gt 'Nord'
end
if $ARGS[0] = 'car':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
minut += 5
carT = 0
gs 'stat'
'Car'
'
'
'So many cars in the parking lot that you can spend a lifetime and never osmotrish all machines, even if the machines on the go, you can understand their technical condition, the machine moves is not a cat in a bag can be a bargain, and can be a waste money, and do not forget, you still deliver it to the service will need.'
if hour <= 17:
act 'Inspect 2107 (on the go)':
cla
*clr
'2107 (on the move)'
'
'
tehNT = 200
tehT = rand(10, tehNT)
carT = 1
gs 'avt'
'<<$tehT>> The dealer wants <> rubles'
act 'Leave':gt 'autotraidF', 'car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy (<> rubles)':
cla
money -= bupay
$car = '2107'
car = 1
benz = 3
cardrive = 9
teh = tehT
tehcar = 200
wrek = 0
'You pay <> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
act 'Leave':gt 'Nord'
end
end
end
act 'Inspect 2107 (doesn''t move)':
cla
*clr
tehNT = 200
tehT = rand(10, tehNT)
bupay = rand(10000, 50000)
'The machine is not on the move. Merchant wants to <> rubles'
act 'Leave':gt 'autotraidf', 'car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy <>rubles':
cla
money -= bupay
$car = '2107'
car = 1
benz = 3
cardrive = 9
teh = tehT
tehcar = 200
wrek = 1
'You pay <> rubles and bought a car. Merchant put her near the market.'
act 'Leave':gt 'Nord'
end
end
end
act 'Inspect GAZ 3102 (on the go)':
cla
*clr
'3102 GAS (on the move)'
'
'
tehNT = 1000
tehT = rand(10, tehNT)
carT = 2
gs 'avt'
'<<$tehT>> The dealer wants <> rubles'
act 'Leave':gt 'autotraidf', 'car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy <>rubles':
cla
money -= bupay
$car = 'GAZ 3102'
car = 11
benz = 5
cardrive = 9
teh = tehT
tehcar = 1000
wrek = 0
'You pay <> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
act 'Leave':gt 'Nord'
end
end
end
act 'Inspect 3110 (on the go)':
cla
*clr
'3110 (on the move)'
'
'
tehNT = 800
tehT = rand(10, tehNT)
carT = 2
gs 'avt'
'<<$tehT>> The dealer wants <> rubles'
act 'Leave':gt 'autotraidF', 'car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy (<> rubles)':
cla
money -= bupay
$car = '3110'
car = 12
benz = 5
cardrive = 9
teh = tehT
tehcar = 800
wrek = 0
'You pay <> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
act 'Leave':gt 'Nord'
end
end
end
end
act 'Leave':gt 'Nord'
end
--- autotraidF ---------------------------------