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
82
83
84
85
86
87
88
89
90
91
92
93
94
|
Dialogue_script_step:
LD A, ($mem_dialogue_script_program_counter)
LD H, A
LD A, ($mem_dialogue_script_program_counter+1)
LD L, A
LD A, (HL+)
LD BC, =Dialogue_script_instruction_Jump_Table
.JUMP_TABLE
LD A, H
LD ($mem_dialogue_script_program_counter), A
LD A, L
LD ($mem_dialogue_script_program_counter+1), A
RET
Dialogue_script_instruction_Jump_Table:
; 00
JP =Exit_Menu
NOP
; 01
JP =.Text
NOP
;02
JP =.TextB
NOP
.Text:
PUSH HL
LD HL, $dialogue_first_line
LD BC, $12
CALL =bzero
POP HL
LD A, (HL+)
LD B, A
LD A, (HL+)
LD C, A
PUSH HL
LD HL, $dialogue_first_line
CALL =Print_str
POP HL
PUSH HL
LD HL, $dialogue_third_line
LD BC, $12
CALL =bzero
POP HL
LD A, (HL+)
LD B, A
LD A, (HL+)
LD C, A
PUSH HL
LD HL, $dialogue_third_line
CALL =Print_str
POP HL
LD A, $05
LD $mem_display_flag, A
RET
.TextB:
LD A, (HL+)
LD B, A
LD A, (HL+)
LD C, A
PUSH HL
LD HL, $dialogue_first_line
CALL =Print_str
POP HL
LD A, (HL+)
LD B, A
LD A, (HL+)
LD C, A
PUSH HL
LD HL, $dialogue_third_line
CALL =Print_str
POP HL
LD A, $07
LD $mem_display_flag, A
RET
.INCLUDE "dialogues/text.gbasm"
.INCLUDE "dialogues/demo_quest.gbasm"
|
