[Script] Need Help With Script (FR)

I am using a level script in a FireRed Rom and can't seem to get it to work. It is supposed to activate when you enter the lower level of your house for the first time, but I can't seem to figure out the problem. When I go downstairs nothing happens... This script is below. One more note, I have a player event placed in the doorway to the outside of the house. Thanks for the help... :/

----- Script -----

#dynamic 0x800000

#org @start
checkflag 0x200
compare 0x200 0x0
if 0x0 goto @oak
compare 0x200 0x1
if 0x1 goto @end

#org @end
end

#org @oak
lock
setflag 0x200
applymovement 0x01 @oak1
preparemsg @t1
waitkeypress
applymovement 0x01 @oak2
applymovement 0xFF @player
release
end

#org @oak1
#raw 0x11
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x13
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0xFE

#org @oak2
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x10
#raw 0xFE

#org @player
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x10
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x12
#raw 0x10
#raw 0xFE

#org @t1
= Oak: [PLAYER]! My new Pokemon\njust came in! Follow me to my lab\land I'll let you have one.