# Grinok
$metka = $ARGS[0]
$loc = $CURLOC
'<center><H4>market</H4></center>'
'<center><img src="pic/Grinok.jpg" ></center>'
'Located near the small market <a href="exec:minut+=3&GT ''vokzalG''">station</a>'
clr
gs'stat'
gs'time'

if hour>=12 and hour<=18:
'In the market the sellers of goods and beckoning shoppers.'
     act'Wander through the market':
     cls
     minut+=15
     gs'stat'
     'Do_You 15Five minutes stroll on the market for buyers.'
     if intel=100:rinmaxrand=2
     if intel>=75 and intel<100:rinmaxrand=4
     if intel>=50 and intel<75:rinmaxrand=6
     if intel>=25 and intel<50:rinmaxrand=8
     if intel<25:rinmaxrand=10
     rinevrand=rand(0,rinmaxrand)
         if rinevrand=0:
         rinevtip=rand(0,6)
             if rinevtip=0:
             kosmpayrand=rand(3,8)
             kosmpay=kosmpayrand*100
             'You see that sell pretty cheap cosmetics for <<kosmpay>> rubles'
                 if money>=kosmpay:
                     act'buy':
                     cls
                     minut+=15
                     money-=kosmpay
                     kosmetica+=rand(10,40)
                     gs'stat'
                     gt $curloc
                     end
                 end
             end
             if rinevtip=1:
             tovpayrand=rand(2,5)
             tovpay=tovpayrand*100
             'You see that sell for Vitaminki <<tovpay>> rubles'
                 if money>=tovpay:
					 act 'buy':
					 cls
					 minut+=15
					 vitamin+=20 
					 money-=tovpay
					 gt $curloc
					 end
				 end
             end
             if rinevtip=2:
             tovpayrand=rand(2,8)
             tovpay=tovpayrand*10
             'You see that sell condoms <<tovpay>> rubles'
                 if money>=tovpay:
					 act 'buy':
					 cls
					 minut+=15
					 prezik+=5 
					 money-=tovpay
					 gt $curloc
					 end
				 end
             end
             if rinevtip=3:
             tovpayrand=rand(5,10)
             tovpay=tovpayrand*100
             'You see that sell lip balm for <<tovpay>> rubles'
                 if money>=tovpay:
					 act 'buy':
					 cls
					 minut+=15
					 lipbalm+=20 
					 money-=tovpay
					 gt $curloc
					 end
				 end
             end
             if rinevtip=4:
             tovpayrand=rand(1,5)
             tovpay=tovpayrand*1000
             'You see that sell for handbag <<tovpay>> rubles'
                 if bag=0:
					 if money>=tovpay:
						 act 'buy':
						 cls
						 minut+=15
						 bag=1 
						 money-=tovpay
						 gt $curloc
						 end
					 end
				 end
				 if bag>0:
				 'Hmm, you already have a bag, why do you need another.'
				 end
             end
             if rinevtip=5:
             if pornmarkonce=0:pornmarkonce=1
             'Strolling on the market you accidentally wander into the far corner where they sell porn.'
             act 'come_Up':gt'Gpornmark'
             end
             if rinevtip=6:
                 if arturKnow=0: 
                 'Suddenly you hail "Hey devyushka, want tangerine skyushat?"'
                 act 'look':gt'arturRinok'
                 end
                 if arturKnow>0: 
                 'Suddenly you hail "Hey Svetsik, come here, skyushay tangerine."'
                 act 'come_Up':gt'arturRinok'
                 end
                 
             
             end
         else
         'Nothing unusual you do not come across, trash, buckets, granny gowns, sneakers, breeches and waistcoats with pockets.'
         end
     act'move on':gt $curloc
     end
     
     if pornmarkonce=1:
     act 'Go to the area with porn':gt'Gpornmark'
     end
     
     if arturKnow>0: 
     act 'Go to Arthur':gt'arturRinok'
     end
     
     act 'Go to the book tray':
     cls
     minut+=15
     gs'stat'
     'On the counter is a very entertaining fantasy book, which costs only 150 rubles and more are women`s novels in paperback standing 300 rubles.'
		 if money>=150:
			 act 'Buy fantasy book for 150r':
			 cls
			 minut+=15
			 money-=150
			 f_book+=1
			 gs'stat'
			 'You bought the book for fantasy 150 rubles.'
			 act'Get_Away':gt $curloc
			 end
		 end
		 
		 if money>=300:
			 act 'Buy ladies` novel for 300r':
			 cls
			 minut+=15
			 money-=300
			 w_book+=1
			 gs'stat'
			 'You bought a ladies` novel for 300 rubles.'
			 act'Get_Away':gt $curloc
			 end
		 end
     act'Get_Away':gt $curloc
     end
else
'In the market there is no one.'
end

--- Grinok ---------------------------------