pokered/engine/hidden_object_functions3.asm

; prints text for bookshelves in buildings without sign events
PrintBookshelfText: ; fb50 (3:7b50)
	ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction
	cp SPRITE_FACING_UP
	jr nz, .noMatch
; facing up
	ld a, [W_CURMAPTILESET]
	ld b, a
	aCoord 8, 7
	ld c, a
	ld hl, BookshelfTileIDs
.loop
	ld a, [hli]
	cp $ff
	jr z, .noMatch
	cp b
	jr nz, .nextBookshelfEntry1
	ld a, [hli]
	cp c
	jr nz, .nextBookshelfEntry2
	ld a, [hl]
	push af
	call EnableAutoTextBoxDrawing
	pop af
	call PrintPredefTextID
	xor a
	ld [$ffdb], a
	ret
.nextBookshelfEntry1
	inc hl
.nextBookshelfEntry2
	inc hl
	jr .loop
.noMatch
	ld a, $ff
	ld [$ffdb], a
	ld b, BANK(PrintCardKeyText)
	ld hl, PrintCardKeyText
	jp Bankswitch

; format: db tileset id, bookshelf tile id, text id
BookshelfTileIDs: ; fb8b (3:7b8b)
	db PLATEAU,      $30
	db (IndigoPlateauStatues_id   - TextPredefs) / 2 + 1
	db HOUSE,        $3D
	db (TownMapText_id   - TextPredefs) / 2 + 1
	db HOUSE,        $1E
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db MANSION,      $32
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db REDS_HOUSE_1, $32
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db LAB,          $28
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db LOBBY,        $16
	db (ElevatorText_id   - TextPredefs) / 2 + 1
	db GYM,          $1D
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db DOJO,         $1D
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db GATE,         $22
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db MART,         $54
	db (PokemonStuffText_id   - TextPredefs) / 2 + 1
	db MART,         $55
	db (PokemonStuffText_id   - TextPredefs) / 2 + 1
	db POKECENTER,   $54
	db (PokemonStuffText_id   - TextPredefs) / 2 + 1
	db POKECENTER,   $55
	db (PokemonStuffText_id   - TextPredefs) / 2 + 1
	db LOBBY,        $50
	db (PokemonStuffText_id   - TextPredefs) / 2 + 1
	db LOBBY,        $52
	db (PokemonStuffText_id   - TextPredefs) / 2 + 1
	db SHIP,         $36
	db (BookOrSculptureText_id   - TextPredefs) / 2 + 1
	db $FF

IndigoPlateauStatues: ; fbbf (3:7bbf)
	TX_ASM
	ld hl, IndigoPlateauStatuesText1
	call PrintText
	ld a, [W_XCOORD]
	bit 0, a
	ld hl, IndigoPlateauStatuesText2
	jr nz, .asm_fbd3
	ld hl, IndigoPlateauStatuesText3
.asm_fbd3
	call PrintText
	jp TextScriptEnd

IndigoPlateauStatuesText1: ; fbd9 (3:7bd9)
	TX_FAR _IndigoPlateauStatuesText1
	db "@"

IndigoPlateauStatuesText2: ; fbde (3:7bde)
	TX_FAR _IndigoPlateauStatuesText2
	db "@"

IndigoPlateauStatuesText3: ; fbe3 (3:7be3)
	TX_FAR _IndigoPlateauStatuesText3
	db "@"

BookOrSculptureText: ; fbe8 (3:7be8)
	TX_ASM
	ld hl, PokemonBooksText
	ld a, [W_CURMAPTILESET]
	cp MANSION ; Celadon Mansion tileset
	jr nz, .asm_fbfd
	aCoord 8, 6
	cp $38
	jr nz, .asm_fbfd
	ld hl, DiglettSculptureText
.asm_fbfd
	call PrintText
	jp TextScriptEnd

PokemonBooksText: ; fc03 (3:7c03)
	TX_FAR _PokemonBooksText
	db "@"

DiglettSculptureText: ; fc08 (3:7c08)
	TX_FAR _DiglettSculptureText
	db "@"

ElevatorText: ; fc0d (3:7c0d)
	TX_FAR _ElevatorText
	db "@"

TownMapText: ; fc12 (3:7c12)
	TX_FAR _TownMapText
	db $06
	TX_ASM
	ld a, $1
	ld [wDoNotWaitForButtonPressAfterDisplayingText], a
	ld hl, wd730
	set 6, [hl]
	call GBPalWhiteOutWithDelay3
	xor a
	ld [hWY], a
	inc a
	ld [H_AUTOBGTRANSFERENABLED], a
	call LoadFontTilePatterns
	callba DisplayTownMap
	ld hl, wd730
	res 6, [hl]
	ld de, TextScriptEnd
	push de
	ld a, [H_LOADEDROMBANK]
	push af
	jp CloseTextDisplay

PokemonStuffText: ; fc45 (3:7c45)
	TX_FAR _PokemonStuffText
	db "@"
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`; prints text for bookshelves in buildings without sign events`
			`PrintBookshelfText: ; fb50 (3:7b50)`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld a, [wSpriteStateData1 + 9] ; player's sprite facing direction`
			`cp SPRITE_FACING_UP`
			`jr nz, .noMatch`
			`; facing up`
			`ld a, [W_CURMAPTILESET]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
$U-Fish-PC\Daniel$ Use *Coord instead of FuncCoord Using 'Coord =' doesn't like using wTileMap So use hlCoord, deCoord, bcCoord, aCoord, Coorda, or dwCoord to avoid static addresses 2014-06-25 20:58:27 +00:00			`aCoord 8, 7`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld c, a`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`ld hl, BookshelfTileIDs`
			`.loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`cp $ff`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr z, .noMatch`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp b`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr nz, .nextBookshelfEntry1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
			`cp c`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr nz, .nextBookshelfEntry2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hl]`
			`push af`
			`call EnableAutoTextBoxDrawing`
			`pop af`
			`call PrintPredefTextID`
			`xor a`
			`ld [$ffdb], a`
			`ret`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.nextBookshelfEntry1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`.nextBookshelfEntry2`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
Commented/labelled misc functions 2014-09-14 18:29:18 +00:00			`jr .loop`
			`.noMatch`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, $ff`
			`ld [$ffdb], a`
			`ld b, BANK(PrintCardKeyText)`
			`ld hl, PrintCardKeyText`
			`jp Bankswitch`

			`; format: db tileset id, bookshelf tile id, text id`
			`BookshelfTileIDs: ; fb8b (3:7b8b)`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`db PLATEAU, $30`
			`db (IndigoPlateauStatues_id - TextPredefs) / 2 + 1`
			`db HOUSE, $3D`
			`db (TownMapText_id - TextPredefs) / 2 + 1`
			`db HOUSE, $1E`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
			`db MANSION, $32`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
			`db REDS_HOUSE_1, $32`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
			`db LAB, $28`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
			`db LOBBY, $16`
			`db (ElevatorText_id - TextPredefs) / 2 + 1`
			`db GYM, $1D`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
			`db DOJO, $1D`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
			`db GATE, $22`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
			`db MART, $54`
			`db (PokemonStuffText_id - TextPredefs) / 2 + 1`
			`db MART, $55`
			`db (PokemonStuffText_id - TextPredefs) / 2 + 1`
			`db POKECENTER, $54`
			`db (PokemonStuffText_id - TextPredefs) / 2 + 1`
			`db POKECENTER, $55`
			`db (PokemonStuffText_id - TextPredefs) / 2 + 1`
			`db LOBBY, $50`
			`db (PokemonStuffText_id - TextPredefs) / 2 + 1`
			`db LOBBY, $52`
			`db (PokemonStuffText_id - TextPredefs) / 2 + 1`
			`db SHIP, $36`
			`db (BookOrSculptureText_id - TextPredefs) / 2 + 1`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`db $FF`

			`IndigoPlateauStatues: ; fbbf (3:7bbf)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, IndigoPlateauStatuesText1`
			`call PrintText`
			`ld a, [W_XCOORD]`
			`bit 0, a`
			`ld hl, IndigoPlateauStatuesText2`
			`jr nz, .asm_fbd3`
			`ld hl, IndigoPlateauStatuesText3`
			`.asm_fbd3`
			`call PrintText`
			`jp TextScriptEnd`

			`IndigoPlateauStatuesText1: ; fbd9 (3:7bd9)`
			`TX_FAR _IndigoPlateauStatuesText1`
			`db "@"`

			`IndigoPlateauStatuesText2: ; fbde (3:7bde)`
			`TX_FAR _IndigoPlateauStatuesText2`
			`db "@"`

			`IndigoPlateauStatuesText3: ; fbe3 (3:7be3)`
			`TX_FAR _IndigoPlateauStatuesText3`
			`db "@"`

			`BookOrSculptureText: ; fbe8 (3:7be8)`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld hl, PokemonBooksText`
			`ld a, [W_CURMAPTILESET]`
			`cp MANSION ; Celadon Mansion tileset`
			`jr nz, .asm_fbfd`
Use more *Coord also town map code relabelling YamaArashi just did town map relabelling but oh well I aleady made the changes and don't feel like redoing it 2015-07-14 05:21:03 +00:00			`aCoord 8, 6`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp $38`
			`jr nz, .asm_fbfd`
			`ld hl, DiglettSculptureText`
			`.asm_fbfd`
			`call PrintText`
			`jp TextScriptEnd`

			`PokemonBooksText: ; fc03 (3:7c03)`
			`TX_FAR _PokemonBooksText`
			`db "@"`

			`DiglettSculptureText: ; fc08 (3:7c08)`
			`TX_FAR _DiglettSculptureText`
			`db "@"`

			`ElevatorText: ; fc0d (3:7c0d)`
			`TX_FAR _ElevatorText`
			`db "@"`

			`TownMapText: ; fc12 (3:7c12)`
			`TX_FAR _TownMapText`
			`db $06`
$U-Daniel-PC\Daniel$ TX_ASM 2015-07-03 19:58:50 +00:00			`TX_ASM`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, $1`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wDoNotWaitForButtonPressAfterDisplayingText], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 6, [hl]`
			`call GBPalWhiteOutWithDelay3`
			`xor a`
Rename hVBlank* constants to h*. 2014-09-23 22:02:03 +00:00			`ld [hWY], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc a`
			`ld [H_AUTOBGTRANSFERENABLED], a`
			`call LoadFontTilePatterns`
			`callba DisplayTownMap`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`res 6, [hl]`
			`ld de, TextScriptEnd`
			`push de`
			`ld a, [H_LOADEDROMBANK]`
			`push af`
			`jp CloseTextDisplay`

			`PokemonStuffText: ; fc45 (3:7c45)`
			`TX_FAR _PokemonStuffText`
			`db "@"`