version=2
@Text.show(It's an elevator.)
@Text.show(Choose floor:)
@Options.show(Fifth floor,Fourth floor,Third floor,Second floor,First floor,Basement,Quit)
	:when:First floor
		@storage.set(integer,warpspot,-4)
	:when:Second floor
		@storage.set(integer,warpspot,-9)
	:when:Third floor
		@storage.set(integer,warpspot,-14)
	:when:Fourth floor
		@storage.set(integer,warpspot,-19)
	:when:Fifth floor
		@storage.set(integer,warpspot,-24)
	:when:Basement
		@storage.set(integer,warpspot,-29)
	:when:Quit
		:end
:endwhen
@Player.Turn(1)
@Player.Move(1)
@Player.Turn(3)
@Player.Move(1)
@Player.Warp(goldenrod\mart.dat,<storage.get(integer,warpspot)>,0.1,-1,0)
@Level.Update
@Player.Move(1)
@Player.Turn(2)
@Text.show(.  .  .  .  .  .  .  .  .  .  .  .)
@sound.play(ElevatorEnd,0)
:end