pokecrystal/engine/events/shuckle.asm

MANIA_OT_ID EQU 00518

GiveShuckle:
; Adding to the party.
	xor a
	ld [wMonType], a

; Level 15 Shuckle.
	ld a, SHUCKLE
	ld [wCurPartySpecies], a
	ld a, 15
	ld [wCurPartyLevel], a

	predef TryAddMonToParty
	jr nc, .NotGiven

; Caught data.
	ld b, 0
	farcall SetGiftPartyMonCaughtData

; Holding a Berry.
	ld bc, PARTYMON_STRUCT_LENGTH
	ld a, [wPartyCount]
	dec a
	push af
	push bc
	ld hl, wPartyMon1Item
	call AddNTimes
	ld [hl], BERRY
	pop bc
	pop af

; OT ID.
	ld hl, wPartyMon1ID
	call AddNTimes
	ld a, HIGH(MANIA_OT_ID)
	ld [hli], a
	ld [hl], LOW(MANIA_OT_ID)

; Nickname.
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMonNicknames
	call SkipNames
	ld de, SpecialShuckleNick
	call CopyName2

; OT.
	ld a, [wPartyCount]
	dec a
	ld hl, wPartyMonOT
	call SkipNames
	ld de, SpecialShuckleOT
	call CopyName2

; Engine flag for this event.
	ld hl, wDailyFlags1
	set DAILYFLAGS1_GOT_SHUCKIE_TODAY_F, [hl]
	ld a, 1
	ld [wScriptVar], a
	ret

.NotGiven:
	xor a
	ld [wScriptVar], a
	ret

SpecialShuckleOT:
	db "MANIA@"
SpecialShuckleNick:
	db "SHUCKIE@"

ReturnShuckle:
	farcall SelectMonFromParty
	jr c, .refused

	ld a, [wCurPartySpecies]
	cp SHUCKLE
	jr nz, .DontReturn

	ld a, [wCurPartyMon]
	ld hl, wPartyMon1ID
	ld bc, PARTYMON_STRUCT_LENGTH
	call AddNTimes

; OT ID
	ld a, [hli]
	cp HIGH(MANIA_OT_ID)
	jr nz, .DontReturn
	ld a, [hl]
	cp LOW(MANIA_OT_ID)
	jr nz, .DontReturn

; OT
	ld a, [wCurPartyMon]
	ld hl, wPartyMonOT
	call SkipNames
	ld de, SpecialShuckleOT
.CheckOT:
	ld a, [de]
	cp [hl]
	jr nz, .DontReturn
	cp "@"
	jr z, .done
	inc de
	inc hl
	jr .CheckOT

.done
	farcall CheckCurPartyMonFainted
	jr c, .fainted
	ld a, [wCurPartyMon]
	ld hl, wPartyMon1Happiness
	ld bc, PARTYMON_STRUCT_LENGTH
	call AddNTimes
	ld a, [hl]
	cp 150
	ld a, SHUCKIE_HAPPY
	jr nc, .HappyToStayWithYou
	xor a ; REMOVE_PARTY
	ld [wPokemonWithdrawDepositParameter], a
	callfar RemoveMonFromPartyOrBox
	ld a, SHUCKIE_RETURNED
.HappyToStayWithYou:
	ld [wScriptVar], a
	ret

.refused
	ld a, SHUCKIE_REFUSED
	ld [wScriptVar], a
	ret

.DontReturn:
	xor a ; SHUCKIE_WRONG_MON
	ld [wScriptVar], a
	ret

.fainted
	ld a, SHUCKIE_FAINTED
	ld [wScriptVar], a
	ret
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`MANIA_OT_ID EQU 00518`

Remove all address comments 2018-06-24 14:09:41 +00:00			`GiveShuckle:`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`; Adding to the party.`
			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wMonType], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00
			`; Level 15 Shuckle.`
			`ld a, SHUCKLE`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wCurPartySpecies], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ld a, 15`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wCurPartyLevel], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 19:30:10 +00:00			`predef TryAddMonToParty`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`jr nc, .NotGiven`

			`; Caught data.`
			`ld b, 0`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall SetGiftPartyMonCaughtData`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00
			`; Holding a Berry.`
			`ld bc, PARTYMON_STRUCT_LENGTH`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wPartyCount]`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`dec a`
			`push af`
			`push bc`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMon1Item`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`call AddNTimes`
			`ld [hl], BERRY`
			`pop bc`
			`pop af`

			`; OT ID.`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMon1ID`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`call AddNTimes`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`ld a, HIGH(MANIA_OT_ID)`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ld [hli], a`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`ld [hl], LOW(MANIA_OT_ID)`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00
			`; Nickname.`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wPartyCount]`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMonNicknames`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`call SkipNames`
			`ld de, SpecialShuckleNick`
			`call CopyName2`

			`; OT.`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wPartyCount]`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`dec a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMonOT`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`call SkipNames`
			`ld de, SpecialShuckleOT`
			`call CopyName2`

			`; Engine flag for this event.`
wWeeklyFlags -> wDailyFlags2 These are by far not always checked each week, and as such shouldn't be called that. Since they're almost always used through the `bit` instruction, it's very inconvenient to just make wDailyFlags a `dw` instead. 2018-08-06 17:43:54 +00:00			`ld hl, wDailyFlags1`
			`set DAILYFLAGS1_GOT_SHUCKIE_TODAY_F, [hl]`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ld a, 1`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.NotGiven:`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ret`

			`SpecialShuckleOT:`
			`db "MANIA@"`
			`SpecialShuckleNick:`
			`db "SHUCKIE@"`

Remove all address comments 2018-06-24 14:09:41 +00:00			`ReturnShuckle:`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall SelectMonFromParty`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`jr c, .refused`

Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wCurPartySpecies]`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`cp SHUCKLE`
			`jr nz, .DontReturn`

Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wCurPartyMon]`
			`ld hl, wPartyMon1ID`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call AddNTimes`

			`; OT ID`
			`ld a, [hli]`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`cp HIGH(MANIA_OT_ID)`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`jr nz, .DontReturn`
			`ld a, [hl]`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`cp LOW(MANIA_OT_ID)`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`jr nz, .DontReturn`

			`; OT`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wCurPartyMon]`
			`ld hl, wPartyMonOT`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`call SkipNames`
			`ld de, SpecialShuckleOT`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.CheckOT:`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ld a, [de]`
			`cp [hl]`
			`jr nz, .DontReturn`
			`cp "@"`
			`jr z, .done`
			`inc de`
			`inc hl`
			`jr .CheckOT`

			`.done`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall CheckCurPartyMonFainted`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`jr c, .fainted`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wCurPartyMon]`
			`ld hl, wPartyMon1Happiness`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
			`call AddNTimes`
			`ld a, [hl]`
			`cp 150`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`ld a, SHUCKIE_HAPPY`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`jr nc, .HappyToStayWithYou`
Label wPokemonWithdrawDepositParameter of RemoveMonFromPartyOrBox It takes a clearly different parameter, completely unrelated and different in function to PC_DEPOSIT and PC_WITHDRAW. 2018-02-22 20:35:11 +00:00			`xor a ; REMOVE_PARTY`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ld [wPokemonWithdrawDepositParameter], a`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`callfar RemoveMonFromPartyOrBox`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`ld a, SHUCKIE_RETURNED`
Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.HappyToStayWithYou:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ret`

			`.refused`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`ld a, SHUCKIE_REFUSED`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ret`

Local labels starting with capital letters are now decorated with a trailing colon; remove trailing whitespace; globally correct line endings to UNIX style 2016-04-10 18:42:14 +00:00			`.DontReturn:`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`xor a ; SHUCKIE_WRONG_MON`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ret`

			`.fainted`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`ld a, SHUCKIE_FAINTED`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Split up banks 1-3 of main.asm 2016-03-27 16:47:28 +00:00			`ret`