Is there anything

Here is the script, it doesn't work right, by that I mean the flags don't work.

Did I do something wrong?

#org $startscript
lock
faceplayer
checkflag 0x1201
if 0x01 goto $wfinish
checkflag 0x1202
if 0x01 goto $ffinish
checkflag 0x1203
if 0x01 goto $tfinish
checkflag 0x1204
if 0x01 goto $mfinish
checkflag 0x1205
if 0x01 goto $sfinish
message $intro
$intro 1 = Would you like a stone?\nI will only let you choose one,\pso choose wisely.
boxset 5
compare 0x800D 0x0001
if 0x01 goto $stone1
Message $no
$no 1 = Aw, that is too bad.
boxset 6
release
end

#org $stone1
message $wstone
$wstone 1 = Would you like a\nWATER STONE?
boxset 5
compare 0x800D 0x0001
if 0x01 goto $getwater
message $fstone
$fstone 1 = Would you like a\nFIRE STONE?
boxset 5
compare 0x800D 0x0001
if 0x01 goto $getfire
message $tstone
$tstone 1 = Would you like a\nTHUNDER STONE?
boxset 5
compare 0x800D 0x0001
if 0x01 goto $getthunder
message $mstone
$mstone 1 = Would you like a\nMOON STONE?
boxset 5
compare 0x800D 0x0001
if 0x01 goto $getmoon
message $sstone
$sstone 1 = Would you like a\nSUN STONE?
boxset 5
compare 0x800D 0x0001
if 0x01 goto $getsun
message $sorry
$sorry 1 = Sorry for wasting your\ntime.
boxset6
release
end

#org $getwater
message $water
$water 1 = Here is your stone.
giveitem 97 1
boxset6
setflag 0x1201
release
end

#org $getfire
message $fire
$fire 1 = Here is your stone.
giveitem 95 1
boxset6
setflag 0x1202
release
end

#org $getthunder
message $thunder
$thunder 1 = Here is your stone.
giveitem 96 1
boxset6
setflag 0x1203
release
end

#org $getmoon
message $moon
$moon 1 = Here is your stone.
giveitem 94 1
boxset6
setflag 0x1204
release
end

#org $getsun
message $sun
$sun 1 = Here is your stone.
giveitem 93 1
boxset6
setflag 0x1205
release
end

#org $wfinish
message $wdone
$wdone 1 = We are done here.
boxset6
release
end

#org $ffinish
message $fdone
$fdone 1 = We are done here.
boxset6
release
end

#org $tfinish
message $tdone
$tdone 1 = We are done here.
boxset6
release
end

#org $mfinish
message $mdone
$mdone 1 = We are done here.
boxset6
release
end

#org $sfinish
message $sdone
$sdone 1 = We are done here.
boxset6
release
end

use xse, it's much better, newer, has more support, more features, and pokescript sucks.