Scripting Competition!

Started by Incineroar July 14th, 2011 3:48 PM
  • 4363 views
  • 26 replies

Shiny Quagsire

I'm Still Alive, Elsewhere

Age 25
Male
Hoenn Safari Zone
Seen August 7th, 2020
Posted April 17th, 2017
697 posts
14 Years
I think I'll whip up a script for my hack and this. Two questions:

1. Does the script have to be vanilla scripted, AKA, no custom ASM or specials (JPAN's engine)
2. If it can be custom, do we need to post the ASM?

UnderMybrella

Wandering Programmer

Non-binary
Australia
Seen February 7th, 2022
Posted July 12th, 2015
280 posts
12.4 Years
YEAH!!!!Note: This is for RMXP, with eventing. I breifly know what each thing does. Unfortunately I gave up hacking a few months ago, I was pretty decent at thet. Incidently, this is a computer event.
Spoiler:

Conditional branch: Account_Created==OFF
Text: To operate this computer, you need to pay $50. Would you like to pay this amount?
Show Choices: Yes, No.
When[Yes]
Conditional branch: Gold 50 or more.
Change Gold:-50
Text: Player payed $50 to turn the computer on.
Play SE: '006-System06',100,100.

Label: What to do.

Text: What would you like to do?
Show Choices: Make an account, Browse the Internet, Download Apps to Phone, Shutdown.
When[Make an account]
Conditional Branch:Account_Created==ON
Text: Account Already Created.
Jump to label: What to do.
Else:
Text: Making an account cost $1000. Would you like to create an account?
Show Choices: Yes, No.
When[Yes]
Conditional Branch: Gold 1000 or more.
Control Switches: Account_Created ON
Gold-1000
Text: Account successfully created!
Jump to label: What to do.
Else
Text: You don't have enough money...
When[No]
Jump to label: What to do.
When[Browse the Internet]
Which website would you like to access?
Show Choices: Ebay.com, RMXP.com.au, Google.com, Page 2.


When[Ebay]

Text: What Would you like?
Show Choices: A New Phone, A Laptop, Pokeball Bonanza, Nothing.

When[A New Phone]

Label: Bid Phone
Text: The minimum Bid is $100. How much would you like to bid?
Control Variables:Player's_Gold==Gold.
Input Number: Player Bid, 3 digit(s)
Conditional Branch: Player bid<100
Text: Sorry, that is not a valid bet...
Jump to label: Bid Phone
Else
Conditional BranchPlayer Gold>=Player Bid.
Control Variables:Enemy Bid = Random no. (100...998)
Conditional Branch Player Bid>=Enemy Bid.
Change Gold:- Variable[Player Bid]
Control variables Player Bid = 0
Text: Congratulations! You won!
Jump to label: What to do.

Else

Text: Sorry, you lost....
Jump to label: What to do.
Else:
Text: You don't have enough money....
Jump to label: Bid Phone.

When [A Laptop]

Label:Bid Laptop
Text: The minimum Bid is $500. How much would you like to bid?
Control Variables:Player's_Gold==Gold.
Input Number: Player Bid, 4 digit(s)
Conditional Branch: Player bid<500
Text: Sorry, that is not a valid bet...
Jump to label: Bid Laptop.
Else
Conditional Branch:Player Gold>=Player Bid.
Control Variables:Enemy Bid = Random no. (100...998)
Conditional Branch:Player Bid>=Enemy Bid.
Change Gold:- Variable[Player Bid]
Change variable:Player Bid = 0
Text: Congratulations! You won!
Jump to label: What to do

Else
Text: Sorry, you lost....
Jump to label: What to do
Else:
Text: You don't have enough money....
Jump to label: Bid Laptop.

When[Pokeball Bonanza]
Text: For $20000, you can have 2 of every Pokeball. Would you like to buy it?
Show Choices: Yes, No.
When[Yes]
Control Variables: Player Gold = Gold
Conditional Branch PlayerGold>=20000
Change Gold: -20000
Text: You bought it!
Jump to label: What to do.
Else
You don't have enough money...
Jump to label: What to do.

When[Nothing]

Jump to label: What to do.

When[RMPX.com.au]

Text:RPG Maker XP( or RMXP for short) is a program used
to make RPG games on a computer. It will not work on
all computers, due to provider (Windows, Apple, Linux)
and the version your running (Win7, WinXP,OS X, etc).
Many games have been made
using Enterbrain's software,
costing $30. Hope you buy it!
Anglican.

When[Google.com]
Text: 404 Error!
Jump to label: What to do.

When[Page 2]

Show Choices: Abimon.yolasite.com, Abidex.com.Abimon, Close the Internet.

When[Abimon.yolasite.com]

Text:Check out this website online for a walkthrough and a few hints, as well as chatting with the Developer!(Note: This is not online yet!)

When[Abidex.com.Abimon]
Text:This domain is for sale
Jump to label: What to do

When[Close the Internet]
Jump to label: What to do.

When[download Apps to phone]
Text: Would you like to download the App Store?
Show Choices: Yes, No
When[Yes]
Conditional Branch: App Store Downloaded== OFF
Control Switches: App Store Downloaded On
Text: You downloaded the App Store!
Jump to label: What to do.

When[No]

Text: You didn't download the App store...
Jump to label: What to do.

When [Shutdown]

Text: Player turned off the computer.

Else
Text: You don't have enough money...


When[No]


Else
Player turned the computer on.
Jump to label: What to do.


Event Commands Used.

Spoiler:
Text: Most Basic of commands. Used to Display Text.

Show Choices: Does what the name says. Using this command will display choices and will execute certain things when a choice is chosen ingame.

Input Number: Select a variable and a number of digits, maybe 3. Eg. I chose Player Bid and three digits. When plyaing the game, I will be asked for a 3 digit number, Eg.001, 155 etc. The number is then stored in the variable chosen.

Conditional Branch:This command is pretty basic and I use it alot. It can check something, Eg. Is a script valid?, is a switch active?, is this variable greater than this one? etc. Using this can prevent a Player from entering a house after 2 days, after this is bought you can go here. In Pokemon games, you could use this for a cut event. when the player has a pokemon with cut, do this, if not, do this.

Call Common Event: Although it doesn't say it, this event is actually a common event in my game. This means I store it in a special place and I make it like any other event, without using triggers. By using this event and selecting the common event name(this one's called computer.?_?), and by setting the triggers, I have this event. Common Events are mainly used for long and complicated events(like this one) that are going to be used alot.

Label & Jump To Label: These are kinda important. Labels are places in an event you want to come back to if the player does something(like says in the intro, when Oak asks "So your a boy?"
and you answer no, there would be a label with Gender above" are you a boy, or a girl?".) Jump to labe would then be used under Show Choices: Yes, no. When [No] Jump To label: Gender.

The Controls: These are Control switches, control variables and control selfswitch.
Switches: Lets you switch switches on and off
Variables: Lets you Set, add to, subtract from, multiply by, divide by and mod(??) variables. You have alot of ways to se bnt the number including, but not limited to, a constant, a random number between ? and ?, Gold, etc
Self switches: Set selfwitches on and off. You only have 4 and they apply only to one event.

Change Gold: There are a few change command, but I only use 1, Change gold. this will, basically, change your gold. It will either add or subtract from your current gold. You can use a variable to set the number or it can be a constant number.

Play SE: i think SE means Sound Effect, so that means.... this plays a sound effect. You can set the volume and pitch.

EDIT: ARRH!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! STUPID RMXP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! For some reason, stupid RMXP is BYPASSING part of my event!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! So unless you will accept only the text, this entry will have to be cancelled.



with regards to my script, I just need to tweak it a bit and it should work.
And, has no-one else has entered?!?!?!?

The Void

hiiiii

Male
MOTHA RUSSIA
Seen May 29th, 2019
Posted August 9th, 2015
1,416 posts
13 Years
Yay! A scripting contest! *gladly joins*

Video:


Script:
Spoiler:
#org 0x874092B
'-----------------------------------
special INIT_STEPCOUNT
compare LASTRESULT 0x2
if == jump 0x81A7AE0 ' Equal To
special GET_STEPCOUNT
lock
faceplayer
message 0x8740993 ' BRENDAN: I see you m...
callstd MSG_LOCK ' Built-in lock command
checksound
cry NIDOKING 0x2
waitcry
pause 0x14
playsound 0x2 0x2
battle NIDOKING 75 NONE
setflag 0x807
special BATTLE_PIXELLATE
waitspecial
clearflag 0x807
special2 LASTRESULT 0xB4
compare LASTRESULT 0x1
if == jump 0x8162558 ' Equal To
compare LASTRESULT 0x4
if == jump 0x8162561 ' Equal To
compare LASTRESULT 0x5
if == jump 0x8162561 ' Equal To
setflag 0x200
setvar 0x6001 0x1
release
end

#org 0x81A7AE0
'-----------------------------------
release
end

#org 0x8162558
'-----------------------------------
setflag 0x2BC
jump 0x81A922D

#org 0x81A922D
'-----------------------------------
fadescreen FADEOUT_BLACK
disappear 0x3
setflag 0x56
disappear 0x197
disappear 0x3
setflag 0x56
disappear 0x13
setflag 0x55
fadescreen FADEIN_BLACK
storepokemon 0x0 0x8004
release
' Release commands close any open messages
end

#org 0x8162561
'-----------------------------------
setvar 0x8004 0x96
jump 0x81A9236

#org 0x81A9236
'-----------------------------------
fadescreen FADEOUT_BLACK
disappear 0x3
setflag 0x56
disappear 0x13
setflag 0x55
fadescreen FADEIN_BLACK
storepokemon 0x0 0x8004
msgbox 0x81A63C4 ' BRENDAN: Alright!\nW...
callstd MSG_NOCLOSE ' Non-closing message
release
' Release commands close any open messages
end


#org 0x8740993
= BRENDAN: I see you made it \v\h01. \pDIALGA and PALKIA have already\nawakened. \pI'll battle DIALGA and you take PALKIA.\nLet's go!


What does this script do?
Displays one message and engages the player into a battle against Nidoking, with whom I replaced with Dialga's sprites and stats.
Όφις ην μη φάγη όφιν, δράκων ου γενήσεται.

Cutlerine

Gone. May or may not return.

Age 29
The Misspelled Cyrpt
Seen March 15th, 2014
Posted November 15th, 2013
1,030 posts
13.2 Years
Might I be so bold as to inquire when the deadline for submissions for this contest is? I'd like to participate, but couldn't find that information in the first post.
Male
Seen November 17th, 2019
Posted January 14th, 2012
181 posts
13 Years
This is my entry (I know, the video quality is low). The ROM used is pokemon Wood, my hack, which is based on Pokemon Blue.
Video:


Code:
Don't steal, please.
Spoiler:
Map01_Script:
	call $3c3c
	ld hl,.Parts\@
	ld a,[$d5f4]
	jp JumpPtrID
.Parts\@
	dw Map01_Script00
	dw Map01_Script01
	dw Map01_Script02

Map01_Script00:
	ld a,[$d748]
	bit 0,a
	ret nz
	ld a,[$d361]
	cp a,10
	ret nz
	ld a,[$d362]
	cp a,$1d
	ret nz
	ld a,2
	ld [$ff8c],a
	ld a,$08
	ld [$ff8d],a
	call $34a6
	call $2429
	call Delay3
	ld a,2
	ld [$cd4f],a
	ld a,0
	ld [$cd50],a
	ld a,$4c
	call Predef
	ld a,1
	ld [$ff8c],a
	call $2920
	xor a
	ld [$ffb4],a
	ld a,[W_PartOfDayID]
	cp a,2
	jr nz,.timeOK\@
	ld a,3
	ld [$ff8c],a
	call $2920
	jr .pushD\@
.timeOK\@
	ld a,5
	ld [$ff8c],a
	call $2920
	ld hl,$d748
	bit 1,[hl]
	res 1,[hl]
	jr nz,.pushD\@
	set 0,[hl]
	ld a,KeyU
	jr .pushUD\@
.pushD\@
	ld a,KeyD
.pushUD\@
	ld [$d715],a
	call MyForceMove
	ld a,1
.End\@
	ld [$d5f4],a
	ret
Map01_Script01:
	ld a,[$cd38]
	and a
	ret nz
	call Delay3
	ld a,0
	ld [$d5f4],a
	ret
Map01_Script02:
	ret

MyForceMove:
	call $3486
	ld a,1
	ld [$cd38],a
	ld a,[$d715]
	ld [$ccd3],a
	xor a
	ld [$c109],a
	ld [$cd6b],a
	ret
Map01_Text:
	dw Map01_Text00
	dw Map01_Text04
	dw Map01_Text01
	dw Map01_Text02
	dw Map01_Text03
	
Map01_Text00:
	TX_FAR xText00
	TX_ASM
	ld hl,.CheckingTimeText1\@
	call PrintText	;$3c49
	ld a,$63
	call Predef
	jp EndTX_ASM	;$24d7
.CheckingTimeText1\@
	db $00,$82,$A7,$A4,$A2,$AA,$A8,$AD,$A6,$7F,$93,$A8,$AC,$A4,$E8,$E8,$E8,$57
Map01_Text01:
	TX_FAR xText01
	TX_NULL
Map01_Text02:
	TX_FAR xText02
	TX_NULL
Map01_Text03:
	TX_FAR xText03
	TX_NULL
Map01_Text04:
	TX_FAR xText04
	TX_NULL

;Map01's Texts:
xText00:
	db 0,G_,U_,A_,R_,D_,COL_,__,H_,e_,y_,__,T_,h_,e_,r_,e_,ESCL_,newn
	db H_,m_,$e8,$e8,$e8,newl
	db W_,h_,a_,t_,_s_,__,t_,h_,e_,__,t_,i_,m_,e_,QUES_
	db TX_ENDAB
xText01:
	db 0,S_,o_,r_,r_,y_,COMMA_,__,i_,t_,_s_,__,t_,o_,o_,newn
	db l_,a_,t_,e_,STOP_,__,C_,o_,m_,e_,__,b_,a_,c_,k_,newp
	db t_,o_,m_,o_,r_,r_,o_,w_,ESCL_
	db TX_END
xText02:
	db 0,G_,U_,A_,R_,D_,COL_,__,O_,k_,COMMA_,__,Y_,o_,u_,__,c_,a_,n_,newn
	db P_,a_,s_,s_,STOP_
	db TX_END
xText04:
	db 0,G_,U_,A_,R_,D_,COL_,__,H_,u_,h_,QUES_,__,N_,i_,c_,e_,newn
	db d_,a_,y_,COMMA_,__,e_,h_,QUES_
	db TX_END
xText03:
	db 0,G_,U_,A_,R_,D_,COL_,__,O_,k_,COMMA_,__,g_,o_,newn
	db a_,h_,e_,a_,d_,COMMA_,__,p_,l_,e_,a_,s_,e_,STOP_
	db TX_END

;============

Map2b_Text:
	dw Map2b_Text00
	dw Map2b_Text01
	dw Map2b_Text02
	dw Map2b_Text03
	dw Map2b_Text04
	dw Map2b_Text05
	dw Map2b_Text06
	
Map2b_Text00:
	db $08
	ld a,[$d748]
	bit 2,a
	jr nz,.noBatt\@
	ld a,1
	ld [$cd4f],a
	ld a,0
	ld [$cd50],a
	ld a,$4c
	call Predef
	ld a,$ff
	ld [$c0ee],a
	call $23b1
	ld c,$02
	ld a,$de
	call $23a1
	ld hl,.Text0\@
	call PrintText
	call $35ec
	ld a,[$cc26]
	and a
	jr z,.skip\@
	ld a,$ff
	call $23b1
	call $2307
	ld hl,Map2b_Text04
	call PrintText
	ld a,3
	jr .End\@
.skip\@
	ld hl,Map2b_Text03
	call PrintText
	ld a,(LASS + $C8)
	ld [$d059],a
	ld a,5
	ld [$d05d],a
	ld a,2
.End\@
	ld [$d5f5],a
	jp $24d7
.noBatt\@
	ld hl,Map2b_Text05
	call PrintText
	jp $24d7
.Text0\@
	db 0,L_,A_,S_,S_,COL_,__,H_,i_,ESCL_,__,D_,o_,__,y_,o_,u_,newn
	db s_,e_,e_,__,t_,h_,e_,__,p_,o_,k_,ee_,m_,o_,n_,newl
	db o_,n_,__,t_,h_,i_,s_,__,t_,a_,b_,l_,e_,QUES_,newl
	db Y_,o_,u_,__,c_,a_,n_,__,h_,a_,v_,e_,__,i_,t_,newl
	db i_,f_,__,y_,o_,u_,__,w_,i_,n_,__,a_,newl
	db b_,a_,t_,t_,l_,e_,__,a_,g_,a_,i_,n_,s_,t_,newl
	db m_,e_,STOP_,__,W_,i_,l_,l_,__,y_,o_,u_,QUES_
	db TX_END

Map2b_Text01:
	db $08
	ld hl,.Text0\@
	call PrintText
	ld a,2
	ld [$cc4d],a
	ld a,Hide
	call Predef
	ld bc,(DRATINI << 8 | 5)
	call $3e48
	jr c,.ok\@
	ld a,2
	ld [$cc4d],a
	ld a,Show
	call Predef
	ld hl,Map2b_Text06
	call PrintText
	jr .End\@
.ok\@
	ld hl,$d748
	set 3,[hl]
.End\@
	jp $24d7
.Text0\@
	db 0,L_,A_,S_,S_,COL_,__,O_,k_,COMMA_,__,y_,o_,u_,__,c_,a_,n_,newn
	db h_,a_,v_,e_,__,t_,h_,i_,s_,ESCL_
	db TX_ENDAB

Map2b_Text02:
	db $10
	TX_NULL
Map2b_Text03:
	db 0,N_,i_,c_,e_,ESCL_
	db TX_END
Map2b_Text04:
	db 0,O_,k_,COMMA_,__,y_,o_,u_,r_,__,c_,h_,o_,i_,c_,e_,$e8,$e8,$e8
	db TX_END
Map2b_Text05:
	db 0,D_,o_,__,y_,o_,u_,__,l_,i_,k_,e_,__,t_,h_,e_,newn
	db P_,o_,k_,ee_,m_,o_,n_,__,I_,__,g_,a_,v_,e_,newl
	db y_,o_,u_,QUES_
	db TX_END
Map2b_Text06:
	db 0,Y_,o_,u_,__,h_,a_,v_,e_,__,n_,o_,__,r_,o_,o_,m_,newn
	db f_,o_,r_,__,t_,h_,i_,s_,ESCL_
	db TX_END
Map2b_Script:
	call $3c3c
	ld hl,.Ptrs\@
	ld a,[$d5f5]
	jp JumpPtrID
.Ptrs\@
	dw Map2b_Script00
	dw Map2b_Script01
	dw Map2b_Script02
	dw Map2b_Script03
Map2b_Script00:
	ld hl,$d748
	bit 1,[hl]
	jr nz,.End\@
	call $2429
	call Delay3
	ld de,.myPath\@
	ld hl,$ccd3
	call $350c
	dec a
	ld [$cd38],a
	call $3486
	xor a
	ld [$c109],a
	ld [$cd6b],a
	ld a,1
	ld [$d5f5],a
.End\@
	ret
.myPath\@
	db KeyU,4,$FF
Map2b_Script01:
	ld a,[$cd38]
	and a
	ret nz
	ld a,1
	ld [$ff8c],a
	ld a,$08
	ld [$ff8d],a
	call $34a6
	call $2429
	call Delay3
	xor a
	ld [$ffb4],a
	ld a,$01
	ld [$d528],a
	ld a,1
	ld [$ff8c],a
	call $2920
	ret
Map2b_Script02:
	ld a,[$d057]
	cp $ff
	jr z,.End\@
	ld hl,$d748
	set 1,[hl]
	set 2,[hl]
.End\@
	call $2307
	ld a,3
	ld [$d5f5],a
Map2b_Script03:
	ld a,[$d748]
	bit 2,a
	ret z
	bit 3,a
	ret nz
	ld a,2
	ld [$ff8c],a
	jp $2920

What does this script do?
If you step in front of this house a person stops you. The script checks if it's night or day(/morning) and according to it you're pushed away or pushed inside the house. Inside the house another trigger is activated, which takes you in front of the lass that notices you (Rival's music starts) and offers a rare pokemon if you win in a fight against her. If you accept a trainer battle starts; you'll receive the pokemon only if you win, obviously.

esperance

Age 26
Male
OH
Seen October 8th, 2022
Posted January 11th, 2022
3,830 posts
13.1 Years
I'd like to enter.

Video
Youtube took too long, so here is a download.

Script
Spoiler:
'---------------
#org 0x8001EC
lockall
applymovement 0x1 0x8800762
waitmovement 0x0
trainerbattle 0x1 0x5 0x0 0x8800385 0x8800411 0x8800972
end

'---------------
#org 0x800972
msgbox 0x8800428 MSG_NORMAL '"You may have beat me, but you were..."
closeonkeypress
applymovement 0x1 0x880079F
waitmovement 0x0
applymovement MOVE_PLAYER 0x8800766
waitmovement 0x0
fadescreen 0x1
pause 0x1A
fadescreen 0x0
applymovement 0x3 0x880076C
waitmovement 0x0
msgbox 0x8800475 MSG_NORMAL '"Giovanni: Yes! It's finally\nhappe..."
fadescreen 0x1
pause 0x1A
fadescreen 0x0
fadescreen 0x1
cry 0xFA 0x2
waitcry
pause 0x2A
fadescreen 0x0
fadescreen 0x1
pause 0xA
showsprite 0x2
fadescreen 0x0
cry 0xFA 0x2
waitcry
applymovement 0x2 0x880076F
waitmovement 0x0
msgbox 0x88005B1 MSG_NORMAL '"Giovanni: Ho-oh! Lend me your\npow..."
cry 0xFA 0x2
waitcry
applymovement 0x3 0x8800776
waitmovement 0x0
applymovement 0x2 0x8800779
waitmovement 0x0
applymovement 0x3 0x880077F
waitmovement 0x0
msgbox 0x88005D8 MSG_NORMAL '"Giovanni: Ho-oh!"
applymovement 0x3 0x8800783
waitmovement 0x0
trainerbattle 0x1 0x1 0x0 0x88005EB 0x88006A9 0x88002CB
end

'---------------
#org 0x8002CB
pause 0xA
cry 0xFA 0x2
waitcry
applymovement 0x2 0x8800787
waitmovement 0x0
msgbox 0x88006DA MSG_NORMAL '"Giovanni: Oh no! Ho-oh's getting\n..."
cry 0xFA 0x2
waitcry
applymovement 0x2 0x880078E
waitmovement 0x0
applymovement 0x3 0x88007A3
waitmovement 0x0
cry 0xFA 0x2
waitcry
msgbox 0x8800703 MSG_NORMAL '"Giovanni: [player]! Ho-oh's out of..."
closeonkeypress
applymovement 0x2 0x88007A9
waitmovement 0x0
setwildbattle 0xFA 0x46 0x0
cry 0xFA 0x2
preparemsg 0x8800750 '"Ho-oh: Gyaooo!!"
waitmsg
waitcry
pause 0xA
playsong 0x156 0x0
waitkeypress
setflag 0x807
special 0x138
waitstate
clearflag 0x807
special2 LASTRESULT 0xB4
compare LASTRESULT 0x1
if 0x1 goto 0x8800365
compare LASTRESULT 0x4
if 0x1 goto 0x880036F
compare LASTRESULT 0x5
if 0x1 goto 0x880036F
end

'---------------
#org 0x800365
fadescreen 0x1
hidesprite 0x2
fadescreen 0x0
release
end

'---------------
#org 0x80036F
fadescreen 0x1
hidesprite 0x2
fadescreen 0x0
bufferpokemon 0x0 0xFA
msgbox 0x8800740 MSG_NORMAL '"[buffer1] flew away!"
releaseall
end


'---------
' Strings
'---------
#org 0x800385
= Stop right now, [player].\nEven as we speak, Team Rocket's\lplans are coming to fruition!\pIf you plan to stop the Boss,\nyou'll have to defeat me!

#org 0x800411
= Ha! You're too late!

#org 0x800428
= You may have beat me, but you were\ntoo late! The Boss has already\lstarted!

#org 0x800475
= Giovanni: Yes! It's finally\nhappening! All of my hard work has\llead up to this. Everything I've\limagined has lead up to this[.] I\lcan create a world in my own\limage! A world where I am the\lsupreme ruler! No longer will\lothers feel happiness, because the\lonly happiness left will be mine!\pAnd now. Ho-oh! Come to me!

#org 0x8005B1
= Giovanni: Ho-oh! Lend me your\npower!

#org 0x8005D8
= Giovanni: Ho-oh!

#org 0x8005EB
= Giovanni: [player]!\nYou come to save the day, have\lyou? Well, you're too late! In\ljust a few moments, I will have\lfull control of Ho-oh, and the\lworld will be mine!\pTrying to stop me is futile!

#org 0x8006A9
= You're still too late!\nThe world will be mine!

#org 0x8006DA
= Giovanni: Oh no! Ho-oh's getting\naway!

#org 0x800703
= Giovanni: [player]! Ho-oh's out of\ncontrol! You have to stop it!

#org 0x800750
= Ho-oh: Gyaooo!!

#org 0x800740
= [buffer1] flew away!


'-----------
' Movements
'-----------
#org 0x800762
#raw 0x62 'Exclamation Mark (!)
#raw 0x10 'Step Down (Normal)
#raw 0xFE 'End of Movements

#org 0x80079F
#raw 0x12 'Step Left (Normal)
#raw 0x7 'Face Right (Faster)
#raw 0xFE 'End of Movements

#org 0x800766
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0xFE 'End of Movements

#org 0x80076C
#raw 0x65 'Double Exclamation Mark (!!)
#raw 0xFE 'End of Movements

#org 0x80076F
#raw 0xC 'Step Down (Slow)
#raw 0xC 'Step Down (Slow)
#raw 0xC 'Step Down (Slow)
#raw 0xC 'Step Down (Slow)
#raw 0xC 'Step Down (Slow)
#raw 0xFE 'End of Movements

#org 0x800776
#raw 0x65 'Double Exclamation Mark (!!)
#raw 0xFE 'End of Movements

#org 0x800779
#raw 0x65 'Double Exclamation Mark (!!)
#raw 0x4E 'Jump Down
#raw 0x4F 'Jump Up
#raw 0x0 'Face Down
#raw 0xFE 'End of Movements

#org 0x80077F
#raw 0x4E 'Jump Down
#raw 0x1 'Face Up
#raw 0xFE 'End of Movements

#org 0x800783
#raw 0x65 'Double Exclamation Mark (!!)
#raw 0x0 'Face Down
#raw 0xFE 'End of Movements

#org 0x800787
#raw 0x1F 'Step Left (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0xFE 'End of Movements

#org 0x80078E
#raw 0x13 'Step Right (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x12 'Step Left (Normal)
#raw 0x12 'Step Left (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x4E 'Jump Down
#raw 0x4F 'Jump Up
#raw 0x0 'Face Down
#raw 0xFE 'End of Movements

#org 0x8007A3
#raw 0x14 'Jump2 Down
#raw 0x4E 'Jump Down
#raw 0x65 'Double Exclamation Mark (!!)
#raw 0x5 'Face Up (Faster)
#raw 0xFE 'End of Movements

#org 0x8007A9
#raw 0x8 'Step Down (Very Slow)
#raw 0xFE 'End of Movements


What it Does
You fight a guy, walk forward, see Ho-oh fly around and fight with Giovanni, you battle Giovanni, Ho-oh flies around, and you fight Ho-oh.

Download: Here.
What are you so afraid of?

Cutlerine

Gone. May or may not return.

Age 29
The Misspelled Cyrpt
Seen March 15th, 2014
Posted November 15th, 2013
1,030 posts
13.2 Years
Video:



Script:

Spoiler:
'---------------
#org 0x800C02
lockall
setvar 0x4001 0x0
goto 0x8802643
'---------------
#org 0x802643
sound 0x15
applymovement 0xFF 0x8801732
waitmovement 0xFF
msgbox 0x8801089 0x6 '"[green_fr]What the-?"
special 0x113
applymovement 0x7F 0x8801735
fadesong 0x112
waitmovement 0x7F
applymovement 0x6 0x8801740
waitmovement 0x6
msgbox 0x8801099 0x6 '"[blue_fr]Right. This is the place,..."
applymovement 0x3 0x8801743
waitmovement 0x3
msgbox 0x88010C2 0x6 '"[red_fr]Yeah, looks like it. Not s..."
applymovement 0x4 0x8801746
msgbox 0x8801122 0x6 '"[blue_fr]I know. What could possib..."
applymovement 0x7F 0x8801749
fadesong 0x123
waitmovement 0x7F
special 0x114
msgbox 0x88011AB 0x6 '"[green_fr]They're going to blow up..."
compare 0x4001 0x0
if 0x1 call 0x8801071
compare 0x4001 0x1
if 0x1 call 0x880107D
sound 0x15
applymovement 0xFF 0x8801732
waitmovement 0xFF
msgbox 0x88011F3 0x6 '"[green_fr]Hey! You!"
sound 0x15
applymovement 0x1 0x8801732
applymovement 0xFF 0x8801769
waitmovement 0xFF
msgbox 0x8801202 0x6 '"[green_fr]Aren't you going to help..."
applymovement 0x1 0x8801743
waitmovement 0x1
msgbox 0x8801290 0x6 '"[blue_fr]Sure I heard! They've got..."
applymovement 0x1 0x8802328
pause 0x10
applymovement 0xFF 0x8801777
waitmovement 0x1
msgbox 0x880130A 0x6 '"[green_fr]Guess I'm on my own... O..."
applymovement 0x4 0x880177E
waitmovement 0x4
msgbox 0x8801430 0x4 '"[blue_fr]HEY!!"
sound 0x15
applymovement 0xFF 0x880177A
waitmovement 0xFF
fadesong 0x112
closeonkeypress
msgbox 0x880143B 0x6 '"[blue_fr]How long are you going to..."
applymovement 0xFF 0x8801781
waitmovement 0xFF
applymovement 0x4 0x8801777
applymovement 0x5 0x8801777
applymovement 0x6 0x8801777
waitmovement 0x6
msgbox 0x880149D 0x6 '"[green_fr]I won't let you blow up ..."
applymovement 0x5 0x8801743
waitmovement 0x5
msgbox 0x88014E2 0x6 '"[red_fr]Uh, how about... no?"
applymovement 0x6 0x8801743
waitmovement 0x6
msgbox 0x88014FC 0x6 '"[blue_fr]Yeah, there's really noth..."
applymovement 0x2 0x8801743
waitmovement 0x2
msgbox 0x880152A 0x6 '"[red_fr]All I have to do is--"
sound 0x15
msgbox 0x8802395 0x6 '"[orange_fr]BEEP!"
sound 0x15
applymovement 0x6 0x880177A
applymovement 0x3 0x8801732
applymovement 0xFF 0x8801732
applymovement 0x5 0x8801789
applymovement 0x4 0x880178D
waitmovement 0x4
applymovement 0x6 0x8801740
waitmovement 0x6
msgbox 0x8801558 0x6 '"[blue_fr]Y-you pressed the button!"
applymovement 0x5 0x8801791
waitmovement 0x5
msgbox 0x8801577 0x6 '"[red_fr]L-let's get out of here!"
applymovement 0x6 0x8801794
applymovement 0x3 0x8801794
applymovement 0x5 0x88017A0
applymovement 0x4 0x88028EA
waitmovement 0x4
hidesprite 0x6
hidesprite 0x3
hidesprite 0x5
hidesprite 0x4
setflag 0x1000
msgbox 0x8801595 0x6 '"[green_fr]...\p...\p...\pUh oh..."
applymovement 0x2 0x88017BF
waitmovement 0x2
sound 0x15
applymovement 0xFF 0x8801732
waitmovement 0xFF
msgbox 0x88015AF 0x6 '"[green_fr]Ah! A flame appeared!\pT..."
applymovement 0x2 0x880177E
applymovement 0xFF 0x88017C2
pause 0x10
hidesprite 0x2
setflag 0x1001
sound 0x60
fadescreen 0x3
sound 0x61
movesprite 0xFF 0xD 0x1B
special 0x113
applymovement 0x7F 0x8802391
waitmovement 0x7F
special 0x114
call 0x8800E98
fadedefault
fadescreen 0x2
msgbox 0x88015E8 0x6 '"[green_fr]Urrrghh...\pWow, that wa..."
applymovement 0xFF 0x88017C6
waitmovement 0xFF
pause 0x20
applymovement 0xFF 0x88017C9
waitmovement 0xFF
pause 0x20
applymovement 0xFF 0x8801777
msgbox 0x8801628 0x6 '"[green_fr]For such a huge bomb, th..."
applymovement 0xFF 0x88017CC
waitmovement 0xFF
setvar 0x4050 0x1
warp 0x3 0x14 0xFF 0x13 0xE
releaseall
end
'---------------
#org 0x801071
applymovement 0xFF 0x8801754
waitmovement 0xFF
return
'---------------
#org 0x80107D
applymovement 0xFF 0x880175E
waitmovement 0xFF
return
'---------------
#org 0x800E98
setmaptile 0xD 0x1B 0x2DE 0x0
setmaptile 0xC 0x1B 0x2DD 0x0
setmaptile 0xC 0x1A 0x2D5 0x0
setmaptile 0xD 0x1A 0x2D6 0x0
setmaptile 0xB 0x19 0x281 0x0
setmaptile 0xC 0x19 0x281 0x0
setmaptile 0xD 0x19 0x281 0x0
setmaptile 0xE 0x19 0x281 0x0
setmaptile 0xB 0x1A 0x281 0x0
setmaptile 0xE 0x1A 0x281 0x0
setmaptile 0xB 0x1B 0x281 0x0
setmaptile 0xE 0x1B 0x281 0x0
setmaptile 0xB 0x1C 0x281 0x0
setmaptile 0xC 0x1C 0x281 0x0
setmaptile 0xD 0x1C 0x281 0x0
setmaptile 0xE 0x1C 0x281 0x0
setmaptile 0xA 0x18 0x29B 0x1
setmaptile 0xB 0x18 0x299 0x1
setmaptile 0xC 0x18 0x299 0x1
setmaptile 0xD 0x18 0x299 0x1
setmaptile 0xE 0x18 0xA9 0x0
setmaptile 0xF 0x18 0x29C 0x1
setmaptile 0xA 0x19 0x292 0x1
setmaptile 0xA 0x1A 0x292 0x1
setmaptile 0xA 0x1B 0x292 0x1
setmaptile 0xA 0x1C 0x292 0x1
setmaptile 0xA 0x1D 0x132 0x1
setmaptile 0xB 0x1D 0x133 0x1
setmaptile 0xC 0x1D 0x133 0x1
setmaptile 0xD 0x1D 0x133 0x1
setmaptile 0xE 0x1D 0x133 0x1
setmaptile 0xF 0x1D 0x134 0x1
setmaptile 0xF 0x19 0x290 0x1
setmaptile 0xF 0x1A 0x290 0x1
setmaptile 0xF 0x1B 0x290 0x1
setmaptile 0xF 0x1C 0x290 0x1
setmaptile 0x10 0x1D 0x11 0x0
setmaptile 0x11 0x1D 0x11 0x0
setmaptile 0x10 0x1E 0x11 0x0
setmaptile 0x11 0x1E 0x11 0x0
setmaptile 0x12 0x1D 0xDB 0x0
setmaptile 0x12 0x1E 0xE3 0x0
setmaptile 0xF 0x1E 0x11 0x0
setmaptile 0xE 0x1E 0xD5 0x0
setmaptile 0xD 0x1E 0xD4 0x0
setmaptile 0xC 0x1E 0xD4 0x0
setmaptile 0xB 0x1E 0xD3 0x0
setmaptile 0xA 0x1E 0x11 0x0
setmaptile 0x9 0x1E 0x11 0x0
setmaptile 0x9 0x1D 0x11 0x0
setmaptile 0x8 0x1E 0xE5 0x0
setmaptile 0x8 0x1D 0xD5 0x0
special 0x8E
return

'---------
' Strings
'---------
#org 0x801089
= [green_fr]What the-?
#org 0x801099
= [blue_fr]Right. This is the place, isn't\nit?
#org 0x8010C2
= [red_fr]Yeah, looks like it. Not sure\nwhy we need to plant this\lObscenely Large Bomb here, though.
#org 0x801122
= [blue_fr]I know. What could possibly be\nhere that means we need to use the\lbiggest and most powerful bomb\lTeam Rocket has in its possession?
#org 0x8011AB
= [green_fr]They're going to blow up Route\n1?! The cads!\pI'd better stop them!
#org 0x8011F3
= [green_fr]Hey! You!
#org 0x801202
= [green_fr]Aren't you going to help? Didn't\nyou hear what those Rockets just\lsaid? They're going to blow up\lRoute 1 with that Obscenely Large\lBomb!
#org 0x801290
= [blue_fr]Sure I heard! They've got a\nbomb, that's all I needed to hear\l- I don't have bomb insurance!\pI'm getting outta here!
#org 0x80130A
= [green_fr]Guess I'm on my own... OK, let's\ntake stock of my supplies. I need\lto be prepared to stop these\lRockets.\pPokémon!\pNope, I got none of those...\pWeapons!\pLikewise...\pOK, so I'm 10 years old, hideously\nunderprepared and in a Pokémon\lgame. Looks like the odds are in\lmy favour!\pLet's do this!
#org 0x801430
= [blue_fr]HEY!!
#org 0x80143B
= [blue_fr]How long are you going to\nmonologue for, kid? Get over here\lso we can get on with our lives!
#org 0x80149D
= [green_fr]I won't let you blow up Route 1\nwith your Obscenely Large Bomb!
#org 0x8014E2
= [red_fr]Uh, how about... no?
#org 0x8014FC
= [blue_fr]Yeah, there's really nothing you\ncan do.
#org 0x80152A
= [red_fr]All I have to do is--
#org 0x802395
= [orange_fr]BEEP!
#org 0x801558
= [blue_fr]Y-you pressed the button!
#org 0x801577
= [red_fr]L-let's get out of here!
#org 0x801595
= [green_fr]...\p...\p...\pUh oh...
#org 0x8015AF
= [green_fr]Ah! A flame appeared!\pThis is probably time to run!
#org 0x8015E8
= [green_fr]Urrrghh...\pWow, that was quite a...\p... a small explosion?
#org 0x801628
= [green_fr]For such a huge bomb, that was a\ntiny explosion...\pWell, I can't climb these\nludicrously low walls. I guess\lI'll have to go through this handy\lentrance to the underground cave\lnetwork, and see if I can find out\lwhy Team Rocket were trying to\lblow up Route 1...

'-----------
' Movements
'-----------
#org 0x801732
#raw 0x62 'Exclamation Mark (!)
#raw 0xFE 'End of Movements
#org 0x801735
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0xFE 'End of Movements
#org 0x801740
#raw 0x24 'Step on the Spot Right (Normal)
#raw 0xFE 'End of Movements
#org 0x801743
#raw 0x21 'Step on the Spot Down (Normal)
#raw 0xFE 'End of Movements
#org 0x801746
#raw 0x22 'Step on the Spot Up (Normal)
#raw 0xFE 'End of Movements
#org 0x801749
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0xFE 'End of Movements
#org 0x801769
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0xFE 'End of Movements
#org 0x802328
#raw 0x1F 'Step Left (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0x1D 'Step Down (Fast)
#raw 0xFE 'End of Movements
#org 0x801777
#raw 0x0 'Face Down
#raw 0xFE 'End of Movements
#org 0x80177E
#raw 0x2 'Face Left
#raw 0xFE 'End of Movements
#org 0x80177A
#raw 0x3 'Face Right
#raw 0x62 'Exclamation Mark (!)
#raw 0xFE 'End of Movements
#org 0x801781
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x1 'Face Up
#raw 0xFE 'End of Movements
#org 0x801789
#raw 0x2 'Face Left
#raw 0x62 'Exclamation Mark (!)
#raw 0xFE 'End of Movements
#org 0x80178D
#raw 0x1 'Face Up
#raw 0x62 'Exclamation Mark (!)
#raw 0xFE 'End of Movements
#org 0x801791
#raw 0x23 'Step on the Spot Left (Normal)
#raw 0xFE 'End of Movements
#org 0x801794
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0xFE 'End of Movements
#org 0x8017A0
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0xFE 'End of Movements
#org 0x8028EA
#raw 0x20 'Step Right (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0xFE 'End of Movements
#org 0x8017BF
#raw 0x1 'Face Up
#raw 0xFE 'End of Movements
#org 0x8017C2
#raw 0x1D 'Step Down (Fast)
#raw 0x14 'Jump2 Down
#raw 0xFE 'End of Movements
#org 0x802391
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0xFE 'End of Movements
#org 0x8017C6
#raw 0x3 'Face Right
#raw 0xFE 'End of Movements
#org 0x8017C9
#raw 0x2 'Face Left
#raw 0xFE 'End of Movements
#org 0x8017CC
#raw 0x13 'Step Right (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x11 'Step Up (Normal)
#raw 0x60 'Hide
#raw 0xFE 'End of Movements
#org 0x801754
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0xFE 'End of Movements
#org 0x80175E
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1F 'Step Left (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0x1E 'Step Up (Fast)
#raw 0xFE 'End of Movements


What it does: You walk onto Route 1, spy some Team Rocket members and their Obscenely Large Bomb in the distance - and resolve immediately to stop them blowing up Route 1, with or without the aid of the local citizenry.

Kevin

kevin del rey

Age 24
Male
Virginia
Seen February 3rd, 2021
Posted July 5th, 2015
2,686 posts
12.8 Years
Video:


Script:
Spoiler:
'---------------
#org 0x803000
lock
checkflag 0x1000
if 0x1 goto 0x880305B
showpokepic 0x98 0xA 0x3
msgbox 0x88031B2 MSG_YESNO '"Do you want [green_fr]Chikorita[bl..."
compare LASTRESULT 0x1
if 0x1 goto 0x8803066
hidepokepic
showpokepic 0x9B 0xA 0x3
msgbox 0x88031E3 MSG_YESNO '"Do you want [red_fr]Cyndaquil[blac..."
compare LASTRESULT 0x1
if 0x1 goto 0x88030A7
hidepokepic
showpokepic 0x9E 0xA 0x3
msgbox 0x880321A MSG_YESNO '"Do you want [lightblue_fr]Totodile..."
compare LASTRESULT 0x1
if 0x1 goto 0x88030E8
hidepokepic
goto 0x8803000

'---------------
#org 0x80305B
msgbox 0x880318D MSG_NORMAL '"It's a machine that holds Pokémon."
release
end

'---------------
#org 0x803066
hidepokepic
givepokemon 0x98 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox 0x880324D MSG_KEEPOPEN '"You received the [green_fr]Chikori..."
waitfanfare
closeonkeypress
setflag 0x828
msgbox 0x8803271 MSG_YESNO '"Would you like to give a nickname\..."
compare LASTRESULT 0x1
if 0x1 call 0x8803129
msgbox 0x88032B4 MSG_NORMAL '"Your Chikorita looks happy!"
goto 0x8803130

'---------------
#org 0x8030A7
hidepokepic
givepokemon 0x9B 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox 0x88032D2 MSG_KEEPOPEN '"You received the [red_fr]Cyndaquil..."
waitfanfare
closeonkeypress
setflag 0x828
msgbox 0x88032F6 MSG_YESNO '"Would you like to give a nickname\..."
compare LASTRESULT 0x1
if 0x1 call 0x8803129
msgbox 0x8803339 MSG_NORMAL '"Your Cyndaquil looks happy!"
goto 0x8803130

'---------------
#org 0x8030E8
hidepokepic
givepokemon 0x9E 0x5 0x0 0x0 0x0 0x0
fanfare 0x13E
msgbox 0x8803357 MSG_KEEPOPEN '"You received the [lightblue_fr]Tot..."
waitfanfare
closeonkeypress
setflag 0x828
msgbox 0x880337A MSG_YESNO '"Would you like to give a nickname\..."
compare LASTRESULT 0x1
if 0x1 call 0x8803129
msgbox 0x88033BC MSG_NORMAL '"Your Totodile looks happy!"
goto 0x8803130

'---------------
#org 0x803129
call 0x81A74EB
return

'---------------
#org 0x803130
applymovement MOVE_PLAYER 0x8803524
waitmovement 0x0
applymovement 0x2 0x880352C
waitmovement 0x0
msgbox 0x88033D9 MSG_NORMAL '"[black_fr]Prof. Elm: [blue_fr]That..."
applymovement 0x2 0x880352F
waitmovement 0x0
hidesprite 0x1
applymovement 0x2 0x8803534
waitmovement 0x0
goto 0x8803169

'---------------
#org 0x1A74EB
fadescreen 0x1
special 0x9E
waitstate
return

'---------------
#org 0x803169
setflag 0x829
fanfare 0x13E
msgbox 0x8803506 MSG_KEEPOPEN '"[black_fr][player] received the Po..."
waitfanfare
closeonkeypress
goto 0x880317F

'---------------
#org 0x80317F
msgbox 0x8803438 MSG_NORMAL '"[blue_fr]It's called a PokéDex!\pI..."
setflag 0x1000
release
end


'---------
' Strings
'---------
#org 0x8031B2
= Do you want [green_fr]Chikorita[black_fr], the Leaf\nPokémon?

#org 0x8031E3
= Do you want [red_fr]Cyndaquil[black_fr], the Fire\nMouse Pokémon?

#org 0x80321A
= Do you want [lightblue_fr]Totodile[black_fr], the Big Jaw\nPokémon?

#org 0x80318D
= It's a machine that holds Pokémon.

#org 0x80324D
= You received the [green_fr]Chikorita[black_fr]!

#org 0x803271
= Would you like to give a nickname\nto the Chikorita you received?

#org 0x8032B4
= Your Chikorita looks happy!

#org 0x8032D2
= You received the [red_fr]Cyndaquil[black_fr]!

#org 0x8032F6
= Would you like to give a nickname\nto the Cyndaquil you received?

#org 0x803339
= Your Cyndaquil looks happy!

#org 0x803357
= You received the [lightblue_fr]Totodile[black_fr]!

#org 0x80337A
= Would you like to give a nickname\nto the Totodile you received?

#org 0x8033BC
= Your Totodile looks happy!

#org 0x8033D9
= [black_fr]Prof. Elm: [blue_fr]That's a good choice!\pNow, there's something else I\nwould like to give you.

#org 0x803506
= [black_fr][player] received the PokéDex!

#org 0x803438
= [blue_fr]It's called a PokéDex!\pIt records Pokémon you have seen\nor captured automatically.\pTake good care of it!\pNow, that's all I have for you\ntoday.\pGood luck on your quest on\nbecoming the Pokémon Champion!


'-----------
' Movements
'-----------
#org 0x803524
#raw 0x10 'Step Down (Normal)
#raw 0x10 'Step Down (Normal)
#raw 0x12 'Step Left (Normal)
#raw 0x12 'Step Left (Normal)
#raw 0x12 'Step Left (Normal)
#raw 0x1 'Face Up
#raw 0xFE 'End of Movements

#org 0x80352C
#raw 0x0 'Face Down
#raw 0xFE 'End of Movements

#org 0x80352F
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0x13 'Step Right (Normal)
#raw 0xFE 'End of Movements

#org 0x803534
#raw 0x12 'Step Left (Normal)
#raw 0x12 'Step Left (Normal)
#raw 0x12 'Step Left (Normal)
#raw 0x0 'Face Down
#raw 0xFE 'End of Movements

What does this script do?
It shows you choosing your starter Pokemon and receiving a PokeDex.