# 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
    set minut = minut + 1
    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
    set minut = minut + 1
    pavserpsiday = daystart
    '<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 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 <<$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 '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 <<$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 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 <<$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

	if (cumloc[6] = 1 or cumloc[7] = 1):
		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 <<$set_imgh>> src="images/locations/oldtown/vacanthouse/bedroom.jpg" ></center>'
    if psiho = 1 and psi1day = 0:dynamic $pavser3
    act 'Corridor':gt'koncepod1','krr2x'
end

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