Development: Forms and Formes

[BluRose]

So.. I'm pretty much a noob when it comes to ASM. Which parts I can remove if I only want Giratin's Origin form? (Yeah, I'm sorry, I just never liked Arceus type change thing, I never became interested on it </3 ..)

just remove all of the .equ's (that deal with plates) at the top and the entries in the table at the bottom (that deal with plates)

 

[Lunos]

just remove all of the .equ's (that deal with plates) at the top and the entries in the table at the bottom (that deal with plates)

Kinda like this?

Spoiler:

.thumb
.thumb_func

.equ GriseousIndex, 0x____
.equ GiratinaIndex, 0x____
.equ GiratinaOIndex, 0x____

Start:
ldrb r1, [r4]
ldrb r0, [r4, #1]
lsl r0, r0, #8
add r1, r1, r0
mov r0, r8
strh r1, [r0, #2]
push {r0-r7}

Initialising:
ldrh r2, [r0]
ldr r6, GiratinaO
cmp r2, r6
beq GrisCheck
ldr r6, Giratina
cmp r2, r6
beq GrisCheck2

LoadGivenItem:
mov r6, #6
adr r5, Table
add r5, #4
mov r7, r1
bl LoopLoad
cmp r6, #0
bne ItemInTable

ItemNotInTable:
adr r5, Table
add r5, #6
mov r6, #6
mov r7, r2
bl LoopLoad
cmp r6, #1
bne Return
ldrh r4, [r5, #2]
b Changing

GrisCheck:
ldr r6, GriseousOrb
cmp r1, r6
beq LoadGivenItem
ldr r4, Giratina
b Changing

GrisCheck2:
ldr r6, GriseousOrb
cmp r1, r6
bne LoadGivenItem
ldr r4, GiratinaO
b Changing

ItemInTable:
ldrh r3, [r5, #2]
mov r7, r2
mov r6, #6
adr r5, Table
bl LoopLoad
cmp r6, #1
bne Return
mov r4, r3
b Changing

Return:
pop {r0-r7}
Return3:
ldr r0, Back
bx r0
Return2:
ldr r0, Back2
bx r0

Changing:
strh r4, [r0]
pop {r0-r7}
ldr r3, Limit
cmp r0, r3
bhi Return3
mov r0, r7
ldr r3, pokemon_calc_checksum
bl Call
strh r0, [r7, #0x1C]
mov r0, r7
ldr r3, pokemon_encrypt
bl Call
mov r0, r7
ldr r3, pokemon_calculate_stats
bl Call
b Return2

LoopLoad:
push {lr}
Looping:
ldrh r4, [r5]
cmp r4, #0
beq Nope
cmp r4, r7
beq Yep
add r5, r6
b Looping
Nope:
mov r6, #0
pop {pc}
Yep:
mov r6, #1
pop {pc}

Call:
mov pc, r3

.align 2
GriseousOrb: .word GriseousIndex
Giratina: .word GiratinaIndex
GiratinaO: .word GiratinaOIndex
pokemon_calc_checksum: .word 0x0803E3E8+1
pokemon_encrypt: .word 0x0803F8F8+1
pokemon_calculate_stats: .word 0x0803E47C+1
Back: .word 0x08040ADA+1
Back2: .word 0x08040AEE+1
Limit: .word 0x02024540

Thanks, gonna give it a try, I seriously didn't thought it would be that easy, I feel like it never is with ASM xD ..

EDIT: Nope, didn't worked.

 

[BluRose]

Kinda like this?

Spoiler:

.thumb
.thumb_func

.equ GriseousIndex, 0x____
.equ GiratinaIndex, 0x____
.equ GiratinaOIndex, 0x____

Start:
ldrb r1, [r4]
ldrb r0, [r4, #1]
lsl r0, r0, #8
add r1, r1, r0
mov r0, r8
strh r1, [r0, #2]
push {r0-r7}

Initialising:
ldrh r2, [r0]
ldr r6, GiratinaO
cmp r2, r6
beq GrisCheck
ldr r6, Giratina
cmp r2, r6
beq GrisCheck2

LoadGivenItem:
mov r6, #6
adr r5, Table
add r5, #4
mov r7, r1
bl LoopLoad
cmp r6, #0
bne ItemInTable

ItemNotInTable:
adr r5, Table
add r5, #6
mov r6, #6
mov r7, r2
bl LoopLoad
cmp r6, #1
bne Return
ldrh r4, [r5, #2]
b Changing

GrisCheck:
ldr r6, GriseousOrb
cmp r1, r6
beq LoadGivenItem
ldr r4, Giratina
b Changing

GrisCheck2:
ldr r6, GriseousOrb
cmp r1, r6
bne LoadGivenItem
ldr r4, GiratinaO
b Changing

ItemInTable:
ldrh r3, [r5, #2]
mov r7, r2
mov r6, #6
adr r5, Table
bl LoopLoad
cmp r6, #1
bne Return
mov r4, r3
b Changing

Return:
pop {r0-r7}
Return3:
ldr r0, Back
bx r0
Return2:
ldr r0, Back2
bx r0

Changing:
strh r4, [r0]
pop {r0-r7}
ldr r3, Limit
cmp r0, r3
bhi Return3
mov r0, r7
ldr r3, pokemon_calc_checksum
bl Call
strh r0, [r7, #0x1C]
mov r0, r7
ldr r3, pokemon_encrypt
bl Call
mov r0, r7
ldr r3, pokemon_calculate_stats
bl Call
b Return2

LoopLoad:
push {lr}
Looping:
ldrh r4, [r5]
cmp r4, #0
beq Nope
cmp r4, r7
beq Yep
add r5, r6
b Looping
Nope:
mov r6, #0
pop {pc}
Yep:
mov r6, #1
pop {pc}

Call:
mov pc, r3

.align 2
GriseousOrb: .word GriseousIndex
Giratina: .word GiratinaIndex
GiratinaO: .word GiratinaOIndex
pokemon_calc_checksum: .word 0x0803E3E8+1
pokemon_encrypt: .word 0x0803F8F8+1
pokemon_calculate_stats: .word 0x0803E47C+1
Back: .word 0x08040ADA+1
Back2: .word 0x08040AEE+1
Limit: .word 0x02024540

Thanks, gonna give it a try, I seriously didn't thought it would be that easy, I feel like it never is with ASM xD ..

EDIT: Nope, didn't worked.

Spoiler:

.thumb
.thumb_func

.equ GriseousIndex, 0x____
.equ GiratinaIndex, 0x____
.equ GiratinaOIndex, 0x____

.equ ArceusNormal, 0x____

.equ FistPlateIndex, 0x____
.equ ArceusFight, 0x____

.equ SkyPlateIndex, 0x____
.equ ArceusFly, 0x____

.equ ToxicPlateIndex, 0x____
.equ ArceusPoison, 0x____

.equ EarthPlateIndex, 0x____
.equ ArceusGround, 0x____

.equ StonePlateIndex, 0x____
.equ ArceusRock, 0x____

.equ InsectPlateIndex, 0x____
.equ ArceusBug, 0x____

.equ SpookyPlateIndex, 0x____
.equ ArceusGhost, 0x____

.equ IronPlateIndex, 0x____
.equ ArceusSteel, 0x____

.equ FlamePlateIndex, 0x____
.equ ArceusFire, 0x____

.equ SplashPlateIndex, 0x____
.equ ArceusWater, 0x____

.equ ZapPlateIndex, 0x____
.equ ArceusElectric, 0x____

.equ MeadowPlateIndex, 0x____
.equ ArceusGrass, 0x____

.equ IciclePlateIndex, 0x____
.equ ArceusIce, 0x____

.equ DracoPlateIndex, 0x____
.equ ArceusDragon, 0x____

.equ DreadPlateIndex, 0x____
.equ ArceusDark, 0x____

.equ PixiPlateIndex, 0x____
.equ ArceusFairy, 0x____

Start:
ldrb r1, [r4]
ldrb r0, [r4, #1]
lsl r0, r0, #8
add r1, r1, r0
mov r0, r8
strh r1, [r0, #2]
push {r0-r7}

Initialising:
ldrh r2, [r0]
ldr r6, GiratinaO
cmp r2, r6
beq GrisCheck
ldr r6, Giratina
cmp r2, r6
beq GrisCheck2

LoadGivenItem:
mov r6, #6
adr r5, Table
add r5, #4
mov r7, r1
bl LoopLoad
cmp r6, #0
bne ItemInTable

ItemNotInTable:
adr r5, Table
add r5, #6
mov r6, #6
mov r7, r2
bl LoopLoad
cmp r6, #1
bne Return
ldrh r4, [r5, #2]
b Changing

GrisCheck:
ldr r6, GriseousOrb
cmp r1, r6
beq LoadGivenItem
ldr r4, Giratina
b Changing

GrisCheck2:
ldr r6, GriseousOrb
cmp r1, r6
bne LoadGivenItem
ldr r4, GiratinaO
b Changing

ItemInTable:
ldrh r3, [r5, #2]
mov r7, r2
mov r6, #6
adr r5, Table
bl LoopLoad
cmp r6, #1
bne Return
mov r4, r3
b Changing

Return:
pop {r0-r7}
Return3:
ldr r0, Back
bx r0
Return2:
ldr r0, Back2
bx r0

Changing:
strh r4, [r0]
pop {r0-r7}
ldr r3, Limit
cmp r0, r3
bhi Return3
mov r0, r7
ldr r3, pokemon_calc_checksum
bl Call
strh r0, [r7, #0x1C]
mov r0, r7
ldr r3, pokemon_encrypt
bl Call
mov r0, r7
ldr r3, pokemon_calculate_stats
bl Call
b Return2

LoopLoad:
push {lr}
Looping:
ldrh r4, [r5]
cmp r4, #0
beq Nope
cmp r4, r7
beq Yep
add r5, r6
b Looping
Nope:
mov r6, #0
pop {pc}
Yep:
mov r6, #1
pop {pc}

Call:
mov pc, r3

.align 2
GriseousOrb: .word GriseousIndex
Giratina: .word GiratinaIndex
GiratinaO: .word GiratinaOIndex
pokemon_calc_checksum:	.word 0x0803E3E8+1
pokemon_encrypt:	.word 0x0803F8F8+1
pokemon_calculate_stats:	.word 0x0803E47C+1
Back:	.word 0x08040ADA+1
Back2:	.word 0x08040AEE+1
Limit: .word 0x02024540
Table:
.hword ArceusNormal, ArceusNormal, FistPlateIndex, ArceusFight, ArceusNormal, SkyPlateIndex, ArceusFly, ArceusNormal, ToxicPlateIndex
.hword ArceusPoison, ArceusNormal, EarthPlateIndex, ArceusGround, ArceusNormal, StonePlateIndex, ArceusRock, ArceusNormal, InsectPlateIndex
.hword ArceusBug, ArceusNormal, SpookyPlateIndex, ArceusGhost, ArceusNormal, IronPlateIndex, ArceusSteel, ArceusNormal, FlamePlateIndex
.hword ArceusFire, ArceusNormal, SplashPlateIndex, ArceusWater, ArceusNormal, ZapPlateIndex, ArceusElectric, ArceusNormal, MeadowPlateIndex
.hword ArceusGrass, ArceusNormal, IciclePlateIndex, ArceusIce, ArceusNormal, DracoPlateIndex, ArceusDragon, ArceusNormal, DreadPlateIndex
.hword ArceusDark, ArceusNormal, PixiPlateIndex, ArceusFairy, ArceusNormal, 0x0, 0x0, 0x0, 0x0

lol sorry i failed so hard
you can actually just define every single different form as the same index (normal arceus, in your case), but it would probably be better to change every reference to a different form back to "ArceusNormal" and then delete the rest of the .equ's (that aren't arceus normal)
this is a really bad way of doing it, but it should work

 

[~Ωmega]

I try to eliminate everything that was Arceus, but I do not know if it worked:

Spoiler:

.thumb
.thumb_func

.equ GriseousIndex, 0x____
.equ GiratinaIndex, 0x____
.equ GiratinaOIndex, 0x____

Start:
ldrb r1, [r4]
ldrb r0, [r4, #1]
lsl r0, r0, #8
add r1, r1, r0
mov r0, r8
strh r1, [r0, #2]
push {r0-r7}

Initialising:
ldrh r2, [r0]
ldr r6, GiratinaO
cmp r2, r6
beq GrisCheck
ldr r6, Giratina
cmp r2, r6
beq GrisCheck2

LoadGivenItem:
mov r6, #6
adr r5, Table
add r5, #4
mov r7, r1
bl LoopLoad
cmp r6, #0
bne ItemInTable

GrisCheck:
ldr r6, GriseousOrb
cmp r1, r6
beq LoadGivenItem
ldr r4, Giratina
b Changing

GrisCheck2:
ldr r6, GriseousOrb
cmp r1, r6
bne LoadGivenItem
ldr r4, GiratinaO
b Changing

Return:
pop {r0-r7}
Return3:
ldr r0, Back
bx r0
Return2:
ldr r0, Back2
bx r0

Changing:
strh r4, [r0]
pop {r0-r7}
ldr r3, Limit
cmp r0, r3
bhi Return3
mov r0, r7
ldr r3, pokemon_calc_checksum
bl Call
strh r0, [r7, #0x1C]
mov r0, r7
ldr r3, pokemon_encrypt
bl Call
mov r0, r7
ldr r3, pokemon_calculate_stats
bl Call
b Return2

LoopLoad:
push {lr}
Looping:
ldrh r4, [r5]
cmp r4, #0
beq Nope
cmp r4, r7
beq Yep
add r5, r6
b Looping
Nope:
mov r6, #0
pop {pc}
Yep:
mov r6, #1
pop {pc}

Call:
mov pc, r3

.align 2
GriseousOrb: .word GriseousIndex
Giratina: .word GiratinaIndex
GiratinaO: .word GiratinaOIndex
pokemon_calc_checksum: .word 0x0803E3E8+1
pokemon_encrypt: .word 0x0803F8F8+1
pokemon_calculate_stats: .word 0x0803E47C+1
Back: .word 0x08040ADA+1
Back2: .word 0x08040AEE+1
Limit: .word 0x02024540

 

[Lunos]

I try to eliminate everything that was Arceus, but I do not know if it worked:

Spoiler:

.thumb
.thumb_func

.equ GriseousIndex, 0x____
.equ GiratinaIndex, 0x____
.equ GiratinaOIndex, 0x____

Start:
ldrb r1, [r4]
ldrb r0, [r4, #1]
lsl r0, r0, #8
add r1, r1, r0
mov r0, r8
strh r1, [r0, #2]
push {r0-r7}

Initialising:
ldrh r2, [r0]
ldr r6, GiratinaO
cmp r2, r6
beq GrisCheck
ldr r6, Giratina
cmp r2, r6
beq GrisCheck2

LoadGivenItem:
mov r6, #6
adr r5, Table
add r5, #4
mov r7, r1
bl LoopLoad
cmp r6, #0
bne ItemInTable

GrisCheck:
ldr r6, GriseousOrb
cmp r1, r6
beq LoadGivenItem
ldr r4, Giratina
b Changing

GrisCheck2:
ldr r6, GriseousOrb
cmp r1, r6
bne LoadGivenItem
ldr r4, GiratinaO
b Changing

Return:
pop {r0-r7}
Return3:
ldr r0, Back
bx r0
Return2:
ldr r0, Back2
bx r0

Changing:
strh r4, [r0]
pop {r0-r7}
ldr r3, Limit
cmp r0, r3
bhi Return3
mov r0, r7
ldr r3, pokemon_calc_checksum
bl Call
strh r0, [r7, #0x1C]
mov r0, r7
ldr r3, pokemon_encrypt
bl Call
mov r0, r7
ldr r3, pokemon_calculate_stats
bl Call
b Return2

LoopLoad:
push {lr}
Looping:
ldrh r4, [r5]
cmp r4, #0
beq Nope
cmp r4, r7
beq Yep
add r5, r6
b Looping
Nope:
mov r6, #0
pop {pc}
Yep:
mov r6, #1
pop {pc}

Call:
mov pc, r3

.align 2
GriseousOrb: .word GriseousIndex
Giratina: .word GiratinaIndex
GiratinaO: .word GiratinaOIndex
pokemon_calc_checksum: .word 0x0803E3E8+1
pokemon_encrypt: .word 0x0803F8F8+1
pokemon_calculate_stats: .word 0x0803E47C+1
Back: .word 0x08040ADA+1
Back2: .word 0x08040AEE+1
Limit: .word 0x02024540

It didn't, but you got a different error than I.

 

[kleenexfeu]

It didn't, but you got a different error than I.

Just put an index that you're sure you won't use, like 0x800.

 

[Lunos]

Just put an index that you're sure you won't use, like 0x800.

LMAO, I seriously tried to assemble it without modifying both Giratinas and the Griseous Orb's IDs, I'm such a failure x'DDD .. gonna give it a try again.

 

[Froosty]

Alright, I have been asked to share the routines I made for form(e) changing in Platinum Red & Blue multiple times, and I finally found the time to do so. This thread will be updated as I clean up old routines and create new ones. Enjoy.

Spoiler:

Burmy

Spoiler:

These routines will transform any Burmy that enters the battlefield according to the terrain.

The first routine, burmytransformjump:

.thumb

main:
	ldr r3, burmytransform
	mov pc, r3

burmytransform:	.word 0x________	@address of burmytransform.asm here

continue:
	str r0, [sp]

/*insert at 08030D40*/

That routine loads a second routine, burmytransform:

.thumb

getdex:
	mov r1, #0xB
	ldr r3, pokemon_getattr
	bl jump
	mov r6, r0
	ldr r3, species_to_pokedex_index
	bl jump
compareburmy:
	ldr r1, burmy_dex
	cmp r0, r1
	bne ender
getform:
	ldr r0, idx_for_battle_screen_elements_by_env
	ldrb r0, [r0]
	lsl r0, #0x1
	ldr r2, area_to_burmy_cloak_table
	add r2, r0
	ldrh r0, [r2]
	cmp r0, #0x0
	beq ender
burmeeeeeeeeeeeeeeeeeeh:
	mov r0, r4
	mov r1, #0xB
	ldr r3, pokemon_setattr
	bl jump
ender:
	mov r0, r6
	ldr r3, return
jump:
	mov pc, r3
	
.align
	pokemon_getattr:			.word 0x0803FBE8
	species_to_pokedex_index:		.word 0x08043298
	idx_for_battle_screen_elements_by_env:	.word 0x02022B50
	area_to_burmy_cloak_table:		.word 0x________	@pointer to burmytable here
	pokemon_setattr:			.word 0x0804037C
	return:					.word 0x08030D48
	burmy_dex:				.word ____		@dex number of burmy here

/*insert anywhere. place a pointer to this routine in burmytransformjump.*/

Now, this routine uses a so-called burmytable. It has ten halfword entries, being either zero or the index number of the following forms:

plant plant sandy 0000 0000 0000 sandy sandy trash plant

Insert it anywhere, and place a pointer to it in the routine above.

A note on spelling

Spoiler:

Please use the word forme for legendaries and form for other Pokémon. Thank you.

About the burmy form change,
I think mothim also changes its form accordingly,
but in the routine above you have asked to insert the dex number of burmy,
then how can i do the form change for mothim ???

 

[Christos]

About the burmy form change,
I think mothim also changes its form accordingly,
but in the routine above you have asked to insert the dex number of burmy,
then how can i do the form change for mothim ???

Mothim has no alternate forms.

 

[Froosty]

Mothim has no alternate forms.

Sorry but I usually get confused with burmy's male and female evolution...
I was actually talking about Wormadam !!!
any idea???

 

[Christos]

Sorry but I usually get confused with burmy's male and female evolution...
I was actually talking about Wormadam !!!
any idea???

Once Burmy evolves into Wormadam, its form no longer changes, it's permanent.

 

[Versekr Dark]

Sorry there is a way to do the ability of aegislash in FR, what happens is that I can not find it in Abilities resource thread and I already search on all the pages.

 

[AtecainCorp.]

ABOUT GIRATINA AND ARCEUS.

You forget add into the code MIND PLATE and ARCEUS PSYCHIC.... Too good that this list can be expanded... For All fellow Pokemon Ruby Hackers... Take this pointers from me for instering arceus and Giratina <And even Silvally> System...

Things you need change from Emerald Port is...

pokemon_calc_checksum: .word 0x0803b120
pokemon_encrypt: .word 0x0809d540
pokemon_calculate_stats: .word 0x0803b1b0
Back: .word 0x0803D8E2+1
Back2: .word 0x0803d8f6+1

For repoing " 00 49 08 47 xx+1 xx xx 08 " part.... It was in pointer 0x3d598

I tested it on my current Pokemon Ruby Rombase and works ideal.

 

[Super Versekr Dark]

How can I make silvally change shape?


I have modified the arceus but I think it does not work.

Spoiler:

.thumb
.thumb_func

.equ GriseousIndex, 0x1AA
.equ GiratinaIndex, 0x21C
.equ GiratinaOIndex, 0x483

.equ ArceusNormal, 0x222

.equ FistPlateIndex, 0x1AB
.equ ArceusFight, 0x484

.equ SkyPlateIndex, 0x1AC
.equ ArceusFly, 0x485

.equ ToxicPlateIndex, 0x1AD
.equ ArceusPoison, 0x486

.equ EarthPlateIndex, 0x1AE
.equ ArceusGround, 0x487

.equ StonePlateIndex, 0x1AF
.equ ArceusRock, 0x488

.equ InsectPlateIndex, 0x1B0
.equ ArceusBug, 0x489

.equ SpookyPlateIndex, 0x1B1
.equ ArceusGhost, 0x48A

.equ IronPlateIndex, 0x1B2
.equ ArceusSteel, 0x48B

.equ FlamePlateIndex, 0x1B3
.equ ArceusFire, 0x48C

.equ SplashPlateIndex, 0x1B4
.equ ArceusWater, 0x48D

.equ ZapPlateIndex, 0x1B5
.equ ArceusElectric, 0x48E

.equ MeadowPlateIndex, 0x1B6
.equ ArceusGrass, 0x48F

.equ IciclePlateIndex, 0x1B7
.equ ArceusIce, 0x490

.equ DracoPlateIndex, 0x1B8
.equ ArceusDragon, 0x491

.equ DreadPlateIndex, 0x1B9
.equ ArceusDark, 0x492

.equ MindPlateIndex, 0x1BA
.equ ArceusPsychic, 0x493

.equ PixiPlateIndex, 0x1BD
.equ ArceusFairy, 0x4AA

.equ SilvallyNormal, 0x33F

.equ FightingMemoryIndex, 0x1AB
.equ SilvallyFight, 0x4AB

.equ FlyingMemoryIndex, 0x1AC
.equ SilvallyFly, 0x4AC

.equ PoisonMemoryIndex, 0x1AD
.equ SilvallyPoison, 0x4AD

.equ GroundMemoryIndex, 0x1AE
.equ SilvallyGround, 0x4AE

.equ RockMemoryIndex, 0x1AF
.equ SilvallyRock, 0x4AF

.equ BugMemoryIndex, 0x1B0
.equ SilvallyBug, 0x4B0

.equ GhostMemoryIndex, 0x1B1
.equ SilvallyGhost, 0x4B1

.equ SteelMemoryIndex, 0x1B2
.equ SilvallySteel, 0x4B2

.equ FireMemoryIndex, 0x1B3
.equ SilvallyFire, 0x4B3

.equ WaterMemoryIndex, 0x1B4
.equ SilvallyWater, 0x4B4

.equ ElectricMemoryIndex, 0x1B5
.equ SilvallyElectric, 0x4B5

.equ GrassMemoryIndex, 0x1B6
.equ SilvallyGrass, 0x4B6

.equ IceMemoryIndex, 0x1B7
.equ SilvallyIce, 0x4B7

.equ DragonMemoryIndex, 0x1B8
.equ SilvallyDragon, 0x4B8

.equ DarkMemoryIndex, 0x1B9
.equ SilvallyDark, 0x4B9

.equ PsychicMemoryIndex, 0x1BA
.equ SilvallyPsychic, 0x4BA

.equ FairyMemory, 0x1BD
.equ SilvallyFairy, 0x4BB

Start:
ldrb r1, [r4]
ldrb r0, [r4, #1]
lsl r0, r0, #8
add r1, r1, r0
mov r0, r8
strh r1, [r0, #2]
push {r0-r7}

Initialising:
ldrh r2, [r0]
ldr r6, GiratinaO
cmp r2, r6
beq GrisCheck
ldr r6, Giratina
cmp r2, r6
beq GrisCheck2

LoadGivenItem:
mov r6, #6
adr r5, Table
add r5, #4
mov r7, r1
bl LoopLoad
cmp r6, #0
bne ItemInTable

ItemNotInTable:
adr r5, Table
add r5, #6
mov r6, #6
mov r7, r2
bl LoopLoad
cmp r6, #1
bne Return
ldrh r4, [r5, #2]
b Changing

GrisCheck:
ldr r6, GriseousOrb
cmp r1, r6
beq LoadGivenItem
ldr r4, Giratina
b Changing

GrisCheck2:
ldr r6, GriseousOrb
cmp r1, r6
bne LoadGivenItem
ldr r4, GiratinaO
b Changing

ItemInTable:
ldrh r3, [r5, #2]
mov r7, r2
mov r6, #6
adr r5, Table
bl LoopLoad
cmp r6, #1
bne Return
mov r4, r3
b Changing

Return:
pop {r0-r7}
Return3:
ldr r0, Back
bx r0
Return2:
ldr r0, Back2
bx r0

Changing:
strh r4, [r0]
pop {r0-r7}
ldr r3, Limit
cmp r0, r3
bhi Return3
mov r0, r7
ldr r3, pokemon_calc_checksum
bl Call
strh r0, [r7, #0x1C]
mov r0, r7
ldr r3, pokemon_encrypt
bl Call
mov r0, r7
ldr r3, pokemon_calculate_stats
bl Call
b Return2

LoopLoad:
push {lr}
Looping:
ldrh r4, [r5]
cmp r4, #0
beq Nope
cmp r4, r7
beq Yep
add r5, r6
b Looping
Nope:
mov r6, #0
pop {pc}
Yep:
mov r6, #1
pop {pc}

Call:
mov pc, r3

.align 2
GriseousOrb: .word GriseousIndex
Giratina: .word GiratinaIndex
GiratinaO: .word GiratinaOIndex
pokemon_calc_checksum: .word 0x0803E3E8+1
pokemon_encrypt: .word 0x0803F8F8+1
pokemon_calculate_stats: .word 0x0803E47C+1
Back: .word 0x08040ADA+1
Back2: .word 0x08040AEE+1
Limit: .word 0x02024540
Table:
.hword ArceusNormal, ArceusNormal, FistPlateIndex, ArceusFight, ArceusNormal, SkyPlateIndex, ArceusFly, ArceusNormal, ToxicPlateIndex
.hword ArceusPoison, ArceusNormal, EarthPlateIndex, ArceusGround, ArceusNormal, StonePlateIndex, ArceusRock, ArceusNormal, InsectPlateIndex
.hword ArceusBug, ArceusNormal, SpookyPlateIndex, ArceusGhost, ArceusNormal, IronPlateIndex, ArceusSteel, ArceusNormal, FlamePlateIndex
.hword ArceusFire, ArceusNormal, SplashPlateIndex, ArceusWater, ArceusNormal, ZapPlateIndex, ArceusElectric, ArceusNormal, MeadowPlateIndex
.hword ArceusGrass, ArceusNormal, IciclePlateIndex, ArceusIce, ArceusNormal, DracoPlateIndex, ArceusDragon, ArceusNormal, DreadPlateIndex
.hword ArceusDark, ArceusNormal,MindPlateIndex, ArceusPsychic, ArceusNormal, PixiPlateIndex, ArceusFairy, ArceusNormal
.hword SilvallyNormal, SilvallyNormal, FightingMemoryIndex, SilvallyFight, SilvallyNormal, FlyingMemoryIndex, SilvallyFly, SilvallyNormal, PoisonMemoryIndex
.hword SilvallyPoison, SilvallyNormal, GroundMemoryIndex, SilvallyGround, SilvallyNormal, RockMemoryIndex, SilvallyRock, SilvallyNormal, BugMemoryIndex
.hword SilvallyBug, SilvallyNormal, GhostMemoryIndex, SilvallyGhost, SilvallyNormal, SteelMemoryIndex, SilvallySteel, SilvallyNormal, FireMemoryIndex
.hword SilvallyFire, SilvallyNormal, WaterMemoryIndex, SilvallyWater, SilvallyNormal, ElectricMemoryIndex, SilvallyElectric, SilvallyNormal, GrassMemoryIndex
.hword SilvallyGrass, SilvallyNormal, IceMemoryIndex, SilvallyIce, SilvallyNormal, DragonMemoryIndex, SilvallyDragon, SilvallyNormal, DarkMemoryIndex
.hword SilvallyDark, SilvallyNormal, PsychicMemoryIndex, SilvallyPsychic, SilvallyNormal, FairyMemory, SilvallyFairy, SilvallyNormal, 0x0
.hword 0x0, 0x0, 0x0

Spoiler:

.thumb
.thumb_func

.equ GriseousIndex, 0x1AA
.equ GiratinaIndex, 0x21C
.equ GiratinaOIndex, 0x483

.equ ArceusNormal, 0x222

.equ FistPlateIndex, 0x1AB
.equ ArceusFight, 0x484

.equ SkyPlateIndex, 0x1AC
.equ ArceusFly, 0x485

.equ ToxicPlateIndex, 0x1AD
.equ ArceusPoison, 0x486

.equ EarthPlateIndex, 0x1AE
.equ ArceusGround, 0x487

.equ StonePlateIndex, 0x1AF
.equ ArceusRock, 0x488

.equ InsectPlateIndex, 0x1B0
.equ ArceusBug, 0x489

.equ SpookyPlateIndex, 0x1B1
.equ ArceusGhost, 0x48A

.equ IronPlateIndex, 0x1B2
.equ ArceusSteel, 0x48B

.equ FlamePlateIndex, 0x1B3
.equ ArceusFire, 0x48C

.equ SplashPlateIndex, 0x1B4
.equ ArceusWater, 0x48D

.equ ZapPlateIndex, 0x1B5
.equ ArceusElectric, 0x48E

.equ MeadowPlateIndex, 0x1B6
.equ ArceusGrass, 0x48F

.equ IciclePlateIndex, 0x1B7
.equ ArceusIce, 0x490

.equ DracoPlateIndex, 0x1B8
.equ ArceusDragon, 0x491

.equ DreadPlateIndex, 0x1B9
.equ ArceusDark, 0x492

.equ MindPlateIndex, 0x1BA
.equ ArceusPsychic, 0x493

.equ PixiPlateIndex, 0x1BD
.equ ArceusFairy, 0x4AA

.equ FightingMemoryIndex, 0x1AB
.equ SilvallyNormal, 0x33F
.equ SilvallyFight, 0x4AB

.equ FlyingMemoryIndex, 0x1AC
.equ SilvallyNormal, 0x33F
.equ SilvallyFly, 0x4AC

.equ PoisonMemoryIndex, 0x1AD
.equ SilvallyNormal, 0x33F
.equ SilvallyPoison, 0x4AD

.equ GroundMemoryIndex, 0x1AE
.equ SilvallyNormal, 0x33F
.equ SilvallyGround, 0x4AE

.equ RockMemoryIndex, 0x1AF
.equ SilvallyNormal, 0x33F
.equ SilvallyRock, 0x4AF

.equ BugMemoryIndex, 0x1B0
.equ SilvallyNormal, 0x33F
.equ SilvallyBug, 0x4B0

.equ GhostMemoryIndex, 0x1B1
.equ SilvallyNormal, 0x33F
.equ SilvallyGhost, 0x4B1

.equ SteelMemoryIndex, 0x1B2
.equ SilvallyNormal, 0x33F
.equ SilvallySteel, 0x4B2

.equ FireMemoryIndex, 0x1B3
.equ SilvallyNormal, 0x33F
.equ SilvallyFire, 0x4B3

.equ WaterMemoryIndex, 0x1B4
.equ SilvallyNormal, 0x33F
.equ SilvallyWater, 0x4B4

.equ ElectricMemoryIndex, 0x1B5
.equ SilvallyNormal, 0x33F
.equ SilvallyElectric, 0x4B5

.equ GrassMemoryIndex, 0x1B6
.equ SilvallyNormal, 0x33F
.equ SilvallyGrass, 0x4B6

.equ IceMemoryIndex, 0x1B7
.equ SilvallyNormal, 0x33F
.equ SilvallyIce, 0x4B7

.equ DragonMemoryIndex, 0x1B8
.equ SilvallyNormal, 0x33F
.equ SilvallyDragon, 0x4B8

.equ DarkMemoryIndex, 0x1B9
.equ SilvallyNormal, 0x33F
.equ SilvallyDark, 0x4B9

.equ PsychicMemoryIndex, 0x1BA
.equ SilvallyNormal, 0x33F
.equ SilvallyPsychic, 0x4BA

.equ FairyMemory, 0x1BD
.equ SilvallyNormal, 0x33F
.equ SilvallyFairy, 0x4BB

Start:
ldrb r1, [r4]
ldrb r0, [r4, #1]
lsl r0, r0, #8
add r1, r1, r0
mov r0, r8
strh r1, [r0, #2]
push {r0-r7}

Initialising:
ldrh r2, [r0]
ldr r6, GiratinaO
cmp r2, r6
beq GrisCheck
ldr r6, Giratina
cmp r2, r6
beq GrisCheck2

LoadGivenItem:
mov r6, #6
adr r5, Table
add r5, #4
mov r7, r1
bl LoopLoad
cmp r6, #0
bne ItemInTable

ItemNotInTable:
adr r5, Table
add r5, #6
mov r6, #6
mov r7, r2
bl LoopLoad
cmp r6, #1
bne Return
ldrh r4, [r5, #2]
b Changing

GrisCheck:
ldr r6, GriseousOrb
cmp r1, r6
beq LoadGivenItem
ldr r4, Giratina
b Changing

GrisCheck2:
ldr r6, GriseousOrb
cmp r1, r6
bne LoadGivenItem
ldr r4, GiratinaO
b Changing

ItemInTable:
ldrh r3, [r5, #2]
mov r7, r2
mov r6, #6
adr r5, Table
bl LoopLoad
cmp r6, #1
bne Return
mov r4, r3
b Changing

Return:
pop {r0-r7}
Return3:
ldr r0, Back
bx r0
Return2:
ldr r0, Back2
bx r0

Changing:
strh r4, [r0]
pop {r0-r7}
ldr r3, Limit
cmp r0, r3
bhi Return3
mov r0, r7
ldr r3, pokemon_calc_checksum
bl Call
strh r0, [r7, #0x1C]
mov r0, r7
ldr r3, pokemon_encrypt
bl Call
mov r0, r7
ldr r3, pokemon_calculate_stats
bl Call
b Return2

LoopLoad:
push {lr}
Looping:
ldrh r4, [r5]
cmp r4, #0
beq Nope
cmp r4, r7
beq Yep
add r5, r6
b Looping
Nope:
mov r6, #0
pop {pc}
Yep:
mov r6, #1
pop {pc}

Call:
mov pc, r3

.align 2
GriseousOrb: .word GriseousIndex
Giratina: .word GiratinaIndex
GiratinaO: .word GiratinaOIndex
pokemon_calc_checksum: .word 0x0803E3E8+1
pokemon_encrypt: .word 0x0803F8F8+1
pokemon_calculate_stats: .word 0x0803E47C+1
Back: .word 0x08040ADA+1
Back2: .word 0x08040AEE+1
Limit: .word 0x02024540
Table:
.hword ArceusNormal, ArceusNormal, FistPlateIndex, ArceusFight, ArceusNormal, SkyPlateIndex, ArceusFly, ArceusNormal, ToxicPlateIndex
.hword ArceusPoison, ArceusNormal, EarthPlateIndex, ArceusGround, ArceusNormal, StonePlateIndex, ArceusRock, ArceusNormal, InsectPlateIndex
.hword ArceusBug, ArceusNormal, SpookyPlateIndex, ArceusGhost, ArceusNormal, IronPlateIndex, ArceusSteel, ArceusNormal, FlamePlateIndex
.hword ArceusFire, ArceusNormal, SplashPlateIndex, ArceusWater, ArceusNormal, ZapPlateIndex, ArceusElectric, ArceusNormal, MeadowPlateIndex
.hword ArceusGrass, ArceusNormal, IciclePlateIndex, ArceusIce, ArceusNormal, DracoPlateIndex, ArceusDragon, ArceusNormal, DreadPlateIndex
.hword ArceusDark, ArceusNormal,MindPlateIndex, ArceusPsychic, ArceusNormal, PixiPlateIndex, ArceusFairy, ArceusNormal
.hword SilvallyNormal, SilvallyNormal, FightingMemoryIndex, SilvallyFight, SilvallyNormal, FlyingMemoryIndex, SilvallyFly, SilvallyNormal, PoisonMemoryIndex
.hword SilvallyPoison, SilvallyNormal, GroundMemoryIndex, SilvallyGround, SilvallyNormal, RockMemoryIndex, SilvallyRock, SilvallyNormal, BugMemoryIndex
.hword SilvallyBug, SilvallyNormal, GhostMemoryIndex, SilvallyGhost, SilvallyNormal, SteelMemoryIndex, SilvallySteel, SilvallyNormal, FireMemoryIndex
.hword SilvallyFire, SilvallyNormal, WaterMemoryIndex, SilvallyWater, SilvallyNormal, ElectricMemoryIndex, SilvallyElectric, SilvallyNormal, GrassMemoryIndex
.hword SilvallyGrass, SilvallyNormal, IceMemoryIndex, SilvallyIce, SilvallyNormal, DragonMemoryIndex, SilvallyDragon, SilvallyNormal, DarkMemoryIndex
.hword SilvallyDark, SilvallyNormal, PsychicMemoryIndex, SilvallyPsychic, SilvallyNormal, FairyMemory, SilvallyFairy, SilvallyNormal, 0x0
.hword 0x0, 0x0, 0x0