Code:
#org $start
[B]lock
faceplayer[/B]
checkflag 0x828
if b_true goto $done
message $1
boxset 5
compare LASTRESULT 0x1
if b_true goto $take
message $2
boxset 6
release
end
#org $take
givepokemon 133 5 0
fanfare 0x13E
message $3
boxset 4
waitfanfare
#raw 0x68
setflag 0x828
message $4
boxset 5
compare LASTRESULT 0x1
if b_true gosub $name
message $5
boxset 6
release
end
#org $name
call 0x1A74EB
return
#org $done
message $6
boxset 6
release
end
#org $1
$1 1 =AID: I'm sorry, PROF. PINE isn't\nhere right now.\p...Oh, so you need a POKeMON to travel with?\pHere, you can have\nthis POKeMON we study in the lab.\pTake the POKeMON?
#org $2
$2 1 =AID: Well if you change your mind let me know.
#org $3
$3 1 =\c\h01\h02You received an EEVEE!
#org $4
$4 1 =\c\h01\h02Would you like to rename EEVEE?
#org $5
$5 1 =We have been monitering\nEEVEE's evolution patterns.\lWe have plenty of them in the\nso this one is probably\lbetter off with you.
#org $6
$6 1 =How is EEVEE doing?
I'm having some problems with this script here. Everything seems to work, he says everything and you get the Eevee, but when you go to give it a nickname it has missingno's icon with ?'s for the name where is should have Eevee's icon and name.
But when you look through the start menu and everything you have a Eevee, only during renaming process.
Also after you rename you seem to have an identity crisis and switch places/sprites with the aid. (until you walk into a new map, then you go back to normal)