clear smog

ClearSmogScript:
{
//No secondary effect if a sub is up to start
BYTE 0x1D 0x00
BYTE 0x00 0x00 0x00 0x01
BYTE 0x00 0x69 0x1D 0x08

BYTE 0x00
BYTE 0x01 0x5E 0x69 0x1D 0x08 0x00 0x00
BYTE 0x02
BYTE 0x03
BYTE 0x04
BYTE 0x05
BYTE 0x06
BYTE 0x07
BYTE 0x09
BYTE 0x0A
BYTE 0x0E
BYTE 0x5C 0x00
BYTE 0x3A
BYTE 0x0B 0x00
BYTE 0x0C 0x00
BYTE 0x0D
BYTE 0x12 0x40 0x00
BYTE 0x0F
BYTE 0x12 0x40 0x00

//don't do anything if the move had no effect
BYTE 0x29 0x04 0xCC 0x3D 0x02 0x02 0x08
POIN2 NoClear

BYTE 0xF8
POIN2 ClearSmogASM+1

BYTE 0x10 0x00 0x00
BYTE 0x12 0x40 0x00

NoClear:
BYTE 0x28
POIN2 0x1D6947

ALIGN 4
ClearSmogASM:
#incbin "clear smog.dmp"
}


============================================================

.thumb
ldr r0, TargetBank
ldr r1, BattleStructs
mov r2, #0x58
ldrb r0, [r0, #0x0]
mul r0, r2
add r0, r0, r1
mov r1, #0x6
strb r1, [r0, #0x18]
strb r1, [r0, #0x19]
strb r1, [r0, #0x1A]
strb r1, [r0, #0x1B]
strb r1, [r0, #0x1C]
strb r1, [r0, #0x1D]
strb r1, [r0, #0x1E]
strb r1, [r0, #0x1F]
bx lr

.align 2
TargetBank: .word 0x02023D6C
BattleStructs: .word 0x02023be4