mov r2, #0x7f
and r1, r2
strh r1, [r0, #0x0]

push {r0-r2}
ldr r0, .ram
ldrh r1, [r0]
add r1, r1, #0x1
mov r2, #0x9C
lsl r2, #0x7
cmp r1, r2
bgt event
b back

event:
mov r1, #0x0
mov r0, r0

push {r0-r1}
ldr r0, .script
bl linkerTwo
pop {r0-r1}
b back

linkerTwo:
ldr r1, .scriptrunner
bx r1	

back:
strh r1, [r0]
pop {r0-r2}
mov r4, r6
mov r6, #0x0
cmp r1, #0x0
bne wusi
add r4, #0x2
mov r15, r4

wusi:
add r4, #0x16
mov r15, r4

.ram:
.word 0x02ffff60
.script:
.word 0x08a00050
.scriptrunner:
.word 0x8069AD5