'---------------
#dynamic 0x1655ED

#org @start
lockall
setvar 0x4001 0x0 (or 0x1 / 0x2 depending on where you walk down the 3-tile-stairs)
goto 0x8165605

'---------------
#org 0x165605
setvar 0x8004 0x0
setvar 0x8005 0x2
special 0x174
textcolor 0x0
pause 0x1E
playsong 0x12E 0x0
preparemsg @1
waitmsg
pause 0x55
closeonkeypress
applymovement MOVE_PLAYER @Playerface
waitmovement 0x0
sound 0x15
applymovement MOVE_PLAYER @NoticeOak
waitmovement 0x0
pause 0x1E
showsprite 0x3
compare 0x4001 0x0 (if you walk down the stairs on the left tile)
if 0x1 call 0x81656B8
compare 0x4001 0x1 (if you walk down the stairs on the middle tile)
if 0x1 call 0x81656C3
compare 0x4001 0x2 (if you walk down the stairs on the right tile)
if 0x1 call @NewMovementIfRight (The script used to be on two tiles but I have three so I have an extra movement)
pause 0x1E
msgbox @2 MSG_KEEPOPEN
closeonkeypress
pause 0x1E
compare 0x4001 0x0
if 0x1 call 0x81656CE
compare 0x4001 0x1
if 0x1 call 0x81656E0
compare 0x4001 0x2
if 0x1 call @NewFollowIfRight (Same as above, 3 tiles instead of two so extra movement)
setdooropened 0x17 0x19 (new coordinates of the door)
doorchange
applymovement 0x3 @OakEnterDoor
applymovement MOVE_PLAYER @PlayerEnterDoor
waitmovement 0x0
setdoorclosed 0x17 0x19 (new coordinates of the door)
doorchange
setvar 0x4055 0x1
clearflag 0x2B
setvar 0x4050 0x1
setflag 0x2C
setflag 0x4001
warp 0x4 0x3 0xFF 0x6 0xC (Everything from setdoorclosed down isn't changed from vanilla but it doesn't work?)
waitstate
releaseall
end