Quick Research & Development Thread

[Wobb]

DPPt Berry Info
Berries are found in itemdata/nuts_data.narc

00 - Berry Size (cm). There will be a decimal point before the last digit of the number in decimal. (Ex: 0x7E -> 126 -> 12.6 cm)
01 - ???
02 - Firmness:

Spoiler:

01 - Very Soft
02 - Soft
03 - Hard
04 - Very Hard
05 - Super Hard

03 - ???
04 - Hours per Stage (There are 4 stages)
05 - Moisture drain rate without Mulch. When a Berry is planted, the moisture is 100. Every 60 minutes, the moisture decreases by this amount, with the soil changing color, until it reaches 0, where the soil is gray.
06 - Spiciness
07 - Dryness
08- Sweetness
09 - Bitterness
0A - Sourness
0B - Smoothness

 

[Ephraim225]

Ribbon Data

So I researched this on a whim. This applies to all the GBA games but FRLG never displays ribbon data anyhow and it doesn't look like anyone documented it, so here we are. Normally Ribbon data is impossible to check or edit because it's encrypted and the decrypt function can't do anything with it in particular for some reason. But if you disable encryption completely (as seen here) then you can check or edit ribbons in your ASM codes much more easily.

The game uses four bytes to track a Pokémon's ribbons. They are the last four bytes of the "Misc" data subsection. Individual bits are used to track Ribbons from the contests as well as some additional ribbons. For contest ribbons, 3 bits are used to track how many ribbons from each category that Pokémon has. You can normally only get 4 ribbons in each category, but if you set all the bits for one category to 1 the game can show up to 7 ribbons from one category (which will lead to duplicate ribbons.) There are 32 possible ribbons to get but you can technically edit a Pokémon to have up to 47 (which will crash the game at the ribbon viewer.)

Bits 1~3: Cool contest ribbons
Bits 4~6: Beauty contest ribbons
Bits 7~9: Cute contest ribbons
Bits 10~12: Smart contest ribbons
Bits 13~15: Tough contest ribbons
Bit 16: League Champion ribbon
Bit 17: Lv. 50 Battle Tower ribbon
Bit 18: Lv. 100 Battle Tower ribbon
Bit 19: Artist ribbon
Bit 20: Effort ribbon
Bits 21~27: These ribbons have no description. I believe they are mostly unused aside from the ribbons that come from the GCN games.
Bits 28~32 DON'T track ribbon data, they're for something else.

So, a Pokémon that has all possible ribbons with no duplicates would have 07 FF C9 24 in those four bytes.

 

[Le pug]

Tested some sounds in FireRed, I want to test more but I don't know how to find more sounds, if anyone can help me that's great. After 15A there seems to be no more sounds they all generate silence, so Idk where to go :(

Spoiler:

these can be used by the command 'sound' in xse (example: sound 0xD, use checksound to make the sound finish playing before script continues)
0D = Hit by attack/take dmg
D1 = ?
D2 = ?
D3 = Sounds like some buglike Pokemon cry (but no actual pkmn that I know)
D4 = ?
D5 = ?
D6 = Basically Thunder the move
D7 = A short and quick clap
D8 = Silent
D9 = Unsure, 2nd part reminds me of some sort of warp sound
DA = Wish like sound, like a star?
DB = Very intriguing sound, might be fitting for an alien like Pokemon
DC = Spooky sound lasts like 3-4s, amazing sound effect for a horror area
DD = 1st part of moonlight?
DE = Reminds me of Donald Duck when he talks
DF = Weak tornado? Similar to Twister the move
E0 = Kinda like birds singing joyfully
E1 = Some weird sound then a drum
E2 = Kinda like pouring water over someone
E3 = Silent
E4 = Silent
E5 = Sweet Scent
E6 = Sad sound, like a hurt Meowth or Skitty
E7 = Silent
E8 = Stat boost (in-game, like after Bulk Up)
E9 = 3s long, kinda like a monster moving underground? Could be a great cry.
EA = Kind of like an angry crowd but very short like 0.x s...
EB = Like ice breaking?
EC = Silent
ED = I've never heard this before... decent sound for horror setting I s'pose,
kind of like an angry, evil fairy
EE = Stat drop (in-game, like getting Intimidated)
EF = Lasts 4s? Kinda like a swarm of bees.
F0 = No clue. Very short sound.
F1 = Door open/close
F2 = Idk, very short
F3 = Kinda like using a repel, seems like theres some silence after its done
playing (like for 1-2s)
F4 = Like saving your game sound. Some silence after playing.
F5 = Idk, garbage imo, very short
F6 = Something to do with setting options?
F7 = Same as f5
F8 = Buy/sell sound
F9 = S.S. Anne leaving
FA = SOUNDS VERY familiar. Harpy?
FB = Similar to FA
FC = Like FB/FA, but ends abruptly with some error sound
FD = Somewhat peculiar, alien like sound.
FE = Like Wish heal
FF = Error sound, like you chose the wrong alternative
100 = PC Heal
101 = Lv up
102 = Catch Pkmn
103 = Caught a Pkmn
104 = Got a badge?
105 = Some kind of success fanfare, RS style
106 = Pick Berry from tree sound
107 = silent
100 to 15A is basically these https://www.pokecommunity.com/archive/index.php/t-123520.html
15B = silent
15C =silent
15D =silent
15E =silent
15F =silent

You can hear / see all the sounds in Fire Red in the following video. Also, I've added the sound 0x## for each so if you want to just listen for some sounds you want for a script then just throw it in a script, they are compatible:

[hd]16kq82y91UE[/hd]

And since I'm posting that one, might as well post my Emerald version as well:

[hd]NovD5qHerAo[/hd]

 

[Zeturic]

Wonder Trade with NPC Trainers [FR]

Basically, this is a WT system that uses the NPC trainer data as the pool of potential trades. It picks a random trainer, and a random slot from that trainer's party, and that's what you get traded.

In case it's not obvious, this includes the actual trade animation, and the Pokémon in question will keep the NPC trainer's OT ID and OT Name, as well as any held item and custom moves it may have assigned to it.

Additionally, if the Pokémon you receive evolves by trade, it will evolve when you get it. Trade + Held Item evolutions would work as well, but I doubt there are many NPC trainers that have Scythers with Metal Coats (for example).

A few things to keep in mind if you decide to use this:

• You could end up with a Nat'l Dex Pokémon early. You'll probably want to enable foreign Pokémon trading and evolution, assuming you aren't simply giving out the Nat'l Dex at the beginning of the game.
• Some NPC trainers such as Giovanni have names that are too long to fit in the OT Name field. These trainers are excluded from the pool.
• Any Pokémon that isn't included in a team of an eligible trainer can't be received at all.
• It is possible to get the same Pokémon multiple times.
• You'll probably trade with a lot of people named GRUNT, unless you blacklist all such trainers.

Nidoran Gender Symbol [FR]

I don't know if this bothers anyone else, but I never liked how the Nidorans get special treatment with regards to the gender symbol (because it's part of their name, they don't have one, unless you nickname them).

You can get rid of this but putting 00 at all of the following locations:

0x08136238
0x0813623C
0x081218E4
0x081218E8
0x08049718
0x0804971C

You'll probably want to remove the gender symbols from their species names if you use this, or else it'd essentially be duplicated (once in their name, and then the standard one every Pokémon gets).

Edit: agsmgmaster64 found a few offsets I missed, as well as the Emerald equivalents. See here.

 

[tkim]

In Gen 3, Protect/Detect/Endure are bugged. The game is supposed to read the probability from a table which has only 4 entries, thus reading garbage data after the 4th consecutive protect.

To get the correct behavior (like gen 5+, no cap) replace the bytes at 0x26FB6 with this (FR):

01 7A 14 88 CC 40 1D F0 84 FF 21 1C

If you ever manage to get off 16 consecutive protects, it will fail the next one because of precision .

I'm having trouble understanding the routine behind this, may you go more into depth about your solution? Could I also add the cap of 12.5% without having to repoint the routine?

edit: I tested your fix and it doesn't work as you intended. I was able to use Protect without fail after passing 16 successes.

 

[Mr.Pkmn]

I'm having trouble understanding the routine behind this, may you go more into depth about your solution? Could I also add the cap of 12.5% without having to repoint the routine?

edit: I tested your fix and it doesn't work as you intended. I was able to use Protect without fail after passing 16 successes.

1) Loads the number of consecutive protects
2) Loads the first entry of the protect probability table (0xFFFF or 100%)
3) Shifts to the right n bits from the probability. Equivalent to a division of 2^n

If you used 17 protects, you would remove 17 bits from a 16 bit number, making it zero.
However you're right because the game checks if the protect probability is greater or equal than the random number, giving a 1/65535 chance of not failing protect.

 

[Super Versekr Dark]

To remove the black bar animation, cry and Pok?mon sprite and all, that shows when you use a HM, do the following:

Posting this here in case anyone else wants it.

FR: 00 00 00 00 00 00 00 00 00 00 00 00 at x860C2.
EM: 00 00 00 00 00 00 00 00 00 00 00 00 at xB8536
Ruby: 00 00 00 00 00 00 00 00 00 00 00 00 at x88102

 

[Super Versekr Dark]

I need help with this:


I have been modifying the routine of Chacha Dinosaur, well I suppose that here they could help me to finish it since then I already have the pointers, I do not know if they can help me and in that way we help rom hackers of ruby;)

EV-enhancing items (Power Items)

Spoiler:

.text
.align 2
.thumb
.thumb_func

Main:
push {r2}
mov r0, r8 /*Load pokemon slot no*/
mov r1, #0xC
mov r2, #0x0
bl Decrypter /* Load pokemon's item */
lsl r0, r0, #0x10
lsr r0, r0, #0x10
pop {r2} /* Restore Pokerus Factor*/
cmp r0, #0xAF
beq EnigmaBerry
add r3, r0, #0x0
bl GetItemEffect /* Get Held Item's Effect Byte*/
lsl r0, r0, #0x18
lsr r0, r0, #0x18
cmp r0, #0x18
bne NoPowerItem
add r0, r3, #0x0
bl GetSecondEffectByte
lsl r0, r0, #0x18
lsr r0, r0, #0x18
cmp r0, #0x0
beq MachoBrace
add r1, r6, #0x1 /*Load a Power Item's Secondary Effect Byte*/
cmp r1, r0 /*Match items*/
bne NoPowerItem /*No Power Item or No Match for that particular stat*/
lsl r2, r2, #0x2
add r4, r4, r2 /* Add 4 EVs or 8 (due to Pokerus) */
NoPowerItem:
ldr r3, =0x0803FFB9
bx r3

EnigmaBerry:
ldr r3, =0x0803FF6F
bx r3

MachoBrace:
ldr r3, =0x0803FFB5
bx r3

Decrypter:
ldr r3, =0x08031D71
bx r3

GetItemEffect:
ldr r1, =0x080A993D
bx r1

GetSecondEffectByte:
ldr r1, =0x080A9961
bx r1

/*At 3FF58: 04 1C 54 43 00 49 08 47 XX+1 XX XX 08 00 00 00 00 00 00 00 00 00 00*/
/*At 3FFDC && 3FFE2: FC to limit EV growth for each stat to 252 */

 

[Spherical Ice]

00 00 00 00 00 00 00 00 00 00 00 00 at x82980 will enable wilds in the Tanoby Ruins chambers (maps 2.27 to 2.34) irrespective of if the Tanoby Key puzzle has been solved (i.e. flag 0x849 is set).

At x3CA71C, there is a list of bytes which correspond to the Unown forme for each slot for the wilds of the Tanoby Ruins chambers. There are twelve bytes for each chamber, and six chambers in total. The bytes range from 00 to 1B (dec 27), and the first 26 (00 to dec 25) bytes follow the order of the alphabet (A-Z), with 1A (dec 26) being ! and 1B (dec 27) being ?. The byte order matches the probability listing for the Grass wilds of a map, so the 12th byte has a 1% chance of appearing, and so on.

The routine at x829FC is how it determines which chamber to use (by subtracting 27 from the map number at x82A42), so you can change this to be whichever map number your first Unown chamber is on. The lsls around this area (x82A4A) are used to multiply the (map number - 27) by six, as there are six chambers, so change that arithmetic if you have a different number of chambers. This is why, as Squeetz points out here https://www.pokecommunity.com/posts/9578348, the game will crash if the map number is not between 27 and 34 when spawning Unown.

 

[kalarie]

I haven't seen this documented anywhere, so I thought I should post it here.

Every Overworld Sprite has a data address with 0x24 bytes of data. (See for example https://www.pokecommunity.com/posts/3674554/ or JPAN's Hacked Engine Manual)

The 14th byte (That was a mystery) determines what kind of footprints will appear when walking on sand. The byte should be either value 0x00 (No Footprints), 0x01 (Footprints) or 0x02 (Bicycle). Any other value will cause the game to freeze when stepping on sand.

To Illustrate:

 

[hjk321]

I actually found the other half of this that changes things to greyscale without doing any division or other crazy ASM. It's one RAM location:

0x02036E28

So just wrote a 0x1 to that offset for greyscale, and 0x2 for sepia (I think...). To reset, set it to 0x0.

Small thing and I know this is like 6 years late but if you put this in a mapscript you will need to set it as 01 (setmaptile script) or it won't change the colors before loading the map. Now even if people save and quit while the "shader" is active it will still be there when they come back, provided you make a decent map script that loads from a flag...

 

[AtecainCorp.]

POKEMON RUBY RELATED
I found limiter related to pokemons in the Contests. So for rid off limiter from contests.
Adress - B278C
In there change 9b 01 to new number related to SLOTS. Not same Pokemon in dex. But Slots. That makes formes even working with contests. In my case for be sure about All pokes i repleace 9b 01 with ff 04... And prest. It works.

 

[Super Versekr Dark]

Door 16x16 Pok?mon Ruby:

583DC: FF F7 D6 FF - 00 00 00 00

583E6: FF F7 01 FD - 00 00 00 00

 

[Super Versekr Dark]

I found the offsets from Pok?mon Emerald (BPEE) for changing the level of Pok?mon when they hatch from eggs.

08070A38: [B]XX[/B] 22
08071414: [B]XX[/B] 22
081C3200: [B]XX[/B] 21

Thanks to Jambo51 for finding the FireRed offsets and making it easy to find the Emerald offsets.

Pok?mon Ruby:

08042132: XX 22
08042954: XX 22
080A2050: XX 21

Credits to: veganime

42068 -- seems to fix the move set
A080C -- fix met lvl

 

[0x575446]

I have tried to look for the the location of the amount of pokemon in both the Kanto and National dexes in Firered but I'm coming up blank. I want to be able to read it out of the ROM and use it in a data parser. I'm slightly overwhelmed by the sheer amount of data in the ROM. Any help would be appreciated.
I've tried looking through the forums, but I might've missed information about this.

 

[Super Versekr Dark]

The Great And Powerful Lucky Egg

The check for the Lucky Egg is at:

FireRed: 0x21DBA
Emerald: 0x4A67A

The byte that determines the experience multiplier is at:

FireRed: 0x21DC2
Emerald: 0x4A682

In the vanilla games, this byte has a value of 0x96, or 150 is decimal.

This gives a multiplier of 1.5.

So if you want to change the amount of experience the Lucky Egg gives you, just follow these three easy steps!

1. Choose a value that you want to multiply the gained experience by (It will have to be less than 2.5 without using ASM).

2. Take away the decimal point (so 1.5 would be 150, 2.0 would be 200).

3. Convert that value to hex (so 1.5 is 0x96, 2.5 is 0xFA) and put that value at the offset listed above.

The Great And Powerful Lucky Egg

The check for the Lucky Egg is at:

FireRed: 0x21DBA
Emerald: 0x4A67A
Ruby: 0x20386

The byte that determines the experience multiplier is at:

FireRed: 0x21DC2
Emerald: 0x4A682
Ruby: 0x2038E

 

[kalarie]

EDIT: To enable all Sevii Islands' catchmaps to show up in the Pokedex, regardless of whether the worldmapflags are set:

Replace the bytes at 0x0CC206 with:
FF 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

To align the word 'Area' with the new dimensions replace the byte at 0x452207 with:
06

To remove the 'Area Unknown' make the image transparent and replace the byte at 0x10673C with:
FC

Credits to: Spherical Ice

 

[kalarie]

Town Map palette offsets for Fire Red:

Palette 0: 0x3EF2DC
Palette 1: 0x3EF2FC
Palette 2: 0x3EF31C
Palette 3: 0x3EF33C
Palette 4: 0x3EF35C

 

[PurpleOrange]

Here are some mystery gift scripts that are found in the ROM of firered/leagreen and emerald as well as some quirks about them.

Although these are in the game, these scripts are never used. The events that were actually distributed set an almost identical script (albeit with different offsets) to RAM instead.

(This is a long post so I've put it in a spoiler.)

Spoiler:

Aurora Ticket
FR: 0x4894B9

Spoiler:

'-----------------------
#org 0x4894B9
setvirtualaddress 0x84894B9
lock
faceplayer
checkflag 0x2A7
virtualjumpif 0x1 0x848951D
checkflag 0x2E4
virtualjumpif 0x1 0x848951D
checkitem 0x173 0x1
compare LASTRESULT 0x1
virtualjumpif 0x1 0x848951D
virtualmsgbox 0x8489526 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
checkitemamount 0x173 0x1
compare LASTRESULT 0x0
virtualjumpif 0x1 0x8489514
giveitem 0x173 0x1 0x0
setflag 0x84B
setflag 0x2A7
virtualmsgbox 0x8489583 '"It appears to be for use at the\nVE..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x48951D
virtualmsgbox 0x84895E8 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x489514
virtualmsgbox 0x8489615 '"Oh, I'm sorry, [player]. Your BAG's..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x489526
= Thank you for using the MYSTERY\nGIFT System.\pYou must be [player].\nThere is a ticket here for you.

#org 0x489583
= It appears to be for use at the\nVERMILION CITY port.\pWhy not give it a try and see what\nit is about?

#org 0x4895E8
= Thank you for using the MYSTERY\nGIFT System.

#org 0x489615
= Oh, I'm sorry, [player]. Your BAG's\nKEY ITEMS POCKET is full.\pPlease store something on your PC,\nthen come back for this.

LG: 0x488D95

Spoiler:

'-----------------------
#org 0x488D95
setvirtualaddress 0x8488D95
lock
faceplayer
checkflag 0x2A7
virtualjumpif 0x1 0x8488DF9
checkflag 0x2E4
virtualjumpif 0x1 0x8488DF9
checkitem 0x173 0x1
compare LASTRESULT 0x1
virtualjumpif 0x1 0x8488DF9
virtualmsgbox 0x8488E02 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
checkitemamount 0x173 0x1
compare LASTRESULT 0x0
virtualjumpif 0x1 0x8488DF0
giveitem 0x173 0x1 0x0
setflag 0x84B
setflag 0x2A7
virtualmsgbox 0x8488E5F '"It appears to be for use at the\nVE..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x488DF9
virtualmsgbox 0x8488EC4 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x488DF0
virtualmsgbox 0x8488EF1 '"Oh, I'm sorry, [player]. Your BAG's..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x488E02
= Thank you for using the MYSTERY\nGIFT System.\pYou must be [player].\nThere is a ticket here for you.

#org 0x488E5F
= It appears to be for use at the\nVERMILION CITY port.\pWhy not give it a try and see what\nit is about?

#org 0x488EC4
= Thank you for using the MYSTERY\nGIFT System.

#org 0x488EF1
= Oh, I'm sorry, [player]. Your BAG's\nKEY ITEMS POCKET is full.\pPlease store something on your PC,\nthen come back for this.

E: 0x67533C

Spoiler:

'-----------------------
#org 0x67533C
setvirtualaddress 0x867533C
lock
faceplayer
checkflag 0x13A
virtualjumpif 0x1 0x86753A0
checkflag 0x1AD
virtualjumpif 0x1 0x86753A0
checkitem 0x173 0x1
compare LASTRESULT 0x1
virtualjumpif 0x1 0x86753A0
virtualmsgbox 0x86753A9 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
checkitemamount 0x173 0x1
compare LASTRESULT 0x0
virtualjumpif 0x1 0x8675397
giveitem 0x173 0x1 0x0
setflag 0x8D5
setflag 0x13A
virtualmsgbox 0x8675406 '"It appears to be for use at the\nLI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x6753A0
virtualmsgbox 0x867546A '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x675397
virtualmsgbox 0x8675497 '"Oh, I'm sorry, [player].\nYour BAG'..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x6753A9
= Thank you for using the MYSTERY\nGIFT System.\pYou must be [player].\nThere is a ticket here for you.

#org 0x675406
= It appears to be for use at the\nLILYCOVE CITY port.\pWhy not give it a try and see what\nit is about?

#org 0x67546A
= Thank you for using the MYSTERY\nGIFT System.

#org 0x675497
= Oh, I'm sorry, [player].\nYour BAG's KEY ITEMS POCKET is full.\pPlease store something on your PC,\nthen come back for this.

Mystic Ticket
FR: 0x489689

Spoiler:

'-----------------------
#org 0x489689
setvirtualaddress 0x8489689
lock
faceplayer
checkflag 0x2A8
virtualjumpif 0x1 0x84896F6
checkflag 0x2F2
virtualjumpif 0x1 0x84896F6
checkflag 0x2F3
virtualjumpif 0x1 0x84896F6
checkitem 0x172 0x1
compare LASTRESULT 0x1
virtualjumpif 0x1 0x84896F6
virtualmsgbox 0x84896FF '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
checkitemamount 0x172 0x1
compare LASTRESULT 0x0
virtualjumpif 0x1 0x84896ED
giveitem 0x172 0x1 0x0
setflag 0x84A
setflag 0x2A8
virtualmsgbox 0x848975C '"It appears to be for use at the\nVE..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x4896F6
virtualmsgbox 0x84897C1 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x4896ED
virtualmsgbox 0x84897EE '"Oh, I'm sorry, [player]. Your BAG's..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x4896FF
= Thank you for using the MYSTERY\nGIFT System.\pYou must be [player].\nThere is a ticket here for you.

#org 0x48975C
= It appears to be for use at the\nVERMILION CITY port.\pWhy not give it a try and see what\nit is about?

#org 0x4897C1
= Thank you for using the MYSTERY\nGIFT System.

#org 0x4897EE
= Oh, I'm sorry, [player]. Your BAG's\nKEY ITEMS POCKET is full.\pPlease store something on your PC,\nthen come back for this.

LG: 0x488F65

Spoiler:

'-----------------------
#org 0x488F65
setvirtualaddress 0x8488F65
lock
faceplayer
checkflag 0x2A8
virtualjumpif 0x1 0x8488FD2
checkflag 0x2F2
virtualjumpif 0x1 0x8488FD2
checkflag 0x2F3
virtualjumpif 0x1 0x8488FD2
checkitem 0x172 0x1
compare LASTRESULT 0x1
virtualjumpif 0x1 0x8488FD2
virtualmsgbox 0x8488FDB '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
checkitemamount 0x172 0x1
compare LASTRESULT 0x0
virtualjumpif 0x1 0x8488FC9
giveitem 0x172 0x1 0x0
setflag 0x84A
setflag 0x2A8
virtualmsgbox 0x8489038 '"It appears to be for use at the\nVE..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x488FD2
virtualmsgbox 0x848909D '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x488FC9
virtualmsgbox 0x84890CA '"Oh, I'm sorry, [player]. Your BAG's..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x488FDB
= Thank you for using the MYSTERY\nGIFT System.\pYou must be [player].\nThere is a ticket here for you.

#org 0x489038
= It appears to be for use at the\nVERMILION CITY port.\pWhy not give it a try and see what\nit is about?

#org 0x48909D
= Thank you for using the MYSTERY\nGIFT System.

#org 0x4890CA
= Oh, I'm sorry, [player]. Your BAG's\nKEY ITEMS POCKET is full.\pPlease store something on your PC,\nthen come back for this.

E: 0x67550B

Spoiler:

'-----------------------
#org 0x67550B
setvirtualaddress 0x867550B
lock
faceplayer
checkflag 0x13B
virtualjumpif 0x1 0x8675578
checkflag 0x91
virtualjumpif 0x1 0x8675578
checkflag 0x92
virtualjumpif 0x1 0x8675578
checkitem 0x172 0x1
compare LASTRESULT 0x1
virtualjumpif 0x1 0x8675578
virtualmsgbox 0x8675581 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
checkitemamount 0x172 0x1
compare LASTRESULT 0x0
virtualjumpif 0x1 0x867556F
giveitem 0x172 0x1 0x0
setflag 0x8E0
setflag 0x13B
virtualmsgbox 0x86755DE '"It appears to be for use at the\nLI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x675578
virtualmsgbox 0x8675642 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x67556F
virtualmsgbox 0x867566F '"Oh, I'm sorry, [player].\nYour BAG'..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x675581
= Thank you for using the MYSTERY\nGIFT System.\pYou must be [player].\nThere is a ticket here for you.

#org 0x6755DE
= It appears to be for use at the\nLILYCOVE CITY port.\pWhy not give it a try and see what\nit is about?

#org 0x675642
= Thank you for using the MYSTERY\nGIFT System.

#org 0x67566F
= Oh, I'm sorry, [player].\nYour BAG's KEY ITEMS POCKET is full.\pPlease store something on your PC,\nthen come back for this.

Old Sea Map
E: 0x6757F4

Spoiler:

'-----------------------
#org 0x6757F4
setvirtualaddress 0x86757F4
lock
faceplayer
checkflag 0x13C
virtualjumpif 0x1 0x8675858
checkflag 0x1CA
virtualjumpif 0x1 0x8675858
checkitem 0x178 0x1
compare LASTRESULT 0x1
virtualjumpif 0x1 0x8675858
virtualmsgbox 0x8675861 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
checkitemamount 0x178 0x1
compare LASTRESULT 0x0
virtualjumpif 0x1 0x867584F
giveitem 0x178 0x1 0x0
setflag 0x8D6
setflag 0x13C
virtualmsgbox 0x86758D9 '"It appears to be for use at the\nLI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x675858
virtualmsgbox 0x867593D '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x67584F
virtualmsgbox 0x867596A '"Oh, I'm sorry, [player].\nYour BAG'..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x675861
= Thank you for using the MYSTERY\nGIFT System.\pLet me confirm--you are [player]?\pWe received this OLD SEA MAP\naddressed to you.

#org 0x6758D9
= It appears to be for use at the\nLILYCOVE CITY port.\pWhy not give it a try and see what\nit is about?

#org 0x67593D
= Thank you for using the MYSTERY\nGIFT System.

#org 0x67596A
= Oh, I'm sorry, [player].\nYour BAG's KEY ITEMS POCKET is full.\pPlease store something on your PC,\nthen come back for this.

Something to note about the aurora ticket/mystic ticket/old sea map scripts is that the script actually checks if the pokemon found on the respective islands has been caught/ko'd.
So if a player used a cheating device to get to the island and then caught the pokemon, they wouldn't be able to get the ticket.

Altering Cave
FR: 0x489862

Spoiler:

'-----------------------
#org 0x489862
setvirtualaddress 0x8489862
addvar 0x4024 0x1
compare 0x4024 0xA
virtualjumpif 0x0 0x848987C
setvar 0x4024 0x0
lock
faceplayer
virtualmsgbox 0x8489887 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x48987C
lock
faceplayer
virtualmsgbox 0x8489887 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x489887
= Thank you for using the MYSTERY\nGIFT System.\pRecently, there have been rumors\nof rare POKéMON appearances.\pThe rumors are about ALTERING\nCAVE on OUTCAST ISLAND.\pWhy not visit there and check if\nthe rumors are indeed true?

LG: 0x48913E

Spoiler:

'-----------------------
#org 0x48913E
setvirtualaddress 0x848913E
addvar 0x4024 0x1
compare 0x4024 0xA
virtualjumpif 0x0 0x8489158
setvar 0x4024 0x0
lock
faceplayer
virtualmsgbox 0x8489163 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x489158
lock
faceplayer
virtualmsgbox 0x8489163 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x489163
= Thank you for using the MYSTERY\nGIFT System.\pRecently, there have been rumors\nof rare POKéMON appearances.\pThe rumors are about ALTERING\nCAVE on OUTCAST ISLAND.\pWhy not visit there and check if\nthe rumors are indeed true?

E: 0x6756E3

Spoiler:

'-----------------------
#org 0x6756E3
setvirtualaddress 0x86756E3
addvar 0x403E 0x1
compare 0x403E 0xA
virtualjumpif 0x0 0x86756FD
setvar 0x403E 0x0
lock
faceplayer
virtualmsgbox 0x8675708 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x6756FD
lock
faceplayer
virtualmsgbox 0x8675708 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x675708
= Thank you for using the MYSTERY\nGIFT System.\pThere appears to be a rumor about\nrare POKéMON sightings.\pThe sightings reportedly came from\nthe ALTERING CAVE on ROUTE 103.\pPerhaps it would be worthwhile for\nyou to investigate this rumor.

This script is odd as it doesn't set a certain a pokemon to appear, rather it cycles through the list of the altering cave pokemon every time you speak to the delivery man.

Seven Island/Sootpolis City Wireless Trainers
FR: 0x48903A

Spoiler:

'-----------------------
#org 0x48903A
setvirtualaddress 0x848903A
special 0xF6
compare LASTRESULT 0x0
virtualjumpif 0x1 0x8489058
lock
faceplayer
virtualmsgbox 0x8489063 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x489058
lock
faceplayer
virtualmsgbox 0x84891B0 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x489063
= Thank you for using the MYSTERY\nGIFT System.\pBy holding this WONDER CARD, you\nmay take part in a survey at a\lPOKéMON MART.\pUse these surveys to invite\nTRAINERS to the SEVII ISLANDS.\p[.]Let me give you a secret\npassword for a survey:\p["]GIVE ME\nAWESOME TRAINER"\pWrite that in on a survey and send\nit to the WIRELESS\lCOMMUNICATION SYSTEM.

#org 0x4891B0
= Thank you for using the MYSTERY\nGIFT System.\pA TRAINER has arrived in the SEVII\nISLANDS looking for you.\pWe hope you will enjoy\nbattling the visiting TRAINER.\pYou may invite other TRAINERS by\nentering other passwords.\pTry looking for other passwords\nthat may work.

LG: 0x488916

Spoiler:

'-----------------------
#org 0x488916
setvirtualaddress 0x8488916
special 0xF6
compare LASTRESULT 0x0
virtualjumpif 0x1 0x8488934
lock
faceplayer
virtualmsgbox 0x848893F '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x488934
lock
faceplayer
virtualmsgbox 0x8488A8C '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x48893F
= Thank you for using the MYSTERY\nGIFT System.\pBy holding this WONDER CARD, you\nmay take part in a survey at a\lPOKéMON MART.\pUse these surveys to invite\nTRAINERS to the SEVII ISLANDS.\p[.]Let me give you a secret\npassword for a survey:\p["]GIVE ME\nAWESOME TRAINER"\pWrite that in on a survey and send\nit to the WIRELESS\lCOMMUNICATION SYSTEM.

#org 0x488A8C
= Thank you for using the MYSTERY\nGIFT System.\pA TRAINER has arrived in the SEVII\nISLANDS looking for you.\pWe hope you will enjoy\nbattling the visiting TRAINER.\pYou may invite other TRAINERS by\nentering other passwords.\pTry looking for other passwords\nthat may work.

E: 674EC1

Spoiler:

'-----------------------
#org 0x67513C
setvirtualaddress 0x867513C
checkflag 0x1E4
virtualjumpif 0x1 0x8675179
copyvarifnotzero 0x0 0x2
special2 0x8008 0x188
compare 0x8008 0x3
virtualjumpif 0x0 0x8675179
lock
faceplayer
virtualmsgbox 0x867529C '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
giveitem 0xD 0x1 0x0
release
setflag 0x1E4
end

'-----------------------
#org 0x675179
lock
faceplayer
virtualmsgbox 0x8675184 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x67529C
= Thank you for using the MYSTERY\nGIFT System.\pCongratulations!\pYou have won a prize for winning\nthree battles!\pWe hope you will be inspired to\nbattle some more.

#org 0x675184
= Thank you for using the MYSTERY\nGIFT System.\pYour BATTLE COUNT CARD keeps\ntrack of your battle record against\lTRAINERS with the same CARD.\pLook for and battle TRAINERS who\nhave the same CARD as you.\pYou may check the overall rankings\nby reading the NEWS.\pPlease do give it a try!

Now is are a strange case as there seems to be next to no information on this event. From what I can gather, the idea was you download this wonder card, then speak to the delivery man who will give a secret phrase. You then write down the phrase on the pokemart survey and somehow a trainer will appear in the room behind the boxes in sevii island/sootopolis city (it mention something about sending sending it to a wireless communication system whatever that is)

Event Trainer Battle(?)
FR: 0x4892B9

Spoiler:

'-----------------------
#org 0x4892B9
setvirtualaddress 0x84892B9
checkflag 0x3D8
virtualjumpif 0x1 0x84892F6
copyvarifnotzero 0x0 0x2
special2 0x8008 0x186
compare 0x8008 0x3
virtualjumpif 0x0 0x84892F6
lock
faceplayer
virtualmsgbox 0x8489419 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
giveitem 0xD 0x1 0x0
release
setflag 0x3D8
end

'-----------------------
#org 0x4892F6
lock
faceplayer
virtualmsgbox 0x8489301 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x489419
= Thank you for using the MYSTERY\nGIFT System.\pCongratulations!\pYou have won a prize for winning\nthree battles!\pWe hope you will be inspired to\nbattle some more.

#org 0x489301
= Thank you for using the MYSTERY\nGIFT System.\pYour BATTLE COUNT CARD keeps\ntrack of your battle record against\lTRAINERS with the same CARD.\pLook for and battle TRAINERS who\nhave the same CARD as you.\pYou may check the overall rankings\nby reading the NEWS.\pPlease do give it a try!

LG: 0x488B95

Spoiler:

'-----------------------
#org 0x488B95
setvirtualaddress 0x8488B95
checkflag 0x3D8
virtualjumpif 0x1 0x8488BD2
copyvarifnotzero 0x0 0x2
special2 0x8008 0x186
compare 0x8008 0x3
virtualjumpif 0x0 0x8488BD2
lock
faceplayer
virtualmsgbox 0x8488CF5 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
giveitem 0xD 0x1 0x0
release
setflag 0x3D8
end

'-----------------------
#org 0x488BD2
lock
faceplayer
virtualmsgbox 0x8488BDD '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x488CF5
= Thank you for using the MYSTERY\nGIFT System.\pCongratulations!\pYou have won a prize for winning\nthree battles!\pWe hope you will be inspired to\nbattle some more.

#org 0x488BDD
= Thank you for using the MYSTERY\nGIFT System.\pYour BATTLE COUNT CARD keeps\ntrack of your battle record against\lTRAINERS with the same CARD.\pLook for and battle TRAINERS who\nhave the same CARD as you.\pYou may check the overall rankings\nby reading the NEWS.\pPlease do give it a try!

E: 0x67513C

Spoiler:

'-----------------------
#org 0x67513C
setvirtualaddress 0x867513C
checkflag 0x1E4
virtualjumpif 0x1 0x8675179
copyvarifnotzero 0x0 0x2
special2 0x8008 0x188
compare 0x8008 0x3
virtualjumpif 0x0 0x8675179
lock
faceplayer
virtualmsgbox 0x867529C '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
giveitem 0xD 0x1 0x0
release
setflag 0x1E4
end

'-----------------------
#org 0x675179
lock
faceplayer
virtualmsgbox 0x8675184 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
release
end


'---------
' Strings
'---------
#org 0x67529C
= Thank you for using the MYSTERY\nGIFT System.\pCongratulations!\pYou have won a prize for winning\nthree battles!\pWe hope you will be inspired to\nbattle some more.

#org 0x675184
= Thank you for using the MYSTERY\nGIFT System.\pYour BATTLE COUNT CARD keeps\ntrack of your battle record against\lTRAINERS with the same CARD.\pLook for and battle TRAINERS who\nhave the same CARD as you.\pYou may check the overall rankings\nby reading the NEWS.\pPlease do give it a try!

No idea what this is, the script freezes so there must be something to set, but it mentions a battle count card which doesn't exist(?)

Surfing Pichu Egg
FR: 0x488EB5

Spoiler:

'-----------------------
#org 0x488EB5
setvirtualaddress 0x8488EB5
checkflag 0x3D8
virtualjumpif 0x0 0x8488EC4
jumpram
special2 0x40B5 0x83
compare 0x40B5 0x6
virtualjumpif 0x1 0x8488EEB
setflag 0x3D8
virtualcall 0x8488EF6
lock
faceplayer
virtualmsgbox 0x8488F56 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
fanfare 0x102
waitfanfare
release
end

'-----------------------
#org 0x488EC4
special2 0x40B5 0x83
compare 0x40B5 0x6
virtualjumpif 0x1 0x8488EEB
setflag 0x3D8
virtualcall 0x8488EF6
lock
faceplayer
virtualmsgbox 0x8488F56 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
fanfare 0x102
waitfanfare
release
end

'-----------------------
#org 0x488EEB
lock
faceplayer
virtualmsgbox 0x8488FE3 '"Oh, your party appears to be full.\..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x488EF6
giveegg 0xAC
setobedience 0x40B5
setcatchlocation 0x40B5 0xFF
compare 0x40B5 0x1
virtualjumpif 0x1 0x8488F38
compare 0x40B5 0x2
virtualjumpif 0x1 0x8488F3E
compare 0x40B5 0x3
virtualjumpif 0x1 0x8488F44
compare 0x40B5 0x4
virtualjumpif 0x1 0x8488F4A
compare 0x40B5 0x5
virtualjumpif 0x1 0x8488F50
return

'-----------------------
#org 0x488F38
setpkmnpp 0x1 0x2 0x39
return

'-----------------------
#org 0x488F3E
setpkmnpp 0x2 0x2 0x39
return

'-----------------------
#org 0x488F44
setpkmnpp 0x3 0x2 0x39
return

'-----------------------
#org 0x488F4A
setpkmnpp 0x4 0x2 0x39
return

'-----------------------
#org 0x488F50
setpkmnpp 0x5 0x2 0x39
return


'---------
' Strings
'---------
#org 0x488F56
= Thank you for using the MYSTERY\nGIFT System.\pFrom the POKéMON CENTER we\nhave a gift - a POKéMON EGG!\pPlease raise it with love and\nkindness.

#org 0x488FE3
= Oh, your party appears to be full.\pPlease come see me after storing\na POKéMON on a PC.

LG: 0x488791

Spoiler:

'-----------------------
#org 0x488791
setvirtualaddress 0x8488791
checkflag 0x3D8
virtualjumpif 0x0 0x84887A0
jumpram
special2 0x40B5 0x83
compare 0x40B5 0x6
virtualjumpif 0x1 0x84887C7
setflag 0x3D8
virtualcall 0x84887D2
lock
faceplayer
virtualmsgbox 0x8488832 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
fanfare 0x102
waitfanfare
release
end

'-----------------------
#org 0x4887A0
special2 0x40B5 0x83
compare 0x40B5 0x6
virtualjumpif 0x1 0x84887C7
setflag 0x3D8
virtualcall 0x84887D2
lock
faceplayer
virtualmsgbox 0x8488832 '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
fanfare 0x102
waitfanfare
release
end

'-----------------------
#org 0x4887C7
lock
faceplayer
virtualmsgbox 0x84888BF '"Oh, your party appears to be full.\..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x4887D2
giveegg 0xAC
setobedience 0x40B5
setcatchlocation 0x40B5 0xFF
compare 0x40B5 0x1
virtualjumpif 0x1 0x8488814
compare 0x40B5 0x2
virtualjumpif 0x1 0x848881A
compare 0x40B5 0x3
virtualjumpif 0x1 0x8488820
compare 0x40B5 0x4
virtualjumpif 0x1 0x8488826
compare 0x40B5 0x5
virtualjumpif 0x1 0x848882C
return

'-----------------------
#org 0x488814
setpkmnpp 0x1 0x2 0x39
return

'-----------------------
#org 0x48881A
setpkmnpp 0x2 0x2 0x39
return

'-----------------------
#org 0x488820
setpkmnpp 0x3 0x2 0x39
return

'-----------------------
#org 0x488826
setpkmnpp 0x4 0x2 0x39
return

'-----------------------
#org 0x48882C
setpkmnpp 0x5 0x2 0x39
return


'---------
' Strings
'---------
#org 0x488832
= Thank you for using the MYSTERY\nGIFT System.\pFrom the POKéMON CENTER we\nhave a gift - a POKéMON EGG!\pPlease raise it with love and\nkindness.

#org 0x4888BF
= Oh, your party appears to be full.\pPlease come see me after storing\na POKéMON on a PC.

E: 0x674D3D

Spoiler:

'-----------------------
#org 0x674D3D
setvirtualaddress 0x8674D3D
checkflag 0x1E4
virtualjumpif 0x0 0x8674D4C
jumpram
special2 0x40DD 0x86
compare 0x40DD 0x6
virtualjumpif 0x1 0x8674D73
setflag 0x1E4
virtualcall 0x8674D7E
lock
faceplayer
virtualmsgbox 0x8674DDE '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
fanfare 0x172
waitfanfare
release
end

'-----------------------
#org 0x674D4C
special2 0x40DD 0x86
compare 0x40DD 0x6
virtualjumpif 0x1 0x8674D73
setflag 0x1E4
virtualcall 0x8674D7E
lock
faceplayer
virtualmsgbox 0x8674DDE '"Thank you for using the MYSTERY\nGI..."
waitmsgbox
waitkeypress
fanfare 0x172
waitfanfare
release
end

'-----------------------
#org 0x674D73
lock
faceplayer
virtualmsgbox 0x8674E6A '"Oh, your party appears to be full.\..."
waitmsgbox
waitkeypress
release
end

'-----------------------
#org 0x674D7E
giveegg 0xAC
setobedience 0x40DD
setcatchlocation 0x40DD 0xFF
compare 0x40DD 0x1
virtualjumpif 0x1 0x8674DC0
compare 0x40DD 0x2
virtualjumpif 0x1 0x8674DC6
compare 0x40DD 0x3
virtualjumpif 0x1 0x8674DCC
compare 0x40DD 0x4
virtualjumpif 0x1 0x8674DD2
compare 0x40DD 0x5
virtualjumpif 0x1 0x8674DD8
return

'-----------------------
#org 0x674DC0
setpkmnpp 0x1 0x2 0x39
return

'-----------------------
#org 0x674DC6
setpkmnpp 0x2 0x2 0x39
return

'-----------------------
#org 0x674DCC
setpkmnpp 0x3 0x2 0x39
return

'-----------------------
#org 0x674DD2
setpkmnpp 0x4 0x2 0x39
return

'-----------------------
#org 0x674DD8
setpkmnpp 0x5 0x2 0x39
return


'---------
' Strings
'---------
#org 0x674DDE
= Thank you for using the MYSTERY\nGIFT System.\pFrom the POKéMON CENTER we\nhave a gift--a POKéMON EGG!\pPlease raise it with love and\nkindness.

#org 0x674E6A
= Oh, your party appears to be full.\pPlease come see me after storing\na POKéMON on a PC.

This script doesn't seem to be complete i.e. once the egg is received, the delivery man says nothing when you talk to him again. The egg also doesn't match any known events at all.

 

[Jaizu]

In Fire Red, the Behavior Type 93 in a block just calls a script that shows a text which says:

It's a blueprint of some sort.
It's filled with diagrams and text.

The offset for that text is 1C0FD8 and the pointer is at 1A763E
You can look for the script a few bytes before and you will see that the script offset is 1A763C.
Just open the offset with XSE and replace it with a call, so you can make your own scripts in the tiles, like the Headbutt script.
A Headbutt script can be found here: https://www.pokecommunity.com/threads/163607
I personally use the second one.