; 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