Files
PokemonEmeraldSafariFrontier/asm/fldeff_cut.s
2018-06-16 00:45:48 +02:00

209 lines
3.3 KiB
ArmAsm

.include "asm/macros.inc"
.include "constants/constants.inc"
.syntax unified
.text
thumb_func_start CutGrassSpriteCallbackEnd
CutGrassSpriteCallbackEnd: @ 80D41D0
push {r4-r6,lr}
movs r4, 0x1
_080D41D4:
ldr r6, =gCutGrassSpriteArrayPtr
ldr r0, [r6]
adds r0, r4
ldrb r1, [r0]
lsls r0, r1, 4
adds r0, r1
lsls r0, 2
ldr r5, =gSprites
adds r0, r5
bl DestroySprite
adds r0, r4, 0x1
lsls r0, 24
lsrs r4, r0, 24
cmp r4, 0x7
bls _080D41D4
ldr r0, [r6]
ldrb r1, [r0]
lsls r0, r1, 4
adds r0, r1
lsls r0, 2
adds r0, r5
movs r1, 0x3A
bl FieldEffectStop
ldr r0, [r6]
bl Free
movs r0, 0
str r0, [r6]
bl sub_80984F4
bl ScriptContext2_Disable
bl unown_chamber_related
lsls r0, 24
lsrs r0, 24
cmp r0, 0x1
bne _080D422A
ldr r0, =FarawayIsland_Interior_EventScript_267EDB
bl ScriptContext1_SetupScript
_080D422A:
pop {r4-r6}
pop {r0}
bx r0
.pool
thumb_func_end CutGrassSpriteCallbackEnd
thumb_func_start sub_80D423C
sub_80D423C: @ 80D423C
push {r4,r5,lr}
lsls r0, 16
asrs r5, r0, 16
lsls r1, 16
asrs r4, r1, 16
adds r0, r5, 0
adds r1, r4, 0
bl MapGridGetMetatileBehaviorAt
lsls r0, 24
lsrs r0, 24
bl MetatileBehavior_IsLongGrass_Duplicate
lsls r0, 24
cmp r0, 0
beq _080D42AE
adds r4, 0x1
lsls r1, r4, 16
asrs r1, 16
adds r0, r5, 0
bl GetTallGrassCaseAt
lsls r0, 24
lsrs r0, 24
cmp r0, 0x2
beq _080D428A
cmp r0, 0x2
bgt _080D427A
cmp r0, 0x1
beq _080D4284
b _080D42AE
_080D427A:
cmp r0, 0x3
beq _080D4294
cmp r0, 0x4
beq _080D42A4
b _080D42AE
_080D4284:
movs r2, 0x82
lsls r2, 2
b _080D4296
_080D428A:
ldr r2, =0x00000281
b _080D4296
.pool
_080D4294:
ldr r2, =0x00000282
_080D4296:
adds r0, r5, 0
adds r1, r4, 0
bl MapGridSetMetatileIdAt
b _080D42AE
.pool
_080D42A4:
ldr r2, =0x00000283
adds r0, r5, 0
adds r1, r4, 0
bl MapGridSetMetatileIdAt
_080D42AE:
pop {r4,r5}
pop {r0}
bx r0
.pool
thumb_func_end sub_80D423C
thumb_func_start sub_80D42B8
sub_80D42B8: @ 80D42B8
push {r4,r5,lr}
lsls r0, 16
asrs r4, r0, 16
lsls r1, 16
asrs r5, r1, 16
adds r0, r4, 0
adds r1, r5, 0
bl MapGridGetMetatileIdAt
cmp r0, 0x1
bne _080D434A
adds r5, 0x1
adds r0, r4, 0
adds r1, r5, 0
bl MapGridGetMetatileBehaviorAt
lsls r0, 24
lsrs r0, 24
bl MetatileBehavior_IsLongGrassSouthEdge
lsls r0, 24
cmp r0, 0
beq _080D434A
adds r0, r4, 0
adds r1, r5, 0
bl MapGridGetMetatileIdAt
adds r1, r0, 0
ldr r0, =0x00000281
cmp r1, r0
beq _080D4328
cmp r1, r0
bgt _080D4308
subs r0, 0x79
cmp r1, r0
beq _080D431C
b _080D434A
.pool
_080D4308:
ldr r0, =0x00000282
cmp r1, r0
beq _080D4330
adds r0, 0x1
cmp r1, r0
beq _080D4340
b _080D434A
.pool
_080D431C:
adds r0, r4, 0
adds r1, r5, 0
movs r2, 0x1
bl MapGridSetMetatileIdAt
b _080D434A
_080D4328:
ldr r2, =0x00000279
b _080D4332
.pool
_080D4330:
ldr r2, =0x0000027a
_080D4332:
adds r0, r4, 0
adds r1, r5, 0
bl MapGridSetMetatileIdAt
b _080D434A
.pool
_080D4340:
ldr r2, =0x0000027b
adds r0, r4, 0
adds r1, r5, 0
bl MapGridSetMetatileIdAt
_080D434A:
pop {r4,r5}
pop {r0}
bx r0
.pool
thumb_func_end sub_80D42B8
thumb_func_start StartCutTreeFieldEffect
StartCutTreeFieldEffect: @ 80D4354
push {lr}
movs r0, 0x80
bl PlaySE
movs r0, 0x2
bl FieldEffectActiveListRemove
bl EnableBothScriptContexts
pop {r0}
bx r0
thumb_func_end StartCutTreeFieldEffect
.align 2, 0 @ Don't pad with nop.