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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
027-2.gat,43,73,0 script Savaric 317,{
set @Graveyard_Inn_MASK, NIBBLE_1_MASK;
set @Graveyard_Inn_SHIFT, NIBBLE_1_SHIFT;
set @state, ((QUEST_Graveyard_Inn & @Graveyard_Inn_MASK) >> @Graveyard_Inn_SHIFT);
set @Graveyard_Inn_Woman_MASK, NIBBLE_0_MASK;
set @Graveyard_Inn_Woman_SHIFT, NIBBLE_0_SHIFT;
set @woman, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Woman_MASK) >> @Graveyard_Inn_Woman_SHIFT);
set @Graveyard_Inn_Golbanez_MASK, NIBBLE_4_MASK;
set @Graveyard_Inn_Golbanez_SHIFT, NIBBLE_4_SHIFT;
set @golbanez, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Golbanez_MASK) >> @Graveyard_Inn_Golbanez_SHIFT);
//TODO: determine sane values
set @CRYSTAL_AMOUNT, 300; //200?
set @CRYSTAL_EXP, 100000;
if (@state == 2) goto L_News;
if (@state == 1) goto L_Crystals;
mes "You see a dead man hanging. This place is creepy!";
next;
mes "Suddenly the man opens his eyes and look at you.";
next;
mes "[Hanged Man]";
mes "\"Oh, hello. Nice to see you - I seem to be dead, but I don't know why and why I'm still consciousness. This is very interesting.\"";
menu
"INTERESTING? Are you crazy?",-;
mes "[Hanged Man]";
mes "\"Well, as you mention it, it is quite annyoing and uncomfortable. Would you mind to help me coming down on the floor?\"";
next;
mes "You take a step towards him, but some invisible force holds you back.";
next;
mes "[Hanged Man]";
mes "\"Oh, someone is holding you back with magic! I sense a really dark and mighty power. What has happened!?\"";
next;
mes "\"Can I ask you for a favor? Can you bring me lots of dark crystals? You might need to ask a dark mage for it. I want to try to break the barrier.\"";
set @state, 1;
callsub S_Update_Mask;
close;
L_Crystals:
mes "[Hanged Man]";
mes "\"Ah, you're back! Did you get the dark crystals?\"";
if (countitem("DarkCrystal") == 0)
menu
"Not yet.", L_Close;
if (countitem("DarkCrystal") < @CRYSTAL_AMOUNT)
goto L_Not_Enough_Crystals;
delitem "DarkCrystal", countitem("DarkCrystal");
getexp @CRYSTAL_EXP, 0;
next;
mes "\"Oh, I can feel them! Please lay them down on the floor.\"";
next;
mes "You lay your dark crystals down on the floor and step back, nervously expecting the coming.";
next;
mes "The hanged man seems very concentrated now, which looks absurd with him hanging there.";
next;
mes "The dark crystals start to glow and buzz. You take another step back.";
next;
mes "The buzzing turns louder and louder, so you can't hear the word, the hanged man is calling now.";
next;
heal -300, 0;
mes "The crystals explode and hit you!";
//TODO: try this!
if (hp <= 0)
close;
next;
mes "You fall down on the floor and blink hectically to regain your eyesight again.";
next;
mes "[Hanged Man]";
mes "\"Hello? You're ok? I'm sorry, something went wrong. It seems, not only there is a magical barrier, but also my manaflow is blocked. I don't know, if this is because I'm dead or part of the barrier spell.\"";
next;
mes "\"I never was dead before, so I can't be sure. But I was able to access my magic - it just got out of control in the critical moment.\"";
next;
mes "\"This is fascinating!\"";
menu
"Ok, you are crazy!",-,
"Yes, it is very fascinating to be blown up!",-,
"I NEARLY DIED! AND YOU THINK, THIS IS FASCINATING?!",-;
mes "[Hanged Man]";
mes "\"I sometimes forget the fact, not everybody is fascinated by the riddles of magic. Please forgive me.\"";
next;
mes "\"And I even didn't introduce myself! I am very sorry for my rude behavior!\"";
next;
mes "\"My name is Savaric, first apprentice of the Great Demon Summoner Ymbert.\"";
next;
mes "\"If you can forgive me my behaviour, may I ask you for another favor? Can you please search for someone or something in this inn, that could be the source of this dark magic?\"";
set @state, 2;
callsub S_Update_Mask;
close;
L_News:
mes "[Savaric]";
mes "\"Welcome back. Did you find a possible source for the dark magic?\"";
if ((@woman < 6) && (@golbanez == 0))
menu
"Not yet, I'm still searching.",L_Close;
if ((@woman < 6) && (@golbanez > 0))
menu
"Yes, let me tell you.",L_Golbanez,
"I don't think so",L_Close;
if ((@woman >= 6) && (@golbanez == 0))
menu
"Can you tell me about your relationship to Reid?",L_Reid,
"Not yet, I'm still searching.",L_Close;
if ((@woman >= 6) && (@golbanez >= 0))
menu
"Can you tell me about your relationship to Reid?",L_Reid,
"Yes, let me tell you.",L_Golbanez,
"I don't think so",L_Close;
L_Golbanez:
mes "TODO: add story";
close;
L_Reid:
if (@state < 3)
goto L_No_Reid;
mes "[Savaric]";
mes "TODO: add story";
close;
L_No_Reid:
mes "[Savaric]";
mes "\"Relationship? Well, she the innkeeper of this inn and I'm a patron. There is nothing more about this to say.\"";
close;
L_Not_Enough_Crystals:
mes "It seems, you managed to get some, but not enough. Can you bring me more?";
close;
L_Close:
close;
S_Update_Mask:
set QUEST_Graveyard_Inn,
(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_MASK))
| (@state << @Graveyard_Inn_SHIFT);
return;
}
|
