slife/locations/103_bordel

# bordel
$sexloc = $CURLOC
gs 'stat'
<<<<<<< 103_bordel
'<center><B>Brothel</B></center>'
'<center><img src="images\img\centr\bordel.jpg"></center>'
	if vnesh >= 0 and vnesh < 25:
	'"Look at you, for such a product no one will pay cleaned up and come back."'
	act 'Leave': gt 'down'
	end
	if vnesh < 0:
	'"Listen, you have some sort of infection, go to undergo treatment."'
	act 'Leave': gt 'down'
	end
if vnesh >= 25: act 'In the room': gt 'bordel','start'

if $ARGS[0] = 'start':
=======
'<center><B>brothel</B></center>'
'<center><img src="img/centr/bordel.jpg" ></center>'
     if vnesh>=0 and vnesh<25:
	 '"You look at yourself, for such a product no one will pay yourself up and return."'
	 act 'Get_Away':gt'down'
	 end
     if vnesh<0:
	 '"Listen, you have some sort of infection, go to undergo treatment."'
	 act 'Get_Away':gt'down'
	 end
if vnesh>=25:act 'In the room':gt 'bordel','start'

if $ARGS[0]='start':
>>>>>>> 103_bordel
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
'<center><B>Your room in a brothel</B></center>'
<<<<<<< 103_bordel
'<center><img src="images\img\centr\borroom.jpg"></center>'
'In a brothel and a lot of competition in order to avoid massacre introduced a rule no more than two clients per day'
'In the middle is a huge bed, and a small side door <a href="exec:GT ''bordel'',''dysh''">bath</a>.'
act 'Leave':
	if odetero = 0: gt 'down'
	if odetero > 0:
		cla
		'You need to change into my clothes.'
		act 'In the bathroom': gt 'bordel','dysh'
		end
	end
	act 'Going to the gym, waiting for customers':
		if odetero = 0:
		cla
		'You need to change into something more appropriate, in a locker in the bathroom is all there.'
		act 'In the bathroom': gt 'bordel','dysh'
		end

		if cumbelly > 0 or cumpussy > 0 or cumass > 0 or cumlip > 0 or cumface > 0 or cumfrot > 0 or cumanus > 0 or mop < 2 or leghair > 0 or lobok > 0 or sweat > 0 or hapri = 0:
		cla
		'You need to freshen up.'
		act 'In the bathroom': gt 'bordel','dysh'
		end

	if cumbelly = 0 and cumpussy = 0 and cumass = 0 and cumlip = 0 and cumface = 0 and cumfrot = 0 and cumanus = 0 and odetero > 0 and mop > 1 and leghair < 1 and lobok < 1 and sweat < 1 and hapri > 0: gt 'bordel','var'
	end
=======
'<center><img src="img/centr/borroom.jpg" ></center>'
'In a brothel and a lot of competition in order to avoid massacre introduced a rule, yet no more than two per day'
'In the middle stands a huge bed, a side door into a small <a href="exec:GT ''bordel'',''dysh''">bath</a>.'
act 'Get_Away':
	 if odetero=0:gt 'down'
	 if odetero>0:
		 cla
		 'You need to change into his clothes.'
		 act 'In the bathroom':gt 'bordel','dysh'
		 end
	 end
     act 'Go to the gym, wait for customers':
	     if odetero=0:
		 cla
		 'You need to change into-something more suitable, in the cabinet in the bathroom all have.'
		 act 'In the bathroom':gt 'bordel','dysh'
		 end
		 
	     if cumbelly>0 or cumpussy>0 or cumass>0 or cumlip>0 or cumface>0 or cumfrot>0 or cumanus>0 or mop<2 or leghair>0 or lobok>0 or sweat>0 or hapri=0:
		 cla
		 'You need to freshen up.'
		 act 'In the bathroom':gt 'bordel','dysh'
		 end
		 
	 if cumbelly=0 and cumpussy=0 and cumass=0 and cumlip=0 and cumface=0 and cumfrot=0 and cumanus=0 and odetero>0 and mop>1 and leghair<1 and lobok<1 and sweat<1 and hapri>0:gt'bordel','var'
	 end
>>>>>>> 103_bordel
end

<<<<<<< 103_bordel
if $ARGS[0] = 'dysh':
=======
if $ARGS[0]='dysh':
>>>>>>> 103_bordel
cla
*clr
$metkaM = $ARGS[0]
$locM = $CURLOC
gs 'stat'
<<<<<<< 103_bordel
'<center><img src="images\img\centr\bordysh.jpg"></center>'
act 'In the room': gt 'bordel','start'
	act 'Bathroom':
	set bordysh = 1
	gt 'vann','start'
	end

	act 'Mirror':
	set borMir = 1
	gt 'mirror','start'
	end

	act 'Locker for clothes':
	set borLoker = 1
	gt 'loker','start'
	end
=======
'<center><img src="img/centr/bordysh.jpg" ></center>'
act 'In the room':gt 'bordel','start'
     act 'bathroom':
	 set bordysh = 1
	 gt'vann','start'
	 end
	 
     act 'mirror':
	 set borMir = 1
	 gt'mirror','start'
	 end
	 
     act 'Cabinet for clothes':
	 set borLoker = 1
	 gt'loker','start'
	 end
>>>>>>> 103_bordel
end

<<<<<<< 103_bordel
if $ARGS[0] = 'var':
if borsexkol >= 2: gt 'bordel','start'
set minut += 30
set borrand = rand(0,10)
	if borrand = 0:
	'Customer ordered one girl, the price of 1000 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sex','start'
		end
	end
	if borrand = 1:
	'Customer ordered two girls, the price of 1000 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'podrsex','start'
		end
	end
	if borrand = 2:
	'Two clients booked one girl, the price of 1500 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1500
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sexdvoe','start'
		end
	end
	if borrand = 3:
	'Two clients booked two girls, the price of 1500 rubles.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 1500
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'sexdvanadva','start'
		end
	end
	if borrand = 4:
	'Customer group ordered one girl, price 2000 rub.'
	act 'Refuse': gt 'bordel','start'
		act 'Agree':
		set borsexkol += 1
		set money += 2000
		set slutty += 1
		set bordelslutty += 1
		set minut += 120
		zpprand = RAND(0,100)
		if zpprand >= 70: dynamic $venerasiak
		gt 'paysex','start'
		end
	end
	if borrand > 4:
	'You will not chose.'
	act 'Go into the room': gt 'bordel','start'
	act 'Wait another': gt 'bordel','var'
	end
=======
if $ARGS[0]='var':
if borsexkol>=2:gt 'bordel','start'
set minut+=30
set borrand=rand(0,10)
     if borrand=0:
	 'Customer ordered a girl, price 1000 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1000
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'sex','start'
		 end
	 end
     if borrand=1:
	 'Customer ordered two girls, price 1000 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1000
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'podrsex','start'
		 end
	 end
     if borrand=2:
	 'Two customers have ordered one girl, price 1500 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1500
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'sexdvoe','start'
		 end
	 end
     if borrand=3:
	 'Two clients have ordered two girls, price 1500 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=1500
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'sexdvanadva','start'
		 end
	 end
     if borrand=4:
	 'Customer group ordered one girl, price 2000 RUB.'
	 act 'Opt_Out':gt 'bordel','start'
	     act 'agree':
		 set borsexkol+=1
		 set money+=2000
		 set slutty+=1
		 set bordelslutty+=1
		 set minut+=120
		 zpprand=RAND(0,100)
         if zpprand>=70:dynamic $venerasiak
		 gt 'paysex','start'
		 end
	 end
     if borrand>4:
	 'You will not have chosen.'
	 act 'Leave the room':gt 'bordel','start'
	 act 'wait another':gt 'bordel','var'
	 end
>>>>>>> 103_bordel
end
--- bordel ---------------------------------