# koncepod1 if $ARGS[0]='start': end if $ARGS[0]='prs': cls '
> src="images/locations/oldtown/vacanthouse/koncepod.jpg" >
' '"Go away please and don''t annoy me."' act 'Leave':gt'dvor' end if $ARGS[0]='krr2x1': cla *clr minut += 5 gs'stat' '
Stairs
' '
> src="images/locations/oldtown/vacanthouse/koncepod3.jpg" >
' 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' '
Corridor
' '
> src="images/locations/oldtown/vacanthouse/corridor.jpg" >
' 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 'OUTSIDE': cls if $clothingworntype ! 'nude': xgt'dvor' elseif $clothingworntype = 'nude': 'You need to get dressed.' xgt $curloc end end end end if $ARGS[0]='str2x': cla *clr minut += 5 $locclass = 'livingr' gs'stat' '
Living Room
' '
> src="images/locations/oldtown/vacanthouse/hall.jpg" >
' 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' '
Kitchen
' '
> src="images/locations/oldtown/vacanthouse/kitchen.jpg" >
' 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' '
Bathroom
' '
> src="images/locations/oldtown/vacanthouse/bathroom.jpg" >
' 'Above the washbasin hangs an oval mirror.' 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' '
Bedroom
' '
> src="images/locations/oldtown/vacanthouse/bedroom.jpg" >
' if psiho = 1 and psi1day = 0:dynamic $pavser3 act 'Go to the hall':gt'koncepod1','krr2x' end --- koncepod1 ---------------------------------