pokecrystal-board/engine/pokemon/tempmon.asm

CopyMonToTempMon:
; gets the BaseData of a mon
; and copies the party_struct to wTempMon

	ld a, [wCurPartyMon]
	ld e, a
	call GetMonSpecies
	ld a, [wCurPartySpecies]
	ld [wCurSpecies], a
	call GetBaseData

	ld a, [wMonType]
	ld hl, wPartyMon1Species
	ld bc, PARTYMON_STRUCT_LENGTH
	and a
	jr z, .copywholestruct
	ld hl, wOTPartyMon1Species
	ld bc, PARTYMON_STRUCT_LENGTH
	cp OTPARTYMON
	jr z, .copywholestruct
	ld bc, BOXMON_STRUCT_LENGTH
	callfar CopyBoxmonToTempMon
	jr .done

.copywholestruct
	ld a, [wCurPartyMon]
	call AddNTimes
	ld de, wTempMon
	ld bc, PARTYMON_STRUCT_LENGTH
	call CopyBytes

.done
	ret

CalcBufferMonStats:
	ld bc, wBufferMon
	jr _TempMonStatsCalculation

CalcTempmonStats:
	ld bc, wTempMon
_TempMonStatsCalculation:
	ld hl, MON_LEVEL
	add hl, bc
	ld a, [hl]
	ld [wCurPartyLevel], a
	ld hl, MON_MAXHP
	add hl, bc
	ld d, h
	ld e, l
	ld hl, MON_STAT_EXP - 1
	add hl, bc
	push bc
	ld b, TRUE
	predef CalcMonStats
	pop bc
	ld hl, MON_HP
	add hl, bc
	ld d, h
	ld e, l
	ld a, [wCurPartySpecies]
	cp EGG
	jr nz, .not_egg
	xor a
	ld [de], a
	inc de
	ld [de], a
	jr .zero_status

.not_egg
	push bc
	ld hl, MON_MAXHP
	add hl, bc
	ld bc, 2
	call CopyBytes
	pop bc

.zero_status
	ld hl, MON_STATUS
	add hl, bc
	xor a
	ld [hli], a
	ld [hl], a
	ret

GetMonSpecies:
; [wMonType] has the type of the mon
; e = Nr. of mon (i.e. [wCurPartyMon])

	ld a, [wMonType]
	and a ; PARTYMON
	jr z, .partymon
	cp OTPARTYMON
	jr z, .otpartymon
	cp BOXMON
	jr z, .boxmon
	cp TEMPMON
	jr z, .breedmon
	; WILDMON

.partymon
	ld hl, wPartySpecies
	jr .done

.otpartymon
	ld hl, wOTPartySpecies
	jr .done

.boxmon
	ld a, BANK(sBoxSpecies)
	call GetSRAMBank
	ld hl, sBoxSpecies
	call .done
	call CloseSRAM
	ret

.breedmon
	ld a, [wBreedMon1Species]
	jr .done2

.done
	ld d, 0
	add hl, de
	ld a, [hl]

.done2
	ld [wCurPartySpecies], a
	ret
Remove all address comments 2018-06-24 07:09:41 -07:00			`CopyMonToTempMon:`
Pkmn -> Mon Since we're aiming for consistency across the codebase, I believe it includes a uniform way to refer to the creatures this game consists of in the labels of the code. The only exceptions to this rule are labels referring to things named through the use of the <PK><MN> or <PKMN> characters, in which case PKMN is used. Most of this was already consistent enough™, I just picked the convention with the most occurences and fixed the outliers. 2018-02-22 08:13:29 -08:00			`; gets the BaseData of a mon`
CalcwBufferMonStats -> CalcBufferMonStats The 'w' was probably added in some mass-replacement. It's completely irrelevant to the function itself and doesn't fit the PascalCase model. 2018-02-12 14:58:19 -08:00			`; and copies the party_struct to wTempMon`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyMon]`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld e, a`
Pkmn -> Mon Since we're aiming for consistency across the codebase, I believe it includes a uniform way to refer to the creatures this game consists of in the labels of the code. The only exceptions to this rule are labels referring to things named through the use of the <PK><MN> or <PKMN> characters, in which case PKMN is used. Most of this was already consistent enough™, I just picked the convention with the most occurences and fixed the outliers. 2018-02-22 08:13:29 -08:00			`call GetMonSpecies`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartySpecies]`
			`ld [wCurSpecies], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call GetBaseData`

Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wMonType]`
			`ld hl, wPartyMon1Species`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`and a`
			`jr z, .copywholestruct`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wOTPartyMon1Species`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`cp OTPARTYMON`
			`jr z, .copywholestruct`
			`ld bc, BOXMON_STRUCT_LENGTH`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`callfar CopyBoxmonToTempMon`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`jr .done`

			`.copywholestruct`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyMon]`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`call AddNTimes`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld de, wTempMon`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call CopyBytes`

			`.done`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`CalcBufferMonStats:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld bc, wBufferMon`
			`jr _TempMonStatsCalculation`

Remove all address comments 2018-06-24 07:09:41 -07:00			`CalcTempmonStats:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld bc, wTempMon`
Remove all address comments 2018-06-24 07:09:41 -07:00			`_TempMonStatsCalculation:`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld hl, MON_LEVEL`
			`add hl, bc`
			`ld a, [hl]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartyLevel], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ld hl, MON_MAXHP`
			`add hl, bc`
			`ld d, h`
			`ld e, l`
			`ld hl, MON_STAT_EXP - 1`
			`add hl, bc`
			`push bc`
Fix TRUE/FALSE constants for CalcMonStats 2018-02-22 09:12:43 -08:00			`ld b, TRUE`
Pkmn -> Mon Since we're aiming for consistency across the codebase, I believe it includes a uniform way to refer to the creatures this game consists of in the labels of the code. The only exceptions to this rule are labels referring to things named through the use of the <PK><MN> or <PKMN> characters, in which case PKMN is used. Most of this was already consistent enough™, I just picked the convention with the most occurences and fixed the outliers. 2018-02-22 08:13:29 -08:00			`predef CalcMonStats`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`pop bc`
			`ld hl, MON_HP`
			`add hl, bc`
			`ld d, h`
			`ld e, l`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartySpecies]`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`cp EGG`
			`jr nz, .not_egg`
			`xor a`
			`ld [de], a`
			`inc de`
			`ld [de], a`
			`jr .zero_status`

			`.not_egg`
			`push bc`
			`ld hl, MON_MAXHP`
			`add hl, bc`
			`ld bc, 2`
			`call CopyBytes`
			`pop bc`

			`.zero_status`
			`ld hl, MON_STATUS`
			`add hl, bc`
			`xor a`
			`ld [hli], a`
			`ld [hl], a`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`GetMonSpecies:`
Pkmn -> Mon Since we're aiming for consistency across the codebase, I believe it includes a uniform way to refer to the creatures this game consists of in the labels of the code. The only exceptions to this rule are labels referring to things named through the use of the <PK><MN> or <PKMN> characters, in which case PKMN is used. Most of this was already consistent enough™, I just picked the convention with the most occurences and fixed the outliers. 2018-02-22 08:13:29 -08:00			`; [wMonType] has the type of the mon`
			`; e = Nr. of mon (i.e. [wCurPartyMon])`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wMonType]`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`and a ; PARTYMON`
			`jr z, .partymon`
			`cp OTPARTYMON`
			`jr z, .otpartymon`
			`cp BOXMON`
			`jr z, .boxmon`
			`cp TEMPMON`
			`jr z, .breedmon`
			`; WILDMON`

			`.partymon`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartySpecies`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`jr .done`

			`.otpartymon`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wOTPartySpecies`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`jr .done`

			`.boxmon`
			`ld a, BANK(sBoxSpecies)`
			`call GetSRAMBank`
			`ld hl, sBoxSpecies`
			`call .done`
			`call CloseSRAM`
			`ret`

			`.breedmon`
			`ld a, [wBreedMon1Species]`
			`jr .done2`

			`.done`
			`ld d, 0`
			`add hl, de`
			`ld a, [hl]`

			`.done2`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wCurPartySpecies], a`
Move more main.asm code into individual files 2017-12-15 18:22:26 -08:00			`ret`