pokered/scripts/WardensHouse.asm

WardensHouse_Script:
	jp EnableAutoTextBoxDrawing

WardensHouse_TextPointers:
	def_text_pointers
	dw_const WardensHouseWardenText,  TEXT_WARDENSHOUSE_WARDEN
	dw_const PickUpItemText,          TEXT_WARDENSHOUSE_RARE_CANDY
	dw_const BoulderText,             TEXT_WARDENSHOUSE_BOULDER
	dw_const WardensHouseDisplayText, TEXT_WARDENSHOUSE_DISPLAY_LEFT
	dw_const WardensHouseDisplayText, TEXT_WARDENSHOUSE_DISPLAY_RIGHT

WardensHouseWardenText:
	text_asm
	CheckEvent EVENT_GOT_HM04
	jr nz, .got_item
	ld b, GOLD_TEETH
	call IsItemInBag
	jr nz, .have_gold_teeth
	CheckEvent EVENT_GAVE_GOLD_TEETH
	jr nz, .gave_gold_teeth
	ld hl, .Gibberish1Text
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	ld hl, .Gibberish3Text
	jr nz, .refused
	ld hl, .Gibberish2Text
.refused
	call PrintText
	jr .done
.have_gold_teeth
	ld hl, .GaveTheGoldTeethText
	call PrintText
	ld a, GOLD_TEETH
	ldh [hItemToRemoveID], a
	farcall RemoveItemByID
	SetEvent EVENT_GAVE_GOLD_TEETH
.gave_gold_teeth
	ld hl, .ThanksText
	call PrintText
	lb bc, HM_STRENGTH, 1
	call GiveItem
	jr nc, .bag_full
	ld hl, .ReceivedHM04Text
	call PrintText
	SetEvent EVENT_GOT_HM04
	jr .done
.got_item
	ld hl, .HM04ExplanationText
	call PrintText
	jr .done
.bag_full
	ld hl, .HM04NoRoomText
	call PrintText
.done
	jp TextScriptEnd

.Gibberish1Text:
	text_far _WardensHouseWardenGibberish1Text
	text_end

.Gibberish2Text:
	text_far _WardensHouseWardenGibberish2Text
	text_end

.Gibberish3Text:
	text_far _WardensHouseWardenGibberish3Text
	text_end

.GaveTheGoldTeethText:
	text_far _WardensHouseWardenGaveTheGoldTeethText
	sound_get_item_1

.PoppedInHisTeethText: ; unreferenced
	text_far _WardensHouseWardenTeethPoppedInHisTeethText
	text_end

.ThanksText:
	text_far _WardensHouseWardenThanksText
	text_end

.ReceivedHM04Text:
	text_far _WardensHouseWardenReceivedHM04Text
	sound_get_item_1
	text_end

.HM04ExplanationText:
	text_far _WardensHouseWardenHM04ExplanationText
	text_end

.HM04NoRoomText:
	text_far _WardensHouseWardenHM04NoRoomText
	text_end

WardensHouseDisplayText:
	text_asm
	ldh a, [hSpriteIndexOrTextID]
	cp TEXT_WARDENSHOUSE_DISPLAY_LEFT
	ld hl, .MerchandiseText
	jr nz, .print_text
	ld hl, .PhotosAndFossilsText
.print_text
	call PrintText
	jp TextScriptEnd

.PhotosAndFossilsText:
	text_far _WardensHouseDisplayPhotosAndFossilsText
	text_end

.MerchandiseText:
	text_far _WardensHouseDisplayMerchandiseText
	text_end
Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`WardensHouse_Script:`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp EnableAutoTextBoxDrawing`

Rename map files, labels, and constants to be consistent and work with Polished Map 2019-01-01 20:06:23 +00:00			`WardensHouse_TextPointers:`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`def_text_pointers`
			`dw_const WardensHouseWardenText, TEXT_WARDENSHOUSE_WARDEN`
			`dw_const PickUpItemText, TEXT_WARDENSHOUSE_RARE_CANDY`
			`dw_const BoulderText, TEXT_WARDENSHOUSE_BOULDER`
			`dw_const WardensHouseDisplayText, TEXT_WARDENSHOUSE_DISPLAY_LEFT`
			`dw_const WardensHouseDisplayText, TEXT_WARDENSHOUSE_DISPLAY_RIGHT`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`WardensHouseWardenText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_GOT_HM04`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr nz, .got_item`
Add space between arguments in assembly instructions and remove redundant a in instructions like add a, x 2017-12-30 00:54:27 +00:00			`ld b, GOLD_TEETH`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call IsItemInBag`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr nz, .have_gold_teeth`
named most of the used events 2015-07-21 17:36:03 +00:00			`CheckEvent EVENT_GAVE_GOLD_TEETH`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr nz, .gave_gold_teeth`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .Gibberish1Text`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`call YesNoChoice`
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 a, [wCurrentMenuItem]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`and a`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .Gibberish3Text`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr nz, .refused`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .Gibberish2Text`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`.refused`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr .done`
			`.have_gold_teeth`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .GaveTheGoldTeethText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`ld a, GOLD_TEETH`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [hItemToRemoveID], a`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall RemoveItemByID`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_GAVE_GOLD_TEETH`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`.gave_gold_teeth`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .ThanksText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
TM/HM constants named after moves 2020-07-06 02:52:27 +00:00			`lb bc, HM_STRENGTH, 1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call GiveItem`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr nc, .bag_full`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .ReceivedHM04Text`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
named most of the used events 2015-07-21 17:36:03 +00:00			`SetEvent EVENT_GOT_HM04`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr .done`
			`.got_item`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .HM04ExplanationText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`jr .done`
			`.bag_full`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ld hl, .HM04NoRoomText`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
Revise some map scripts, mostly for getting items 2020-07-16 15:19:05 +00:00			`.done`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.Gibberish1Text:`
			`text_far _WardensHouseWardenGibberish1Text`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.Gibberish2Text:`
			`text_far _WardensHouseWardenGibberish2Text`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.Gibberish3Text:`
			`text_far _WardensHouseWardenGibberish3Text`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.GaveTheGoldTeethText:`
			`text_far _WardensHouseWardenGaveTheGoldTeethText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`sound_get_item_1`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.PoppedInHisTeethText: ; unreferenced`
			`text_far _WardensHouseWardenTeethPoppedInHisTeethText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.ThanksText:`
			`text_far _WardensHouseWardenThanksText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.ReceivedHM04Text:`
			`text_far _WardensHouseWardenReceivedHM04Text`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`sound_get_item_1`
			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.HM04ExplanationText:`
			`text_far _WardensHouseWardenHM04ExplanationText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.HM04NoRoomText:`
			`text_far _WardensHouseWardenHM04NoRoomText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`WardensHouseDisplayText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_asm`
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`ldh a, [hSpriteIndexOrTextID]`
			`cp TEXT_WARDENSHOUSE_DISPLAY_LEFT`
			`ld hl, .MerchandiseText`
			`jr nz, .print_text`
			`ld hl, .PhotosAndFossilsText`
			`.print_text`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
			`jp TextScriptEnd`

Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.PhotosAndFossilsText:`
			`text_far _WardensHouseDisplayPhotosAndFossilsText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00
Add macros, constants, and labels for map scripts and text (#367) This introduces `def_script_pointers`, `def_text_pointers`, and `object_const_def` macros, and applies them to all maps. Most other map labels have also been identified. 2023-07-14 01:27:56 +00:00			`.MerchandiseText:`
			`text_far _WardensHouseDisplayMerchandiseText`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`text_end`