pokecrystal/engine/events/catch_tutorial.asm

CatchTutorial::
	ld a, [wBattleType]
	dec a
	ld c, a
	ld hl, .dw
	ld b, 0
	add hl, bc
	add hl, bc
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp hl

.dw
	dw .DudeTutorial
	dw .DudeTutorial
	dw .DudeTutorial

.DudeTutorial:
; Back up your name to your Mom's name.
	ld hl, wPlayerName
	ld de, wMomsName
	ld bc, NAME_LENGTH
	call CopyBytes
; Copy Dude's name to your name
	ld hl, .Dude
	ld de, wPlayerName
	ld bc, NAME_LENGTH
	call CopyBytes

	call .LoadDudeData

	xor a
	ldh [hJoyDown], a
	ldh [hJoyPressed], a
	ld a, [wOptions]
	push af
	and ~TEXT_DELAY_MASK
	add TEXT_DELAY_MED
	ld [wOptions], a
	ld hl, .AutoInput
	ld a, BANK(.AutoInput)
	call StartAutoInput
	callfar StartBattle
	call StopAutoInput
	pop af

	ld [wOptions], a
	ld hl, wMomsName
	ld de, wPlayerName
	ld bc, NAME_LENGTH
	call CopyBytes
	ret

.LoadDudeData:
	ld hl, wDudeNumItems
	ld [hl], 1
	inc hl
	ld [hl], POTION
	inc hl
	ld [hl], 1
	inc hl
	ld [hl], -1
	ld hl, wDudeNumKeyItems
	ld [hl], 0
	inc hl
	ld [hl], -1
	ld hl, wDudeNumBalls
	ld a, 1
	ld [hli], a
	ld a, POKE_BALL
	ld [hli], a
	ld [hli], a
	ld [hl], -1
	ret

.Dude:
	db "DUDE@"

.AutoInput:
	db NO_INPUT, $ff ; end
Remove all address comments 2018-06-24 14:09:41 +00:00			`CatchTutorial::`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBattleType]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`dec a`
			`ld c, a`
			`ld hl, .dw`
			`ld b, 0`
			`add hl, bc`
			`add hl, bc`
			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`jp hl`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.dw`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`dw .DudeTutorial`
			`dw .DudeTutorial`
			`dw .DudeTutorial`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.DudeTutorial:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`; Back up your name to your Mom's name.`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPlayerName`
			`ld de, wMomsName`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld bc, NAME_LENGTH`
			`call CopyBytes`
			`; Copy Dude's name to your name`
			`ld hl, .Dude`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld de, wPlayerName`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld bc, NAME_LENGTH`
			`call CopyBytes`

			`call .LoadDudeData`

			`xor a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh [hJoyDown], a`
			`ldh [hJoyPressed], a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wOptions]`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`push af`
Use ~X instead of $ff ^ X 2021-11-24 01:37:18 +00:00			`and ~TEXT_DELAY_MASK`
Bug fix: allow Surfing across map connections 2019-02-16 20:45:55 +00:00			`add TEXT_DELAY_MED`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wOptions], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld hl, .AutoInput`
			`ld a, BANK(.AutoInput)`
			`call StartAutoInput`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`callfar StartBattle`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`call StopAutoInput`
			`pop af`

Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wOptions], a`
			`ld hl, wMomsName`
			`ld de, wPlayerName`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld bc, NAME_LENGTH`
			`call CopyBytes`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.LoadDudeData:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld hl, wDudeNumItems`
			`ld [hl], 1`
			`inc hl`
			`ld [hl], POTION`
			`inc hl`
			`ld [hl], 1`
			`inc hl`
			`ld [hl], -1`
			`ld hl, wDudeNumKeyItems`
			`ld [hl], 0`
			`inc hl`
			`ld [hl], -1`
			`ld hl, wDudeNumBalls`
			`ld a, 1`
			`ld [hli], a`
Remove all address comments 2018-06-24 14:09:41 +00:00			`ld a, POKE_BALL`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld [hli], a`
			`ld [hli], a`
			`ld [hl], -1`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.Dude:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`db "DUDE@"`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.AutoInput:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`db NO_INPUT, $ff ; end`