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
|
// TMW2 Scripts
// Author:
// Jesusalva
// Description:
// Slot Machine for bets
017-3,84,67,0 script Slot Machine#003-10a NPC_SLOTMACHINE,{
function symbol{
switch (getarg(0)) {
case 1:
mesn "%%A";
break;
case 2:
mesn "%%B";
break;
case 3:
mesn "%%C";
break;
case 4:
mesn "%%D";
break;
case 5:
mesn "%%E";
break;
case 6:
mesn "%%F";
break;
case 7:
mesn "7";
break;
default:
mesn "%%@";
break;
}
}
L_Menu:
mesn;
mesc l("Spin three symbols, and jackpot great rewards!");
mesc l("Just two coins for spin.");
next;
menu
rif(countitem(CasinoCoins) >= 2, l("Spin!")), L_Spin,
l("Prizes"), L_Info,
l("Trade"), L_Trade,
l("Leave"), L_Quit;
L_Info:
mes "";
mesc l("Prizes:");
mes l("##9 777: @@.", getitemlink(Bloodstone));
mes l("##9 %%A%%A%%A: @@.", getitemlink(Sapphire));
mes l("##9 %%B%%B%%B: @@.", getitemlink(Amethyst));
mes l("##9 %%C%%C%%C: @@.", getitemlink(Diamond));
mes l("##9 %%D%%D%%D: @@.", getitemlink(Emerald));
mes l("##9 %%E%%E%%E: @@.", getitemlink(Topaz));
mes l("##9 %%F%%F%%F: @@.", getitemlink(Ruby));
mesc l("Two equal: 1 casino coin.");
next;
goto L_Menu;
L_Spin:
mesc l("Spinning...");
next;
delitem CasinoCoins, 2;
.@a=rand(1,7);
.@b=rand(1,7);
.@c=rand(1,7);
symbol(.@a);
symbol(.@b);
symbol(.@c);
next;
mesn;
if (.@a == .@b && .@a == .@c) {
.@it=Iten;
switch (.@a) {
case 1:
.@it=Sapphire; break;
case 2:
.@it=Amethyst; break;
case 3:
.@it=Diamond; break;
case 4:
.@it=Emerald; break;
case 5:
.@it=Topaz; break;
case 6:
.@it=Ruby; break;
case 7:
.@it=Bloodstone; break;
}
getitem .@it, 1;
mesc l("Jackpot! You got the @@!", .@it), 3;
} else if (.@a == .@b || .@a == .@c || .@b == .@c) {
getitem CasinoCoins, 1;
mesc l("Lucky! You got the coin back!"), 3;
} else {
mesc l("It wasn't this time..."), 3;
}
next;
goto L_Menu;
L_Trade:
openshop;
closedialog;
close;
L_Quit:
close;
OnInit:
.sex = G_OTHER;
.distance = 4;
tradertype(NST_CUSTOM);
sellitem WoodenSword, 940;
sellitem JeansShorts, 820;
sellitem ElixirOfLife, 150;
sellitem PoisonArrow, 30;
sellitem StrangeCoin, 5;
end;
OnCountFunds:
setcurrency(countitem(CasinoCoins));
end;
OnPayFunds:
if( countitem(CasinoCoins) < @price )
end;
delitem CasinoCoins,@price;
purchaseok();
end;
}
|