# shop
if $ARGS[0]='start':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$icecreem={
if hour >= 8 and hour <= 20:
cls
set minut+=3
'Ice cream for the offer 50 rubles.'
act 'Get out of the department':gt'shop','start'
     if money>=50:
         act 'Buy ice cream':
         cls
         money-=50
         fat+=50
         manna+=500
         water= 20
         energy= 20
         perkice+=1
         gs'stat'
         !icecreem
         '<center><img src="pic/icecreem.jpg" ></center>'
         'You bought ice cream and ate it without moving away.'
         act 'Get out of the department':gt'shop','start'
         end
     end
else
'Counter with ice cream closed'
end
}
$sofood={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','food'
else
'The department is closed'
end
}
$socosm={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','cosm'
else
'The department is closed'
end
}
$sohos={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','hos'
else
'The department is closed'
end
}
$soclo={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','clo'
else
'The department is closed'
end
}
$soteh={
if hour >= 8 and hour <= 20:
minut+=3
gt'shop','teh'
else
'The department is closed'
end
}
$sobank={
if hour >= 8 and hour <= 20:
	 if karta > 0:
		 act 'To withdraw money':
		 cla
		 set minut = minut + 5
		 kartaOUT = input ("How much money you want to withdraw?")
			 if kartaOUT <= 0 or kartaOUT > karta:
			 'Incorrect operation.'
			 else
			 set karta = karta - kartaOUT
			 set money = money + kartaOUT
			 'You have removed from the account <<kartaOUT>> rubles, now in your account <<karta>> rubles.'
			 end
			 
		 act 'move_away':gt'shop','start'
		 end
	 else
	 'You do not have a bank card'
	 end
else
'ATM disabled'
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>supermarket</font></B></center>'
'<center><img src="pic/shop.jpg" ></center>'
'In the hall stands <a href="exec: dynamic $sobank ">ATM</a>, from which you can withdraw money unless you have them in the bank.'
'The greatest place in the supermarket occupies <a href="exec: dynamic $sofood ">grocery department</a>, but the store there are departments <a href="exec: dynamic $socosm ">cosmetics</a>, <a href="exec: dynamic $sohos ">economic</a>, <a href="exec: dynamic $soclo ">clothing</a>, and the Department of <a href="exec: dynamic $soteh ">household appliances</a>. Not far from the entrance stands <a href="exec: dynamic $icecreem ">counter with ice cream</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

if $loc='gorodok':
     if week<6:
         if hour>=8 and hour<16:
		 'Your sister <a href="exec:SiSonWork=1&GT ''sister''">Anya</a> sits at the checkout.'
		 end
     end
end


if $loc='street':
set evrand = RAND (1,100)
if evrand >= 95 and dimaQW = 0:
     'In the lobby of the store you looking appreciatively what that man.'
     act 'Look at it':gt'event','dima'
     end
     
if evrand >= 95 and dimaQW = 1:
	 'In the lobby of the store you notice Dima and binds you fear, you can not move.'
	 act 'Look at it':gt'event','scoreslut1'
	 end
	 
if evrand>=95 and dimaqw=2:
	 'You met the same Dima who entertained with boyfriend fucking you. Dima arrogant grin came to you and said hello.'
	 act 'Greet':
		 cla
		 'Come to me, I was not at home wife said Dima.'
		 act 'No':gt'shop','start'
		 act 'Let`S_Go':
			 cla
			 *clr
			 Set gostrand = RAND (1,2)
			 if gostrand = 1:
				 cla
				 Set sex = sex + 1
				 Set oral = oral + 1
				 Set throat = throat + 1
				 Set cumlip = cumlip + 1
				 set swallow=swallow+1
				 Set horny = 0
				 'Dima took you to his house and there has ordered you to kneel. You knelt down and he calling you a bitch and huesoska began to fuck you in the mouth.'
				 '<center><img src="pics/gostDT2.jpg" ></center>'
				 'Dima finally finished your mouth, you obediently swallowed and licked the remnants of sperm with his big cock.'
				 act 'go home':gt 'street'
				 end
			 if gostrand = 2:
				 cla
				 Set sex = sex + 1
				 Set anal = anal + 1
				 Set cumass = cumass + 1
				 Set spank=spank+1
				 Set boom=5
				 Set horny = 0
				 'Dima took you to his home and straight into the hallway you started kissing and undressing. After he section you he took you to the bathroom. There he sat you in the bathroom and unscrewing the showerhead put a water hose you in the ass. Quickly the feeling of fullness and Dima put you on the toilet. After an enema .'
				 '<center><img src="pics/gostAnal2.jpg" ></center>'
				 'Dima long you fucked in the ass and beat palms, you first it was painful, but gradually you are logged in taste and began to catch the buzz, Finally your ass filled with hot liquid and moan Dima grabbed your buttocks.'
				 act 'go home':gt 'street'
				 end
			 end
		 end
	 end
end
     if hour >= 8 and hour <= 20:
     'The store crowds of shoppers.'
         if TorgPredZ>0:
             if $loc='street':
                 if StreetShopTPday!day:
                     act 'set products':
                     cls
                     mtprand=RAND(40,130)
                     minut+=mtprand
                     TorgPredZ-=1
                     TorgPredZV+=1
                     StreetShopTPday=day
                     gs'stat'
                     '<center><img src="pic/shop.jpg" ></center>'
                     'You arranged the products for quite a while and when I finally managed, then went to the cashier and you were there for a check.'
                     act 'Go_Out':gt'shop','start'
                     end
                 end
             end
             if $loc='Nord':
                 if nordShopTPday!day:
                     act 'set products':
                     cls
                     mtprand=RAND(40,130)
                     minut+=mtprand
                     TorgPredZ-=1
                     TorgPredZV+=1
                     nordShopTPday=day
                     gs'stat'
                     '<center><img src="pic/shop.jpg" ></center>'
                     'You arranged the products for quite a while and when I finally managed, then went to the cashier and you were there for a check.'
                     act 'Go_Out':gt'shop','start'
                     end
                 end
             end
             if $loc='down':
                 if downShopTPday!day:
                     act 'set products':
                     cls
                     mtprand=RAND(40,130)
                     minut+=mtprand
                     TorgPredZ-=1
                     TorgPredZV+=1
                     downShopTPday=day
                     gs'stat'
                     '<center><img src="pic/shop.jpg" ></center>'
                     'You arranged the products for quite a while and when I finally managed, then went to the cashier and you were there for a check.'
                     act 'Go_Out':gt'shop','start'
                     end
                 end
             end
         end 
     else
	 'shop is closed.'
     end
     
     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
	 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
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You bought food and paid the money to the cashier.'
		 end
	 act 'Move away from the counter':gt'shop','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="pic/kassa.jpg" ></center>'
		 'You bought food and paid the money to the cashier.'
		 end
	 act 'Move away from the counter':gt'shop','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="pic/shop1.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 'Get out of the department':gt'shop','start'

     if money>=300:
         act 'Buy biscuits for tea (300 r)':
         cls
         money-=300
         pranik+=10
         'You bought a bag of cookies that will last you ten times.'
         act 'Get out of the department':gt'shop','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 'Get out of the department':gt'shop','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 'Get out of the department':gt'shop','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 'Get out of the department':gt'shop','food'
         end
     end
end

if $ARGS[0]='cosm':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$buykosm={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*1000 > money:'You do not have enough money.'
	 if portion*1000 <= money:
		 set kosmetica += portion*50
		 set money = money - portion*1000
		 '<center><img src="pic/kassa.jpg" ></center>'
		 'You paid the cashier and bought cosmetics.'
		 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buystanok={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*500 > money:'You do not have enough money.'
	 if portion*500 <= money:
	 set stanok += portion*10
	 set money = money - portion*500
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought razor.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buykrem={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*500 > money:'You do not have enough money.'
	 if portion*500 <= money:
	 set krem += portion*20
	 set money = money - portion*500
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought sunblock.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buytampon={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*200 > money:'You do not have enough money.'
	 if portion*200 <= money:
	 set tampon += portion*20
	 set money = money - portion*200
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought tampons.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
$buyshampoo={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*500 > money:'You do not have enough money.'
	 if portion*500 <= money:
	 set shampoo += portion*30
	 set money = money - portion*500
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought shampoo.'
	 end
	 act 'Move away from the counter':gt'shop','cosm'
else
'The department is closed'
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>cosmetics department</font></B></center>'
'<center><img src="pic/shop2.jpg" ></center>'
'<a href="exec: dynamic $buykosm ">cosmetics - 1000RUB</a>
<a href="exec: dynamic $buystanok ">razor - 500 RUB</a>
<a href="exec: dynamic $buykrem ">Suntan cream - 500 RUB</a>
<a href="exec: dynamic $buytampon ">tampons - 200 RUB</a>'
'<a href="exec: dynamic $buyshampoo ">shampoo - 500 RUB</a>'
'handbag - 5sput
napkins 100r
beautician 1000r
comb 150r'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get out of the department':gt'shop','start'
     if money>=100 and bag>0:
         act 'Buy wipes (100 r)':
         cls
         money-=100
         salfetka+=10
         'You bought wipes and put them in her purse.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
     if money>=1000 and bag>0:
         act 'Buy a portable makeup (1000 r)':
         cls
         money-=1000
         kosmetitka+=10
         'You bought a portable makeup bag and put it in her purse.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
     if money>=150 and greben=0 and bag>0:
         act 'Buy a comb (150 r)':
         cls
         money-=150
         greben=1
         'You bought a comb and put it in her purse.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
     if money>=5000 and bag=0:
         act 'Buy a handbag (5000 r)':
         cls
         money-=5000
         bag=1
         'You bought a handbag.'
         act 'Get out of the department':gt'shop','cosm'
         end
     end
end

if $ARGS[0]='hos':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$buyfairy={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*100 > money:'You do not have enough money.'
	 if portion*100 <= money:
	 set fairy += portion*20
	 set money = money - portion*100
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought dishwashing detergent.'
	 end
	 act 'Move away from the counter':gt'shop','hos'
else
'The department is closed'
end
}
$buyporoshok={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*250 > money:'You do not have enough money.'
	 if portion*250 <= money:
	 set poroshok += portion*30
	 set money = money - portion*250
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought laundry detergent.'
	 end
	 act 'Move away from the counter':gt'shop','hos'
else
'The department is closed'
end
}
$buycltarelka={
if hour >= 8 and hour <= 20:
	 cla
	 *clr
	 portion = input ("How much you want to buy?")
	 if portion<=0:portion=1
	 if portion*300 > money:'You do not have enough money.'
	 if portion*300 <= money:
	 set cltarelka += portion*5
	 set money = money - portion*300
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You paid the cashier and bought a set of 5five plates.'
	 end
	 act 'Move away from the counter':gt'shop','hos'
else
'The department is closed'
end
}
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>Household Division</font></B></center>'
'<center><img src="pic/shop3.jpg" ></center>'
'<a href="exec: dynamic $buyfairy ">Dishwashing liquid - 100 RUB</a>
<a href="exec: dynamic $buyporoshok ">washing powder - 250 RUB</a>
<a href="exec: dynamic $buycltarelka ">set of 5five plates - 300 RUB</a>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'Get out of the department':gt'shop','start'
end

if $ARGS[0]='clo':
cla
*clr
set minut = minut + 5
'<center><B><font color=maroon>Department of women`s clothing</font></B></center>'
'<center><img src="pic/shop4.jpg" ></center>'
'lingerie - 300 RUB
All women`s clothing on 2500 RUB'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)

act 'WITHDRAW FROM THE DIVISION':gt'shop','start'

if money >= 300:
	 act 'Buy lingerie 300 r.':
		 cla
		 *clr
		 portion = input ("How much you want to buy?")
		 if portion<=0:portion=1
		 if portion*300 > money:'You do not have enough money.'
		 if portion*300 <= money:
			 set clrbelo += portion
			 set money = money - portion*300
			 '<center><img src="pic/kassa.jpg" ></center>'
			 'You paid the cashier and bought underwear.'
			 end
		 act 'Move away from the counter':gt'shop','clo'
		 end
	 end
     if money >= 2000:
         act 'Buy a set of lingerie "week" 2000 r.':
         cla
         *clr
         set money = money - 2000
         set clrbelo+=7
         '<center><img src="pic/kassa.jpg" ></center>'
         'You paid the cashier and bought underwear.'
         act 'Move away from the counter':gt'shop','clo'
         end
     end
     
     if palto<2:
     'The store sells winter coat. 10000 RUB'
         if money>=10000:
             act 'Buy a winter coat':
             cla
             money-=10000
             palto=2
             $palto='winter coat'
             'You bought a coat.'
             act 'GO_OUT':gt'shop','clo'
             end
         
         end
     end
     
     if money >= 1000 and bikini < 1:
         act 'buy a swimsuit 1000 r.':
         cla
         *clr
         set money = money - 1000
         set bikini = 1
         '<center><img src="pic/kassa.jpg" ></center>'
         'You paid the cashier and bought a swimsuit.'
         act 'Move away from the counter':gt'shop','clo'
         end
     end
	 if money >= 2500:
	 
	     if profi[1] = 0:
			 act 'Inspect office clothes number1':
			 cla
			 *clr
			 '<center><img src="ode/profi1.jpg" ></center>'
			 'office clothes.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set profi[1] = 1
				 set profiH[1] = 60
				 set profiB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 if profi[2] = 0:
			 act 'Inspect office clothes number2':
			 cla
			 *clr
			 '<center><img src="ode/profi2.jpg" ></center>'
			 'office clothes.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set profi[2] = 1
				 set profiH[2] = 60
				 set profiB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if sarafan[1] = 0:
			 act 'Explore the colorful sundress':
			 cla
			 *clr
			 '<center><img src="ode/sarafan1.jpg" ></center>'
			 'simple sundress, its main advantage is its dimensionless.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set sarafan[1] = 1
				 set sarafanH[1] = 60
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if sarafan[2] = 0:
			 act 'Inspect light sundress':
			 cla
			 *clr
			 '<center><img src="ode/sarafan2.jpg" ></center>'
			 'simple sundress, its main advantage is its dimensionless.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set sarafan[2] = 1
				 set sarafanH[2] = 60
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[1] = 0:
			 act 'Inspect Black shorts with a purple T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short1.jpg" ></center>'
			 'Black shorts with a purple T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[1] = 1
				 set shortH[1] = 60
				 set shortB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[2] = 0:
			 act 'Inspect Black shorts with striped T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short2.jpg" ></center>'
			 'Black shorts with striped T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[2] = 1
				 set shortH[2] = 60
				 set shortB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[3] = 0:
			 act 'Inspect Black shorts with a black T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short3.jpg" ></center>'
			 'Black shorts with a black T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[3] = 1
				 set shortH[3] = 60
				 set shortB[3] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[4] = 0:
			 act 'Inspect pink shorts with a pink T-shirt':
			 cla
			 *clr
			 '<center><img src="ode/short4.jpg" ></center>'
			 'pink shorts with a pink T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[4] = 1
				 set shortH[4] = 60
				 set shortB[4] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if short[5] = 0:
			 act 'Inspect white shorts with a white bodice':
			 cla
			 *clr
			 '<center><img src="ode/short5.jpg" ></center>'
			 'white shorts with a white bodice.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set short[5] = 1
				 set shortH[5] = 60
				 set shortB[5] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[1] = 0:
			 act 'Inspect the white skirt with a colorful blouse.':
			 cla
			 *clr
			 '<center><img src="ode/skirt1.jpg" ></center>'
			 'White skirt with a colorful blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[1] = 1
				 set skirtH[1] = 60
				 set skirtB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[2] = 0:
			 act 'Inspect the black skirt with a red jacket.':
			 cla
			 *clr
			 '<center><img src="ode/skirt2.jpg" ></center>'
			 'Black skirt with a red jacket.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[2] = 1
				 set skirtH[2] = 60
				 set skirtB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[3] = 0:
			 act 'Inspect the white skirt with a striped T-shirt.':
			 cla
			 *clr
			 '<center><img src="ode/skirt3.jpg" ></center>'
			 'White skirt with a striped T-shirt.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[3] = 1
				 set skirtH[3] = 60
				 set skirtB[3] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[4] = 0:
			 act 'Inspect the black skirt under the skin, with red blouse.':
			 cla
			 *clr
			 '<center><img src="ode/skirt4.jpg" ></center>'
			 'Black skirt under the skin, with red blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[4] = 1
				 set skirtH[4] = 60
				 set skirtB[4] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if skirt[5] = 0:
			 act 'Inspect the black skirt, with a white blouse.':
			 cla
			 *clr
			 '<center><img src="ode/skirt5.jpg" ></center>'
			 'black skirt, with a white blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set skirt[5] = 1
				 set skirtH[5] = 60
				 set skirtB[5] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[1] = 0:
			 act 'inspect pants, with a blouse. number1':
			 cla
			 *clr
			 '<center><img src="ode/pants1.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[1] = 1
				 set pantsH[1] = 60
				 set pantsB[1] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[2] = 0:
			 act 'inspect pants, with a blouse. number2':
			 cla
			 *clr
			 '<center><img src="ode/pants2.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[2] = 1
				 set pantsH[2] = 60
				 set pantsB[2] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[3] = 0:
			 act 'inspect pants, with a blouse. number3':
			 cla
			 *clr
			 '<center><img src="ode/pants3.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[3] = 1
				 set pantsH[3] = 60
				 set pantsB[3] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[4] = 0:
			 act 'inspect pants, with a blouse. number4':
			 cla
			 *clr
			 '<center><img src="ode/pants4.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[4] = 1
				 set pantsH[4] = 60
				 set pantsB[4] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
		 
		 if pants[5] = 0:
			 act 'inspect pants, with a blouse. number5':
			 cla
			 *clr
			 '<center><img src="ode/pants5.jpg" ></center>'
			 'pants, with a blouse.'
			 'costs 2500 RUB.'
			 act 'Get_Away':gt'shop','clo'
				 act 'buy': 
				 cla
				 set money = money - 2500
				 set pants[5] = 1
				 set pantsH[5] = 60
				 set pantsB[5] = bedra
				 gt'shop','clo'
				 end
			 end
		 end
     
	 end

end

if $ARGS[0]='teh':
cla
*clr
set minut = minut + 1
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$buytv={
if hour >= 8 and hour <= 20:
     if money >= 5000 and TV < 1:
	 cla
	 *clr
	 set money = money - 5000
	 set TV = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a TV'
	 act 'Get_Away':gt'shop','teh'
	 elseif TV >0:
	 'Do you already have a TV'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buytv2={
if hour >= 8 and hour <= 20:
     if money >= 35000 and TV < 2:
	 cla
	 *clr
	 set money = money - 35000
	 set TV = 2
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a TV'
	 act 'Get_Away':gt'shop','teh'
	 elseif TV >1:
	 'Do you already have a TV'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buykomp={
if hour >= 8 and hour <= 20:
     if money >= 25000 and komp =0:
	 cla
	 *clr
	 set money = money - 25000
	 set komp = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a computer'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp>0:
	 'Do you already have a computer'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buycd={
if hour >= 8 and hour <= 20:
     if money >= 500 and komp>0 and GameCD=0:
	 cla
	 *clr
	 set money = money - 500
	 GameCD = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought the game'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp=0:
	 'You do not have a computer'
	 elseif GameCD>0:
	 'You already have this game'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buycd2={
if hour >= 8 and hour <= 20:
     if money >= 500 and komp>0 and GameCD2=0:
	 cla
	 *clr
	 set money = money - 500
	 GameCD2 = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought the game'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp=0:
	 'You do not have a computer'
	 elseif GameCD2>0:
	 'You already have this game'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buycd3={
if hour >= 8 and hour <= 20:
     if money >= 500 and komp>0 and GameCD3=0:
	 cla
	 *clr
	 set money = money - 500
	 GameCD3 = 1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought the game'
	 act 'Get_Away':gt'shop','teh'
	 elseif komp=0:
	 'You do not have a computer'
	 elseif GameCD3>0:
	 'You already have this game'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyposudmoi={
if hour >= 8 and hour <= 20:
     if money >= 50000 and posudomashina=0:
	 cla
	 *clr
	 set money = money - 50000
	 posudomashina=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a dishwasher'
	 act 'Get_Away':gt'shop','teh'
	 elseif posudomashina>0:
	 'You already have a dishwasher'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buystiralka={
if hour >= 8 and hour <= 20:
     if money >= 50000 and stiralka=0:
	 cla
	 *clr
	 set money = money - 50000
	 stiralka=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a washing machine'
	 act 'Get_Away':gt'shop','teh'
	 elseif stiralka>0:
	 'You already have a washing machine'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyzenit={
if hour >= 8 and hour <= 20:
     if money >= 10000 and zenit=0:
	 cla
	 *clr
	 set money = money - 10000
	 zenit=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a camera'
	 act 'Get_Away':gt'shop','teh'
	 elseif zenit>0:
	 'Do you already have a camera'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}
$buyminifoto={
if hour >= 8 and hour <= 20:
     if money >= 40000 and minifoto=0:
	 cla
	 *clr
	 set money = money - 40000
	 minifoto=1
	 '<center><img src="pic/kassa.jpg" ></center>'
	 'You get paid in cash and bought a mini camera'
	 act 'Get_Away':gt'shop','teh'
	 elseif minifoto>0:
	 'You already have a mini camera'
	 else
	 'You do not have enough money'
	 end
else
'The department is closed'
end
}

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'<center><B><font color=maroon>Department of home appliances</font></B></center>'
'<center><img src="pic/shop5.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
if TV=0:'<a href="exec: dynamic $buytv ">Not a big TV with a kinescope can buy 5000 RUB</a>'
if TV!2:'<a href="exec: dynamic $buytv2 ">Large plasma TV can be bought for 35000 RUB</a>'
if komp=0:'<a href="exec: dynamic $buykomp ">computer costs 25000 RUB</a>'
!'<a href="exec: dynamic $buycd ">Computer game Disopl 500 RUB</a>'
if GameCD2=0:'<a href="exec: dynamic $buycd2 ">Computer game Sunset Dead 500 RUB</a>'
!'<a href="exec: dynamic $buycd3 ">Computer game Albida 500 RUB</a>'
if posudomashina=0:'<a href="exec: dynamic $buyposudmoi ">Dishwasher can buy 50000 RUB</a>'
if stiralka=0:'<a href="exec: dynamic $buystiralka ">Washing machine can be purchased for 50000 RUB</a>'
if zenit=0:'<a href="exec: dynamic $buyzenit ">The camera can be purchased for 10000 RUB</a>'
if minifoto=0:'<a href="exec: dynamic $buyminifoto ">Mini camera disguised as a cigarette pack can be purchased for 40000 RUB</a>'
act 'Get out of the department':gt'shop','start'
end
--- shop ---------------------------------

