151nsc%

; jump to $f31f
    dec h ; coincidentally is $25
    nop
    ld d, [hl] ; get $25
    nop
    ld a, c ; c = $f0
    nop
    cpl
    nop
    rrca ; a = $7
    or c ; a = $f7
    ld l, a ; hl = $f2f7
    nop
    ld c, d ; c = $25
    xor a ; GARY
    dec a ; get $ff
    nop
    ld d, a
    nop
    call $36e0 ; fill flags
    nop
    ld a, d
    nop
    rrca ; get $7f
    nop
    ld d, a
    nop
    dec hl
    nop
    ld [hl], d ; $d31c, partial leftover from fillmemory
    nop
    ld a, e
    nop
    rrca
    nop
    rrca
    nop
    rrca ; get $09
    nop
    ld l, a ; get $f309
    nop
    ld [hl], d ; write $7f
    nop
    ret ; geez
; -----------------------
; ITEMS
; script ptr = f31f
; [].j x37
; [].j x86
; [].j x121
; [].j x47
; [].j x15
; NEW NAME (B1) x111
; [].j x74
; GARY x61
; [].j x87
; [].j x205
; TM24 x54
; [].j x122
; [].j x15
; [].j x87
; [].j x43
; [].j x114
; [].j x123
; [].j x15
; [].j x15
; [].j x15
; [].j x111
; [].j x114
; [].j x201