# zoomagazine
if $ARGS[0] = 'start':
cla
clr
*clr
minut += 5
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Pet Shop'
'
'
'Dog - 3000 rubles'
'Rabbit - 2000 rubles'
'Parrot - 3000 rubles'
if money >= 3000 and sobaka = 0:
act 'Buy a dog (3000 rubles)':
cla
*clr
'
'
act 'Hello, I would like to get a dog':
cla
*clr
'
'
'Sorry, but we were only male dogs.'
act 'Buy a dog':
cla
*clr
minut += 10
sobaka += 1
money -= 3000
'
'
'You bought a dog-Dalmatians.'
$namesob = input ('I''ll call the dog ...')
act 'Move away from the counter':gt 'zoomagazine', 'start'
end
act 'Leave':gt 'zoomagazine', 'start'
end
end
end
if money >= 2000 and krolik = 0:
act 'Buy a rabbit (2000 rubles)':
cla
*clr
minut += 10
krolik += 1
money -= 2000
'
'
'You bought a rabbit.'
$namekrol = input ("I call rabbit ...")
act 'Move away from the counter':gt 'zoomagazine', 'start'
end
end
if money >= 3000 and popugai = 0:
act 'Buy a parrot (3000 rubles)':
cla
*clr
minut += 10
popugai += 1
money -= 3000
'
'
'You bought a parrot.'
$namepopu = input ("I call parrot ...")
act 'Move away from the counter':gt 'zoomagazine', 'start'
end
end
act 'Leave':gt 'torgcentr'
end
--- zoomagazine ---------------------------------