i ALWAYS scripted that way!u want more proof?heres a JUMBO LOAD
#org $up
setvar 0x4001 0x0000
goto $main
#org $down
setvar 0x4001 0x0001
goto $main
#org $main
jingle
playsound 0x13B
#raw 0x33
applymovement 1 $walk
$walk 1 ; #binary 0x13 0x13 0x13 0x13 0x13 0xFE
pausemove 0x0000
compare 0x4001 0x0001
if 0x01 call $right2
applymovement 1 $r
$r 1 ; #binary 0x13 0x13 0x13 0xFE
pausemove 0x0000
message $talk
$talk 1 = \v\h06: \v\h01!\pSomehow I knew you would be here!\pIt's a mysterious place, isn't it?\pIt's perfect for a pokémon battle,\ndon't you think?
boxset 5
compare 0x800D 0x0001
if 0x00 call $no
message $yes
$yes 1 = I'm glad you agree!\pNow we'll have the showdown of the\ncentury!
boxset 6
trainerbattle 0x03 0x0001 $win
$win 1 = No! I cannot believe I lost!
message $afterwards
$afterwards 1 = Why did I lose?\pMy plan was perfect\hb0\pI raised my Pokémon carefully with\nall of the most powerful moves they\lcould learn, and yet I still lost\hb0\pI cannot accept this.\p\v\h01! It's time I show you\nmy real power!\pHere it comes!
boxset 6
trainerbattle 0x09 0x0002 $win111 $lose
$win111 1 = \v\h06: Holy crud!\pHow the heck could you possibly\ndefeat me?!
$lose 1 = I thought so\hb0
message $again
$again 1 = WHY?!?!\pHOW DO YOU DO THAT?!?!
boxset 6
message $oak
$oak 1 = ???: It's because of \v\h01's\nbond with Pokémon.
boxset 6
playsound 0x0159
#raw 0x33
applymovement 0xFF $look
applymovement 1 $look
$look 1 ; #binary 0x03 0xFE
pausemove 0x0000
clearflag 0x120A
showsprite 2
applymovement 2 $come
$come 1 ; #binary 0x12 0x12 0x12 0x12 0x12 0x12 0xFE
pausemove 0x0000
message $oaktalk
$oaktalk 1 = Oak:\c\h01\h03 The bond between humans and\nPokémon is a deep profound bond that\limpacts a trainer.\pTrainers and pokémon must be friends for\nthe world to function.\pThat is why we work together.\p\v\h01.\pYou are worthy of the pokémon league\nbadges!
boxset 6
message $badges
$badges 1 = \c\h06Á\c\h01\h02\v\h01 recieved the League\nBadges from Professor Oak!\c\h17\c\h0BÇÀ\c\h08\n\c\h08[Ke]\c\h18\c\h08[Ke]\c[&H18]
boxset 6
setflag 0x821
setflag 0x822
setflag 0x823
setflag 0x824
setflag 0x825
setflag 0x826
setflag 0x827
setflag 0x820
message $finished
$finished 1 = Now then, would you like a Pokémon?
boxset 5
compare 0x800D 0x0001
if 0x00 call $noooo
message $okay
$okay 1 = her u go!!! xD :)
boxset 6
givepokemon 151 100 0x01
fanfare 0x13E
message $poke!
$poke! 1 = \v\h01 received a Mew\nfrom Prof. Oak!
boxset 4
waitfanfare
applymovement 0xFF $lor
$lor 1 ; #binary 0x02 0xFE
pausemove 0x0000
message $bye
$bye 1 = \v\h06: Well screw you, professor!\pI'm getting out of here you n00bz.\pl8tr
boxset 6
playsound 0x13C
#raw 0x33
applymovement 1 $getout
$getout 1 ; #binary 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0xFE
pausemove 0x0000
removesprite 1
setflag 0x120B
fadesound
applymovement 0xFF $look
pausemove 0x0000
message $yeee
$yeee 1 = What else is there to show with\nscripting?\pGiving items?\pYEah, that's right.\pSo do you want an item or something?
boxset 5
compare 0x800D 0x0001
if 0x00 call $yno
giveitem 0x01 99
message $10q
$10q 1 = thnxz foullumpppp1!\pFoullump:\c\h01\h06 You're welcome, Professor.\c\h01\h01\pOak: Hey! make my text blue again, yeah?\pFoullump:\c\h01\h06 Aww man, oak, come on.\pI'm tired of this and I just want to\nfinish\hb0\pOkay then.\p\c\h01\h04Thanks, foull--- HEY!\nTHIS ISN'T BLUE!!!!\PTHIS IS RED!!!\p\c\h01\h06foul: Holy crud shut the heck up,\noak, I'm sick of your complaining.\pI'll kill you if you don't be quiet.\p\c\h01\h04Oak: NO U SHUT UP U PIECE OF\NCRUD!\FOULLUMP IS A STUPID LITTLE PIECE\nOF CR---
boxset 6
removesprite 2
setflag 0x120A
#raw 0x2F 0x15 0x00
pause 0x40
message $foul
$foul 1 = Foullump:\c\h01\h06 Owned.\pThat's what you get for messing with\nthe hacker. In fact\hb0\p\v\h06, get over here!
boxset 6
clearflag 0x120C
showsprite 3
pause 0x40
message $foul2
$foul2 1 = \c\h01\h06Hi.
boxset 6
setflag 0x120C
removesprite 3
message $foullast
$foullast 1 = \c\h01\h06Okay, I'm tired of this\hb0\p\v\h01, get the heck out\nof here!\pGo fight the pokémon league or\nsomething. I don't care.\pJust go away.\p\hb0\p\hb0\pWhy are you still here?\pWhat do you want?\pMASTER BALLS? TAKE THEM!
boxset 6
giveitem 0x01 99
giveitem 0x01 99
giveitem 0x01 99
message $doog
$doog 1 = \c\h01\h06There! There's your master balls!\pNow go away!\p\hb0\pHoly crud!\pGO AWAY!\pWhat, you want to battle?\pIs that it?\pHuh?\pFine! I'll kill you!
boxset 6
setvar 0x6001 0x0001
trainerbattle 0x03 0x0003 $winnn
$winnn 1 = okay, seriously, if you won that\nbattle you're a cheater.
release
end
#org $no
message $poop
$poop 1 = No? You're an idiot!
boxset 6
return
#org $yno
message $ehhhh
$ehhhh 1 = Listen, kid.\pSince you said no, I'm required\nby foullump to say something, I'm tired,\lhe's tired, and the person watching the\ltutorial is probably crying by now because\lthere's so much crap to write.\pSo just take the dang item!\pPLEASE!\pHelp me foullump!
boxset 6
return
#org $noooo
message $meh
$meh 1 = You don't?!\pDon't be a retard and take the Pokémon!\pI don't care, you're getting it anyways!
boxset 6
return
#org $right2
applymovement 1 $ru
$ru 1 ; #binary 0x11 0xFE
pausemove 0x0000
return
>:) HOW BOUT THAT?