# restaurant
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
clr
*clr
minut += 5
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Bank'
''
'Working hours are from 9 to 21.'
act 'Leave':
cla
minut += 5
gt 'hall'
end
if hour >= 9 and hour <= 21:act 'Go to the bank':gt 'bank', '1'
end
if $ARGS[0] = '1':
$metka = $ARGS[0]
$loc = $CURLOC
cla
clr
*clr
minut += 5
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'Bank'
''
if bankfond > 0:'Personal account <> ₽'
act 'Leave':
cla
minut += 5
gt 'restaurant', 'start'
end
if bankfond >= 0:
act 'Put money on your personal account':
cla
minut += 5
kartaIN = input ("How much money do you want to deposit into the account?")
if kartaIN <= 0 or kartaIN > money:
'Invalid operation.'
else
bankfond += kartaIN
money -= kartaIN
'You put <> ₽ into the account. You now have <> ₽ on your account.'
end
act 'Move away':gt 'restaurant', '1'
end
act 'Withdraw money from your personal account':
cla
minut += 5
kartaOUT = input ("How much money do you want to withdraw from the account?")
if kartaOUT <= 0 or kartaOUT > bankfond:
'Invalid operation.'
else
bankfond -= kartaOUT
money += kartaOUT
'You debited <> ₽. You now have <> ₽ on your account.'
end
act 'Move away':gt 'restaurant', '1'
end
end
end
--- restaurant ---------------------------------