# autotraidF
<<<<<<< 454_autotraidF
if $ARGS[0] = 'start':
=======
if $ARGS[0]='start':
>>>>>>> 454_autotraidF
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 454_autotraidF
set minut += 5
gs 'stat'
=======
set minut = minut + 5
gs'stat'
>>>>>>> 454_autotraidF
cla
*clr
<<<<<<< 454_autotraidF
'
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 to cornerer': gt 'autotraidF','manager1'
act 'View cars put up for sale': gt 'autotraidF','car'
end
act 'Leave': gt 'Nord'
=======
'Car_market'
''
'The machine can be purchased only at presence of the rights. And you can not have two cars.'
if hour <= 17:
if car > 0:act 'Approach to the buyer-':gt'autotraidF','manager1'
act 'View cars for sale':gt'autotraidF','car'
end
act 'Get_Away':gt'Nord'
>>>>>>> 454_autotraidF
end
<<<<<<< 454_autotraidF
if $ARGS[0] = 'manager1':
=======
if $ARGS[0]='manager1':
>>>>>>> 454_autotraidF
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 454_autotraidF
set minut += 5
gs 'stat'
=======
set minut = minut + 5
gs'stat'
>>>>>>> 454_autotraidF
cla
*clr
<<<<<<< 454_autotraidF
'Car'
''
gs 'avb'
if cardrive = 9 and car > 0:
'Fence walked around the car and offered you for it <> rubles'
act 'Sell for <> (1:00)':
cla
set minut += 60
money = money + bupay
car = 0
'You sold your car.'
act 'Leave': gt 'Nord'
end
end
if cardrive ! 9:
'Fence says that he needs to look at the car before you set 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 'Tow truck to market 2500rub (1:00)':
cla
set minut += 60
set cardrive = 9
set 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 'To cornerer': gt 'autotraidF','manager1'
end
end
end
act 'Leave': gt 'Nord'
=======
'Car_market'
''
gs'avb'
if cardrive = 9 and car > 0:
'Fence walked around the car and asked you for it <> rubles'
act 'sell for <> (1 h)':
cla
set minut = minut + 60
money=money+bupay
car=0
'You sold your car.'
act 'Get_Away':gt'Nord'
end
end
if cardrive ! 9:
'Fence says, that he needs to look at the car, before you put a price, and if you want, it calls for a tow truck 2500, that would deliver your car to the market.'
if money >= 2500:
act 'Tow truck to market 2500RUB (1 h)':
cla
set minut = minut + 60
set cardrive = 9
set money = money - 2500
'You gave money and waited for an hour and when you bring the car, Finally.'
act 'For buyers-up':gt'autotraidF','manager1'
end
end
end
act 'Get_Away':gt'Nord'
>>>>>>> 454_autotraidF
end
<<<<<<< 454_autotraidF
if $ARGS[0] = 'car':
=======
if $ARGS[0]='car':
>>>>>>> 454_autotraidF
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 454_autotraidF
set minut += 5
gs 'stat'
=======
set minut = minut + 5
gs'stat'
>>>>>>> 454_autotraidF
cla
*clr
<<<<<<< 454_autotraidF
'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.'
=======
'Car_market'
''
'So many cars in the parking lot, that you can spend a lifetime and never osmotrish all cars, if still with the machines on the go , then the machine is not on the moves is a cat in a bag, may be a bargain, and can be a waste of money, and do not forget, you still deliver it to the service will need to be.'
>>>>>>> 454_autotraidF
set carT = 0
if hour <= 17:
<<<<<<< 454_autotraidF
act 'Inspect 2107 (on the go)':
cla
*clr
'2107 (on the move)'
''
set tehNT = 200
set tehT = RAND(10, tehNT)
set 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
set money -= bupay
set $car = '2107'
set car = 1
set benz = 3
set cardrive = 9
set teh = tehT
set tehcar = 200
set 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 (not move)':
cla
*clr
set tehNT = 200
set tehT = RAND(10, tehNT)
set 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
set money -= bupay
set $car = '2107'
set car = 1
set benz = 3
set cardrive = 9
set teh = tehT
set tehcar = 200
set 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)'
''
set tehNT = 1000
set tehT = RAND(10, tehNT)
set 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
set money -= bupay
set $car = 'GAZ 3102'
set car = 11
set benz = 5
set cardrive = 9
set teh = tehT
set tehcar = 1000
set 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)'
''
set tehNT = 800
set tehT = RAND(10, tehNT)
set 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
set money -= bupay
set $car = '3110'
set car = 12
set benz = 5
set cardrive = 9
set teh = tehT
set tehcar = 800
set 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
=======
act 'inspect VAZ 2107 (on the run)':
cla
*clr
'VAZ 2107 (on the run)'
''
set tehNT = 200
set tehT = RAND (10,tehNT)
set carT = 1
gs'avt'
'<<$tehT>> trader wants <> rubles'
act 'Get_Away':gt'autotraidF','car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy for <> rubles':
cla
set money = money - bupay
set $car = 'VAZ 2107'
set car = 1
set benz = 3
set cardrive = 9
set teh = tehT
set tehcar = 200
set wrek = 0
'you paid <> rubles and bought a car. Trader put it near the market and warned, that there is little gasoline.'
act 'Get_Away':gt'Nord'
end
end
end
act 'inspect VAZ 2107 (not on the move)':
cla
*clr
set tehNT = 200
set tehT = RAND (10,tehNT)
set bupay = RAND (10000,50000)
'The machine is not on the move. trader wants <> rubles'
act 'Get_Away':gt'autotraidf','car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy for <> rubles':
cla
set money = money - bupay
set $car = 'VAZ 2107'
set car = 1
set benz = 3
set cardrive = 9
set teh = tehT
set tehcar = 200
set wrek = 1
'you paid <> rubles and bought a car. Trader put it near the market.'
act 'Get_Away':gt'Nord'
end
end
end
act 'inspect GAS 3102 (on the run)':
cla
*clr
'GAZ 3102 (on the run)'
''
set tehNT = 1000
set tehT = RAND (10,tehNT)
set carT = 2
gs'avt'
'<<$tehT>> trader wants <> rubles'
act 'Get_Away':gt'autotraidf','car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy for <> rubles':
cla
set money = money - bupay
set $car = 'GAZ 3102'
set car = 11
set benz = 5
set cardrive = 9
set teh = tehT
set tehcar = 1000
set wrek = 0
'you paid <> rubles and bought a car. Trader put it near the market and warned, that there is little gasoline.'
act 'Get_Away':gt'Nord'
end
end
end
act 'inspect GAS 3110 (on the run)':
cla
*clr
'GAZ 3110 (on the run)'
''
set tehNT = 800
set tehT = RAND (10,tehNT)
set carT = 2
gs'avt'
'<<$tehT>> trader wants <> rubles'
act 'Get_Away':gt'autotraidF','car'
if car = 0 and prava = 1 and money >= bupay:
act 'Buy for <> rubles':
cla
set money = money - bupay
set $car = 'GAZ 3110'
set car = 12
set benz = 5
set cardrive = 9
set teh = tehT
set tehcar = 800
set wrek = 0
'you paid <> rubles and bought a car. Trader put it near the market and warned, that there is little gasoline.'
act 'Get_Away':gt'Nord'
end
end
end
end
act 'Get_Away':gt'Nord'
end
>>>>>>> 454_autotraidF
--- autotraidF ---------------------------------