forked from Blasman/mIRC-Twitch-Scripts
-
Notifications
You must be signed in to change notification settings - Fork 0
/
slots.classic.mrc
178 lines (157 loc) · 8.7 KB
/
slots.classic.mrc
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
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; VARIABLES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
/*
HEY! LOOK HERE! This is what you need to change in this script...
Change the %slotc.minbet and %slotc.maxbet to the minimum and maximum
amount of points that must be spent in order to use the !slot. The
%slotc.cd variable is the per user cooldown time (in seconds) that a user
must wait before being able to use !slot again.
You can just leave the %slotc.# variables or you can change them to the
emotes that you want to use for the slot machine. The %slotc.1 emote
is the emote that will appear 50% of the time, and the other five
appear more rarely the higher that the number is.
See http://i.imgur.com/ch5vQZ2.png
You will need to UNLOAD and RE-LOAD this script for any changes to the
variables below to take effect. This can be done by pressing ALT-R in
mIRC > Select "View" > Select "slot.mrc" > Click on "File" > "Unload."
Then, click on "File" and "Load..." and select the slot.mrc file again.
If you want to edit what the bot replies for the slot machines win and
losses, you can likely figure that out by looking closely at the script.
Have fun!!!
*/
ON *:LOAD: {
SET %slotc.minbet 50
SET %slotc.maxbet 500
SET %slotc.cd 1800
SET %slotc.1 bleedPurple
SET %slotc.2 duDudu
SET %slotc.3 riPepperonis
SET %slotc.4 ShibeZ
SET %slotc.5 OSrob
SET %slotc.6 deIlluminati
}
ON *:UNLOAD: { UNSET %slotc.* }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SLOT MACHINE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ON $*:TEXT:/^!slot(s)?\s(on|off)/Si:%mychan: {
IF ($nick isop $chan) {
IF ($2 == on) {
IF (!%GAMES_SLOT_ACTIVE) {
SET %GAMES_SLOT_ACTIVE On
MSG $chan $twitch_name($nick) $+ , !slot is now enabled! Have fun! PogChamp
}
ELSE MSG $chan $twitch_name($nick) $+ , !slot is already enabled. FailFish
}
ELSEIF ($2 == off) {
IF (%GAMES_SLOT_ACTIVE) {
UNSET %GAMES_SLOT_ACTIVE
MSG $chan $twitch_name($nick) $+ , !slot is now disabled.
}
ELSE MSG $chan $twitch_name($nick) $+ , !slot is already disabled. FailFish
}
}
}
ON $*:TEXT:/^!slot(s)?/Si:%mychan: {
IF (!$2) || ($2 == help) {
IF ($($+(%,floodSLOTSPAM1.,$nick),2)) halt
SET -u6 %floodSLOTSPAM1. $+ $nick On
MSG $chan You may bet any amount of %curname from %slotc.minbet to %slotc.maxbet on !slot. ▌ Example: !slot %slotc.minbet ▌ See this link to see the payouts for each combination of symbols. http://i.imgur.com/ch5vQZ2.png
}
ELSEIF (!%GAMES_SLOT_ACTIVE) {
IF ((%floodSLOT_ACTIVE) || ($($+(%,floodSLOT_ACTIVE.,$nick),2))) halt
SET -u15 %floodSLOT_ACTIVE On
SET -u120 %floodSLOT_ACTIVE. $+ $nick On
MSG $chan $twitch_name($nick) $+ , the !slot game is currently disabled.
}
ELSEIF ($timer(.SLOT. $+ $nick)) {
IF ($($+(%,floodSLOTCD.,$nick),2)) halt
SET -u180 %floodSLOTCD. $+ $nick On
MSG $nick Be patient, $twitch_name($nick) $+ ! You still have $duration($timer(.SLOT. $+ $nick).secs) left in your !slot cooldown.
}
ELSEIF ($2 isnum) {
IF ((%ActiveGame) || ($isfile(roulbets.txt)) || (%rr.p1)) halt
ELSEIF ($2 !isnum %slotc.minbet - %slotc.maxbet) {
IF ($($+(%,floodSLOTSPAM1.,$nick),2)) halt
SET -u6 %floodSLOTSPAM1. $+ $nick On
MSG $chan $twitch_name($nick) $+ , please enter a valid wager between %slotc.minbet and %slotc.maxbet %curname $+ . ▌ Example: !slot %slotc.minbet ▌ See this link to see the payouts for each combination of symbols. http://i.imgur.com/ch5vQZ2.png
}
ELSE {
VAR %slotbet = $floor($2)
IF ($checkpoints($nick, %slotbet) == false) {
IF ($($+(%,floodSLOTSPAM2.,$nick),2)) halt
SET -u6 %floodSLOTSPAM2. $+ $nick On
MSG $chan $twitch_name($nick) $+ , you do not have %slotbet %curname to play slots. FailFish
halt
}
ELSE removepoints $nick %slotbet
VAR %nick $twitch_name($nick)
SET %ActiveGame On
.timer.SLOT. $+ $nick 1 %slotc.cd MSG $nick %nick $+ , your !slot cooldown has expired. Feel free to play again. BloodTrail
MSG $chan %nick pulls the slot machine lever...
VAR %x = 1
WHILE (%x <= 3) {
VAR %random $rand(1,100)
IF (%random isnum 1-50) VAR %col. $+ %x %slotc.1
ELSEIF (%random isnum 51-65) VAR %col. $+ %x %slotc.2
ELSEIF (%random isnum 66-79) VAR %col. $+ %x %slotc.3
ELSEIF (%random isnum 80-88) VAR %col. $+ %x %slotc.4
ELSEIF (%random isnum 89-95) VAR %col. $+ %x %slotc.5
ELSEIF (%random isnum 96-100) VAR %col. $+ %x %slotc.6
INC %x
}
IF ((%col.1 == %col.2) && (%col.2 == %col.3)) {
IF (%col.1 == %slotc.1) VAR %payout = %slotbet * 5
ELSEIF (%col.1 == %slotc.2) VAR %payout = %slotbet * 10
ELSEIF (%col.1 == %slotc.3) VAR %payout = %slotbet * 15
ELSEIF (%col.1 == %slotc.4) VAR %payout = %slotbet * 25
ELSEIF (%col.1 == %slotc.5) VAR %payout = %slotbet * 50
ELSEIF (%col.1 == %slotc.6) VAR %payout = %slotbet * 100
.timer.slotc1 1 4 DESCRIBE $chan ▌ %col.1 ▌ ::: Good Luck, %nick $+ . BloodTrail
.timer.slotc2 1 9 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ ::: OMG, %nick $+ , you might win this! FeelsGoodMan
.timer.slotc3 1 18 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ %col.3 ▌ ::: You WON %payout %curname $+ , %nick $+ !!! PogChamp
.timer.slotpayout 1 18 ADDPOINTS $nick %payout | .timer.slotstop 1 18 UNSET %ActiveGame
}
ELSEIF ((%col.1 == %col.2) && (%col.2 != %col.3) && (%col.3 == %slotc.1)) {
VAR %payout = %slotbet
.timer.slotc1 1 4 DESCRIBE $chan ▌ %col.1 ▌ ::: Good Luck, %nick $+ . BloodTrail
.timer.slotc2 1 9 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ ::: OMG, %nick $+ , you might win this! FeelsGoodMan
.timer.slotc3 1 18 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ %col.3 ▌ ::: Well, %nick $+ , at least you won %payout %curname $+ ! MingLee
.timer.slotpayout 1 18 ADDPOINTS $nick %payout | .timer.slotstop 1 18 UNSET %ActiveGame
}
ELSEIF ((%col.1 == %col.2) && (%col.2 != %col.3) && (%col.3 != %slotc.1)) {
.timer.slotc1 1 4 DESCRIBE $chan ▌ %col.1 ▌ ::: Good Luck, %nick $+ . BloodTrail
.timer.slotc2 1 9 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ ::: OMG, %nick $+ , you might win this! FeelsGoodMan
.timer.slotc3 1 18 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ %col.3 ▌ ::: You Lose, %nick $+ ! :tf:
.timer.slotstop 1 18 UNSET %ActiveGame
}
ELSEIF ((%col.2 == %slotc.1) && (%col.3 == %slotc.1)) {
VAR %payout = %slotbet * 2
.timer.slotc1 1 4 DESCRIBE $chan ▌ %col.1 ▌ ::: Good Luck, %nick $+ . BloodTrail
.timer.slotc2 1 9 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ ::: Well, %nick $+ , best of luck getting another %slotc.1 ...
.timer.slotc3 1 15 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ %col.3 ▌ ::: You WON %payout %curname $+ , %nick $+ !!! PogChamp
.timer.slotpayout 1 15 ADDPOINTS $nick %payout | .timer.slotstop 1 15 UNSET %ActiveGame
}
ELSEIF (%col.2 == %slotc.1) && (%col.3 != %slotc.1) {
.timer.slotc1 1 4 DESCRIBE $chan ▌ %col.1 ▌ ::: Good Luck, %nick $+ . BloodTrail
.timer.slotc2 1 9 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ ::: Well, %nick $+ , best of luck getting another %slotc.1 ...
.timer.slotc3 1 15 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ %col.3 ▌ ::: You Lose, %nick $+ ! :tf:
.timer.slotstop 1 15 UNSET %ActiveGame
}
ELSEIF (%col.3 == %slotc.1) {
VAR %payout = %slotbet
.timer.slotc1 1 4 DESCRIBE $chan ▌ %col.1 ▌ ::: Good Luck, %nick $+ . BloodTrail
.timer.slotc2 1 9 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ ::: Well, %nick $+ , best of luck getting at least a %slotc.1 ...
.timer.slotc3 1 15 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ %col.3 ▌ ::: You WON %payout %curname $+ , %nick $+ !!! PogChamp
.timer.slotpayout 1 15 ADDPOINTS $nick %payout | .timer.slotstop 1 15 UNSET %ActiveGame
}
ELSEIF ((%col.1 != %col.2) && (%col.3 != %slotc.1)) {
.timer.slotc1 1 4 DESCRIBE $chan ▌ %col.1 ▌ ::: Good Luck, %nick $+ . BloodTrail
.timer.slotc2 1 9 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ ::: Well, %nick $+ , best of luck getting at least a %slotc.1 ...
.timer.slotc3 1 15 DESCRIBE $chan ▌ %col.1 ▌ %col.2 ▌ %col.3 ▌ ::: You Lose, %nick $+ ! :tf:
.timer.slotstop 1 15 UNSET %ActiveGame
}
}
}
}