# larek
*NL
ACT 'Logout':
	gt 'dvor'
END
gs 'stat'
'<center><img src="images/pic/larek.jpg" ></center>'
if $ARGS[0]='start':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$sofood={
if hour >= 8 and hour <= 20:
minut+=3
gt'larek','food'
else
'The department is closed'
end
}

'<center><img src="images/pic/larek.jpg" ></center>'
'<a href="exec: dynamic $sofood ">Select Products</a>'
     act 'Leave the store':gt $loc
end
if $ARGS[0]='food':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

$buyfood={
if hour >= 8 and hour <= 20:
     if money >= 50:
	 cla
	 *clr
	 set minut = minut + 15
	'<center><img src="images/pic/larek.jpg" ></center>' 
	 portion = input ("How many servings you want to buy?")
		 if portion<=0:portion=1
		 if portion*50 > money:
		 'You do not have enough money.'
		 end
		 if portion*50 <= money:
		 set eda = eda + portion
		 set money = money - portion*50
		
		 'You bought food and paid the money in cash.'
		 end
	 act 'Move away from the counter':gt'larek','food'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyfood2={
if hour >= 8 and hour <= 20:
     if money >= 250:
	 cla
	 *clr
	 set minut = minut + 15
	 portion = input ("How many servings you want to buy?")
		 if portion<=0:portion=1
		 if portion*250 > money:
		 'You do not have enough money.'
		 end
		 if portion*250 <= money:
		 set edaD = edaD + portion
		 set money = money - portion*250
		 '<center><img src="images/pic/larek.jpg" ></center>'
		 'You bought food and paid the money in cash.'
		 end
	 act 'Move away from the counter':gt'larek','food'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>Grocery department</font></B></center>'
'<center><img src="images/pic/larek.jpg" ></center>'
'<a href="exec: dynamic $buyfood ">One serving food - 50 RUB</a>
<a href="exec: dynamic $buyfood2 ">One serving of dietary food - 250 RUB</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)


act 'Exit Department':gt'larek','start'

     if money>=300:
         act 'Buy tea biscuits (300 r)':
         cls
         money-=300
         pranik+=10
         'You bought a bag of cookies that will last you ten times.'
         act 'Exit Department':gt'larek','food'
         end
     end
     if money>=50 and bottle=0 and bag>0:
         act 'Buy a bottle of water (50 r)':
         cls
         money-=50
         bottle=1
         'You bought a bottle of water and put it in her purse.'
         act 'Exit Department':gt'larek','food'
         end
     end
     if money>=100 and buterbrod=0 and bag>0:
         act 'Buy a sandwich (100 r)':
         cls
         money-=100
         buterbrod=1
         'You bought a sandwich and put it in her purse.'
         act 'Exit Department':gt'larek','food'
         end
     end
     if money>=500 and wine=0 and bag>0:
         act 'Buy a bottle of wine (500 r)':
         cls
         money-=500
         wine=1
         'You bought a bottle of wine and put it in her purse.'
         act 'Exit Department':gt'larek','food'
         end
     end
end





--- larek ---------------------------------