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
|
// TMW2 Scripts
// Author:
// Jesusalva
// Description:
// Slot Machine for bets
003-10,22,37,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 one coin for spin.");
next;
menu
rif(countitem(CasinoCoins) >= 1, 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(Monocle));
mesc l("Three equal: 30 coins.");
mesc l("Two equal: 1 coin.");
next;
goto L_Menu;
L_Spin:
mesc l("Spinning...");
next;
delitem CasinoCoins, 1;
.@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 && .@a == 7) {
getitem Monocle, 1;
mescol l("Jackpot! You got the Monocle!", 3);
} else if (.@a == .@b && .@a == .@c) {
getitem CasinoCoins, 30;
mescol l("Congrats! You got thirty coins!", 3);
} else if (.@a == .@b || .@a == .@c || .@b == .@c) {
getitem CasinoCoins, 1;
mescol l("Lucky! You got a coin!", 3);
} else {
mescol 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;
}
|
