pokecrystal/engine/pokemon/switchpartymons.asm

_SwitchPartyMons:
	ld a, [wSwitchMon]
	dec a
	ld [wBuffer3], a
	ld b, a
	ld a, [wMenuCursorY]
	dec a
	ld [wBuffer2], a
	cp b
	jr z, .skip
	call .SwapMonAndMail
	ld a, [wBuffer3]
	call .ClearSprite
	ld a, [wBuffer2]
	call .ClearSprite
.skip
	ret

.ClearSprite:
	push af
	hlcoord 0, 1
	ld bc, 2 * SCREEN_WIDTH
	call AddNTimes
	ld bc, 2 * SCREEN_WIDTH
	ld a, " "
	call ByteFill
	pop af
	ld hl, wVirtualOAMSprite00
	ld bc, 4 * SPRITEOAMSTRUCT_LENGTH
	call AddNTimes
	ld de, SPRITEOAMSTRUCT_LENGTH
	ld c, 4
.gfx_loop
	ld [hl], SCREEN_WIDTH_PX ; y (off-screen)
	add hl, de
	dec c
	jr nz, .gfx_loop
	ld de, SFX_SWITCH_POKEMON
	call WaitPlaySFX
	ret

.SwapMonAndMail:
	push hl
	push de
	push bc
	ld bc, wPartySpecies
	ld a, [wBuffer2]
	ld l, a
	ld h, $0
	add hl, bc
	ld d, h
	ld e, l
	ld a, [wBuffer3]
	ld l, a
	ld h, $0
	add hl, bc
	ld a, [hl]
	push af
	ld a, [de]
	ld [hl], a
	pop af
	ld [de], a
	ld a, [wBuffer2]
	ld hl, wPartyMon1Species
	ld bc, PARTYMON_STRUCT_LENGTH
	call AddNTimes
	push hl
	ld de, wd002
	ld bc, PARTYMON_STRUCT_LENGTH
	call CopyBytes
	ld a, [wBuffer3]
	ld hl, wPartyMon1
	ld bc, PARTYMON_STRUCT_LENGTH
	call AddNTimes
	pop de
	push hl
	ld bc, PARTYMON_STRUCT_LENGTH
	call CopyBytes
	pop de
	ld hl, wd002
	ld bc, PARTYMON_STRUCT_LENGTH
	call CopyBytes
	ld a, [wBuffer2]
	ld hl, wPartyMonOT
	call SkipNames
	push hl
	call .CopyNameTowd002
	ld a, [wBuffer3]
	ld hl, wPartyMonOT
	call SkipNames
	pop de
	push hl
	call .CopyName
	pop de
	ld hl, wd002
	call .CopyName
	ld hl, wPartyMonNicknames
	ld a, [wBuffer2]
	call SkipNames
	push hl
	call .CopyNameTowd002
	ld hl, wPartyMonNicknames
	ld a, [wBuffer3]
	call SkipNames
	pop de
	push hl
	call .CopyName
	pop de
	ld hl, wd002
	call .CopyName
	ld hl, sPartyMail
	ld a, [wBuffer2]
	ld bc, MAIL_STRUCT_LENGTH
	call AddNTimes
	push hl
	ld de, wd002
	ld bc, MAIL_STRUCT_LENGTH
	ld a, BANK(sPartyMail)
	call OpenSRAM
	call CopyBytes
	ld hl, sPartyMail
	ld a, [wBuffer3]
	ld bc, MAIL_STRUCT_LENGTH
	call AddNTimes
	pop de
	push hl
	ld bc, MAIL_STRUCT_LENGTH
	call CopyBytes
	pop de
	ld hl, wd002
	ld bc, MAIL_STRUCT_LENGTH
	call CopyBytes
	call CloseSRAM
	pop bc
	pop de
	pop hl
	ret

.CopyNameTowd002:
	ld de, wd002

.CopyName:
	ld bc, NAME_LENGTH
	call CopyBytes
	ret
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`_SwitchPartyMons:`
wSwitchMon 2018-07-29 05:27:33 +00:00			`ld a, [wSwitchMon]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wBuffer3], a`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld b, a`
			`ld a, [wMenuCursorY]`
			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wBuffer2], a`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`cp b`
			`jr z, .skip`
			`call .SwapMonAndMail`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer3]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call .ClearSprite`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer2]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call .ClearSprite`
			`.skip`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.ClearSprite:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`push af`
			`hlcoord 0, 1`
			`ld bc, 2 * SCREEN_WIDTH`
			`call AddNTimes`
			`ld bc, 2 * SCREEN_WIDTH`
			`ld a, " "`
			`call ByteFill`
			`pop af`
Fix wVirtualOAM labels, part 2. 2018-01-30 19:52:46 +00:00			`ld hl, wVirtualOAMSprite00`
Resolve #461 2018-01-10 18:47:57 +00:00			`ld bc, 4 * SPRITEOAMSTRUCT_LENGTH`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call AddNTimes`
Resolve #461 2018-01-10 18:47:57 +00:00			`ld de, SPRITEOAMSTRUCT_LENGTH`
			`ld c, 4`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`.gfx_loop`
Resolve #461 2018-01-10 18:47:57 +00:00			`ld [hl], SCREEN_WIDTH_PX ; y (off-screen)`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`add hl, de`
			`dec c`
			`jr nz, .gfx_loop`
			`ld de, SFX_SWITCH_POKEMON`
			`call WaitPlaySFX`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.SwapMonAndMail:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`push hl`
			`push de`
			`push bc`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld bc, wPartySpecies`
			`ld a, [wBuffer2]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld l, a`
			`ld h, $0`
			`add hl, bc`
			`ld d, h`
			`ld e, l`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer3]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld l, a`
			`ld h, $0`
			`add hl, bc`
			`ld a, [hl]`
			`push af`
			`ld a, [de]`
			`ld [hl], a`
			`pop af`
			`ld [de], a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer2]`
			`ld hl, wPartyMon1Species`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call AddNTimes`
			`push hl`
			`ld de, wd002`
			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call CopyBytes`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer3]`
			`ld hl, wPartyMon1`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call AddNTimes`
			`pop de`
			`push hl`
			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call CopyBytes`
			`pop de`
			`ld hl, wd002`
			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call CopyBytes`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer2]`
			`ld hl, wPartyMonOT`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call SkipNames`
			`push hl`
			`call .CopyNameTowd002`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer3]`
			`ld hl, wPartyMonOT`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call SkipNames`
			`pop de`
			`push hl`
			`call .CopyName`
			`pop de`
			`ld hl, wd002`
			`call .CopyName`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMonNicknames`
			`ld a, [wBuffer2]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call SkipNames`
			`push hl`
			`call .CopyNameTowd002`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMonNicknames`
			`ld a, [wBuffer3]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call SkipNames`
			`pop de`
			`push hl`
			`call .CopyName`
			`pop de`
			`ld hl, wd002`
			`call .CopyName`
			`ld hl, sPartyMail`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer2]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, MAIL_STRUCT_LENGTH`
			`call AddNTimes`
			`push hl`
			`ld de, wd002`
			`ld bc, MAIL_STRUCT_LENGTH`
			`ld a, BANK(sPartyMail)`
Harmonize engine/{movie, pokemon} with pokegold (renames GetSRAMBank to OpenSRAM) To do: engine/{menus, overworld} 2020-06-17 21:03:38 +00:00			`call OpenSRAM`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call CopyBytes`
			`ld hl, sPartyMail`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer3]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, MAIL_STRUCT_LENGTH`
			`call AddNTimes`
			`pop de`
			`push hl`
			`ld bc, MAIL_STRUCT_LENGTH`
			`call CopyBytes`
			`pop de`
			`ld hl, wd002`
			`ld bc, MAIL_STRUCT_LENGTH`
			`call CopyBytes`
			`call CloseSRAM`
			`pop bc`
			`pop de`
			`pop hl`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CopyNameTowd002:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld de, wd002`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.CopyName:`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, NAME_LENGTH`
			`call CopyBytes`
			`ret`