shithub: pokered

ref: 1cf79b6f15761ec95ba1b0f9d6d83781c4240612
dir: /scripts/celadoncity.asm/

CeladonCityScript: ; 19956 (6:5956)
	call EnableAutoTextBoxDrawing
	ld hl, wd77e
	res 0, [hl]
	res 7, [hl]
	ld hl, wd816
	res 7, [hl]
	ret

CeladonCityTextPointers: ; 19966 (6:5966)
	dw CeladonCityText1
	dw CeladonCityText2
	dw CeladonCityText3
	dw CeladonCityText4
	dw CeladonCityText5
	dw CeladonCityText6
	dw CeladonCityText7
	dw CeladonCityText8
	dw CeladonCityText9
	dw CeladonCityText10
	dw CeladonCityText11
	dw PokeCenterSignText
	dw CeladonCityText13
	dw CeladonCityText14
	dw CeladonCityText15
	dw CeladonCityText16
	dw CeladonCityText17
	dw CeladonCityText18

CeladonCityText1: ; 1998a (6:598a)
	TX_FAR _CeladonCityText1
	db "@"

CeladonCityText2: ; 1998f (6:598f)
	TX_FAR _CeladonCityText2
	db "@"

CeladonCityText3: ; 19994 (6:5994)
	TX_FAR _CeladonCityText3
	db "@"

CeladonCityText4: ; 19999 (6:5999)
	TX_FAR _CeladonCityText4
	db "@"

CeladonCityText5: ; 1999e (6:599e)
	db $08 ; asm
	ld a, [wd777]
	bit 0, a
	jr nz, .asm_7053f ; 0x199a4
	ld hl, TM41PreText
	call PrintText
	ld bc, (TM_41 << 8) | 1
	call GiveItem
	jr c, .Success
	ld hl, TM41NoRoomText
	call PrintText
	jr .Done
.Success
	ld hl, ReceivedTM41Text
	call PrintText
	ld hl, wd777
	set 0, [hl]
	jr .Done
.asm_7053f ; 0x199c9
	ld hl, TM41ExplanationText
	call PrintText
.Done
	jp TextScriptEnd

TM41PreText: ; 199d2 (6:59d2)
	TX_FAR _TM41PreText
	db "@"

ReceivedTM41Text: ; 199d7 (6:59d7)
	TX_FAR _ReceivedTM41Text
	db $0B, "@"

TM41ExplanationText: ; 199dd (6:59dd)
	TX_FAR _TM41ExplanationText
	db "@"

TM41NoRoomText: ; 199e2 (6:59e2)
	TX_FAR _TM41NoRoomText
	db "@"

CeladonCityText6: ; 199e7 (6:59e7)
	TX_FAR _CeladonCityText6
	db "@"

CeladonCityText7: ; 199ec (6:59ec)
	TX_FAR _CeladonCityText7
	db $08 ; asm
	ld a, POLIWRATH
	call PlayCry
	jp TextScriptEnd

CeladonCityText8: ; 199f9 (6:59f9)
	TX_FAR _CeladonCityText8
	db "@"

CeladonCityText9: ; 199fe (6:59fe)
	TX_FAR _CeladonCityText9
	db "@"

CeladonCityText10: ; 19a03 (6:5a03)
	TX_FAR _CeladonCityText10
	db "@"

CeladonCityText11: ; 19a08 (6:5a08)
	TX_FAR _CeladonCityText11
	db "@"

CeladonCityText13: ; 19a0d (6:5a0d)
	TX_FAR _CeladonCityText13
	db "@"

CeladonCityText14: ; 19a12 (6:5a12)
	TX_FAR _CeladonCityText14
	db "@"

CeladonCityText15: ; 19a17 (6:5a17)
	TX_FAR _CeladonCityText15
	db "@"

CeladonCityText16: ; 19a1c (6:5a1c)
	TX_FAR _CeladonCityText16
	db "@"

CeladonCityText17: ; 19a21 (6:5a21)
	TX_FAR _CeladonCityText17
	db "@"

CeladonCityText18: ; 19a26 (6:5a26)
	TX_FAR _CeladonCityText18
	db "@"