dionmoustos/Pokemon-Firered
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

finished mail_data

Browse Source
This commit is contained in:
jiangzhengwenjz
2019-06-28 11:04:15 +08:00
parent 8e8fe3bf44
commit d06166633f
16 changed files with 211 additions and 656 deletions
Download Patch File Download Diff File Expand all files Collapse all files
asm/mail_data.s
-626
View File
@@ -1,626 +0,0 @@
.include "asm/macros.inc"
.include "constants/constants.inc"
.syntax unified
.text
thumb_func_start ClearMailData
ClearMailData: @ 8097C84
push {r4,r5,lr}
movs r4, 0
ldr r5, _08097CAC @ =gSaveBlock1Ptr
_08097C8A:
lsls r1, r4, 3
adds r1, r4
lsls r1, 2
ldr r0, _08097CB0 @ =0x00002cd0
adds r1, r0
ldr r0, [r5]
adds r0, r1
bl ClearMailStruct
adds r0, r4, 0x1
lsls r0, 24
lsrs r4, r0, 24
cmp r4, 0xF
bls _08097C8A
pop {r4,r5}
pop {r0}
bx r0
.align 2, 0
_08097CAC: .4byte gSaveBlock1Ptr
_08097CB0: .4byte 0x00002cd0
thumb_func_end ClearMailData
thumb_func_start ClearMailStruct
ClearMailStruct: @ 8097CB4
push {r4-r6,lr}
adds r3, r0, 0
ldr r0, _08097D04 @ =0x0000ffff
adds r4, r0, 0
adds r1, r3, 0
movs r2, 0x8
_08097CC0:
ldrh r0, [r1]
orrs r0, r4
strh r0, [r1]
adds r1, 0x2
subs r2, 0x1
cmp r2, 0
bge _08097CC0
movs r2, 0
adds r6, r3, 0
adds r6, 0x1A
adds r4, r3, 0
adds r4, 0x12
movs r5, 0xFF
_08097CDA:
adds r1, r4, r2
ldrb r0, [r1]
orrs r0, r5
strb r0, [r1]
adds r2, 0x1
cmp r2, 0x7
ble _08097CDA
adds r1, r6, 0
movs r2, 0
adds r0, r1, 0x3
_08097CEE:
strb r2, [r0]
subs r0, 0x1
cmp r0, r1
bge _08097CEE
movs r1, 0
movs r0, 0x1
strh r0, [r3, 0x1E]
strh r1, [r3, 0x20]
pop {r4-r6}
pop {r0}
bx r0
.align 2, 0
_08097D04: .4byte 0x0000ffff
thumb_func_end ClearMailStruct
thumb_func_start MonHasMail
MonHasMail: @ 8097D08
push {r4,lr}
adds r4, r0, 0
movs r1, 0xC
bl GetMonData
lsls r0, 16
lsrs r0, 16
bl ItemIsMail
lsls r0, 24
cmp r0, 0
beq _08097D30
adds r0, r4, 0
movs r1, 0x40
bl GetMonData
cmp r0, 0xFF
beq _08097D30
movs r0, 0x1
b _08097D32
_08097D30:
movs r0, 0
_08097D32:
pop {r4}
pop {r1}
bx r1
thumb_func_end MonHasMail
thumb_func_start sub_8097D38
sub_8097D38: @ 8097D38
push {r4-r7,lr}
mov r7, r10
mov r6, r9
mov r5, r8
push {r5-r7}
sub sp, 0xC
mov r8, r0
lsls r1, 16
lsrs r0, r1, 16
str r0, [sp, 0x8]
mov r0, sp
movs r2, 0
ldrb r3, [r0, 0x8]
strb r3, [r0]
lsrs r1, 24
strb r1, [r0, 0x1]
add r4, sp, 0x4
strb r2, [r4]
mov r12, r4
mov r9, r4
adds r5, r4, 0
_08097D62:
ldr r2, _08097EC0 @ =gSaveBlock1Ptr
ldr r0, [r2]
ldrb r3, [r5]
lsls r1, r3, 3
adds r1, r3
lsls r1, 2
adds r0, r1
ldr r1, _08097EC4 @ =0x00002cf0
adds r0, r1
ldrh r0, [r0]
cmp r0, 0
beq _08097D7C
b _08097EE0
_08097D7C:
movs r4, 0
ldr r3, _08097EC8 @ =gSaveBlock2Ptr
mov r10, r3
adds r7, r2, 0
mov r5, r12
ldr r0, _08097ECC @ =0x0000ffff
adds r6, r0, 0
_08097D8A:
ldr r2, [r7]
lsls r3, r4, 1
ldrb r1, [r5]
lsls r0, r1, 3
adds r0, r1
lsls r0, 2
adds r3, r0
ldr r1, _08097ED0 @ =0x00002cd0
adds r2, r1
adds r2, r3
ldrh r0, [r2]
orrs r0, r6
strh r0, [r2]
adds r0, r4, 0x1
lsls r0, 24
lsrs r4, r0, 24
cmp r4, 0x8
bls _08097D8A
movs r4, 0
mov r2, r10
ldr r0, [r2]
ldrb r0, [r0]
cmp r0, 0xFF
beq _08097DEE
ldr r3, _08097EC8 @ =gSaveBlock2Ptr
_08097DBC:
ldr r0, _08097EC0 @ =gSaveBlock1Ptr
ldr r2, [r0]
mov r0, r12
ldrb r1, [r0]
lsls r0, r1, 3
adds r0, r1
lsls r0, 2
adds r0, r4, r0
ldr r1, _08097ED4 @ =0x00002ce2
adds r2, r1
adds r2, r0
ldr r0, [r3]
adds r0, r4
ldrb r0, [r0]
strb r0, [r2]
adds r0, r4, 0x1
lsls r0, 24
lsrs r4, r0, 24
cmp r4, 0x6
bhi _08097DEE
ldr r0, [r3]
adds r0, r4
ldrb r0, [r0]
cmp r0, 0xFF
bne _08097DBC
_08097DEE:
cmp r4, 0x5
bhi _08097E16
ldr r7, _08097EC0 @ =gSaveBlock1Ptr
mov r3, r12
ldr r6, _08097ED4 @ =0x00002ce2
movs r5, 0
_08097DFA:
ldr r2, [r7]
ldrb r1, [r3]
lsls r0, r1, 3
adds r0, r1
lsls r0, 2
adds r0, r4, r0
adds r2, r6
adds r2, r0
strb r5, [r2]
adds r0, r4, 0x1
lsls r0, 24
lsrs r4, r0, 24
cmp r4, 0x5
bls _08097DFA
_08097E16:
ldr r3, _08097EC0 @ =gSaveBlock1Ptr
ldr r2, [r3]
mov r0, r12
ldrb r1, [r0]
lsls r0, r1, 3
adds r0, r1
lsls r0, 2
adds r0, r4, r0
ldr r1, _08097ED4 @ =0x00002ce2
adds r2, r1
adds r2, r0
movs r0, 0xFF
strb r0, [r2]
movs r4, 0
adds r5, r3, 0
mov r3, r12
_08097E36:
ldr r2, [r5]
ldrb r1, [r3]
lsls r0, r1, 3
adds r0, r1
lsls r0, 2
adds r0, r4, r0
ldr r1, _08097ED8 @ =0x00002cea
adds r2, r1
adds r2, r0
mov r1, r10
ldr r0, [r1]
adds r0, 0xA
adds r0, r4
ldrb r0, [r0]
strb r0, [r2]
adds r0, r4, 0x1
lsls r0, 24
lsrs r4, r0, 24
cmp r4, 0x3
bls _08097E36
mov r0, r8
movs r1, 0xB
bl GetBoxMonData
adds r4, r0, 0
lsls r4, 16
lsrs r4, 16
mov r0, r8
movs r1, 0
bl GetBoxMonData
adds r1, r0, 0
adds r0, r4, 0
bl SpeciesToMailSpecies
ldr r1, _08097EC0 @ =gSaveBlock1Ptr
ldr r3, [r1]
mov r4, r9
ldrb r2, [r4]
lsls r1, r2, 3
adds r1, r2
lsls r1, 2
adds r1, r3, r1
ldr r2, _08097EDC @ =0x00002cee
adds r1, r2
strh r0, [r1]
ldrb r1, [r4]
lsls r0, r1, 3
adds r0, r1
lsls r0, 2
adds r3, r0
ldr r4, _08097EC4 @ =0x00002cf0
adds r3, r4
mov r0, sp
ldrh r0, [r0, 0x8]
strh r0, [r3]
mov r0, r8
movs r1, 0x40
mov r2, r9
bl SetMonData
mov r0, r8
movs r1, 0xC
mov r2, sp
bl SetMonData
mov r1, r9
ldrb r0, [r1]
b _08097EEE
.align 2, 0
_08097EC0: .4byte gSaveBlock1Ptr
_08097EC4: .4byte 0x00002cf0
_08097EC8: .4byte gSaveBlock2Ptr
_08097ECC: .4byte 0x0000ffff
_08097ED0: .4byte 0x00002cd0
_08097ED4: .4byte 0x00002ce2
_08097ED8: .4byte 0x00002cea
_08097EDC: .4byte 0x00002cee
_08097EE0:
adds r0, r3, 0x1
strb r0, [r4]
ldrb r0, [r5]
cmp r0, 0x5
bhi _08097EEC
b _08097D62
_08097EEC:
movs r0, 0xFF
_08097EEE:
add sp, 0xC
pop {r3-r5}
mov r8, r3
mov r9, r4
mov r10, r5
pop {r4-r7}
pop {r1}
bx r1
thumb_func_end sub_8097D38
thumb_func_start SpeciesToMailSpecies
SpeciesToMailSpecies: @ 8097F00
push {lr}
lsls r0, 16
lsrs r0, 16
cmp r0, 0xC9
bne _08097F18
adds r0, r1, 0
bl mon_icon_personality_to_unown_id
lsls r0, 16
ldr r1, _08097F1C @ =0x75300000
adds r0, r1
lsrs r0, 16
_08097F18:
pop {r1}
bx r1
.align 2, 0
_08097F1C: .4byte 0x75300000
thumb_func_end SpeciesToMailSpecies
thumb_func_start MailSpeciesToSpecies
MailSpeciesToSpecies: @ 8097F20
push {lr}
lsls r0, 16
lsrs r3, r0, 16
ldr r0, _08097F38 @ =0xffff8ad0
adds r2, r3, r0
lsls r0, r2, 16
lsrs r0, 16
cmp r0, 0x1B
bhi _08097F3C
movs r0, 0xC9
strh r2, [r1]
b _08097F3E
.align 2, 0
_08097F38: .4byte 0xffff8ad0
_08097F3C:
adds r0, r3, 0
_08097F3E:
pop {r1}
bx r1
thumb_func_end MailSpeciesToSpecies
thumb_func_start GiveMailToMon2
GiveMailToMon2: @ 8097F44
push {r4-r7,lr}
sub sp, 0x8
adds r6, r0, 0
adds r7, r1, 0
ldrh r5, [r7, 0x20]
adds r1, r5, 0
bl sub_8097D38
add r4, sp, 0x4
strb r0, [r4]
ldrb r2, [r4]
cmp r2, 0xFF
beq _08097FA8
ldr r0, _08097FA0 @ =gSaveBlock1Ptr
ldr r1, [r0]
lsls r0, r2, 3
adds r0, r2
lsls r0, 2
adds r1, r0
ldr r0, _08097FA4 @ =0x00002cd0
adds r1, r0
adds r0, r7, 0
ldm r0!, {r2,r3,r7}
stm r1!, {r2,r3,r7}
ldm r0!, {r2,r3,r7}
stm r1!, {r2,r3,r7}
ldm r0!, {r2,r3,r7}
stm r1!, {r2,r3,r7}
adds r0, r6, 0
movs r1, 0x40
adds r2, r4, 0
bl SetMonData
mov r0, sp
strb r5, [r0]
mov r1, sp
lsrs r0, r5, 8
strb r0, [r1, 0x1]
adds r0, r6, 0
movs r1, 0xC
mov r2, sp
bl SetMonData
ldrb r0, [r4]
b _08097FAA
.align 2, 0
_08097FA0: .4byte gSaveBlock1Ptr
_08097FA4: .4byte 0x00002cd0
_08097FA8:
movs r0, 0xFF
_08097FAA:
add sp, 0x8
pop {r4-r7}
pop {r1}
bx r1
thumb_func_end GiveMailToMon2
thumb_func_start sub_8097FB4
sub_8097FB4: @ 8097FB4
movs r0, 0
bx lr
thumb_func_end sub_8097FB4
thumb_func_start TakeMailFromMon
TakeMailFromMon: @ 8097FB8
push {r4,lr}
sub sp, 0x8
adds r4, r0, 0
bl MonHasMail
lsls r0, 24
cmp r0, 0
beq _08098008
adds r0, r4, 0
movs r1, 0x40
bl GetMonData
add r2, sp, 0x4
strb r0, [r2]
ldr r0, _08098010 @ =gSaveBlock1Ptr
ldr r3, [r0]
ldrb r1, [r2]
lsls r0, r1, 3
adds r0, r1
lsls r0, 2
adds r3, r0
ldr r0, _08098014 @ =0x00002cf0
adds r3, r0
movs r1, 0
movs r0, 0
strh r0, [r3]
movs r0, 0xFF
strb r0, [r2]
mov r0, sp
strb r1, [r0]
strb r1, [r0, 0x1]
adds r0, r4, 0
movs r1, 0x40
bl SetMonData
adds r0, r4, 0
movs r1, 0xC
mov r2, sp
bl SetMonData
_08098008:
add sp, 0x8
pop {r4}
pop {r0}
bx r0
.align 2, 0
_08098010: .4byte gSaveBlock1Ptr
_08098014: .4byte 0x00002cf0
thumb_func_end TakeMailFromMon
thumb_func_start sub_8098018
sub_8098018: @ 8098018
lsls r0, 24
lsrs r0, 24
ldr r1, _08098034 @ =gSaveBlock1Ptr
ldr r2, [r1]
lsls r1, r0, 3
adds r1, r0
lsls r1, 2
adds r2, r1
ldr r0, _08098038 @ =0x00002cf0
adds r2, r0
movs r0, 0
strh r0, [r2]
bx lr
.align 2, 0
_08098034: .4byte gSaveBlock1Ptr
_08098038: .4byte 0x00002cf0
thumb_func_end sub_8098018
thumb_func_start sub_809803C
sub_809803C: @ 809803C
push {r4-r7,lr}
mov r7, r9
mov r6, r8
push {r6,r7}
sub sp, 0xC
adds r5, r0, 0
mov r0, sp
movs r1, 0
strb r1, [r0]
strb r1, [r0, 0x1]
add r1, sp, 0x4
movs r0, 0xFF
strb r0, [r1]
movs r7, 0x6
mov r9, r1
ldr r0, _080980D0 @ =gSaveBlock1Ptr
mov r8, r0
ldr r3, _080980D4 @ =0x00002cd0
_08098060:
mov r1, r8
ldr r0, [r1]
lsls r1, r7, 3
adds r1, r7
lsls r1, 2
adds r4, r0, r1
ldr r2, _080980D8 @ =0x00002cf0
adds r0, r4, r2
ldrh r6, [r0]
cmp r6, 0
bne _080980DC
adds r4, r3
adds r0, r5, 0
movs r1, 0x40
str r3, [sp, 0x8]
bl GetMonData
mov r1, r8
ldr r2, [r1]
lsls r1, r0, 3
adds r1, r0
lsls r1, 2
adds r1, r2
ldr r3, [sp, 0x8]
adds r1, r3
ldm r1!, {r0,r2,r3}
stm r4!, {r0,r2,r3}
ldm r1!, {r0,r2,r3}
stm r4!, {r0,r2,r3}
ldm r1!, {r0,r2,r3}
stm r4!, {r0,r2,r3}
adds r0, r5, 0
movs r1, 0x40
bl GetMonData
mov r1, r8
ldr r2, [r1]
lsls r1, r0, 3
adds r1, r0
lsls r1, 2
adds r2, r1
ldr r3, _080980D8 @ =0x00002cf0
adds r2, r3
strh r6, [r2]
adds r0, r5, 0
movs r1, 0x40
mov r2, r9
bl SetMonData
adds r0, r5, 0
movs r1, 0xC
mov r2, sp
bl SetMonData
adds r0, r7, 0
b _080980E8
.align 2, 0
_080980D0: .4byte gSaveBlock1Ptr
_080980D4: .4byte 0x00002cd0
_080980D8: .4byte 0x00002cf0
_080980DC:
adds r0, r7, 0x1
lsls r0, 24
lsrs r7, r0, 24
cmp r7, 0xF
bls _08098060
movs r0, 0xFF
_080980E8:
add sp, 0xC
pop {r3,r4}
mov r8, r3
mov r9, r4
pop {r4-r7}
pop {r1}
bx r1
thumb_func_end sub_809803C
thumb_func_start ItemIsMail
ItemIsMail: @ 80980F8
push {lr}
lsls r0, 16
lsrs r0, 16
cmp r0, 0x84
bgt _0809810A
cmp r0, 0x79
blt _0809810A
movs r0, 0x1
b _0809810C
_0809810A:
movs r0, 0
_0809810C:
pop {r1}
bx r1
thumb_func_end ItemIsMail
.align 2, 0 @ Don't pad with nop.
asm/party_menu.s
+2 -2
View File
@@ -3543,7 +3543,7 @@ sub_81205C8: @ 81205C8
bne _081205F2
adds r0, r6, 0
adds r1, r4, 0
bl sub_8097D38
bl GiveMailToMon
lsls r0, 24
lsrs r0, 24
cmp r0, 0xFF
@@ -10776,7 +10776,7 @@ _08123EB2:
muls r0, r1
ldr r1, _08123EE8 @ =gPlayerParty
adds r0, r1
bl sub_809803C
bl TakeMailFromMon2
lsls r0, 24
lsrs r0, 24
cmp r0, 0xFF
asm/pokemon_icon.s
+4 -4
View File
@@ -166,7 +166,7 @@ mon_icon_convert_unown_species_id: @ 8096F5C
cmp r2, 0xC9
bne _08096F86
adds r0, r1, 0
bl mon_icon_personality_to_unown_id
bl GetUnownLetterByPersonality
lsls r0, 16
lsrs r0, 16
cmp r0, 0
@@ -195,8 +195,8 @@ _08096F92:
bx r1
thumb_func_end mon_icon_convert_unown_species_id
thumb_func_start mon_icon_personality_to_unown_id
mon_icon_personality_to_unown_id: @ 8096F98
thumb_func_start GetUnownLetterByPersonality
GetUnownLetterByPersonality: @ 8096F98
push {lr}
adds r2, r0, 0
cmp r2, 0
@@ -228,7 +228,7 @@ _08096FCE:
_08096FD0:
pop {r1}
bx r1
thumb_func_end mon_icon_personality_to_unown_id
thumb_func_end GetUnownLetterByPersonality
thumb_func_start sub_8096FD4
sub_8096FD4: @ 8096FD4
asm/wild_encounter.s
+4 -4
View File
@@ -482,7 +482,7 @@ _08082A8E:
lsrs r0, 16
orrs r4, r0
adds r0, r4, 0
bl GetUnownLetterByPersonality
bl GetUnownLetterByPersonalityLoByte
lsls r0, 24
lsrs r0, 24
cmp r0, r5
@@ -493,8 +493,8 @@ _08082A8E:
bx r1
thumb_func_end sub_8082A88
thumb_func_start GetUnownLetterByPersonality
GetUnownLetterByPersonality: @ 8082AB8
thumb_func_start GetUnownLetterByPersonalityLoByte
GetUnownLetterByPersonalityLoByte: @ 8082AB8
push {lr}
adds r2, r0, 0
movs r0, 0xC0
@@ -520,7 +520,7 @@ GetUnownLetterByPersonality: @ 8082AB8
lsrs r0, 24
pop {r1}
bx r1
thumb_func_end GetUnownLetterByPersonality
thumb_func_end GetUnownLetterByPersonalityLoByte
thumb_func_start sub_8082AEC
sub_8082AEC: @ 8082AEC