Just popping in   Joined: 1970/1/1 From: Posts: 0 |
Re: A Superslots Request I have this one and works very well
;###########################################
;# #
;# SuperSlots by FireHorse version 1.5 #
;# Will only run with Petertje's ST5.0 #
;# based on slots by RudeBoy #
;# http://TriviaArena.com for ... #
;# and latest version #
;# #
;###########################################
#slots on
on *:disconnect: {
unset %spunslots.*
}
alias ShowSlotsSpin {
mstat *s1 --------------------- 4 \ -------------------------------------------- ● Jackpot Actual = %pot.poolex ● 
 ----------------------------------------- 2 - $chr(124) %slots1 $chr(124) %slots2 $chr(124) %slots3 $chr(124) %slots4 $chr(124) %slots5 $chr(124)
mstat *s1 --------------------- 1 - $chr(124) %slots6 $chr(124) %slots7 $chr(124) %slots8 $chr(124) %slots9 $chr(124) %slots10 $chr(124) 
 ----------------------------------------- 3 - $chr(124) %slots11 $chr(124) %slots12 $chr(124) %slots13 $chr(124) %slots14 $chr(124) %slots15 $chr(124) 
 Desde Jackpot = %sinceJackpot ---- 5 /
}
alias ScatteredRowWin {
set %slotsBooty 10
mstat *s1 ● $nick Ganhas %slotsBooty Pontos por Premios Dispersos ● Novo Total: $hof(p,$nick) ●
stx_addpoints $nick %slotsBooty
}
alias SlotsJackpot {
mstat *s3 ● JACKPOT!!!! Ganhas %pot.poolex Pontos $nick com 5 %slotsWinChar na Linha %slotsline ●
stx_addpoints $nick %pot.poolex
set %pot.poolex 50
set %slots.pot.winner $nick
.tell $nick ● Novo Total: $hof(p,$nick) ●
set %sinceJackpot 0
}
alias PayHalfJackpot {
set %halfJackpot $int($calc( %pot.poolex * 0.5 ))
mstat *s3 ● MINI JACKPOT!!!! Ganhas %halfJackpot Pontos $nick com 5 %slotsWinChar na Linha %slotsline ●
stx_addpoints $nick %halfJackpot
if ( %halfJackpot > 50 ) { set %pot.poolex %halfJackpot }
else set %pot.poolex 50
set %slots.pot.winner $nick
.tell $nick ● Novo Total: $hof(p,$nick) ●
set %sinceJackpot 0
halt
}
alias PayWinSlots {
set %payWinSlots %slotsWinFctr
if ( %slotsWild == 1 ) {
set %payWinSlots %payWinSlots * 2
mstat *s1 ● $nick Ganhas %payWinSlots Pontos com %slotsLength %slotsWinChar na Linha %slotsline (Com Joker) ●
}
set %slotsBooty %payWinSlots
PaySlotsST50
}
alias PaySlotsSt50 {
if ( %slotsWild == 0 ) mstat *s1 ● $nick Ganhas %slotsBooty Pontos com %slotsLength %slotsWinChar na Linha %slotsline ● Novo Total: $hof(p,$nick) ●
stx_addpoints $nick %slotsBooty
}
on *:TEXT:!slots*:#:{
if (%spunslots. [ $+ [ $nick ] ] = played) {
SpinWait
Return
}
if ($2 == $null) || ($2 < 1) {
set %spin.line 1
set %slotsPunt 5
goto spinner
}
if ($2 > 5) {
set %spin.line 5
set %slotsPunt 25
.tell $nick ● 5 e o numero maximo de linhas para apostares ●
goto Spinner
}
if ($2 isnum) {
set %spin.line $2
set %slotsPunt $calc(%spin.line * 5)
goto Spinner
}
else { .tell $nick ● Por favor usa entre 1 - 5 para apostar em linhas multiplas, ex. !slots 3 ● | return }
:spinner {
if ( $hof(p,$nick) < %slotsPunt ) { mstat *s3 ● Nao tens Pontos suficientes ● | return }
stx_addpoints $nick - $+ %slotsPunt
.tell $nick ● Apostaste em %spin.line Linha(s) com um custo de %slotsPunt Pontos ● Novo Total: $hof(p,$nick) ●
inc %pot.poolex %slotsPunt
inc %sinceJackpot
set %slotsBooty 0
set %slotsWild 0
if ( %sinceJackpot < 10 ) { set %sinceJackpot 00 $+ %sinceJackpot }
elseif ( %sinceJackpot < 100 ) { set %sinceJackpot 0 $+ %sinceJackpot }
set %slots1 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots2 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots3 $replace($rand(1,7),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(mo))
set %slots4 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots5 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots6 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots7 $replace($rand(1,7),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(mo))
set %slots8 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots9 $replace($rand(1,7),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(mo))
set %slots10 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots11 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots12 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots13 $replace($rand(1,7),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(mo))
set %slots14 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set %slots15 $replace($rand(1,6),1,(r),2,(L),3,(g),4,(au),5,(8),6,(mo),7,(r))
set -u120 %spunslots. [ $+ [ $nick ] ] played
ShowSlotsSpin
SlotsLinesCheck
ScatteredRow
}
}
alias ScatteredRow {
if (%slots6 == %slots7) || (%slots6 == %slots2) || (%slots6 == %slots12) {
if (%slots6 == %slots8) || (%slots6 == %slots3) || (%slots6 == %slots13) {
if (%slots6 == %slots9) || (%slots6 == %slots4) || (%slots6 == %slots14) {
if (%slots6 == %slots10) || (%slots6 == %slots5) || (%slots6 == %slots15) {
ScatteredRowWin
return
}
}
}
}
if (%slots1 == %slots7) || (%slots1 == %slots2) || (%slots1 == %slots12) {
if (%slots1 == %slots8) || (%slots1 == %slots3) || (%slots1 == %slots13) {
if (%slots1 == %slots9) || (%slots1 == %slots4) || (%slots1 == %slots14) {
if (%slots1 == %slots10) || (%slots1 == %slots5) || (%slots1 == %slots15) {
ScatteredRowWin
return
}
}
}
}
if (%slots11 == %slots7) || (%slots11 == %slots2) || (%slots11 == %slots12) {
if (%slots11 == %slots8) || (%slots11 == %slots3) || (%slots11 == %slots13) {
if (%slots11 == %slots9) || (%slots11 == %slots4) || (%slots11 == %slots14) {
if (%slots11 == %slots10) || (%slots11 == %slots5) || (%slots11 == %slots15) {
ScatteredRowWin
return
}
}
}
}
}
alias CheckSlotsJackpot {
if (%slots.6 == %slots.7) && (%slots.7 == %slots.8) && (%slots.8 == %slots.9) && (%slots.9 == %slots.10) {
set %slotsWinChar %slots.6
set %slotsLine 1
SlotsJackpot
halt
}
if ( %spin.line > 1 ) {
if (%slots.1 == %slots.2) && (%slots.2 == %slots.3) && (%slots.3 == %slots.4) && (%slots.4 == %slots.5) {
set %slotsWinChar %slots.1
set %slotsLine 2
SlotsJackpot
halt
}
}
if ( %spin.line > 2 ) {
if (%slots.11 == %slots.12) && (%slots.12 == %slots.13) && (%slots.13 == %slots.14) && (%slots.14 == %slots.15) {
set %slotsWinChar %slots.11
set %slotsLine 3
SlotsJackpot
halt
}
}
if ( %spin.line > 3 ) {
if (%slots.1 == %slots.7) && (%slots.7 == %slots.13) && (%slots.13 == %slots.9) && (%slots.9 == %slots.5) {
set %slotsWinChar %slots.1
set %slotsLine 4
SlotsJackpot
halt
}
}
if ( %spin.line > 4 ) {
if (%slots.11 == %slots.7) && (%slots.7 == %slots.3) && (%slots.3 == %slots.9) && (%slots.9 == %slots.15) {
set %slotsWinChar %slots.11
set %slotsLine 5
SlotsJackpot
halt
}
}
return
}
;----------- Line check
alias SlotsLinesCheck {
CheckSlotsJackpot
var %x = 1
while %x < $calc(%spin.line + 1) {
if (%x == 1) {
set %slots.a %slots.6
set %slots.b %slots.7
set %slots.c %slots.8
set %slots.d %slots.9
set %slots.e %slots.10
}
if (%x == 2) {
set %slots.a %slots.1
set %slots.b %slots.2
set %slots.c %slots.3
set %slots.d %slots.4
set %slots.e %slots.5
}
if (%x == 3) {
set %slots.a %slots.11
set %slots.b %slots.12
set %slots.c %slots.13
set %slots.d %slots.14
set %slots.e %slots.15
}
if (%x == 4) {
set %slots.a %slots.1
set %slots.b %slots.7
set %slots.c %slots.13
set %slots.d %slots.9
set %slots.e %slots.5
}
if (%x == 5) {
set %slots.a %slots.11
set %slots.b %slots.7
set %slots.c %slots.3
set %slots.d %slots.9
set %slots.e %slots.15
}
; ==== possible wildcard win
if (%slots.a == (r)) || (%slots.b == (r)) || ((%slots.a == %slots.b) && (%slots.c == (r) )) || ((%slots.a == %slots.b) && (%slots.c == %slots.b) && (%slots.d == (r) )) {
; === set non wildcard var
if (%slots.a == %slots.b) && (%slots.a != (r) ) set %slotsWinChar %slots.a
if (%slots.a == (r) ) && (%slots.b == (r) ) set %slotsWinChar %slots.c
if (%slots.a == (r) ) && (%slots.b == (r) ) && (%slots.c == (r) ) set %slotsWinChar %slots.d
if (%slots.a == (r) ) && (%slots.b != (r) ) set %slotsWinChar %slots.b
if (%slots.b == (r) ) && (%slots.a != (r) ) set %slotsWinChar %slots.a
if (%slots.c == (r) ) || (%slots.c == %slotsWinChar) {
if (%slots.d == (r) ) || (%slots.d == %slotsWinChar) {
if (%slots.e == (r) ) || (%slots.e == %slotsWinChar) {
set %slotsLine %x
PayHalfJackpot
halt
}
set %slotsLine %x
set %slotsWild 1
set %slotsLength 4
set %slotsWinFctr 50
PayWinSlots
}
else {
set %slotsLine %x
set %slotsWild 1
set %slotsLength 3
set %slotsWinFctr 20
PayWinSlots
}
}
}
; ==== normal wins (non wildcard)
if (%slotsWild == 0) {
if (%slots.a == %slots.b) && (%slots.b == %slots.c) {
set %slotsWinChar %slots.a
set %slotsLine %x
set %slotsWild 0
set %slotsLength 3
set %slotsWinFctr 20
if (%slots.c == %slots.d) {
set %slotsLength 4
set %slotsWinFctr 50
}
PayWinSlots
}
}
set %slotsWild 0
inc %x
}
}
; ==== other aliases
alias tell {
.ctcpreply $1 TIME $2-
}
alias SpinWait {
tell $nick ● So podes jogar a cada 2 Minutos ●
return
}
#slots end
|
