/action {It seems to be locked.} {unlock $DoorType $LastDir} {movement}
/action {The %0 seems to be closed.} {/var DoorType $0;open $DoorType $LastDir} {movement}
/action {You do not have the proper key for that.} {pick $DoorType $LastDir} {movement}
/macro {kp2} {south;/var LastDir south} {movement}
/macro {kp3} {down;/var LastDir down} {movement}
/macro {kp4} {west;/var LastDir west} {movement}
/macro {kp5} {scan} {movement}
/macro {kp6} {east;/var LastDir east} {movement}
/macro {kp8} {north;/var LastDir north} {movement}
/macro {kp9} {up;/var LastDir up} {movement}
/variable {DoorType} {hatch} {movement}
/variable {LastDir} {west} {movement}