protocrystal

Apricorns

GS_Korean/Pokemon/wk/setup/mons2_org/SOURCE/OBJDATA/BACKUP/TREE.DAT was the original Apricorn tree sprite.

From USEITEM.DMG:

  ifn 0
ball_direct:
	ld	a,b
	ld	c,0ffh
loop$:
	inc	c
	sub	3
	jr	nc,loop$
	
	ld	a,c
	add	a,a
	ld	b,a		; b <- 2/3 * b
	ret
  endif

Above ball_moon:

  ifn 0
ball_night:
	ld	a,(time_gauge)
	cp	3		; yoru
	ret	nz
	
	ld	a,b
	add	a,a
	jr	c,full$
	add	a,b
	jr	nc,set$

full$:
	ld	a,255
set$:
	ld	b,a		; b <- b * 3
	ret
  endif

Below ball_lovelove:

  ifn 0
	ld	a,(enemy_no)
	ld	de,1
	ld	hl,gantetsu_tbl
	push	bc
	call	table_search
	pop	bc
	jr	nc,not_love$		; ガンテツの好きなポケモンでない
	
	sla	b
	jr	c,full$
	sla	b			; * 4
	jr	nc,ret$
	
full$:
	ld	b,255
ret$:
	ret


not_love$:
	srl	b
	srl	b	
	ld	a,b
	and	a
	ret	nz
	
	ld	b,1
	ret



gantetsu_tbl:
	db	027,028,046,047,079,080,074,088,089,103
	db	108,124,129,137,239,210,201,200,182,056
	db	0ffh
  endif

  ifn 0

ball_perform_tbl:
	db	001,255		; master
	db	002,255		; hyper
	db	004,255		; super
	db	005,255		; monster
	db	008,255		; safari
	db	157,255		; heavy
	db	159,255		; direct
	db	160,255		; aqua
	db	161,255		; night
	db	0ffh

  endif