on *:text:!spin:#: {
flood thespin 600 $nick
var %r $r(1,250)
$iif($r(1,2) == 1,addspin,remspin) $nick %r
}
alias flood {
if (YOURNICK !isin $1-) {
if ($1 !isnum) {
if ($($+(%,flood.,#,.,$1),2)) { echo 4 # Flood control | halt }
set -z %flood. $+ # $+ . $+ $1 $2
}
else {
if ($($+(%,flood.,#),2)) { echo 4 # Flood control | halt }
set -z %flood. $+ # $1
}
}
}
alias addspin {
var %topic $+(#,.,$nick)
var %points $calc($readini(Points.ini,%topic,Points) + $2)
writeini -n Points.ini %topic Points %points
.timerAdd 1 2 msg # $nick has won $2 points! $chr(91) $+ %points $+ $chr(93)
echo -a $nick $chr(91) $+ %points $+ $chr(93)
}
alias remspin {
var %topic $+(#,.,$nick)
var %points $calc($readini(Points.ini,%topic,Points) - $2)
writeini -n Points.ini %topic Points %points
.timerRem 1 2 msg # $nick has lost $2 points! $chr(91) $+ %points $+ $chr(93)
echo -a $nick - $2 points! Total -> $chr(91) $+ %points $+ $chr(93)
}