updated pokecrystal tas ace payload

add c
ld b,a
add hl,bc
add l
ld c,a
ld l,h
dec a
ld h,a
dec h
ldh a,(FF00)
ld (hli),a
sub (hl)
ld a,d
ld (hli),a
ld a,(bc)
sub b
ld (hli),a
ld (hl),d
inc (hl)
inc hl
inc (hl)
or (hl)
ld l,d
ldh a,(FF00)
ld (hli),a
ld h,l
ld l,b
dec (hl)
and b
and l
ld b,a
ld l,h
dec h
ld l,(hl)
dec (hl)
add c
ld l,a
inc h
ld a,(hli)
ld a,(0000)
xor (hl)
ld (bc),a
add b
ld c,a
ld a,h
cpl
ld (hli),a
ld (hli),a
ld (hl),c
xor l
dec a
ld l,h
dec h
ld (hli),a
ld (hl),h
inc (hl)
ld hl,(sp+00)
ld l,b
inc l
ld sp,hl
ld a,a
ld l,d
add a
adc l
ld (hld),a
call z,0000
ld (hl),d
ret nz