|
|
| Poster |
Thread |
| Diego |
Posted on: 2011/9/30 17:13 |
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
|
|
|
| Diego |
Posted on: 2011/9/30 16:52 |
Just popping in Joined: 1970/1/1 From: Posts: 0 |
Re: A Superslots Request how you want to increase or leave radom set the score? vc pode usar
set %points $rand(1,200)
How long will you choose
set %points $rand(1,300)
etc... |
|
|
| syonynx |
Posted on: 2011/9/27 22:20 |
Just popping in  Joined: 1970/1/1 From: Posts: 0 |
A Superslots Request I have recently acquired the Superslots code and was wondering if someone could tell me which pieces of the code i would have to edit to raise the amount of trivia points that it would give out for each type of win... I have added my code below and any help would be very much appreciated... :)
#slots on
alias ShowSlotsSpin {
mstat *s1 b) 4 -\ Current Jackpot = %pot.pool b)
2 - $chr(124) %slots1 $chr(124) %slots2 $chr(124) %slots3 $chr(124) %slots4 $chr(124) %slots5 $chr(124) b)
1 - $chr(124) %slots6 $chr(124) %slots7 $chr(124) %slots8 $chr(124) %slots9 $chr(124) %slots10 $chr(124) b)
3 - $chr(124) %slots11 $chr(124) %slots12 $chr(124) %slots13 $chr(124) %slots14 $chr(124) %slots15 $chr(124) b)
5 -/ Since Jackpot = %sinceJackpot a
}
alias ScatteredRowWin {
set %slotsBooty 10000
mstat *s1 $webnick($nick) Wins %slotsBooty for Scattered Win
stx_addpoints $webnick($nick) %slotsBooty
tell $webnick($nick) You win %slotsBooty Your balance is now $hof(p,$webnick($nick))
}
alias SlotsJackpot {
mstat *s3 JACKPOT!!!! you have won %pot.pool Points $webnick($nick) with 5 %slotsWinChar on Line %slotsline
stx_addpoints $webnick($nick) %pot.pool
set %pot.pool 50000
set %slots.pot.winner $webnick($nick)
set %sinceJackpot 0
}
alias PayWinSlots {
SlotsWinFctr
stx_addpoints $webnick($nick) %SlotsIncTriv
set %payWinSlots %slotsWinFctr
if ( %slotsWild == 1 ) {
set %payWinSlots $calc(%slotsWinFctr * 10)
mstat *s1 $webnick($nick) Wins %payWinSlots with %slotsLength %slotsWinChar on Line %slotsline (WildCard Win)
}
set %slotsBooty %payWinSlots
PaySlotsST50
}
alias PaySlotsSt50 {
if ( %slotsWild == 0 ) mstat *s1 $webnick($nick) Wins %slotsBooty with %slotsLength %slotsWinChar on Line %slotsline
set %slotsWild 0
stx_addpoints $webnick($nick) %slotsBooty
tell $webnick($nick) you win %slotsBooty Your balance is now $hof(p,$webnick($nick))
}
on *:TEXT:!slots*:#:{
if (%spunslots. [ $+ [ $webnick($nick) ] ] = played) {
SpinWait
Return
}
if ($2 == $null) || ($2 < 1) {
set %spin.line 1
set %slotsPunt 100
goto spinner
}
if ($2 > 5) {
set %spin.line 5
set %slotsPunt 500
msg # 5 is the max number of lines you can bet on $webnick($nick)
goto Spinner
}
if ($2 == 5) {
set %spin.line 5
set %slotsPunt 500
goto Spinner
}
if ($2 == 4) {
set %spin.line 4
set %slotsPunt 400
goto Spinner
}
if ($2 == 3) {
set %spin.line 3
set %slotsPunt 300
goto Spinner
}
if ($2 == 2) {
set %spin.line 2
set %slotsPunt 200
goto Spinner
}
if ($2 == 1) {
set %spin.line 1
set %slotsPunt 100
goto Spinner
}
else { .msg # $webnick($nick) please use a number between 1 - 5 to bet on multiple lines, eg. !slots 3 | return }
:spinner {
if ( $hof(p,$webnick($nick)) < %slotsPunt ) { mstat *s3 Sorry You Dont Have enough Points | return }
stx_addpoints $webnick($nick) - $+ %slotsPunt
tell $webnick($nick) You have bet on %spin.line Lines at a cost of %slotsPunt Your balance is now $hof(p,$webnick($nick))
inc %pot.pool %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. [ $+ [ $webnick($nick) ] ] played
ShowSlotsSpin
CheckWinSlots
}
}
alias CheckWinSlots {
if ( %spin.line == 1 ) {
Slotsline1
ScatteredRow
}
if ( %spin.line == 2 ) {
Slotsline1
Slotsline2
ScatteredRow
}
if ( %spin.line == 3 ) {
Slotsline1
Slotsline2
Slotsline3
ScatteredRow
}
if ( %spin.line == 4 ) {
Slotsline1
Slotsline2
Slotsline3
Slotsline4
ScatteredRow
}
if ( %spin.line == 5 ) {
SlotsLine1
SlotsLine2
SlotsLine3
SlotsLine4
SlotsLine5
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
}
}
}
}
}
;----------- Line 1
alias SlotsLine1 {
if (%slots6 == %slots7) && (%slots7 == %slots8) && (%slots8 == %slots9) && (%slots9 == %slots10) {
set %slotsWinChar %slots6
set %slotsLine 1
SlotsJackpot
halt
}
if (%slots6 == %slots7) && (%slots7 == %slots8) && (%slots8 == %slots9) {
;xxxxr or rrrrx
if ( %slots10 == (r) ) || (%slots6 == (r) ) { slotsLn1Col5 | return }
set %slotsWild 0
set %slotLength 4
set %slotsWinChar %slots6
set %slotsLine 1
set %slotsWinFctr 50
PayWinSlots
return
}
;xxx or rrr
if (%slots6 == %slots7) && (%slots7 == %slots8) {
;xxxr or rrrr
if ( %slots9 == (r) ) {
;xxxrx or xxxrr
if ( %slots10 == %slots6 ) || ( %slots10 == (r) ) {
slotsLn1Col5
return
}
slotsLn1Col4
return
}
;rrr
if ( %slots8 == (r) ) { slotsLn1Col3 | return }
;xxx
else {
set %slotsWild 0
set %slotLength 3
set %slotsWinChar %slots6
set %slotsLine 1
set %slotsWinFctr 20
PayWinSlots
return
}
}
;xx or rr
if (%slots6 == %slots7) {
;xxr or rrr
if ( %slots8 == (r) ) {
;xxrr or rrrr
if ( %slots9 == (r) ) {
;xxrrr or rrrrr or xxrrx
if ( %slots10 == (r) ) || (%slots10 == %slots6) { slotsLn1Col5 | return }
slotsLn1Col4
return
}
slotsLn1Col3
return
}
}
;rx or xr
if (%slots6 == (r) ) || (%slots7 == (r) ) {
set %slotsWild 1
slotsLn1Col2
}
}
alias slotsLn1Col2 {
set %slotsWild 1
;rxr or xrr
if (%slots8 == (r) ) {
;rxrx or xrrr
if (%slots7 == %slots9) {
;rxrxx or xrrrr
if (%slots7 == %slots10 ) { slotsLn1Col5 | return }
slotsLn1Col4
return
}
slotsLn1Col3
Return
}
;rxx
if (%slots7 == %slots8) { slotsLn1Col3 | return }
;xrx
if (%slots6 == %slots8) {
;xrxx or xrxr
if (%slots6 == %slots9) || (%slots9 == (r) ) {
;xrxrx or xrxrr
if (%slots6 == %slots10) || (%slots10 == (r) ) { slotsLn1Col5 | return }
slotsLn1Col4
return
}
set %slotsWinFctr 20
set %slotsWinChar %slots8
set %slotsLine 1
set %slotsLength 3
PayWinSlots
}
;rrx
if (%slots6 == %slots7) {
;rrxx
if (%slots8 == %slots9) || (%slots9 == (r) ) { slotsLn1Col4 | return }
set %slotLength 3
set %slotsWinChar %slots8
set %slotsLine 1
set %slotsWinFctr 20
PayWinSlots
return
}
}
alias slotsLn1Col3 {
set %slotsWild 1
;rxxr or rxrr or xrrr or xxrr
if (%slots9 == (r) ) {
slotsLn1Col4
Return
}
;xrrr or rrrr or rxrr or xrrx
if (%slots8 == %slots9) || (%slots6 == %slots9) { slotsLn1Col4 | return }
;rrrx
if (%slots6 == %slots7) && (%slots7 == %slots8) { slotsLn1Col4 | return }
set %slotsWinFctr 20
set %slotsLine 1
set %slotsLength 3
if ( %slots6 != (r) ) set %slotsWinChar %slots6
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots8 != (r) ) set %slotsWinChar %slots8
PayWinSlots
}
alias slotsLn1Col4 {
set %slotsWild 1
if (%slots10 == (r) ) {
slotsLn1Col5
return
}
if (%slots9 == %slots10) {
set %slotsWinFctr 100
set %slotsLine 1
set %slotsLength 5
if ( %slots6 != (r) ) set %slotsWinChar %slots6
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots8 != (r) ) set %slotsWinChar %slots8
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
elseif ( %slots10 != (r) ) set %slotsWinChar %slots10
PayWinSlots
return
}
set %slotsWinFctr 50
set %slotsLine 1
set %slotsLength 4
if ( %slots6 != (r) ) set %slotsWinChar %slots6
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots8 != (r) ) set %slotsWinChar %slots8
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
PayWinSlots
}
alias slotsLn1Col5 {
set %slotsWild 1
set %slotsWinFctr 100
set %slotsLine 1
set %slotsLength 5
if ( %slots6 != (r) ) set %slotsWinChar %slots6
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots8 != (r) ) set %slotsWinChar %slots8
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
elseif ( %slots10 != (r) ) set %slotsWinChar %slots10
PayWinSlots
}
;--------------Line 2
alias SlotsLine2 {
if (%slots1 == %slots2) && (%slots2 == %slots3) && (%slots3 == %slots4) && (%slots4 == %slots5) {
set %slotsWinChar %slots1
set %slotsLine 2
SlotsJackpot
halt
}
if (%slots1 == %slots2) && (%slots2 == %slots3) && (%slots3 == %slots4) {
if ( %slots5 == (r) ) || (%slots1 == (r) ) { slotsLn2Col5 | return }
set %slotsWild 0
set %slotLength 4
set %slotsWinChar %slots1
set %slotsLine 2
set %slotsWinFctr 50
PayWinSlots
return
}
if (%slots1 == %slots2) && (%slots2 == %slots3) {
if ( %slots4 == (r) ) {
if ( %slots5 == %slots1 ) || ( %slots5 == (r) ) {
slotsLn2Col5
return
}
slotsLn2Col4
return
}
if ( %slots3 == (r) ) { slotsLn2Col3 | return }
else {
set %slotsWild 0
set %slotLength 3
set %slotsWinChar %slots1
set %slotsLine 2
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots1 == %slots2) {
if ( %slots3 == (r) ) {
if ( %slots4 == (r) ) {
if ( %slots5 == (r) ) || (%slots1 == %slots5) { slotsLn2Col5 | return }
slotsLn2Col4
return
}
slotsLn2Col3
return
}
if (%slots1 == (r) ) {
set %slotsWild 1
set %slotLength 3
set %slotsWinChar %slots3
set %slotsLine 2
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots1 == (r) ) || (%slots2 == (r) ) {
slotsLn2Col2
}
}
alias slotsLn2Col2 {
set %slotsWild 1
if (%slots3 == (r) ) {
if (%slots2 == %slots4) {
if (%slots5 == %slots5 ) { slotsLn2Col5 | return }
slotsLn2Col4
return
}
slotsLn2Col3
return
}
if (%slots2 == %slots3) { slotsLn2Col3 | return }
if (%slots1 == %slots3) {
if (%slots3 == %slots4) || (%slots4 == (r) ) {
if (%slots1 == %slots5) || (%slots5 == (r) ) { slotsLn2Col5 | return }
slotsLn2Col4
return
}
set %slotsWinFctr 20
set %slotsWinChar %slots3
set %slotsLine 2
set %slotsLength 3
PayWinSlots
}
if (%slots1 == %slots2) {
if (%slots3 == %slots4) || (%slots4 == (r) ) { slotsLn2Col4 | return }
set %slotLength 3
set %slotsWinChar %slots3
set %slotsLine 2
set %slotsWinFctr 20
PayWinSlots
return
}
}
alias slotsLn2Col3 {
set %slotsWild 1
if (%slots4 == (r) ) {
slotsLn2Col4
return
}
if (%slots3 == %slots4) || (%slots1 == %slots4) { slotsLn2Col4 | return }
if (%slots1 == %slots2) && (%slots2 == %slots3) { slotsLn2Col4 | return }
else {
set %slotsWinFctr 20
set %slotsLine 2
set %slotsLength 3
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots2 != (r) ) set %slotsWinChar %slots2
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
PayWinSlots
}
}
alias slotsLn2Col4 {
set %slotsWild 1
if (%slots5 == (r) ) {
slotsLn2Col5
return
}
if (%slots4 == %slots5) {
set %slotsWinFctr 100
set %slotsLine 2
set %slotsLength 5
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots2 != (r) ) set %slotsWinChar %slots2
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
elseif ( %slots4 != (r) ) set %slotsWinChar %slots4
elseif ( %slots5 != (r) ) set %slotsWinChar %slots5
PayWinSlots
}
else {
set %slotsWinFctr 50
set %slotsLine 2
set %slotsLength 4
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots2 != (r) ) set %slotsWinChar %slots2
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
elseif ( %slots4 != (r) ) set %slotsWinChar %slots4
PayWinSlots
}
}
alias slotsLn2Col5 {
set %slotsWild 1
set %slotsWinFctr 100
set %slotsLine 2
set %slotsLength 5
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots2 != (r) ) set %slotsWinChar %slots2
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
elseif ( %slots4 != (r) ) set %slotsWinChar %slots4
elseif ( %slots5 != (r) ) set %slotsWinChar %slots5
PayWinSlots
}
;--------------Line 3
alias SlotsLine3 {
if (%slots11 == %slots12) && (%slots12 == %slots13) && (%slots13 == %slots14) && (%slots14 == %slots15) {
set %slotsWinChar %slots11
set %slotsLine 3
SlotsJackpot
halt
}
if (%slots11 == %slots12) && (%slots12 == %slots13) && (%slots13 == %slots14) {
if ( %slots15 == (r) ) || (%slots11 == (r) ) { slotsLn3Col5 | return }
set %slotsWild 0
set %slotLength 4
set %slotsWinChar %slots11
set %slotsLine 3
set %slotsWinFctr 50
PayWinSlots
return
}
if (%slots11 == %slots12) && (%slots12 == %slots13) {
if ( %slots14 == (r) ) {
if ( %slots15 == %slots11 ) || ( %slots15 == (r) ) {
slotsLn3Col5
return
}
slotsLn3Col4
return
}
if ( %slots13 == (r) ) { slotsLn3Col3 | return }
else {
set %slotsWild 0
set %slotLength 3
set %slotsWinChar %slots11
set %slotsLine 3
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots11 == %slots12) {
if ( %slots13 == (r) ) {
if ( %slots14 == (r) ) {
if ( %slots15 == (r) ) || (%slots11 == %slots15) { slotsLn3Col5 | return }
slotsLn3Col4
return
}
slotsLn3Col3
return
}
if (%slots11 == (r) ) {
set %slotsWild 1
set %slotLength 3
set %slotsWinChar %slots13
set %slotsLine 3
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots11 == (r) ) || (%slots12 == (r) ) {
slotsLn3Col2
}
}
alias slotsLn3Col2 {
set %slotsWild 1
if (%slots13 == (r) ) {
if (%slots12 == %slots14) {
if (%slots12 == %slots15 ) { slotsLn3Col5 | return }
slotsLn3Col4
return
}
slotsLn3Col3
return
}
if (%slots12 == %slots13) { slotsLn3Col3 | return }
if (%slots11 == %slots13) {
if (%slots13 == %slots14) || (%slots14 == (r) ) {
if (%slots11 == %slots15) || (%slots15 == (r) ) { slotsLn3Col5 | return }
slotsLn2Col4
return
}
set %slotsWinFctr 20
set %slotsWinChar %slots13
set %slotsLine 3
set %slotsLength 3
PayWinSlots
}
if (%slots11 == %slots12) {
if (%slots13 == %slots14) || (%slots14 == (r) ) { slotsLn3Col4 | return }
set %slotLength 3
set %slotsWinChar %slots13
set %slotsLine 3
set %slotsWinFctr 20
PayWinSlots
return
}
}
alias slotsLn3Col3 {
set %slotsWild 1
if (%slots14 == (r) ) {
slotsLn3Col4
return
}
if (%slots13 == %slots14) || (%slots11 == %slots14) { slotsLn3Col4 | return }
if (%slots11 == %slots12) && (%slots12 == %slots13) { slotsLn3Col4 | return }
else {
set %slotsWinFctr 20
set %slotsLine 3
set %slotsLength 3
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots12 != (r) ) set %slotsWinChar %slots12
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
PayWinSlots
}
}
alias slotsLn3Col4 {
set %slotsWild 1
if (%slots15 == (r) ) {
slotsLn3Col5
return
}
if (%slots14 == %slots15) {
set %slotsWinFctr 100
set %slotsLine 3
set %slotsLength 5
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots12 != (r) ) set %slotsWinChar %slots12
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
elseif ( %slots14 != (r) ) set %slotsWinChar %slots14
elseif ( %slots15 != (r) ) set %slotsWinChar %slots15
PayWinSlots
}
else {
set %slotsWinFctr 50
set %slotsLine 3
set %slotsLength 4
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots12 != (r) ) set %slotsWinChar %slots12
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
elseif ( %slots14 != (r) ) set %slotsWinChar %slots14
PayWinSlots
}
}
alias slotsLn3Col5 {
set %slotsWild 1
set %slotsWinFctr 100
set %slotsLine 3
set %slotsLength 5
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots12 != (r) ) set %slotsWinChar %slots12
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
elseif ( %slots14 != (r) ) set %slotsWinChar %slots14
elseif ( %slots15 != (r) ) set %slotsWinChar %slots15
PayWinSlots
}
;--------------Line 4
alias SlotsLine4 {
if (%slots1 == %slots7) && (%slots7 == %slots13) && (%slots13 == %slots9) && (%slots9 == %slots5) {
set %slotsWinChar %slots1
set %slotsLine 4
SlotsJackpot
halt
}
if (%slots1 == %slots7) && (%slots7 == %slots13) && (%slots13 == %slots9) {
if ( %slots5 == (r) ) || (%slots1 == (r) ) { slotsLn4Col5 | return }
set %slotsWild 0
set %slotLength 4
set %slotsWinChar %slots1
set %slotsLine 4
set %slotsWinFctr 50
PayWinSlots
return
}
if (%slots1 == %slots7) && (%slots7 == %slots13) {
if ( %slots9 == (r) ) {
if ( %slots5 == %slots1 ) || ( %slots5 == (r) ) {
slotsLn4Col5
return
}
slotsLn4Col4
return
}
if ( %slots13 == (r) ) { slotsLn4Col3 | return }
else {
set %slotsWild 0
set %slotLength 3
set %slotsWinChar %slots1
set %slotsLine 4
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots1 == %slots7) {
if ( %slots13 == (r) ) {
if ( %slots9 == (r) ) {
if ( %slots15 == (r) ) || (%slots1 == %slots15) { slotsLn4Col5 | return }
slotsLn4Col4
return
}
slotsLn4Col3
return
}
if (%slots1 == (r) ) {
set %slotsWild 1
set %slotLength 3
set %slotsWinChar %slots13
set %slotsLine 4
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots1 == (r) ) || (%slots7 == (r) ) {
slotsLn4Col2
}
}
alias slotsLn4Col2 {
set %slotsWild 1
if (%slots13 == (r) ) {
if (%slots7 == %slots9) {
if (%slots7 == %slots5 ) { slotsLn4Col5 | return }
slotsLn4Col4
return
}
slotsLn4Col3
return
}
if (%slots7 == %slots13) { slotsLn4Col3 | return }
if (%slots1 == %slots13) {
if (%slots13 == %slots9) || (%slots9 == (r) ) {
if (%slots1 == %slots5) || (%slots5 == (r) ) { slotsLn4Col5 | return }
slotsLn4Col4
return
}
set %slotsWinFctr 20
set %slotsWinChar %slots13
set %slotsLine 4
set %slotsLength 3
PayWinSlots
}
if (%slots1 == %slots7) {
if (%slots13 == %slots9) || (%slots9 == (r) ) { slotsLn4Col4 | return }
set %slotLength 3
set %slotsWinChar %slots13
set %slotsLine 4
set %slotsWinFctr 20
PayWinSlots
return
}
}
alias slotsLn4Col3 {
set %slotsWild 1
if (%slots9 == (r) ) {
slotsLn4Col4
return
}
if (%slots13 == %slots9) || (%slots1 == %slots9) { slotsLn4Col4 | return }
if (%slots1 == %slots7) && (%slots7 == %slots13) { slotsLn4Col4 | return }
set %slotsWinFctr 20
set %slotsLine 4
set %slotsLength 3
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
PayWinSlots
}
alias slotsLn4Col4 {
set %slotsWild 1
if (%slots5 == (r) ) {
slotsLn4Col5
return
}
if (%slots9 == %slots5) {
set %slotsWinFctr 100
set %slotsLine 4
set %slotsLength 5
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
elseif ( %slots5 != (r) ) set %slotsWinChar %slots5
PayWinSlots
}
else {
set %slotsWinFctr 50
set %slotsLine 4
set %slotsLength 4
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
PayWinSlots
}
}
alias slotsLn4Col5 {
set %slotsWild 1
set %slotsWinFctr 100
set %slotsLine 4
set %slotsLength 5
if ( %slots1 != (r) ) set %slotsWinChar %slots1
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots13 != (r) ) set %slotsWinChar %slots13
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
elseif ( %slots5 != (r) ) set %slotsWinChar %slots5
PayWinSlots
}
;--------------Line 5
alias SlotsLine5 {
if (%slots11 == %slots7) && (%slots7 == %slots3) && (%slots3 == %slots9) && (%slots9 == %slots15) {
set %slotsWinChar %slots11
set %slotsLine 5
SlotsJackpot
halt
}
if (%slots11 == %slots7) && (%slots7 == %slots3) && (%slots3 == %slots9) {
if ( %slots15 == (r) ) || (%slots11 == (r) ) { slotsLn5Col5 | return }
set %slotsWild 0
set %slotLength 4
set %slotsWinChar %slots11
set %slotsLine 5
set %slotsWinFctr 50
PayWinSlots
return
}
if (%slots11 == %slots7) && (%slots7 == %slots3) {
if ( %slots9 == (r) ) {
if ( %slots15 == %slots11 ) || ( %slots15 == (r) ) {
slotsLn5Col5
return
}
slotsLn5Col4
return
}
if ( %slots3 == (r) ) { slotsLn5Col3 | return }
else {
set %slotsWild 0
set %slotLength 3
set %slotsWinChar %slots11
set %slotsLine 5
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots11 == %slots7) {
if ( %slots3 == (r) ) {
if ( %slots9 == (r) ) {
if ( %slots15 == (r) ) || (%slots11 == %slots15) { slotsLn5Col5 | return }
slotsLn5Col4
return
}
slotsLn5Col3
return
}
if (%slots11 == (r) ) {
set %slotsWild 1
set %slotLength 3
set %slotsWinChar %slots3
set %slotsLine 5
set %slotsWinFctr 20
PayWinSlots
return
}
}
if (%slots11 == (r) ) || (%slots7 == (r) ) {
slotsLn5Col2
}
}
alias slotsLn5Col2 {
set %slotsWild 1
if (%slots3 == (r) ) {
if (%slots7 == %slots9) {
if (%slots7 == %slots15 ) { slotsLn5Col5 | return }
slotsLn5Col4
return
}
slotsLn5Col3
return
}
if (%slots7 == %slots3) slotsLn5Col3
if (%slots11 == %slots3) {
if (%slots3 == %slots9) || (%slots9 == (r) ) {
if (%slots11 == %slots15) || (%slots15 == (r) ) { slotsLn5Col5 | return }
slotsLn5Col4
return
}
set %slotsWinFctr 20
set %slotsWinChar %slots3
set %slotsLine 5
set %slotsLength 3
PayWinSlots
}
if (%slots11 == %slots7) {
if (%slots3 == %slots9) || (%slots9 == (r) ) { slotsLn5Col4 | return }
set %slotLength 3
set %slotsWinChar %slots3
set %slotsLine 5
set %slotsWinFctr 20
PayWinSlots
return
}
}
alias slotsLn5Col3 {
set %slotsWild 1
if (%slots9 == (r) ) {
slotsLn5Col4
return
}
if (%slots3 == %slots9) || (%slots11 == %slots9) { slotsLn5Col4 | return }
if (%slots11 == %slots7) && (%slots7 == %slots13) { slotsLn5Col4 | return }
set %slotsWinFctr 20
set %slotsLine 5
set %slotsLength 3
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
PayWinSlots
}
alias slotsLn5Col4 {
set %slotsWild 1
if (%slots15 == (r) ) {
slotsLn5Col5
return
}
if (%slots9 == %slots15) {
set %slotsWinFctr 100
set %slotsLine 5
set %slotsLength 5
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
elseif ( %slots15 != (r) ) set %slotsWinChar %slots15
PayWinSlots
}
else {
set %slotsWinFctr 50
set %slotsLine 5
set %slotsLength 4
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
PayWinSlots
}
}
alias slotsLn5Col5 {
set %slotsWild 1
set %slotsWinFctr 100
set %slotsLine 5
set %slotsLength 5
if ( %slots11 != (r) ) set %slotsWinChar %slots11
elseif ( %slots7 != (r) ) set %slotsWinChar %slots7
elseif ( %slots3 != (r) ) set %slotsWinChar %slots3
elseif ( %slots9 != (r) ) set %slotsWinChar %slots9
elseif ( %slots15 != (r) ) set %slotsWinChar %slots15
PayWinSlots
}
;;;; other aliases
alias tell {
.ctcpreply $1 TIME $2-
}
alias SpinWait {
tell $webnick($nick) You can only spin once every 2 minutes.
return
}
alias pvar { return $readini(inplay.ini, $1, $2) }
#slots end
|
|
|
|
