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
151
152
153
154
155
156
157
158
|
027-2.gat,118,23,0 script Werewolf 305,{
set @Graveyard_Inn_MASK, NIBBLE_5_MASK;
set @Graveyard_Inn_SHIFT, NIBBLE_5_SHIFT;
set @state, ((QUEST_Graveyard_Inn & @Graveyard_Inn_MASK) >> @Graveyard_Inn_SHIFT);
set @ANIMALBONES_AMOUNT, 30;
set @ANIMALBONES_EXP, 40000;
set @money, 1000;
if (@state > 1) goto L_Happy;
if (@state == 1) goto L_Bones;
mes "[Werewolf]";
mes "\"What a nice place here, isn't it?\"";
next;
mes "\"Just the stuff they call 'food' in here is awful, bah.\"";
if (baselevel < 80) goto L_Close;
next;
mes "\"I like bones from big animals, the best would be with some raw flesh at it. But only the bones are fine too.\"";
next;
mes "\"Can you bring me " + @ANIMALBONES_AMOUNT + " of them?\"";
set @state, 1;
callsub S_Update_Mask;
close;
L_Bones:
mes "[Werewolf]";
mes "\"Do you have " + @ANIMALBONES_AMOUNT + " bones of an animal for me?\"";
next;
if ((countitem("Bone") > 0) && (countitem("AnimalBones") >= @ANIMALBONES_AMOUNT))
menu
"Yes, here they are.",L_Bring,
"What about this normal bone?",L_Human,
"Not yet.",L_Close;
if (countitem("Bone") > 0)
menu
"What about this normal bone?",L_Human,
"Not yet.",L_Close;
if (countitem("AnimalBones") >= @ANIMALBONES_AMOUNT)
menu
"Yes, here they are.",L_Bring,
"Not yet.",L_Close;
menu
"Not yet.",-;
close;
L_Bring:
if (countitem("AnimalBones") < @ANIMALBONES_AMOUNT)
goto L_Not_Enough;
delitem "AnimalBones", @ANIMALBONES_AMOUNT;
getexp @ANIMALBONES_EXP, 0;
mes "[Werewolf]";
mes "\"Ah! Wonderful! Thank you.\"";
set @state, 2;
callsub S_Update_Mask;
close;
L_Human:
mes "[Werewolf]";
mes "\"What?! That's a humans bone! I don't eat humans. That brings only trouble.\"";
next;
mes "\"Beside of that I heard, they taste is bad.\"";
close;
L_Not_Enough:
mes "[Werewolf]";
mes "\"Are you trying to kid me? I do can count.\"";
close;
L_Happy:
mes "You see the werewolf happily crunching the bones you brought him.";
mes "[Werewolf]";
mes "\"Delicious. Thanks again.\"";
next;
mes "\"By the way... would you be interested in a little round of black jack?\"";
mes "He pulls a card game out of his pocket.";
next;
mes "[Werewolf]";
mes "\"You will need " + @money + " GP.\"";
menu
"Sure, why not?",L_Game,
"No, thanks.",-;
close;
//The game mechanics is copied from casino.txt
L_Game:
if(zeny < @money) goto L_No_Money;
mes "[Werewolf]";
mes "\"Very nice. Let's start.\"";
mes "He shuffles the cards.";
next;
set zeny, zeny - @money;
set @croupier, rand(0, 4);
set @croupier, @croupier + 17;
set @player, rand(4, 21);
mes "\"You got " + @player + " with your cards.";
if(@player == 21) goto L_End;
mes "Do you want another card?\"";
next;
menu
"Yes.", L_Another,
"No.", L_End;
L_Another:
set @tempace, rand(2, 11);
if (@tempace == 11) goto L_Ace;
set @player, @player + @tempace;
if (@player > 21) goto L_Lost;
if (@player == 21) goto L_End;
mes "\"You got " + @player + " with your cards.";
mes "Do you want another card?\"";
next;
menu
"Yes", L_Another,
"No", L_End;
L_End:
if (@player <= @croupier) goto L_Lost;
mes "\"You won! Hrm, here is your money.\"";
set zeny, zeny + (3 * @money);
close;
L_No_Money:
mes "\"You need at least " + @money + " GP.\"";
close;
L_Lost:
mes "[Werewolf]";
mes "\"Fine! I won!";
mes "You got " + @player + " with your cards.";
mes "I had " + @croupier + ".\"";
close;
L_Ace:
set @player, @player + 11;
if (@player > 21) set @player, @player - 10;
if (@player > 21) goto L_Lost;
if (@player == 21) goto L_End;
mes "You got " + @player + " with your cards.";
mes "Do you want another card?";
next;
menu
"Yes", L_Another,
"No", L_End;
close;
L_Close:
close;
S_Update_Mask:
set QUEST_Graveyard_Inn,
(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_MASK))
| (@state << @Graveyard_Inn_SHIFT);
return;
}
|
