shithub: pokered

ref: 25c27785aa83a12330ea58e1e35b2fec90dd84f4
dir: /scripts/tradecenter.asm/

View raw version 
TradeCenterScript:
	call EnableAutoTextBoxDrawing
	ld a, [$ffaa]
	cp $2
	ld a, SPRITE_FACING_LEFT
	jr z, .next
	ld a, SPRITE_FACING_RIGHT
.next
	ld [hSpriteFacingDirection], a
	ld a, $1
	ld [H_SPRITEINDEX], a
	call SetSpriteFacingDirection
	ld hl, wd72d
	bit 0, [hl]
	set 0, [hl]
	ret nz
	ld hl, wSpriteStateData2 + $14
	ld a, $8
	ld [hli], a
	ld a, $a
	ld [hl], a
	ld a, SPRITE_FACING_LEFT
	ld [wSpriteStateData1 + $19], a
	ld a, [$ffaa]
	cp $2
	ret z
	ld a, $7
	ld [wSpriteStateData2 + $15], a
	ld a, SPRITE_FACING_RIGHT
	ld [wSpriteStateData1 + $19], a
	ret

TradeCenterTextPointers:
	dw TradeCenterText1

TradeCenterText1:
	TX_FAR _TradeCenterText1
	db "@"