What purging lucky would look like in gbz80.

PurgeLucky:: 42069 (10:4069)
; times out luckytyphlosion for 1 second
; [de] specifies the chat of the user to purge lucky in
    push de
    ld hl,LuckytyphlosionString
    ld de,wBuffer
    push de
    ld bc,$F
    call CopyData
    pop hl
    pop de
    ld c,$1
    xor a
    ld [wTimeoutFlags],a
    predef_jump TimeoutUser

LuckytyphlosionString::
db "L","U","C","K","Y","T","Y","P","H","L","O","S","I","O","N"

SECTION "bank69", ROMX[$4420], BANK[$69]
TimeoutUser:: ; 1a6969 (69:6969)
; times out a user in twitch.tv
; INPUT:
; [wTimeoutFlags]: 0 if using raw bc input as length of timeout. Other values specify the length in bytes of the length to timeout the user
; bc: length/address of length of timeout
; [de]: channel to timeout user
; [hl]: user to timeout
    call GetPredefRegisters
    ld a,[wTimeoutFlags]
    and a
    jr nz,.alreadyhaveaddress
    ld hl,wTimeoutAddress
    push hl
    ld [hl],b
    inc hl
    ld [hl],c
    ld a,$2
    ld [wTimeoutFlags],a
    pop bc
.alreadyhaveaddress
    inc bc
    ld a,[wTimeoutFlags]
    ld [bc],a
    dec bc
    di
    ld [H_SPTEMP],sp
    ld sp,rTOADR ; timeout duration address
    push bc ; copy address of timeout duration
    push hl ; copy address of channel to timeout user
    push de ; copy address of user to time out
    ld a,[H_SPTEMP]
    ld h,a
    ld a,[H_SPTEMP + 1]
    ld l,a
    ld sp,hl
    ld a,$1
    ld [rTOSTART],a ; timeout user
    reti