# 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 ---------------------------------