pokecrystal/engine/town_map.asm


_TownMap: ; 9191c
	ld hl, Options
	ld a, [hl]
	push af
	set NO_TEXT_SCROLL, [hl]

	ld a, [hInMenu]
	push af
	ld a, $1
	ld [hInMenu], a

	ld a, [VramState]
	push af
	xor a
	ld [VramState], a

	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	call DisableLCD
	call Function90c4e
	callba ClearSpriteAnims
	ld a, 8
	call SkipMusic
	ld a, $e3
	ld [rLCDC], a
	call Function90d56
	ld [wd002], a
	ld [wd003], a
	xor a
	ld [hBGMapMode], a
	call Function91a04
	call WaitBGMap2
	ld a, [wd002]
	call Function9106a
	ld a, [wd003]
	call Function91098
	ld a, c
	ld [wd004], a
	ld a, b
	ld [wd005], a
	ld b, SCGB_POKEGEAR_PALS
	call GetSGBLayout
	call SetPalettes
	ld a, [hCGB]
	and a
	jr z, .sgb
	ld a, $e4
	call DmgToCgbObjPal0
	call DelayFrame

.sgb
	ld a, [wd002]
	cp KANTO_LANDMARK
	jr nc, .kanto
	ld d, KANTO_LANDMARK - 1
	ld e, 1
	call Function919b0
	jr .resume

.kanto
	call Function910e8
	call Function919b0

.resume
	pop af
	ld [VramState], a
	pop af
	ld [hInMenu], a
	pop af
	ld [Options], a
	call ClearBGPalettes
	ret
; 919b0

Function919b0: ; 919b0
.loop
	call JoyTextDelay
	ld hl, hJoyPressed
	ld a, [hl]
	and B_BUTTON
	ret nz

	ld hl, hJoyLast
	ld a, [hl]
	and D_UP
	jr nz, .pressed_up

	ld a, [hl]
	and D_DOWN
	jr nz, .pressed_down
.loop2
	push de
	callba PlaySpriteAnimations
	pop de
	call DelayFrame
	jr .loop

.pressed_up
	ld hl, wd003
	ld a, [hl]
	cp d
	jr c, .okay
	ld a, e
	dec a
	ld [hl], a

.okay
	inc [hl]
	jr .next

.pressed_down
	ld hl, wd003
	ld a, [hl]
	cp e
	jr nz, .okay2
	ld a, d
	inc a
	ld [hl], a

.okay2
	dec [hl]

.next
	push de
	ld a, [wd003]
	call Function910b4
	ld a, [wd004]
	ld c, a
	ld a, [wd005]
	ld b, a
	ld a, [wd003]
	call Function910d4
	pop de
	jr .loop2
; 91a04

Function91a04: ; 91a04
	ld a, [wd002]
	cp KANTO_LANDMARK
	jr nc, .kanto
	ld e, $0
	jr .okay

.kanto
	ld e, $1

.okay
	callba PokegearMap
	ld a, $7
	ld bc, 6
	hlcoord 1, 0
	call ByteFill
	hlcoord 0, 0
	ld [hl], $6
	hlcoord 7, 0
	ld [hl], $17
	hlcoord 7, 1
	ld [hl], $16
	hlcoord 7, 2
	ld [hl], $26
	ld a, $7
	ld bc, NAME_LENGTH
	hlcoord 8, 2
	call ByteFill
	hlcoord 19, 2
	ld [hl], $17
	ld a, [wd003]
	call Function910b4
	callba TownMapPals
	ret
; 91a53
Options menu, some mobile fns 2015-11-16 21:01:45 +00:00
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`_TownMap: ; 9191c`
			`ld hl, Options`
			`ld a, [hl]`
			`push af`
			`set NO_TEXT_SCROLL, [hl]`

			`ld a, [hInMenu]`
			`push af`
			`ld a, $1`
			`ld [hInMenu], a`

			`ld a, [VramState]`
			`push af`
			`xor a`
			`ld [VramState], a`
Options menu, some mobile fns 2015-11-16 21:01:45 +00:00
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`call ClearBGPalettes`
			`call ClearTileMap`
			`call ClearSprites`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`call DisableLCD`
			`call Function90c4e`
Break up engine/sprites.asm; address yenatch's comments 2015-12-02 02:54:11 +00:00			`callba ClearSpriteAnims`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`ld a, 8`
			`call SkipMusic`
			`ld a, $e3`
			`ld [rLCDC], a`
			`call Function90d56`
			`ld [wd002], a`
			`ld [wd003], a`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`xor a`
			`ld [hBGMapMode], a`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`call Function91a04`
Card Flip 2015-12-11 21:59:40 +00:00			`call WaitBGMap2`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`ld a, [wd002]`
			`call Function9106a`
			`ld a, [wd003]`
			`call Function91098`
			`ld a, c`
			`ld [wd004], a`
			`ld a, b`
			`ld [wd005], a`
trainer card 2015-12-28 15:57:04 +00:00			`ld b, SCGB_POKEGEAR_PALS`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`call GetSGBLayout`
			`call SetPalettes`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`ld a, [hCGB]`
			`and a`
			`jr z, .sgb`
			`ld a, $e4`
underground switches, town map 2015-12-09 16:38:40 +00:00			`call DmgToCgbObjPal0`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`call DelayFrame`

engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.sgb`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, [wd002]`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`cp KANTO_LANDMARK`
			`jr nc, .kanto`
			`ld d, KANTO_LANDMARK - 1`
			`ld e, 1`
			`call Function919b0`
			`jr .resume`
More splits; map setup labels 2015-11-12 04:38:57 +00:00
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.kanto`
			`call Function910e8`
			`call Function919b0`

			`.resume`
			`pop af`
			`ld [VramState], a`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`pop af`
			`ld [hInMenu], a`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`pop af`
			`ld [Options], a`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`call ClearBGPalettes`
			`ret`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`; 919b0`

			`Function919b0: ; 919b0`
			`.loop`
			`call JoyTextDelay`
			`ld hl, hJoyPressed`
			`ld a, [hl]`
			`and B_BUTTON`
			`ret nz`
More splits; map setup labels 2015-11-12 04:38:57 +00:00
			`ld hl, hJoyLast`
			`ld a, [hl]`
			`and D_UP`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`jr nz, .pressed_up`

More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, [hl]`
			`and D_DOWN`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`jr nz, .pressed_down`
			`.loop2`
			`push de`
Renaming sections, further dissolving main.asm 2015-11-28 20:13:40 +00:00			`callba PlaySpriteAnimations`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`pop de`
			`call DelayFrame`
			`jr .loop`
More splits; map setup labels 2015-11-12 04:38:57 +00:00
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.pressed_up`
			`ld hl, wd003`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, [hl]`
			`cp d`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`jr c, .okay`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, e`
			`dec a`
			`ld [hl], a`

engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.okay`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`inc [hl]`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`jr .next`
More splits; map setup labels 2015-11-12 04:38:57 +00:00
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.pressed_down`
			`ld hl, wd003`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, [hl]`
			`cp e`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`jr nz, .okay2`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, d`
			`inc a`
			`ld [hl], a`

engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.okay2`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`dec [hl]`

engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.next`
			`push de`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, [wd003]`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`call Function910b4`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, [wd004]`
			`ld c, a`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`ld a, [wd005]`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld b, a`
			`ld a, [wd003]`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`call Function910d4`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`pop de`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`jr .loop2`
			`; 91a04`
More splits; map setup labels 2015-11-12 04:38:57 +00:00
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`Function91a04: ; 91a04`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`ld a, [wd002]`
			`cp KANTO_LANDMARK`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`jr nc, .kanto`
			`ld e, $0`
			`jr .okay`
More splits; map setup labels 2015-11-12 04:38:57 +00:00
			`.kanto`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`ld e, $1`
More splits; map setup labels 2015-11-12 04:38:57 +00:00
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`.okay`
items/item_effects.asm; engine/evolution.asm 2015-11-18 23:35:44 +00:00			`callba PokegearMap`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`ld a, $7`
			`ld bc, 6`
			`hlcoord 1, 0`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`call ByteFill`
			`hlcoord 0, 0`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`ld [hl], $6`
			`hlcoord 7, 0`
			`ld [hl], $17`
			`hlcoord 7, 1`
			`ld [hl], $16`
			`hlcoord 7, 2`
			`ld [hl], $26`
			`ld a, $7`
			`ld bc, NAME_LENGTH`
			`hlcoord 8, 2`
			`call ByteFill`
			`hlcoord 19, 2`
			`ld [hl], $17`
			`ld a, [wd003]`
			`call Function910b4`
			`callba TownMapPals`
Options menu, some mobile fns 2015-11-16 21:01:45 +00:00			`ret`
engine/pokegear.asm 2015-11-17 02:07:26 +00:00			`; 91a53`