XSE Drunked uncompleted

'-----------------------------
#dynamic 0x?
#org @start
setworldmapflag 0x891
compare 0x4017 0x0
if 0x1 call @naopego
compare 0x4017 0x1
if 0x1 call @naopego
compare 0x4017 0x2
if 0x1 call @naopego
compare 0x4017 0x3
if 0x1 call @pego
compare 0x4051 0x2
if 0x4 call 0x8165909
compare 0x405A 0x0
if 0x1 call 0x8165931
end

#org @naopego
setflag 0x207
hidesprite 0xB
return

#org @pego
setflag 0x206
clearflag 0x207
hidesprite 0xA
hidesprite 0x6
showsprite 0xB
return

'-----------------------------
#dynamic 0x?
#org @start
lockall
faceplayer
compare 0x4017 0x0
if 0x1 goto @donotcomplete
compare 0x4017 0x1
if 0x1 goto @needtocomplete
compare 0x4017 0x2
if 0x1 goto @goted
release
end

#org @donotcomplete
msgbox @1 0x4
closeonkeypress
applymovement 0x6 @5
waitmovement 0x0
setvar 0x4017 0x1
releaseall
end

#org @needtocomplete
msgbox @4 0x4
closeonkeypress
applymovement 0x6 @5
waitmovement 0x0
releaseall
end

#org @goted
msgbox @2 0x4
closeonkeypress
fanfare 0x105
preparemsg @3
waitmsg
waitfanfare
applymovement 0x6 @5
pause 0x30
fadescreen 0x1
removeitem 0x15D 0x1
setvar 0x4017 0x3
setvar 0x4051 0x1
setflag 0x206
clearflag 0x207
hidesprite 0xA
hidesprite 0x6
showsprite 0xB
fanfare 0x119
waitfanfare
fadescreen 0x0
releaseall
end

#org @1
= [black_fr]I'm sorry, my grandpa\ndrank too much.\pCould you help me get the remedy\nwith Prof.Oak for my grandpa?

#org @2
= [black_fr]Oh, thank you for giving me this.\nNow he will get better.

#org @3
= [red_fr][player] [black_fr]delivered Oak's Remedy.

#org @4
= [black_fr]Please, go! I need your help.

#org @5
#raw 0x1
#raw 0xFE

'-----------------------------

#dynamic 0x?
#org @start
lock
faceplayer
compare 0x4017 0x2
if 0x1 goto @bettergo
compare 0x4017 0x1
if 0x1 goto @giveamount
checkflag 0x2
if 0x1 goto 0x8169600
compare 0x4055 0x9
if 0x1 goto 0x8169903
compare 0x4055 0x8
if 0x1 goto 0x8169A6E
checkflag 0x82C
if 0x1 goto 0x81699CE
compare 0x4052 0x1
if 0x1 goto 0x8169903
compare 0x4055 0x6
if 0x1 goto 0x81698D6
compare 0x4057 0x1
if 0x4 goto 0x816961E
compare 0x4055 0x4
if 0x1 goto 0x8169614
compare 0x4055 0x3
if 0x1 goto 0x816960A
msgbox 0x818E116 0x4
release
end

#org @giveamount
msgbox @1 0x4
closeonkeypress
fanfare 0x105
preparemsg @2
waitmsg
waitfanfare
giveitem 0x15D 0x1 0x0
msgbox @3 0x4
closeonkeypress
setvar 0x4017 0x2
release
end

#org @bettergo
msgbox @3 0x4
closeonkeypress
release
end

#org @1
= [blue_fr]Oak[grey_fr]: [black_fr]Oh, the old man\nin Viridian drunked?\lI think it's better to give it to him.
#org @2
= [red_fr][player] [black_fr]received the\nOak's Remedy from Prof. Oak.
#org @3
= [blue_fr]Oak[grey_fr]: [black_fr]You better go soon.



'-----------------------------

#dynamic 0x?
#org @start
lockall
compare 0x4017 0x4
if 0x1 call @taked
compare 0x4017 0x3
if 0x1 call @donottaked
faceplayer
msgbox @4 0x4
closeonkeypress
releaseall
end

#org @taked
applymovement MOVE_PLAYER @6
waitmovement 0x0
msgbox @2 0x4
closeonkeypress
giveitem 0x16E 0x1 MSG_OBTAIN
msgbox @3 0x4
closeonkeypress
setvar 0x4051 0x2
setvar 0x4018 0x1
setvar 0x4017 0x4
release
end

#org @donottaked
applymovement MOVE_PLAYER @6
msgbox @1 0x4
closeonkeypress
waitmovement 0x0
applymovement MOVE_PLAYER @5
waitmovement 0x0
setvar 0x4057 0x2
releaseall
end

#org @1
= [black_fr]Hey, boy! Go to the Prof, Oak's Lab\nand get your Pokédex, I'll teach you\lsomething...

#org @2
= [black_fr]Now I can teach you, take this with\nyou.

#org @3
= [black_fr]If you've problem with catching, use\nit.

#org @4
= [black_fr]Can I drink more?

#org @5
#raw 0x10
#raw 0xFE

#org @6
#raw 0x1
#raw 0xFE



'---------------------
#dynamic 0x72D148
#org @start
msgbox @1 0x4
closeonkeypress
compare PLAYERFACING 0x2
if 0x1 call 0x8169882
compare PLAYERFACING 0x1
if 0x1 call 0x816988D
compare PLAYERFACING 0x4
if 0x1 call 0x81698A6
compare PLAYERFACING 0x3
if 0x1 call 0x81698B8
msgbox @2 0x4
closeonkeypress
pause 0x28
msgbox @3 0x4
closeonkeypress
applymovement 0x4 0x81A75E9
waitmovement 0x0
hidesprite 0xA
pause 0xA
hidesprite 0x9
pause 0xA
hidesprite 0xC
pause 0x19
compare PLAYERFACING 0x2
if 0x1 call 0x8169845
compare PLAYERFACING 0x1
if 0x1 call 0x8169850
compare PLAYERFACING 0x4
if 0x1 call 0x816985B
compare PLAYERFACING 0x3
if 0x1 call 0x816986D
pause 0xA
fanfare 0x13E
preparemsg @4
waitmsg
waitfanfare
msgbox @5 0x4
closeonkeypress
call 0x81A6675
setflag 0x829
special 0x181
setvar 0x407C 0x1
additem 0x4 0x5
setvar 0x4055 0x6
setvar 0x4017 0x4
setvar 0x4058 0x1
release
end

#org @1
= [blue_fr]Oak[grey_fr]: [black_fr]The old man has improved?\nI think so.\pI almost forget, here have fifteen\nPokéBalls and tree Pokédex for you,\l[blue_fr][rival][black_fr] and [red_fr]May[black_fr].

#org @2
= [black_fr]On the desk there is my invention,\nthe Pokédex!\pIt automatically records data on\nPokémon you've seen or caught.\pIt's a high-tech encyclopedia!

#org @3
= [red_fr][player][black_fr].\nTake these with you.

#org @4
= [red_fr][player] [black_fr]received fifteen Poké Balls\nand three Pokédex from Prof. Oak.

#org @5
= [blue_fr]Oak[grey_fr]: [black_fr][red_fr][player][black_fr], when you find them, give\nfive Pokéballs and one Pokédex\lfor each.