#org 0x816D54E
#dyn 0x740000
'-----------------------------------
lock
setvar 0x8004 0x6
setvar 0x8005 0x2
special FAME_CHECKER_NEW
checkflag 0x8740517
if 0x1 jump :end
copyvarifnotzero 0x8000 HM03
copyvarifnotzero 0x8001 1
callstd MSG_OBTAIN
setflag 0x8740517
trainerbattle 0x1 0x1A2 0x0 0x819832E 0x8198444 0x816D580
checkflag 0x259
if false jump 0x816D5A6 ' Flag is unset
msgbox 0x8198481 ' When afflicted by TO...
callstd MSG_NOCLOSE ' Non-closing message
release
     ' Release commands close any open messages

#org 0x816D580
'-----------------------------------
setvar 0x8004 0x6
setvar 0x8005 0x1
special FAME_CHECKER
clearflag 0x9F
setflag 0x4B4
setflag FR_BADGE_5
setvar 0x8008 0x5
call 0x81A6B18
jump 0x816D5A6

#org 0x81A6B18
'-----------------------------------
copyvar 0x8000 0x8008
compare 0x8000 0x1
if == jump 0x81A6B76 ' Equal To
compare 0x8000 0x2
if == jump 0x81A6B7A ' Equal To
compare 0x8000 0x3
if == jump 0x81A6B81 ' Equal To
compare 0x8000 0x4
if == jump 0x81A6B8B ' Equal To
compare 0x8000 0x5
if == jump 0x81A6BA1 ' Equal To
compare 0x8000 0x6
if == jump 0x81A6BB4 ' Equal To
compare 0x8000 0x7
if == jump 0x81A6BCA ' Equal To
compare 0x8000 0x8
if == jump 0x81A6BE0 ' Equal To
release
end

#org 0x81A6B76
'-----------------------------------
cleartrainerflag 0x8E
return

#org 0x816D5A6
'-----------------------------------
msgbox 0x819850E ' Now that you have th...
callstd MSG_NOCLOSE ' Non-closing message
checkitemspaceinbag TM06 1
compare LASTRESULT 0x0
if == jump 0x816D5E7 ' Equal To
additem TM06 1
msgbox 0x819858F ' \v\h01 received TM06...
copyvarifnotzero 0x8000 TM06
copyvarifnotzero 0x8001 0x1
copyvarifnotzero 0x8002 0x101
callstd MSG_ITEM ' Shows a message, then... 'Player put the HM03 in the TM CASE!'
setflag 0x259
msgbox 0x81985AB ' Sealed within that T...
callstd MSG_NOCLOSE ' Non-closing message
release
     ' Release commands close any open messages
end

#org 0x816D5E7
'-----------------------------------
msgbox 0x819860D ' Make space for this,...
callstd MSG_NOCLOSE ' Non-closing message
release
     ' Release commands close any open messages
end

#org 0x81A6B7A
'-----------------------------------
cleartrainerflag 0x96
cleartrainerflag 0xEA
return

#org 0x81A6B81
'-----------------------------------
cleartrainerflag 0x8D
cleartrainerflag 0xDC
cleartrainerflag 0x1A7
return

#org 0x81A6B8B
'-----------------------------------
cleartrainerflag 0x84
cleartrainerflag 0x85
cleartrainerflag 0xA0
cleartrainerflag 0x109
cleartrainerflag 0x10A
cleartrainerflag 0x10B
cleartrainerflag 0x192
return

#org 0x81A6BA1
'-----------------------------------
cleartrainerflag 0x126
cleartrainerflag 0x127
cleartrainerflag 0x120
cleartrainerflag 0x121
cleartrainerflag 0x124
cleartrainerflag 0x125
return

#org 0x81A6BB4
'-----------------------------------
cleartrainerflag 0x118
cleartrainerflag 0x119
cleartrainerflag 0x11A
cleartrainerflag 0x11B
cleartrainerflag 0x1CE
cleartrainerflag 0x1CF
cleartrainerflag 0x1D0
return

#org 0x81A6BCA
'-----------------------------------
cleartrainerflag 0xB1
cleartrainerflag 0xB2
cleartrainerflag 0xB3
cleartrainerflag 0xB4
cleartrainerflag 0xD5
cleartrainerflag 0xD6
cleartrainerflag 0xD7
return

#org 0x81A6BE0
'-----------------------------------
cleartrainerflag 0x128
cleartrainerflag 0x129
cleartrainerflag 0x142
cleartrainerflag 0x143
cleartrainerflag 0x144
cleartrainerflag 0x188
cleartrainerflag 0x190
cleartrainerflag 0x191
return


#org 0x819832E
= MEL: Hi! Are you going to\pchallenge me? You need that HM\nto get out of here.\pLet's fight!\c\h0B\h56\h01

#org 0x8198444
= You were great!\nYou have proven your worth!\pHere!\nTake the SOULBADGE!

#org 0x8198481
= When afflicted by TOXIC, a POK\eMON\nsuffers more and more.\pIt suffers worsening damage as the\nbattle wears on!\pIt will surely terrorize foes!

#org 0x819850E
= Now that you have the SOULBADGE,\nthe DEFENSE of your POK\eMON rises.\pIt also lets you SURF outside of\nbattle.\pAh!\nTake this, too!

#org 0x819858F
= \v\h01 received TM06\nfrom MEL.

#org 0x81985AB
= Sealed within that TM06 lies\nTOXIC!\pIt is a secret technique dating\nback some four hundred years.

#org 0x819860D
= Make space for this, child!
#org @start