# aptek !!!0.2.6 addition: Optimized flow of the code, updated descriptions - now lists everything the drugstore has to sell if $ARGS[0] = 'start': cla *clr set minut += 5 '
Drugstore
' '
' 'Condoms - 100 rubles' & nl 'Pregnancy test - 200 rubles' & nl 'Birth control pills - 500 rubles' & nl 'Enema - 500 rubles' & nl 'Medicine - 500 rubles' & nl 'Vitamins - 500 rubles' & nl 'Ointment from corns - 600 rubles' & nl 'Moisturizing Lip Balm 1,000 rubles' & nl 'Fat burners - 1,500 rubles' & nl 'Cure pills for yeast infection - 1,500 rubles clr gs 'stat' gs 'time' if money >= 100: act 'Buy condoms 100 rublesles': portion = input ("How many packages you want to buy?") if portion * 100 > money: 'You do not have enough money.' if portion * 100 <= money: set prezik = prezik + portion * 5 set money -= portion * 100 '
' 'You bought condoms and paid the money to the cashier.' end act 'Move away from the counter':gt'aptek', 'start' end end if money >= 200: act 'Buy a pregnancy test (200 rubles)': cla *clr set money -= 200 pregtest += 2 '
' 'You bought a test and get paid in cash.' act 'Move away from the counter':gt'aptek', 'start' end end if money >= 500: act 'Buy birth control pills 500 rublesles': portion = input ("How many packages you want to buy?") if portion * 500 > money: 'You do not have enough money.' if portion * 500 <= money: set tabletki += portion * 28 set money -= portion * 500 '
' 'You bought the pills and paid the money to the cashier.' end act 'Move away from the counter':gt'aptek', 'start' end if klisma = 0: act 'Buy enema 500 rublesles': cla *clr set klisma = 1 set money -= 500 '
' 'You bought an enema and paid the money to the cashier.' act 'Move away from the counter':gt'aptek', 'start' end end act 'Buy medicine 500 rubles': cla *clr portion = input ("How many packages you want to buy?") if portion * 500 > money:'You do not have enough money.' if portion * 500 <= money: set lekarstvo += portion * 10 set money -= portion * 500 '
' 'You bought drugs and paid the money to the cashier.' end act 'Move away from the counter':gt'aptek','start' end act 'Buy vitamins 500 rubles': cla *clr portion = input ("How many packages you want to buy?") if portion * 500 > money:'You do not have enough money.' if portion * 500 <= money: set vitamin += portion * 20 set money = money - portion * 500 '
' 'You bought vitamins and paid the money to the cashier.' end act 'Move away from the counter':gt'aptek', 'start' end end if money >= 600: act 'Buy ointment from corns (600 rubles)': cla *clr set money = money - 600 mosolmaz += 10 '
' 'You bought the pills and paid the money to the cashier.' act 'Move away from the counter':gt'aptek','start' end end if money >= 1000: act 'Buy a moisturizing lip balm (1,000 rubles)': cla *clr set lipbalm += 25 set money -= 1000 '
' 'You bought vitamins and paid the money to the cashier.' act 'Move away from the counter':gt'aptek','start' end end if money >= 1500: act 'Buy fat burners (1,500 rubles)': cla *clr set fatdel += 1 set money -= 1500 '
' 'You bought a fat burning capsule and paid the money to the cashier.' act 'Move away from the counter':gt'aptek','start' end if KandidNapr = 1: act 'Buy cure pills for yeast infection (1,500 rubles)': cla *clr set money -= 1500 Kandidoz = 0 '
' 'You bought the pills and paid the money to the cashier.' 'Immediately about cash you drink tablet.' act 'Move away from the counter':gt'aptek','start' end end end act 'Quit': gt $loc end !!! --- gaptek ---------------------------------