mirror of https://github.com/pret/pokecrystal.git
82 lines
1.2 KiB
NASM
82 lines
1.2 KiB
NASM
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 Predef_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
|