#org $begin
lock
faceplayer
checkflag 0x232
if B_true goto $gotit
message $givetyrogue
boxset 6
message $gottyrogue
boxset 6
givepokemon 236 1 0
message $NameTyrogue
boxset5
setflag 0x232
setflag 0x828
release
end
#org $gotit
message $hi
boxset 6
release
end
#org $hi
$hi 1 = You can keep that TYROGUE! Really!
#org $givetyrogue
$givetyrogue 1 = Hey, 'haven't seen you around before.\nYou're new to the Kaikon Region?\p................\n................\pNice to meet you! I'm KENNETH!\nYou don't have any Pokémon, do you?\pHere, take this TYROGUE. Use it to get to\nthe next town, where you can buy\pPokéballs to catch your own!
#org $gottyrogue
$gottyrogue 1 = KENNETH gave you a TYROGUE!
message $NameTyrogue
$NameTyrogue 1 = Do you want to give\nthe Tyrogue a nickname?
boxset 5
compare LASTRESULT 1
if b_False goto $seeya
Namepokemon
setflag 0x203
message $seeya
$seeya 1 = Good luck! I'll see you around!
release
end