;CF00-CF0F data myplayer
;CF10-CFFF data effects


;XX!! MYPLAYER LOOP

ld hl,($cf03)  ;ID EFFECT

myplayerloop_0:
ld a,(hl)
cp 255
jr z,myplayerstop

cp 254
jr nz,myplayerloop_1

inc hl
ld b,(hl)
ld a,($fc08)
inc a
ld ($fc08),a
cp b
ret nz

xor a
ld ($fc08),a
inc hl
ld ($cf03),hl
jr myplayerloop_0

myplayerloop_1:
ld c,$A0
OUTI
INC C
OUTI 
jr myplayerloop_0

myplayerstop:
ld hl,$cb7f
res 2,(hl)
ret





