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