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
|
// TMW2 Script.
// Author:
// Jesusalva
// Description:
// Kfahr - Placeholder
// Quests:
// HurnscaldQuest_Khafar
// .@q1 = when even, must buy a beer
// when odd, can ask another story
// .@q2 = Temporary variable, holds last story
// Secrets Unlocked:
// NivalisQuest_Baktar (status 1→2)
// Win arm wrestling to unlock Braknar Shield Secrets
012-2,54,46,2 script Khafar NPC_ORC,{
function MustDrink;
mesc l("You stand before a battle-scarred, darkly tanned warrior, brimming with muscles.");
mesc l("Just looking at him you smell danger, adventure, excitement...");
next;
mesc l("On second thought, he really could use a bath.");
next;
mesc l("The warrior turns towards you, grinning broadly.");
next;
mesn;
mesq l("Why, hello there! Come to visit me to hear Kfahr the Warrior or Andrei Sakar's exploits, have you?");
mesc l("He laughs heartily and gives you a slap on the back.");
next;
mesn;
mesq l("Can't blame you, can't blame you at all! Here, take a seat!");
next;
goto L_Menu;
L_Menu:
do
{
.@q=getq(HurnscaldQuest_Khafar);
if (.@q % 2 == 0)
MustDrink();
select
l("Don't you have any exploit of your own?"),
l("Who is Kfahr the Warrior?"),
l("Who is Andrei Sakar?"),
l("Nah, see you later.");
mes "";
switch (@menu) {
case 1:
mesn;
mesq l("I once killed a Giant Maggot alone!");
next;
break;
case 2:
mesn;
mesq l("He is my grand-grand-grandfather! The might Kfahr, with his friend Braknar, and heroes from Tulimshar legends.");
next;
mesn;
mesq l("Togheter, they wrote legends. They slayed Toby Rick the Desert Worm, the mightiest desert beast.");
next;
mesn;
mesq l("Braknar also used a pseudonym - Arvek. If you hear that name in some tale, it is the same person.");
next;
mesn;
mesq l("Well, that was a good fight. My grand-grand-grandfeather gave his shield to Arvek -- err, Braknar I mean.");
next;
mesn;
mesq l("The last time they were seen... They went to explore the Desert Temple. None returned alive.");
next;
break;
default:
mesn;
mesq lg("See you later, my friend! Thanks for the drink!");
close;
break;
}
setq1 HurnscaldQuest_Khafar, .@q+1;
getexp 50, 0; // Beer is now lost - get 50xp
} while (true);
close;
function MustDrink {
mesn;
mesq l("But first... My throat is dry. Can you bring me a beer?");
if (!countitem(Beer))
close;
next;
select
l("Here, you can have a glass."),
l("Sorry, I have nothing.");
mes "";
if (@menu == 1) {
delitem Beer, 1;
.@q=getq(HurnscaldQuest_Khafar);
setq1 HurnscaldQuest_Khafar, .@q+1;
return;
}
close;
}
OnInit:
.@npcId = getnpcid(.name$);
setunitdata(.@npcId, UDT_HEADTOP, FairyHat);
setunitdata(.@npcId, UDT_HEADMIDDLE, ForestArmor);
setunitdata(.@npcId, UDT_HEADBOTTOM, CottonShorts);
setunitdata(.@npcId, UDT_WEAPON, LousyMoccasins);
setunitdata(.@npcId, UDT_HAIRSTYLE, 24);
setunitdata(.@npcId, UDT_HAIRCOLOR, 7);
.sex = G_MALE;
.distance = 5;
npcsit;
end;
}
|
