# koncepod1

if $ARGS[0]='start':

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

    act 'Leave':gt'dvor'

end

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

    if psiho = 0:
        'You stopped at the door and immediately opened it. You have the eerie feeling of the presence of the old man, causing a chill to run down your spine.'
        'You look at your hand and try to focus on it, and get rid of delusions.'
        'Heart pounding, like the beating wings of a bird in a snare, gradually you start to calm down, looking at the usual architecture, the flight of stairs and the general atmosphere of the old building helps, and you begin 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
	killvar '$locclass'
    minut += 5
    pavserpsiday = daystart
	gs 'stat'
    '<center><B><font color=maroon>Corridor</font></B></center>'
    '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/corridor.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 living room':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
    minut += 5
	$locclass = 'livingr'
    gs'stat'

    '<center><B><font color=maroon>Living Room</font></B></center>'
    '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/hall.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 'Go to the hall':gt'koncepod1','krr2x'
    end

end

if $ARGS[0]='khr2x':
    cla
    *clr
    minut += 5
	$locclass = 'kitr'
    gs'stat'
    '<center><B><font color=maroon>Kitchen</font></B></center>'
    '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/kitchen.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 living room':gt'koncepod1','str2x'
    act 'Go to the hall':gt'koncepod1','krr2x'
end


if $ARGS[0] = 'vnr2x':
	$metkaM = 'vnr2x'
	$locM = 'koncepod1'
	$metka = 'vnr2x'
	$loc = 'koncepod1'
    cls
    minut += 5
    gs'stat'
    '<center><B><font color=maroon>Bathroom</font></B></center>'
    '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/bathroom.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

	act 'Go to the hall':gt'koncepod1','krr2x'
	
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $removepan
end

if $ARGS[0]='bdr2x':
    cla
    *clr
    minut += 5
	$location_type = 'private'
	$locclass = 'bedr'
    gs'stat'
    '<center><B><font color=maroon>Bedroom</font></B></center>'
    '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/bedroom.jpg" ></center>'
    if psiho = 1 and psi1day = 0:dynamic $pavser3
    act 'Go to the hall':gt'koncepod1','krr2x'
end

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