1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
.gba
.thumb
.open "pokeemerald.gba", "pokeemerald_firstbattle.gba", 0x08000000
SET_UP_BATTLE_VARS_AND_BIRCH_ZIGZAGOON_HOOK_ADDR equ 0x08032704
SET_UP_BATTLE_VARS_AND_BIRCH_ZIGZAGOON_CONTINUED equ 0x08032728
CREATE_MON equ 0x08067B4C
SET_MON_DATA equ 0x0806ACAC
NEW_SUBR_ADDR equ 0x08FE0000
; Hook that jumps to our new subroutine
.org SET_UP_BATTLE_VARS_AND_BIRCH_ZIGZAGOON_HOOK_ADDR
bl org() + 6
b SET_UP_BATTLE_VARS_AND_BIRCH_ZIGZAGOON_CONTINUED
ldr r2,=#(NEW_SUBR_ADDR + 1)
bx r2
.pool
; New subroutine that can call CreateMon and SetMonData with a pc-relative loaded constant
; Note that these functions are out of range of using bl, so we call them with an alternate method
.org NEW_SUBR_ADDR
.area 72
push { r4-r6, lr }
sub sp, #0x14
ldr r4,=#0x02024744
ldr r1,=#0x120 ; Zigzagoon
mov r2, #0x2 ; Level 2
mov r5, #0x0
str r5, [sp]
str r5, [sp, #0x4]
str r5, [sp, #0x8]
str r5, [sp, #0xC]
add r0, r4, #0x0
mov r3, #0x20
bl org() + 6
b org() + 6
ldr r6,=#(CREATE_MON + 1)
bx r6
str r5, [sp, #0x10]
add r0, r4, #0x0
mov r1, #0xC
add r2, sp, #0x10
bl org() + 6
b org() + 6
ldr r6,=#(SET_MON_DATA + 1)
bx r6
add sp, #0x14
pop { r4-r6, pc }
.pool
.endarea
.close
|
