Code:
#dynamic 0x800000
#org @start
checkflag 0x800
if 0x1 goto @done
showsprite 0x4
msgbox @wait 0x6
applymovement 0xFF @move
applymovement 0x4 @move2
waitmovement 0x0
trainerbattle 0x1 0x1 0x0 @intro @defeat @after
release
end
#org @after
msgbox @good 0x6
giveitem 0x1 0x1 0x0
closeonkeypress
applymovement 0x4 @move3
waitmovement 0x0
hidesprite 0x4
setflag 0x800
setvar 0x8004 0xF
setvar 0x8005 0xF
setvar 0x8006 0xF
setvar 0x8007 0xF
special 0x136
msgbox @what 0x6
setmaptile 0x7 0x8 0x232 0x0
special 0x8E
msgbox @ahhhh 0x6
warphole 0x1 0x25
setmaptile 0x7 0x8 0x2BF 0x0
release
end
#org @done
release
end
#org @wait
= Waaaiiitttt!!!
#org @move
#raw 0x62
#raw 0x7
#raw 0xFE
#org @move2
#raw 0x1F
#raw 0x1F
#raw 0x1F
#raw 0x1F
#raw 0x1F
#raw 0x1F
#raw 0x1F
#raw 0xFE
#org @intro
= You'll be my test.
#org @defeat
= What's this ?
#org @good
= You are good.\nTake this.
#org @move3
#raw 0xF
#raw 0xF
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0x1E
#raw 0xFE
#org @what
= [player]: WHAT'S THIS ???
#org @ahhhh
= AHHHHHHHHHHHHHHHH !!!
This script now. First, it shows a sprite, second there are some moves and a trainer battle. After the battle the guy gives you a Rare Candy and he go somewhere; Then an earthquake happens and the player falls in a hole with the command "setmaptile" whose set a hole tile and then the "warphole" command makes the player warp in an other map with the hole movement and that's finish. You can see there are some texts but I didn't mention that.