mirror of
https://github.com/pret/pmd-red.git
synced 2026-06-05 07:40:16 -05:00
312 lines
4.6 KiB
ArmAsm
312 lines
4.6 KiB
ArmAsm
#include "asm/constants/gba_constants.inc"
|
|
#include "asm/macros.inc"
|
|
|
|
.syntax unified
|
|
|
|
.text
|
|
|
|
thumb_func_start CanMoveForward
|
|
CanMoveForward:
|
|
push {r4-r7,lr}
|
|
mov r7, r8
|
|
push {r7}
|
|
adds r4, r0, 0
|
|
adds r7, r1, 0
|
|
mov r8, r2
|
|
ldr r0, [r4, 0x70]
|
|
movs r1, 0x2
|
|
ldrsh r0, [r0, r1]
|
|
bl GetCrossableTerrain
|
|
lsls r0, 24
|
|
lsrs r6, r0, 24
|
|
movs r0, 0
|
|
mov r2, r8
|
|
strb r0, [r2]
|
|
movs r3, 0x4
|
|
ldrsh r0, [r4, r3]
|
|
ldr r1, _0807130C
|
|
lsls r2, r7, 2
|
|
adds r2, r1
|
|
movs r3, 0
|
|
ldrsh r1, [r2, r3]
|
|
adds r0, r1
|
|
movs r3, 0x6
|
|
ldrsh r1, [r4, r3]
|
|
movs r3, 0x2
|
|
ldrsh r2, [r2, r3]
|
|
adds r1, r2
|
|
bl GetMapTile_1
|
|
adds r5, r0, 0
|
|
ldrh r1, [r5]
|
|
movs r0, 0x10
|
|
ands r0, r1
|
|
cmp r0, 0
|
|
beq _08071260
|
|
b _0807137E
|
|
_08071260:
|
|
movs r0, 0x40
|
|
ands r0, r1
|
|
cmp r0, 0
|
|
beq _08071286
|
|
ldr r0, _08071310
|
|
ldr r0, [r0]
|
|
ldr r1, _08071314
|
|
adds r0, r1
|
|
ldrb r0, [r0]
|
|
cmp r0, 0
|
|
bne _08071286
|
|
adds r0, r4, 0
|
|
movs r1, 0xF
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _08071286
|
|
b _0807137E
|
|
_08071286:
|
|
ldr r0, [r5, 0x14]
|
|
cmp r0, 0
|
|
beq _080712B8
|
|
adds r0, r4, 0
|
|
movs r1, 0xE
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _080712B8
|
|
ldr r0, [r5, 0x14]
|
|
bl GetEntityType
|
|
cmp r0, 0x2
|
|
bne _080712B8
|
|
ldr r0, [r5, 0x14]
|
|
adds r0, 0x20
|
|
ldrb r0, [r0]
|
|
cmp r0, 0
|
|
bne _0807137E
|
|
ldr r0, [r4, 0x70]
|
|
adds r0, 0xE8
|
|
ldrb r0, [r0]
|
|
cmp r0, 0x3
|
|
beq _0807137E
|
|
_080712B8:
|
|
ldrh r1, [r5]
|
|
movs r0, 0x3
|
|
ands r0, r1
|
|
cmp r0, 0x2
|
|
bne _080712E6
|
|
ldr r1, _08071318
|
|
ldr r0, _08071310
|
|
ldr r0, [r0]
|
|
ldr r2, _0807131C
|
|
adds r0, r2
|
|
movs r3, 0
|
|
ldrsh r0, [r0, r3]
|
|
adds r0, r1
|
|
ldrb r0, [r0]
|
|
cmp r0, 0x1
|
|
bne _080712E6
|
|
adds r0, r4, 0
|
|
movs r1, 0x14
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _0807137E
|
|
_080712E6:
|
|
bl IsFixedDungeon
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _08071348
|
|
ldr r0, [r4, 0x70]
|
|
adds r0, 0xE4
|
|
ldrb r0, [r0]
|
|
cmp r0, 0x3
|
|
beq _08071308
|
|
adds r0, r4, 0
|
|
movs r1, 0x9
|
|
bl HasItem
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _08071320
|
|
_08071308:
|
|
movs r6, 0x3
|
|
b _08071348
|
|
.align 2, 0
|
|
_0807130C: .4byte gAdjacentTileOffsets
|
|
_08071310: .4byte gDungeonGlobalData
|
|
_08071314: .4byte 0x00000671
|
|
_08071318: .4byte gDungeonWaterType
|
|
_0807131C: .4byte 0x00003a0e
|
|
_08071320:
|
|
adds r0, r4, 0
|
|
movs r1, 0xC
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _08071346
|
|
adds r0, r4, 0
|
|
movs r1, 0xD
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _08071348
|
|
movs r0, 0x1
|
|
ands r0, r7
|
|
movs r6, 0x3
|
|
cmp r0, 0
|
|
beq _08071348
|
|
_08071346:
|
|
movs r6, 0x2
|
|
_08071348:
|
|
movs r1, 0x4
|
|
ldrsh r0, [r4, r1]
|
|
movs r2, 0x6
|
|
ldrsh r1, [r4, r2]
|
|
bl GetMapTile_1
|
|
adds r0, 0xA
|
|
adds r0, r6
|
|
ldr r2, _08071374
|
|
movs r1, 0x7
|
|
ands r1, r7
|
|
adds r1, r2
|
|
ldrb r2, [r0]
|
|
ldrb r0, [r1]
|
|
ands r0, r2
|
|
cmp r0, 0
|
|
beq _0807137E
|
|
ldr r0, [r5, 0x10]
|
|
cmp r0, 0
|
|
bne _08071378
|
|
movs r0, 0x1
|
|
b _08071380
|
|
.align 2, 0
|
|
_08071374: .4byte gDirectionBitMasks_3
|
|
_08071378:
|
|
movs r0, 0x1
|
|
mov r3, r8
|
|
strb r0, [r3]
|
|
_0807137E:
|
|
movs r0, 0
|
|
_08071380:
|
|
pop {r3}
|
|
mov r8, r3
|
|
pop {r4-r7}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end CanMoveForward
|
|
|
|
thumb_func_start IsAtJunction
|
|
IsAtJunction:
|
|
push {r4,r5,lr}
|
|
adds r4, r0, 0
|
|
ldr r0, [r4, 0x70]
|
|
movs r1, 0x2
|
|
ldrsh r0, [r0, r1]
|
|
bl GetCrossableTerrain
|
|
lsls r0, 24
|
|
lsrs r5, r0, 24
|
|
bl IsFixedDungeon
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _080713E2
|
|
ldr r0, [r4, 0x70]
|
|
adds r0, 0xE4
|
|
ldrb r0, [r0]
|
|
cmp r0, 0x3
|
|
beq _080713E0
|
|
adds r0, r4, 0
|
|
movs r1, 0x9
|
|
bl HasItem
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
bne _080713E0
|
|
adds r0, r4, 0
|
|
movs r1, 0xC
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _080713D2
|
|
movs r5, 0x2
|
|
b _080713E2
|
|
_080713D2:
|
|
adds r0, r4, 0
|
|
movs r1, 0xD
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _080713E2
|
|
_080713E0:
|
|
movs r5, 0x3
|
|
_080713E2:
|
|
cmp r5, 0x3
|
|
bne _08071408
|
|
ldr r4, [r4, 0x70]
|
|
movs r0, 0x64
|
|
bl DungeonRandomCapped
|
|
movs r1, 0xFD
|
|
lsls r1, 1
|
|
adds r2, r4, r1
|
|
ldrh r1, [r2]
|
|
adds r1, r0
|
|
strh r1, [r2]
|
|
lsls r1, 16
|
|
asrs r1, 16
|
|
cmp r1, 0xC7
|
|
ble _08071458
|
|
movs r0, 0
|
|
strh r0, [r2]
|
|
b _08071468
|
|
_08071408:
|
|
ldr r1, _0807145C
|
|
ldr r0, _08071460
|
|
ldr r0, [r0]
|
|
ldr r2, _08071464
|
|
adds r0, r2
|
|
movs r2, 0
|
|
ldrsh r0, [r0, r2]
|
|
adds r0, r1
|
|
ldrb r0, [r0]
|
|
cmp r0, 0x1
|
|
bne _08071432
|
|
cmp r5, 0x1
|
|
bne _08071432
|
|
adds r0, r4, 0
|
|
movs r1, 0x14
|
|
bl HasIQSkill
|
|
lsls r0, 24
|
|
cmp r0, 0
|
|
beq _08071432
|
|
movs r5, 0
|
|
_08071432:
|
|
movs r1, 0x4
|
|
ldrsh r0, [r4, r1]
|
|
movs r2, 0x6
|
|
ldrsh r1, [r4, r2]
|
|
bl GetMapTile_1
|
|
adds r0, 0xA
|
|
adds r0, r5
|
|
ldrb r0, [r0]
|
|
cmp r0, 0x54
|
|
beq _08071468
|
|
cmp r0, 0x51
|
|
beq _08071468
|
|
cmp r0, 0x45
|
|
beq _08071468
|
|
cmp r0, 0x15
|
|
beq _08071468
|
|
cmp r0, 0x55
|
|
beq _08071468
|
|
_08071458:
|
|
movs r0, 0
|
|
b _0807146A
|
|
.align 2, 0
|
|
_0807145C: .4byte gDungeonWaterType
|
|
_08071460: .4byte gDungeonGlobalData
|
|
_08071464: .4byte 0x00003a0e
|
|
_08071468:
|
|
movs r0, 0x1
|
|
_0807146A:
|
|
pop {r4,r5}
|
|
pop {r1}
|
|
bx r1
|
|
thumb_func_end IsAtJunction
|
|
|
|
.align 2, 0
|