ref: bf138d94d42ba0d092d5028e40a85260c250a4ee
dir: /engine/events/catch_tutorial.asm/
CatchTutorial:: ; 4e554 ld a, [BattleType] 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 ; 4e564 (13:6564) dw .DudeTutorial dw .DudeTutorial dw .DudeTutorial .DudeTutorial: ; 4e56a (13:656a) ; Back up your name to your Mom's name. ld hl, PlayerName ld de, MomsName ld bc, NAME_LENGTH call CopyBytes ; Copy Dude's name to your name ld hl, .Dude ld de, PlayerName ld bc, NAME_LENGTH call CopyBytes call .LoadDudeData xor a ld [hJoyDown], a ld [hJoyPressed], a ld a, [Options] push af and $f8 add $3 ld [Options], a ld hl, .AutoInput ld a, BANK(.AutoInput) call StartAutoInput callfar StartBattle call StopAutoInput pop af ld [Options], a ld hl, MomsName ld de, PlayerName ld bc, NAME_LENGTH call CopyBytes ret .LoadDudeData: ; 4e5b7 (13:65b7) 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 ; 5 ld [hli], a ld [hli], a ld [hl], -1 ret .Dude: ; 4e5da db "DUDE@" .AutoInput: ; 4e5df db NO_INPUT, $ff ; end