# koncepod1
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC




if $ARGS[0]='start':

end
if $ARGS[0]='prs':
    cls
    '<center><img src="images/pic/koncepod.jpg" ></center>'
    'Go away pliz, not to annoy '

    act 'Logout':gt'dvor'

end

if $ARGS[0]='krr2x1':
    cla
    *clr
    set minut = minut + 1
    gs'stat'
    '<center><B><font color=maroon>Stairs</font></B></center>'
    '<center><img src="images/pic/koncepod3.jpg" ></center>'

    if psiho = 0:
        'You stopped at the door of the apartment and opened the door srazuzhe.On hand was still mezkoe, disgusting and horrible feeling of being old man`s hands'
        'You look at his hand, more room for complacency, and attempts to get rid of navozhdeniya...'
        'Heart, zagnonoy beating bird Silke, gradually began uspokaivatsya, Architecture is not an ordinary flight of stairs and the atmosphere of the old building began to calm.'
        act 'Faster Account':gt'koncepod1','krr2x'
    end

    act 'Outside':pavserhom = 3 & psiha = 1 & gt'dvor'
end

if $ARGS[0]='krr2x':
    cla
    *clr
    set minut = minut + 1
    pavserpsiday = day
    '<center><B><font color=maroon>Corridor</font></B></center>'
    '<center><img src="images/lmps/ur1031.jpg" ></center>'

    if psiho = 0 and psi1day = 0:dynamic $pavser2
    if psiho = 3 and psi1day = 0:dynamic $pavser7
    if psi1day = 1:'To be continued'




    act 'The Hall':gt'koncepod1','str2x'
    act 'In the kitchen':gt'koncepod1','khr2x'
    act 'In the bathroom':gt'koncepod1','vnr2x'
    
    if psiho > 0:    
        act '<b><font color = maroon>OUTSIDE</font></b>':
	        cls
	        if $clothingworntype ! 'nude':
		        xgt'dvor'
	        elseif $clothingworntype = 'nude':
		        '<b><font color = red>You need to get dressed.</font></b>'
		        xgt $curloc
	        end
        end
    end
end


if $ARGS[0]='str2x':
    cla
    *clr
    set minut = minut + 5
    gs'stat'

    '<center><B><font color=maroon>Hall</font></B></center>'
    '<center><img src="images/lmps/ur1036.jpg" ></center>'

    if psiho = 0 and psi1day = 0:dynamic $pavser
    
    if psiho >= 1:
        act 'In the kitchen':gt'koncepod1','khr2x'
        act 'In the bedroom':gt'koncepod1','bdr2x'
        act 'Corridor':gt'koncepod1','krr2x'
    end

end

if $ARGS[0]='khr2x':
    cla
    *clr
    set minut = minut + 5
    gs'stat'
    '<center><B><font color=maroon>Kitchen</font></B></center>'
    '<center><img src="images/lmps/ur1033.jpg" ></center>'
    if psiho = 2 and psihb = 0 and psihc = 0 and psi1day = 0:dynamic $pavser5
    if psiho = 2 and psihb = 1 and psihc = 1 and psi1day = 0:dynamic $pavser6


    act 'The Hall':gt'koncepod1','str2x'
    act 'Corridor':gt'koncepod1','krr2x'
end


if $ARGS[0]='vnr2x':
    cla
    *clr
    set minut = minut + 5
    gs'stat'
    '<center><B><font color=maroon>Bathroom</font></B></center>'
    '<center><img src="images/lmps/ur1032.jpg" ></center>'
    'Above hung washbasin <a href="exec:GT ''mirror'',''start''">oval mirror</a>.'
    if psiho = 2 and psihb = 1 and psihc = 0 and psi1day = 0:dynamic $pavser4
    
    
	if tanga = 1:
		act 'Remove underwear':
			tanga = 0
			horny += 30
		end
	end

	if spdirtyi = 0 or spdirtyn = 0:
		act 'Substitution 15 min':
			cla
			*clr
			cumspclnt = 3
			gs 'cum_cleanup'
			cumspclnt = 4
			gs 'cum_cleanup'
			sweat = sweat - 1
			minut = minut + 15


			'<center><img src="images/pics/wash5.jpg"></center>'



			'You carefully washed sperm from itself.'

			act 'Logout':gt'koncepod1','vnr2x'
		end
	end

	if spdirtyv > 0:
		act 'Wash off with facial cum 15 min':
			cla
			*clr
			mop = 1
			cumspclnt = 12
			gs 'cum_cleanup'
			cumspclnt = 9
			gs 'cum_cleanup'
			sweat = sweat - 1
			minut = minut + 15

			'<center><img src="images/etogame/facesp.jpg"></center>'

			'You carefully washed sperm from the face.'

			act 'Logout':gt'koncepod1','vnr2x'
		end
	end

	if tampon > 0 and mesec > 0 and isprok = 0:
		act 'Change swab':
			cla
			*clr
			tampon = tampon - 1
			isprok = 1
			minut = minut + 5
			manna = manna - 5

			'<center><img src="images/pics/wash3.jpg"></center>'
			'You have changed the swab.'

			act 'Finish':gt'koncepod1','vnr2x'
		end
	end
    act 'Corridor':gt'koncepod1','krr2x'
end

if $ARGS[0]='bdr2x':
    cla
    *clr
    set minut = minut + 5
    gs'stat'
    '<center><B><font color=maroon>Bedroom</font></B></center>'
    '<center><img src="images/lmps/ur1034.jpg" ></center>'
    if psiho = 1 and psi1day = 0:dynamic $pavser3
    act 'Corridor':gt'koncepod1','krr2x'
end

--- koncepod1 ---------------------------------