ref: e90857dea1cb25cbb58ac68896158e4674110522
dir: /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 ld [hJoyDown], a ld [hJoyPressed], a ld a, [wOptions] push af and $f8 add $3 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