# autoservisF
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
*clr
gs 'stat'
set minut += 5
gs 'avtonorm'
'
Driving
'
'
'
if cardrive = 7:
if wrek = 0:
if teh >= tehcar * 75 / 100:'Master your car inspected and said that she does not need any repairs or maintenance in those.'
if teh < tehcar * 75 / 100:
'Master looked at your car and said that the cost of work <>.'
if money >= normrem:
act 'Pay and repair':
cla
*clr
set money -= normrem
set minut += 60
set teh = tehcar
wrek = 0
'
'
'You sat for an hour in the recreation room pretending that watching TV is finally repaired the car and you have paid in cash <> rubles'
act 'Leave':gt 'Nord'
end
end
end
end
if wrek = 1:
'Master prisvisnul looking at your unit and said that the cost of work <>.'
if money >= normrem:
act 'Pay and repair':
cla
*clr
set money -= normrem
set minut += 60
set tehcar = tehcar / 2
set teh = tehcar
wrek = 0
'
'
'You sat for an hour in the recreation room pretending that watching TV is finally repaired the car and you have paid in cash <> rubles'
'Master before giving clues told you that you would not have tried to bring the car to this state.'
act 'Leave':gt 'Nord'
end
end
end
end
if cardrive ! 7:'Master smiled and said, "Girl, I need a car to see what though, that what you say. Fetches it to the car service, we´ll see."'
if wrek = 1 and cardrive ! 7 and car > 0:
'At the service station operates a service evacuation of damaged cars to service centers, the cost in 2500'
if money >= 2500:
act 'Pay shipping cars (2,500 rubles) (1:00)':
cla
*clr
set money -= 2500
set cardrive = 7
set minut += 60
'
'
'You sat for an hour in the service station, waiting when will bring your car. Finally the time has passed and your car was delivered to the gate Car.'
act 'To master':gt 'autoservisF', 'start'
end
end
end
act 'Leave':gt 'Nord'
end
--- autoservisF ---------------------------------