Toggle Running + Catchability

.thumb

.global ToggleRunCatch
.equ rom, 0x08000001

.equ RunFlag,   0xXXXX      @if this flag is set, player cannot run from wild pokemon.
.equ Catchflag, 0xXXXX      @if this flag is set, wild pokemon cannot be caught.
.equ offset,    0xXXXXXX    @offset to insert this code at

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

hooks:
.org 0x16880
    bx r1

.org 0x16898
    .word CheckRunning + rom

.org 0x2D454
    bx r0

.org 0x2D484
    .word CheckCatching + rom

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

.org offset
CheckRunning:
    ldr r0, =(RunFlag)
    bl checkflag
    cmp r0, #0x1
    beq CannotRun
RunningCont:
    ldr r1, =(0x02023BE2)
    ldr r0, =(0x02023BCC)
    ldr r2, =(0x08016882|1)
    bx r2

CannotRun:
    mov r6, #0x0
    ldr r0, =(0x0801688C|1)
    bx r0

CheckCatching:
    ldr r0, =(0x02022B4C)
    ldr r1, [r0]
    ldr r0, =(CatchFlag)
    push {r1-r3}
    bl checkflag
    pop {r1-r3}
    cmp r0, #0x1
    beq CantCatch
    ldr r0, =(0x0802D456|1)
    bx r0

CantCatch:
    ldr r0, =(0x0802D460|1)
    bx r0

checkflag:
    ldr r1, =(0x0806E6D0|1)
    bx r1