1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
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
|
