pokecrystal/engine/pokemon/switchpartymons.asm

_SwitchPartyMons:
	ld a, [wSwitchMon]
	dec a
	ld [wSwitchMonFrom], a
	ld b, a
	ld a, [wMenuCursorY]
	dec a
	ld [wSwitchMonTo], a
	cp b
	jr z, .skip
	call .SwapMonAndMail
	ld a, [wSwitchMonFrom]
	call .ClearSprite
	ld a, [wSwitchMonTo]
	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, [wSwitchMonTo]
	ld l, a
	ld h, 0
	add hl, bc
	ld d, h
	ld e, l
	ld a, [wSwitchMonFrom]
	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, [wSwitchMonTo]
	ld hl, wPartyMon1Species
	ld bc, PARTYMON_STRUCT_LENGTH
	call AddNTimes
	push hl
	ld de, wSwitchMonBuffer
	ld bc, PARTYMON_STRUCT_LENGTH
	call CopyBytes
	ld a, [wSwitchMonFrom]
	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, wSwitchMonBuffer
	ld bc, PARTYMON_STRUCT_LENGTH
	call CopyBytes
	ld a, [wSwitchMonTo]
	ld hl, wPartyMonOTs
	call SkipNames
	push hl
	call .CopyNameToSwitchMonBuffer
	ld a, [wSwitchMonFrom]
	ld hl, wPartyMonOTs
	call SkipNames
	pop de
	push hl
	call .CopyName
	pop de
	ld hl, wSwitchMonBuffer
	call .CopyName
	ld hl, wPartyMonNicknames
	ld a, [wSwitchMonTo]
	call SkipNames
	push hl
	call .CopyNameToSwitchMonBuffer
	ld hl, wPartyMonNicknames
	ld a, [wSwitchMonFrom]
	call SkipNames
	pop de
	push hl
	call .CopyName
	pop de
	ld hl, wSwitchMonBuffer
	call .CopyName
	ld hl, sPartyMail
	ld a, [wSwitchMonTo]
	ld bc, MAIL_STRUCT_LENGTH
	call AddNTimes
	push hl
	ld de, wSwitchMonBuffer
	ld bc, MAIL_STRUCT_LENGTH
	ld a, BANK(sPartyMail)
	call OpenSRAM
	call CopyBytes
	ld hl, sPartyMail
	ld a, [wSwitchMonFrom]
	ld bc, MAIL_STRUCT_LENGTH
	call AddNTimes
	pop de
	push hl
	ld bc, MAIL_STRUCT_LENGTH
	call CopyBytes
	pop de
	ld hl, wSwitchMonBuffer
	ld bc, MAIL_STRUCT_LENGTH
	call CopyBytes
	call CloseSRAM
	pop bc
	pop de
	pop hl
	ret

.CopyNameToSwitchMonBuffer:
	ld de, wSwitchMonBuffer

.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`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld [wSwitchMonFrom], 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`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld [wSwitchMonTo], a`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`cp b`
			`jr z, .skip`
			`call .SwapMonAndMail`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonFrom]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call .ClearSprite`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonTo]`
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`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonTo]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld l, a`
Replace $0 with 0 for "ld l, a / ld h, 0" idiom 2020-11-09 20:17:03 +00:00			`ld h, 0`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`add hl, bc`
			`ld d, h`
			`ld e, l`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonFrom]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld l, a`
Replace $0 with 0 for "ld l, a / ld h, 0" idiom 2020-11-09 20:17:03 +00:00			`ld h, 0`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`add hl, bc`
			`ld a, [hl]`
			`push af`
			`ld a, [de]`
			`ld [hl], a`
			`pop af`
			`ld [de], a`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonTo]`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`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`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`ld de, wSwitchMonBuffer`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call CopyBytes`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonFrom]`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`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`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`ld hl, wSwitchMonBuffer`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call CopyBytes`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonTo]`
Consistent labels for each nickname in RAM 2021-03-17 20:16:02 +00:00			`ld hl, wPartyMonOTs`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call SkipNames`
			`push hl`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`call .CopyNameToSwitchMonBuffer`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonFrom]`
Consistent labels for each nickname in RAM 2021-03-17 20:16:02 +00:00			`ld hl, wPartyMonOTs`
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`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`ld hl, wSwitchMonBuffer`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call .CopyName`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMonNicknames`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonTo]`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call SkipNames`
			`push hl`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`call .CopyNameToSwitchMonBuffer`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMonNicknames`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonFrom]`
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`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`ld hl, wSwitchMonBuffer`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`call .CopyName`
			`ld hl, sPartyMail`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonTo]`
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`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`ld de, wSwitchMonBuffer`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`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`
Identify more uses of wBuffer1-6 2020-11-04 00:53:07 +00:00			`ld a, [wSwitchMonFrom]`
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`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`ld hl, wSwitchMonBuffer`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00			`ld bc, MAIL_STRUCT_LENGTH`
			`call CopyBytes`
			`call CloseSRAM`
			`pop bc`
			`pop de`
			`pop hl`
			`ret`

Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 18:45:40 +00:00			`.CopyNameToSwitchMonBuffer:`
			`ld de, wSwitchMonBuffer`
Move more main.asm code into individual files 2017-12-16 02:22:26 +00:00
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`