mirror of
https://github.com/pret/pmd-red.git
synced 2026-07-03 00:51:02 -05:00
408 lines
5.9 KiB
ArmAsm
408 lines
5.9 KiB
ArmAsm
#include "asm/constants/gba_constants.inc"
|
|
#include "asm/macros.inc"
|
|
|
|
.syntax unified
|
|
|
|
.text
|
|
|
|
thumb_func_start DecideMovement
|
|
DecideMovement:
|
|
push {r4-r7,lr}
|
|
mov r7, r10
|
|
mov r6, r9
|
|
mov r5, r8
|
|
push {r5-r7}
|
|
sub sp, 0x3C
|
|
mov r9, r0
|
|
lsls r1, 24
|
|
lsrs r7, r1, 24
|
|
ldr r5, [r0, 0x70]
|
|
movs r0, 0xB6
|
|
lsls r0, 1
|
|
adds r1, r5, r0
|
|
adds r4, r5, 0
|
|
adds r4, 0x88
|
|
ldr r0, [r4]
|
|
str r0, [r1]
|
|
mov r2, r9
|
|
ldr r1, [r2, 0x4]
|
|
ldr r0, [r4]
|
|
cmp r1, r0
|
|
beq _0807B348
|
|
mov r6, r9
|
|
adds r6, 0x4
|
|
adds r0, r6, 0
|
|
adds r1, r4, 0
|
|
bl CalculateFacingDir
|
|
mov r8, r0
|
|
adds r0, r5, 0
|
|
adds r0, 0x7A
|
|
ldrb r1, [r0]
|
|
mov r0, r9
|
|
bl ShouldAvoidFirstHit
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _0807B366
|
|
adds r0, r5, 0
|
|
adds r0, 0x78
|
|
ldrb r0, [r0]
|
|
cmp r0, 0x1
|
|
bne _0807B37C
|
|
adds r0, r6, 0
|
|
adds r1, r4, 0
|
|
bl IsTargetTwoTilesAway
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _0807B37C
|
|
adds r0, r6, 0
|
|
adds r1, r4, 0
|
|
bl GetDistance
|
|
cmp r0, 0x2
|
|
bne _0807B354
|
|
_0807B348:
|
|
adds r0, r5, 0
|
|
adds r0, 0x44
|
|
movs r1, 0x1
|
|
bl SetAction
|
|
b _0807B5CE
|
|
_0807B354:
|
|
cmp r0, 0x1
|
|
bgt _0807B37C
|
|
movs r3, 0x4
|
|
add r8, r3
|
|
movs r0, 0x7
|
|
mov r1, r8
|
|
ands r1, r0
|
|
mov r8, r1
|
|
b _0807B37C
|
|
_0807B366:
|
|
adds r0, r5, 0
|
|
adds r0, 0x7B
|
|
ldrb r0, [r0]
|
|
cmp r0, 0
|
|
beq _0807B37C
|
|
movs r2, 0x4
|
|
add r8, r2
|
|
movs r0, 0x7
|
|
mov r3, r8
|
|
ands r3, r0
|
|
mov r8, r3
|
|
_0807B37C:
|
|
add r4, sp, 0x30
|
|
mov r0, r9
|
|
mov r1, r8
|
|
adds r2, r4, 0
|
|
bl CanMoveForward
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _0807B3A8
|
|
adds r0, r5, 0
|
|
adds r0, 0x44
|
|
movs r2, 0x2
|
|
ldrsh r1, [r5, r2]
|
|
bl SetWalkAction
|
|
movs r0, 0x7
|
|
mov r3, r8
|
|
ands r3, r0
|
|
adds r0, r5, 0
|
|
adds r0, 0x46
|
|
strb r3, [r0]
|
|
b _0807B5CE
|
|
_0807B3A8:
|
|
ldrb r0, [r4]
|
|
cmp r0, 0
|
|
beq _0807B444
|
|
ldrb r0, [r5, 0x6]
|
|
cmp r0, 0
|
|
bne _0807B3E8
|
|
ldr r1, _0807B3E0
|
|
adds r0, r5, r1
|
|
ldrb r0, [r0]
|
|
cmp r0, 0
|
|
bne _0807B3E8
|
|
adds r0, r5, 0
|
|
adds r0, 0x79
|
|
movs r4, 0x1
|
|
strb r4, [r0]
|
|
movs r2, 0xA2
|
|
lsls r2, 1
|
|
adds r0, r5, r2
|
|
strb r4, [r0]
|
|
adds r0, r5, 0
|
|
adds r0, 0x44
|
|
movs r1, 0x1
|
|
bl SetAction
|
|
ldr r3, _0807B3E4
|
|
adds r0, r5, r3
|
|
strb r4, [r0]
|
|
b _0807B5CE
|
|
.align 2, 0
|
|
_0807B3E0: .4byte 0x00000145
|
|
_0807B3E4: .4byte 0x00000147
|
|
_0807B3E8:
|
|
mov r0, r9
|
|
movs r2, 0x4
|
|
ldrsh r1, [r0, r2]
|
|
ldr r2, _0807B434
|
|
mov r3, r8
|
|
lsls r0, r3, 2
|
|
adds r2, r0, r2
|
|
movs r3, 0
|
|
ldrsh r0, [r2, r3]
|
|
adds r1, r0
|
|
adds r0, r5, 0
|
|
adds r0, 0x88
|
|
movs r3, 0
|
|
ldrsh r0, [r0, r3]
|
|
cmp r1, r0
|
|
bne _0807B43C
|
|
mov r1, r9
|
|
movs r3, 0x6
|
|
ldrsh r0, [r1, r3]
|
|
movs r3, 0x2
|
|
ldrsh r1, [r2, r3]
|
|
adds r0, r1
|
|
adds r1, r5, 0
|
|
adds r1, 0x8A
|
|
movs r2, 0
|
|
ldrsh r1, [r1, r2]
|
|
cmp r0, r1
|
|
bne _0807B43C
|
|
adds r0, r5, 0
|
|
adds r0, 0x44
|
|
movs r1, 0x1
|
|
bl SetAction
|
|
ldr r3, _0807B438
|
|
adds r1, r5, r3
|
|
movs r0, 0x1
|
|
strb r0, [r1]
|
|
b _0807B5CE
|
|
.align 2, 0
|
|
_0807B434: .4byte gAdjacentTileOffsets
|
|
_0807B438: .4byte 0x00000147
|
|
_0807B43C:
|
|
adds r1, r5, 0
|
|
adds r1, 0x79
|
|
movs r0, 0x1
|
|
strb r0, [r1]
|
|
_0807B444:
|
|
mov r3, sp
|
|
mov r2, sp
|
|
mov r1, sp
|
|
add r0, sp, 0x28
|
|
movs r4, 0x1
|
|
strb r4, [r0]
|
|
add r0, sp, 0x20
|
|
strb r4, [r0]
|
|
strb r4, [r1, 0x18]
|
|
strb r4, [r2, 0x10]
|
|
strb r4, [r3, 0x8]
|
|
ldrb r6, [r5, 0x6]
|
|
cmp r6, 0
|
|
bne _0807B4C8
|
|
mov r0, r8
|
|
ands r0, r4
|
|
cmp r0, 0
|
|
beq _0807B4C8
|
|
mov r1, r9
|
|
movs r2, 0x4
|
|
ldrsh r0, [r1, r2]
|
|
adds r1, r5, 0
|
|
adds r1, 0x88
|
|
movs r3, 0
|
|
ldrsh r1, [r1, r3]
|
|
subs r2, r0, r1
|
|
cmp r2, 0
|
|
bge _0807B47E
|
|
negs r2, r2
|
|
_0807B47E:
|
|
mov r0, r9
|
|
movs r3, 0x6
|
|
ldrsh r1, [r0, r3]
|
|
adds r0, r5, 0
|
|
adds r0, 0x8A
|
|
movs r3, 0
|
|
ldrsh r0, [r0, r3]
|
|
subs r1, r0
|
|
cmp r1, 0
|
|
bge _0807B494
|
|
negs r1, r1
|
|
_0807B494:
|
|
cmp r2, 0x2
|
|
bgt _0807B4C8
|
|
cmp r1, 0x2
|
|
bgt _0807B4C8
|
|
cmp r2, r1
|
|
beq _0807B4C8
|
|
movs r3, 0x2
|
|
mov r0, r8
|
|
ands r3, r0
|
|
cmp r3, 0
|
|
beq _0807B4BA
|
|
cmp r2, r1
|
|
bge _0807B4B4
|
|
mov r0, sp
|
|
strb r6, [r0, 0x10]
|
|
b _0807B4C8
|
|
_0807B4B4:
|
|
mov r0, sp
|
|
strb r6, [r0, 0x8]
|
|
b _0807B4C8
|
|
_0807B4BA:
|
|
cmp r2, r1
|
|
bge _0807B4C4
|
|
mov r0, sp
|
|
strb r3, [r0, 0x8]
|
|
b _0807B4C8
|
|
_0807B4C4:
|
|
mov r0, sp
|
|
strb r3, [r0, 0x10]
|
|
_0807B4C8:
|
|
movs r1, 0x3
|
|
mov r10, r1
|
|
mov r0, r9
|
|
adds r1, r7, 0
|
|
bl ShouldAvoidEnemiesAndShowEffect
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _0807B4E4
|
|
adds r0, r5, 0
|
|
adds r0, 0x7B
|
|
ldrb r0, [r0]
|
|
cmp r0, 0
|
|
beq _0807B4E8
|
|
_0807B4E4:
|
|
movs r2, 0x5
|
|
mov r10, r2
|
|
_0807B4E8:
|
|
movs r6, 0x1
|
|
adds r3, r5, 0
|
|
adds r3, 0x44
|
|
str r3, [sp, 0x34]
|
|
cmp r6, r10
|
|
bge _0807B53C
|
|
mov r3, sp
|
|
mov r4, sp
|
|
adds r4, 0xA
|
|
add r7, sp, 0x8
|
|
_0807B4FC:
|
|
lsls r0, r6, 3
|
|
add r2, sp, 0x4
|
|
adds r2, r0
|
|
ldr r1, _0807B598
|
|
lsls r0, r6, 2
|
|
adds r0, r1
|
|
ldr r1, [r0]
|
|
add r1, r8
|
|
movs r0, 0x7
|
|
ands r1, r0
|
|
str r1, [r2]
|
|
mov r0, r9
|
|
adds r2, r4, 0
|
|
str r3, [sp, 0x38]
|
|
bl CanMoveForward
|
|
strb r0, [r7, 0x1]
|
|
lsls r0, 24
|
|
ldr r3, [sp, 0x38]
|
|
cmp r0, 0
|
|
bne _0807B532
|
|
ldrb r0, [r4]
|
|
cmp r0, 0
|
|
bne _0807B532
|
|
movs r0, 0x1
|
|
strb r0, [r3, 0x10]
|
|
strb r0, [r3, 0x8]
|
|
_0807B532:
|
|
adds r4, 0x8
|
|
adds r7, 0x8
|
|
adds r6, 0x1
|
|
cmp r6, r10
|
|
blt _0807B4FC
|
|
_0807B53C:
|
|
movs r6, 0x1
|
|
cmp r6, r10
|
|
bge _0807B56E
|
|
adds r3, r5, 0
|
|
adds r3, 0x79
|
|
add r1, sp, 0x8
|
|
movs r4, 0x8
|
|
movs r7, 0x1
|
|
_0807B54C:
|
|
adds r2, r4, 0
|
|
ldrb r0, [r1, 0x1]
|
|
cmp r0, 0
|
|
beq _0807B55A
|
|
ldrb r0, [r1]
|
|
cmp r0, 0
|
|
bne _0807B5A0
|
|
_0807B55A:
|
|
ldrb r0, [r1, 0x2]
|
|
cmp r0, 0
|
|
beq _0807B562
|
|
strb r7, [r3]
|
|
_0807B562:
|
|
adds r1, 0x8
|
|
adds r4, r2, 0
|
|
adds r4, 0x8
|
|
adds r6, 0x1
|
|
cmp r6, r10
|
|
blt _0807B54C
|
|
_0807B56E:
|
|
ldr r0, [sp, 0x34]
|
|
movs r1, 0x1
|
|
bl SetAction
|
|
ldr r1, _0807B59C
|
|
adds r0, r5, r1
|
|
movs r1, 0
|
|
movs r2, 0x1
|
|
strb r2, [r0]
|
|
ldrb r0, [r5, 0x7]
|
|
cmp r0, 0
|
|
beq _0807B5BC
|
|
adds r0, r5, 0
|
|
adds r0, 0x79
|
|
strb r1, [r0]
|
|
movs r2, 0xA2
|
|
lsls r2, 1
|
|
adds r0, r5, r2
|
|
strb r1, [r0]
|
|
b _0807B5CE
|
|
.align 2, 0
|
|
_0807B598: .4byte gFaceDirectionIncrements
|
|
_0807B59C: .4byte 0x00000147
|
|
_0807B5A0:
|
|
movs r3, 0x2
|
|
ldrsh r1, [r5, r3]
|
|
ldr r0, [sp, 0x34]
|
|
bl SetWalkAction
|
|
add r0, sp, 0x4
|
|
adds r0, r4
|
|
ldr r0, [r0]
|
|
movs r1, 0x7
|
|
ands r0, r1
|
|
adds r1, r5, 0
|
|
adds r1, 0x46
|
|
strb r0, [r1]
|
|
b _0807B5CE
|
|
_0807B5BC:
|
|
adds r0, r5, 0
|
|
adds r0, 0x79
|
|
ldrb r0, [r0]
|
|
cmp r0, 0
|
|
beq _0807B5CE
|
|
movs r1, 0xA2
|
|
lsls r1, 1
|
|
adds r0, r5, r1
|
|
strb r2, [r0]
|
|
_0807B5CE:
|
|
add sp, 0x3C
|
|
pop {r3-r5}
|
|
mov r8, r3
|
|
mov r9, r4
|
|
mov r10, r5
|
|
pop {r4-r7}
|
|
pop {r0}
|
|
bx r0
|
|
thumb_func_end DecideMovement
|
|
|
|
.align 2, 0 |