Title Screen:
-Ruby:
-FireRed:
For XSE :
#dynamic 0x800000
#org @start
checkflag 0x802
if 0x1 goto @end
lockall
special 0x113
applymovement 0x7F @mirarmalos
waitmovement 0x0
msgbox @insistimos 0x6
applymovement 0x0F @unlado
applymovement 0xFF @chismear
waitmovement 0x0
msgbox @quieneres 0x6
applymovement 0x03 @rivalviene
waitmovement 0x0
msgbox @batalla 0x6
trainerbattle 0x1 0x23F 0x0 @before @after @later
end
#org @later
lockall
msgbox @perdimos 0x6
applymovement 0x0E @rocketchau1
applymovement 0x0F @rocketchau2
applymovement 0x10 @rocketchau3
waitmovement 0x0
hidesprite 0xE
hidesprite 0xF
hidesprite 0x10
msgbox @rivalirse 0x6
applymovement 0x03 @rivalchau
waitmovement 0x0
hidesprite 0x3
msgbox @arqueologo 0x6
applymovement 0x11 @adios
waitmovement 0x0
hidesprite 0x11
special 0x114
setflag 0x802
releaseall
end
#org @end
releaseall
end
#org @mirarmalos
#raw 0x16 0x16 0x16 0x16 0x16 0x18 0x18 0x16 0x16 0x16 0x16 0x16 0xFE
#org @insistimos
= Rocket 1: Dinoslo ya arqueologo!\nArqueologo: Jamas lo hare!\pRocket 2: Tenemos que tomar\nmedidas mas drasticas!\pRocket 3: Esperen!...\nCreo que alguien vine!
#org @unlado
#raw 0x15 0x16 0xFE
#org @chismear
#raw 0x16 0x16 0x16 0x16 0x16 0x18 0x18 0x16 0x16 0x16 0x16 0x16 0xFE
#org @quieneres
= Rocket 3: Y tu quien eres!?\nArqueologo= Quien eres niño?!\p\v\h01: He venido a ayudarlo!\nRocket 1: Haha! Ni lo creas!\pRocket 2: Ni lo sueñes!\nTe derrotaremos ahurita mismo!\p???: ALTO!
#org @rivalviene
#raw 0x18 0x18 0x18 0x18 0x18 0x18 0x15 0x15 0x18 0x15 0x15 0x18 0x18 0xFE
#org @batalla
= Rocket 2: Tu quien rayos eres!?\n???: Soy \v\h06, he venido\pporque escuche gritos.\nVengo en su ayuda.\pRocket 3: Veamos que tienen!
#org @before
= Rocket 2: Veamos que tienes chico!
#org @after
= Rocket 2: Esto no es posible!
#org @perdimos
= Rocket's: Esto no puede ser posible!\nUnos niños nos han ganado\pEs mejor que nos vayamos\nPero no nos rendiremos.
#org @rocketchau1
#raw 0x16 0x17 0x17 0x17 0x17 0x16 0x17 0x17 0x17 0x17 0x17 0x17 0xFE
#org @rocketchau2
#raw 0x16 0x16 0x17 0x17 0x17 0x17 0x16 0x17 0x17 0x17 0x17 0x17 0x17 0xFE
#org @rocketchau3
#raw 0x16 0x16 0x16 0x17 0x17 0x17 0x17 0x16 0x17 0x17 0x17 0x17 0x17 0x17 0xFE
#org @rivalirse
= \v\h06: Debo irme, creo que\neres un buen entrenador\p\v\h01, ya nos veremos de nuevo.\nHasta luego.
#org @rivalchau
#raw 0x16 0x16 0x16 0x17 0x17 0x17 0x17 0x16 0x17 0x17 0x17 0x17 0x17 0x17 0xFE
#org @arqueologo
= Arqueologo: Gracias por todo.\nDejame agradecerte con\neste objeto.\p\v\h01 recibio el POKENAV!\p\v\h01: Gracias, pero\nque querian esos tipos?\nArqueologo: Pues, no es nada,\pno puedo decirtelo.\nDe repente nos vemos de nuevo.\pDebo irme, adios.
#org @adios
#raw 0x16 0x17 0x17 0x17 0x17 0x16 0x17 0x17 0x17 0x17 0x17 0x17 0xFE
The script is long, it is from a hack that i WAS doing. ^^
First appears a movecamera, then you move to where the bad guys are, then your
rival appears, then you battle one bad guy, after you win they leave and you receive the PokeNav.
And for PokeScript :
#org $tut1
lock
faceplayer
message $hi
$hi 1 = Hi bud, are you ok?
boxset 5
compare LASTRESULT 1
if 1 goto $yes
message $bad
$bad 1 = You are not ok!? Well, just take this\p I dont like talking with\n guys like you!
boxset 6
release
end
#org $yes
message $good
$good 1 = Oh! You are ok!\n That's fantastic, let me\p give you this\n \v\h01 received a CHARMANDER!
boxset 6
givepokemon 4 5 0
message $namechar
$namechar 1 = You want to name Charmander?
boxset 5
compare LASTRESULT 1
if 1 gosub $namepoke
message $goodluck
$goodluck 1 = Good luck bud!\n I will leave now.
boxset 6
#raw 0x53 0x0F 0x80
setflag 0x200
boxset 6
release
end
#org $namepoke
fadescreen 0x01
special 0x009E
#raw 0x27
return
This just asks you yes/no, if you put yes you receive a pokemon then name it
if you want and then the guy dissappears.
I know this is not as complex as the other one but is one of the bests i had
made. ^^