View Single Post
  #60    
Old July 27th, 2010 (06:43 PM). Edited August 2nd, 2010 by Kevin.
Kevin's Avatar
Kevin
kevin del rey
Community Supporter
 
Join Date: Jul 2010
Location: Virginia
Age: 16
Gender: Male
IM Address: [email protected] (You have it.)
Name: Destiny Demon
Position: Scripting. I dunno what you mean by limited but here it is:
Proof of Work:
Spoiler:
#dynamic 0x800730

#org @start
msgbox @1 msg_normal
applymovement 0xFF @move
waitmovement 0x0
msgbox @2 msg_normal
applymovement 0x3 @move0
waitmovement 0x0
msgbox @3 msg_normal
applymovement 0x1 @move1
waitmovement 0x0
msgbox @4 msg_normal
call @pokemon
msgbox @5 msg_normal
call @pokedex
msgbox @6 msg_normal
setvar 0x7000 0x1
release
end

#org @1
= [red_fr]Oh! \v\h01! Come here!

#org @2
= [red_fr]Ms. Jenna: Alright, \v\h01. It was\na pleasure to have you in my\lclass.\pNow, I have this special\nPok\h1Bmon to give you. Its name\lis Gible.]

#org @3
= [red_fr]What? That isn't fair! I thought\nwe would have a choice of three\lPok\h1Bmon!\p[blue_fr]Yeah! Me too!\pYeah!

#org @4
= [red_fr]Ms. Jenna: Do you want to get\nattacked by my Quick Claw?\p[blue_fr]N-no ma'm!\p[red_fr]Ms. Jenna: Okay then.\pAnyways, \v\h01, here is your\nGible. It came from the Sinnoh\lregion. Take good care of it.

#org @5
= [red_fr]Ms. Jenna: Oh! And here is a\nPok\h1Bdex! Every Pok\h1Bmon\ltrainer has to have one!

#org @6
= [red_fr]Well, it was a pleasure to have\nyou in my class, \v\h01.\pEnjoy your adventure! Bye!

#org @pokemon
givepokemon 0x93 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox @7 msg_keepopen
waitfanfare
closeonkeypress
setflag 0x828
msgbox @8 msg_yesno
compare LASTRESULT 0x1
if 0x1 gosub @name
return

#org @name
call 0x1A74EB
return

#org @7
= [black_fr]\v\h01 recieved a Gible!

#org @8
= [black_fr]Would you like to give a nickname\nto Gible?

#org @pokedex
setflag 0x829
fanfare 0x13E
msgbox @9 msg_keepopen
waitfanfare
closeonkeypress
return

#org @9
= [black_fr]\v\h01 recieved a Pok\h1Bdex!

#org @move
#raw 0x13
#raw 0x13
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0x11
#raw 0xFE

#org @move0
#raw 0x62
#raw 0xFE

#org @move1
#raw 0x62
#raw 0xFE

Yeah, it's a level script for this hack. It works perfectly. =P