
SCENE 4000 aabheal
	ACTOR 1, "AEther Priest", joshTownsfolk, 21, 5, 90
	SEL 1
	POSE 21, 21, 22
	1: Welcome, young one.
	1: I see you have some solidity boots.
	1: Those are necessary in the AEther if you do not want to be pulled apart.
	MOVE 1, -100, 90
END

SCENE 4001
	THEME 0
;	MUSIC #silence
IF T4001 @free
@hehast
	TAKE I93

	TAKE I94
	TAKE I95
	TAKE I96
	TAKE I97
	TAKE I736
	TAKE I737
	IF I97 @hehast
	IF I736 @hehast
	IF I96 @hehast
	IF I95 @hehast
	IF I94 @hehast
	IF I93 @hehast
	IF I737 @hehast
GOTO EXIT
END
@free
GOTO LINK 98,0,0
END	

SCENE 4003
	THEME	0
	MUSIC	#silence
	ACTOR 1,	"null"
	GIVE I167
	GIVE I170
	GIVE I173
	GIVE I176
	TAKE I185
	GIVE I184
	GIVE I187
	GIVE I190
END

SCENE 4004
	THEME	0
	MUSIC	#silence
	ACTOR	1,	"Directory",books,	1,	5,	90
@start
	1: Right-click on me to find out where things are.
	END

@eventactorclick1

	MENU	"Armor Shop=@armorshop","Weapon Shop=@weaponshop","Helmet Shop=@helmetshop","Item Shop=@itemshop","Belt Shop=@beltshop","Ring Shop=@ringshop","More=@moremenu"
END
@moremenu
	MENU	"Boot Shop=@bootshop","Kitchens=@kitchen","Throne Room=@throneroom","Treasury=@treasury","Spell Training=@spelltraining","Weapon Training=@weapontraining","Plinko House=@plinkohouse","Exit=@end"
END

@armorshop
	1: The Armor Shop is on the lower level, in the northeast.
	WAIT 2.0
	GOTO @start
END
@weaponshop
	1: The Weapon Shop is on the lower level, in the northeast.
	WAIT 2.0
	GOTO @start
END
@helmetshop
	1: The Helmet Shop is on the lower level, in the northeast.
	WAIT 2.0
	GOTO @start
END
@itemshop
	1: The Item Shop is on the lower level, in the southwest.
	WAIT 2.0
	GOTO @start
END
@beltshop
	1: The Belt Shop is on the lower level, in the northwest.
	WAIT 2.0
	GOTO @start
END
@ringshop
	1: The Ring Shop is on the lower level, in the northwest.
	WAIT 2.0
	GOTO @start
END
@bootshop
	1: The Boot Shop is on the lower level, in the west.
	WAIT 2.0
	GOTO @start
END
@kitchen
	1: The Kitchen is on the lower level, in the north.
	WAIT 2.0
	GOTO @start
END
@throneroom
	1: The Throne Room is on the upper level, in the north.
	WAIT 2.0
	GOTO @start
END
@treasury
	1: The Treasury is on the upper level, in the northwest.
	1: The Treasury is a restricted area.
	1: Only the King can give permission to enter the Treasury.
	WAIT 2.0
	GOTO @start
END
@spelltraining
	1: The Spell Training Room is on the upper level, in the west.
	WAIT 2.0
	GOTO @start
END
@weapontraining
	1: The Weapon Training Room is on the upper level, in the northeast.
	WAIT 2.0
	GOTO @start
END
@plinkohouse
	1: The Plinko House is on the upper level, in the southwest.
	WAIT 2.0
	GOTO @start
END
@end
GOTO EXIT
END

SCENE 4005
	THEME 0
	MUSIC #nochange
STRCMP #<str.soul>, "SOUL 2044"
IF= @out
STRCMP #<str.soul>, "SOUL 2362"
IF= @out
STRCMP #<str.soul>, "SOUL 1960"
IF= @squall
STRCMP #<str.soul>, "SOUL 2063"
IF= @beta
STRCMP #<str.soul>, "SOUL 2193"
IF= @beta
STRCMP #<str.soul>, "SOUL 1861"
IF= @beta
STRCMP #<str.soul>, "SOUL 2160"
IF= @beta
STRCMP #<str.soul>, "4D357BF1"
IF= @beta
STRCMP #<str.soul>, "7142E2C5"
IF= @beta
GOTO EXIT
END
@out
GOTO LINK 98,0,0
END
@squall
GOTO LINK 14,0,0
END
@beta
GOTO LINK 13,0,0
END

SCENE 4006
	THEME	0
	MUSIC	#nochange
	ACTOR	1,	"Directory",books,	1,	5,	90
@start
	1: Right-click on me to find out where things are.
END
@eventActorClick1
	MENU	"Throne Room=@throne","Order of the Shield=@orderofshield"
END
@throne
	1: Chaotica's Throne Room is in the north of the castle.
	WAIT 2.0
GOTO @start
END
@orderofshield
	1: The Order of the Shield meets in the southwest of the castle.
	WAIT 2.0
GOTO @start
END

SCENE 4007 glimpse
END
;comment

SCENE 4008 glimpse
	#include proxbeta.txt
END

SCENE 4009 glimpse
MOVE H,5,90,1
MOVE H,40,90
WAIT 5.0
ASK 30
IF YES @fadeout
END
@fadeout
SET loop, 20

@fade

COLOR 1013
COLOR 2013
WAIT .1
SUB loop, 1
IF> @fade
BKGND check1.jpg
WAIT 0.2
GOTO EXIT
END

SCENE 4010
	THEME	0
	MUSIC	#nochange
	ACTOR	1,	"Directory",books,	1,	5,	90
	1: Welcome to the walled city of Kaelmir.
	1: Right-click on me to find out where things are.
@start
END
@eventActorClick1
	MENU	"Throne Room=@throne","Order of the Blade=@orderofblade"
END
@throne
	1: Kaelmir's king's Throne Room is in the north of the city.
	WAIT 2.0
GOTO @start
END
;@weaponshop
;	1: The Weapon Shop is in the west of the castle.
;	WAIT 2.0
;GOTO @start
;END
;@armorshop
;	1: The Armor Shop is in the west of the castle.
;	WAIT 2.0
;GOTO @start
;END
;@shieldshop
;	1: The Shield Shop is in the southwest of the castle.
;	WAIT 2.0
;GOTO @start
;END
;@helmetshop
;	1: The Helmet Shop is in the southeast of the castle.
;	WAIT 2.0
;GOTO @start
;END
;@ringshop
;	1: The Ring Shop is in the northwest of the castle.
;	WAIT 2.0
;GOTO @start
;END
;@bootshop
;	1: The Boot Shop is in the east of the castle.
;	WAIT 2.0
;GOTO @start
;END
;@beltshop
;	1: The Belt Shop is in the east of the castle.
;	WAIT 2.0
;GOTO @start
;END
@orderofblade
	1: The Order of the Blade meets in the northeast of the city.
	WAIT 2.0
GOTO @start
END


;anti-smiteness comment: