pokered/scripts/mtmoonpokecenter.asm

MtMoonPokecenterScript: ; 492cf (12:52cf)
	call Serial_TryEstablishingExternallyClockedConnection
	jp EnableAutoTextBoxDrawing

MtMoonPokecenterTextPointers: ; 492d5 (12:52d5)
	dw MtMoonPokecenterText1
	dw MtMoonPokecenterText2
	dw MtMoonPokecenterText3
	dw MtMoonPokecenterText4
	dw MtMoonPokecenterText5
	dw MtMoonPokecenterText6

MtMoonPokecenterText1: ; 492e1 (12:52e1)
	db $ff

MtMoonPokecenterText2: ; 492e2 (12:52e2)
	TX_FAR _MtMoonPokecenterText1
	db "@"

MtMoonPokecenterText3: ; 492e7 (12:52e7)
	TX_FAR _MtMoonPokecenterText3
	db "@"

MtMoonPokecenterText4: ; 492ec (12:52ec)
	db $08 ; asm
	ld a, [wd7c6]
	add a
	jp c, .asm_49353
	ld hl, MtMoonPokecenterText_4935c
	call PrintText
	ld a, $13
	ld [wTextBoxID], a
	call DisplayTextBoxID
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	jp nz, .asm_4934e
	ldh [$9f], a
	ldh [$a1], a
	ld a, $5
	ldh [$a0], a
	call HasEnoughMoney
	jr nc, .asm_faa09
	ld hl, MtMoonPokecenterText_49366
	jr .asm_49356
.asm_faa09
	ld bc,(MAGIKARP << 8) | 5
	call GivePokemon
	jr nc, .asm_49359
	xor a
	ld [wWhichTrade], a
	ld [wTrainerFacingDirection], a
	ld a, $5
	ld [wTrainerEngageDistance], a
	ld hl, wTrainerFacingDirection
	ld de, wPlayerMoney + 2
	ld c, $3
	predef SubBCDPredef
	ld a, $13
	ld [wTextBoxID], a
	call DisplayTextBoxID
	ld hl, wd7c6
	set 7, [hl]
	jr .asm_49359
.asm_4934e
	ld hl, MtMoonPokecenterText_49361
	jr .asm_49356
.asm_49353
	ld hl, MtMoonPokecenterText_4936b
.asm_49356
	call PrintText
.asm_49359
	jp TextScriptEnd

MtMoonPokecenterText_4935c: ; 4935c (12:535c)
	TX_FAR _MtMoonPokecenterText_4935c
	db "@"

MtMoonPokecenterText_49361: ; 49361 (12:5361)
	TX_FAR _MtMoonPokecenterText_49361
	db "@"

MtMoonPokecenterText_49366: ; 49366 (12:5366)
	TX_FAR _MtMoonPokecenterText_49366
	db "@"

MtMoonPokecenterText_4936b: ; 4936b (12:536b)
	TX_FAR _MtMoonPokecenterText_4936b
	db "@"

MtMoonPokecenterText5: ; 49370 (12:5370)
	TX_FAR _MtMoonPokecenterText5
	db "@"

MtMoonPokecenterText6: ; 49375 (12:5375)
	db $f6
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`MtMoonPokecenterScript: ; 492cf (12:52cf)`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`call Serial_TryEstablishingExternallyClockedConnection`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp EnableAutoTextBoxDrawing`

			`MtMoonPokecenterTextPointers: ; 492d5 (12:52d5)`
			`dw MtMoonPokecenterText1`
			`dw MtMoonPokecenterText2`
			`dw MtMoonPokecenterText3`
			`dw MtMoonPokecenterText4`
			`dw MtMoonPokecenterText5`
			`dw MtMoonPokecenterText6`

			`MtMoonPokecenterText1: ; 492e1 (12:52e1)`
			`db $ff`

			`MtMoonPokecenterText2: ; 492e2 (12:52e2)`
			`TX_FAR _MtMoonPokecenterText1`
			`db "@"`

			`MtMoonPokecenterText3: ; 492e7 (12:52e7)`
			`TX_FAR _MtMoonPokecenterText3`
			`db "@"`

			`MtMoonPokecenterText4: ; 492ec (12:52ec)`
			`db $08 ; asm`
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, [wd7c6]`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`add a`
			`jp c, .asm_49353`
			`ld hl, MtMoonPokecenterText_4935c`
			`call PrintText`
			`ld a, $13`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`ld [wTextBoxID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextBoxID`
			`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`
			`jp nz, .asm_4934e`
			`ldh [$9f], a`
			`ldh [$a1], a`
			`ld a, $5`
			`ldh [$a0], a`
			`call HasEnoughMoney`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr nc, .asm_faa09`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, MtMoonPokecenterText_49366`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_49356`
			`.asm_faa09`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld bc,(MAGIKARP << 8) \| 5`
			`call GivePokemon`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr nc, .asm_49359`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`xor a`
			`ld [wWhichTrade], 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 [wTrainerFacingDirection], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $5`
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 [wTrainerEngageDistance], a`
			`ld hl, wTrainerFacingDirection`
			`ld de, wPlayerMoney + 2`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld c, $3`
Use macros for predef calls/jumps instead of static ids. 2014-06-16 20:57:26 +00:00			`predef SubBCDPredef`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld a, $13`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`ld [wTextBoxID], a`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call DisplayTextBoxID`
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, wd7c6`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`set 7, [hl]`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_49359`
			`.asm_4934e`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, MtMoonPokecenterText_49361`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`jr .asm_49356`
			`.asm_49353`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`ld hl, MtMoonPokecenterText_4936b`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`.asm_49356`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`call PrintText`
$U-Daniel-PC\Daniel$ Rename/organize part 2 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:38:12 +00:00			`.asm_49359`
$U-Fish-PC\Daniel$ Pull map scripts out of main.asm 2014-05-18 18:19:10 +00:00			`jp TextScriptEnd`

			`MtMoonPokecenterText_4935c: ; 4935c (12:535c)`
			`TX_FAR _MtMoonPokecenterText_4935c`
			`db "@"`

			`MtMoonPokecenterText_49361: ; 49361 (12:5361)`
			`TX_FAR _MtMoonPokecenterText_49361`
			`db "@"`

			`MtMoonPokecenterText_49366: ; 49366 (12:5366)`
			`TX_FAR _MtMoonPokecenterText_49366`
			`db "@"`

			`MtMoonPokecenterText_4936b: ; 4936b (12:536b)`
			`TX_FAR _MtMoonPokecenterText_4936b`
			`db "@"`

			`MtMoonPokecenterText5: ; 49370 (12:5370)`
			`TX_FAR _MtMoonPokecenterText5`
			`db "@"`

			`MtMoonPokecenterText6: ; 49375 (12:5375)`
			`db $f6`