IF
	OnCreation()
	Global("RevealMap","ar2500",0)
THEN
	RESPONSE #100
		SetGlobal("RevealMap","AR2500",1)
		RevealAreaOnMap("ar1700")
		RevealAreaOnMap("ar1800")
		RevealAreaOnMap("ar2500")
		RevealAreaOnMap("ar2600")
		IncrementChapter("")
		TextScreen("SCRTXT06")
END