alias -l comma {
var %a, %b = $regsub($ticks,$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
return %a
}
on $*:text:/!slots/Si:#: {
if ((%floodslots) || ($($+(%,floodslots.,$nick),2))) { return }
set -u5 %floodslots On
set -u60 %floodslots. $+ $nick On
var %taskai = $get.pts(#,$nick)
if (%taskai < $2) msg # $+($nick,$chr(44)) Tu turi tik %taskai tasku
else {
var %prand = $rand(1,175)
var %srand1 = $rand(1,5)
var %srand2 = $rand(1,5)
var %srand3 = $rand(1,5)
if (%srand1 == %srand2) { var %srand2 = $rand(1,5) }
if (%prand < 5) {
var %srand1 = 3
var %srand2 = 3
var %srand3 = 3
}
elseif (%prand < 15) {
var %srand1 = 2
var %srand2 = 2
var %srand3 = 2
}
elseif (%prand < 30) {
var %srand1 = 1
var %srand2 = 1
var %srand3 = 1
}
if (%srand1 == 1) var %srand1 = @
if (%srand1 == 2) var %srand1 = $chr(37)
if (%srand1 == 3) var %srand1 = $chr(36)
if (%srand1 == 4) var %srand1 = &
if (%srand1 == 5) var %srand1 = !
if (%srand2 == 1) var %srand2 = @
if (%srand2 == 2) var %srand2 = $chr(37)
if (%srand2 == 3) var %srand2 = $chr(36)
if (%srand2 == 4) var %srand2 = &
if (%srand2 == 5) var %srand2 = !
if (%srand3 == 1) var %srand3 = @
if (%srand3 == 2) var %srand3 = $chr(37)
if (%srand3 == 3) var %srand3 = $chr(36)
if (%srand3 == 4) var %srand3 = &
if (%srand3 == 5) var %srand3 = !
var %win1 = $calc( $2 * 3 )
var %win2 = $calc( $2 * 5 )
var %win3 = $calc( $2 * 10 )
var %awins = 0
PRIVMSG $nick Isriedejo: ( %srand1 )( %srand2 )( %srand3 )
if (%srand1 == @) if (%srand2 == @) if (%srand3 == @) {
if (%srand1 == %srand2 && %srand2 == %srand3) {
if ($calc( %win1 * 1 ) > %awins) var %awins = $calc( %win1 * 1 )
}
}
if (%srand1 == % || %srand2 == % || %srand3 == %) {
if (%srand1 == %srand2 && %srand2 == %srand3) {
if (%win2 > %awins) var %awins = %win2
}
}
if (%srand1 == $ || %srand2 == $ || %srand3 == $) {
if (%srand1 == %srand2 && %srand2 == %srand3) {
if (%win3 > %awins) var %awins = %win3
}
}
if (%awins == 0) {
var %outval = $calc( - $2 )
add.pts # $nick %outval
PRIVMSG $nick (Lose) Atsiprasau, tu pralaimejai $2 tasku(s) ___ Dabar tu turi $comma($get.pts(#,$nick)) tasku(s) ___ Bandyk vel po 1min :)
}
else {
var %outval = $calc( %awins )
add.pts # $nick %outval
PRIVMSG $nick (Win) Sveikinu! Tu laimejai $comma(%awins) tasku(s)! ___ Dabar tu turi $comma($get.pts(#,$nick)) tasku(s) ___ Bandyk vel po 1min :)
}
}
}