glife/locations/koncepod1

# koncepod1

if $ARGS[0]='start':

end
if $ARGS[0]='prs':
    cls
    '<center><img src="images/pic/koncepod.jpg" ></center>'
    '"Go away please and don''t annoy me."'

    act 'Leave':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 and immediately opened it. Your hand has a eerie feeling of the presence of the old mans hands on it. Causing a chill to run down your spine.'
        'You looked at your hand and try to focus on it, to get rid of delusions.'
        'Heart pounding, like the beating wings of a bird in a snare, gradually you started to calm down. Looking at the usual architecture, the flight of stairs and the general atmosphere of the old building, began to calm you down.'

        act 'Quickly go inside':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:'Continue'




    act 'Go to the Hall':gt'koncepod1','str2x'
    act 'Go to the kitchen':gt'koncepod1','khr2x'
    act 'Go to 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 'Go to the kitchen':gt'koncepod1','khr2x'
        act 'Go to 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 'Go to the Hall':gt'koncepod1','str2x'
    act 'Corridor':gt'koncepod1','krr2x'
end


if $ARGS[0] = 'vnr2x':
	$metkaM = 'vnr2x'
	$locM = 'koncepod1'
	$metka = 'vnr2x'
	$loc = 'koncepod1'
    cls
    set minut += 5
    gs'stat'
    '<center><B><font color=maroon>Bathroom</font></B></center>'
    '<center><img src="images/lmps/ur1032.jpg" ></center>'
    'Above the washbasin hangs an <a href="exec:GT ''mirror'',''start''">oval mirror</a>.'
    if psiho = 2 and psihb = 1 and psihc = 0 and psi1day = 0:dynamic $pavser4

	if spdirtyc > 0:
		act 'Wipe the cum off your clothes (0:10)':
			cla
			*clr
			cumspclnt = 6
			gs 'cum_cleanup'
			minut += 10

			'You wipe the cum off your clothes and thoroughly rinse out the stains with water.'

			act 'Finish':gt 'vokzaltoilet'
		end
	end

	dynamic $tampon
	dynamic $quickwash
	dynamic $basin

    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 ---------------------------------