rendered paste bodyon *:text:.add *:#w*: {
if ($2 isin %ids) && ($2 isnum 200-500) {
var %tmp.rez $readini(rez.ini,$nick,$2)
if (!%tmp.rez) && (%tmp.rez != 0) {
if ($3 isnum 1-2) && ($4 isnum 1-1000) {
writeini rez.ini $nick $2 $3 $4
msg $nick Aciu, Jusu spejimas uzregistruotas!
}
elseif ($3 == 0) {
writeini rez.ini $nick $2 $3
msg $nick Aciu, Jusu spejimas uzregistruotas!
}
else { msg $nick Blogai ivesti duomenys! }
}
else { msg $nick Jus jau spejote! ID: $2 $+ , Rezultatas: %tmp.rez }
}
else { msg $nick Blogai ivesti duomenys! }
}
on *:text:.ids:#w*: {
var %tmp.ch $remove(%ids,$chr(32))
if (%tmp.ch) {
var %tmp 1
var %tmp.id
var %tmp.msg
while (%tmp <= $numtok(%ids,32)) {
%tmp.id = $gettok(%ids,%tmp,32)
%tmp.msg = $replace(%tmp.msg,.,$chr(44)) $readini(ids.ini,teams,%tmp.id) ( $+ %tmp.id $+ ) $+ .
inc %tmp
}
msg $chan Galimi ID: %tmp.msg
}
else { msg $chan Nera ID }
}
on *:text:.pids:#w*: {
var %tmp.ch $remove(%pids,$chr(32))
if (%tmp.ch) {
var %tmp 1
var %tmp.id
var %tmp.msg
while (%tmp <= $numtok(%pids,32)) {
%tmp.id = $gettok(%pids,%tmp,32)
%tmp.msg = $replace(%tmp.msg,.,$chr(44)) $readini(ids.ini,teams,%tmp.id) ( $+ %tmp.id $+ ) $+ .
inc %tmp
}
msg $chan Galimi PID: %tmp.msg
}
else { msg $chan Nera PID }
}
on *:text:.taskai:#w*: {
var %tmp.points $readini(rez.ini,$nick,points)
msg $nick $iif(%tmp.points,Tavo taskai: %tmp.points,Tu neturi tasku!)
}
on *:text:.top3:#w*: {
var %top1 Niekas 0
var %top2 Niekas 0
var %top3 Niekas 0
var %tmp 1
var %tmp.txt, %tmp.nick, %tmp.pts
while (%tmp <= $lines(rez.ini)) {
%tmp.txt = $read(rez.ini,%tmp)
if ($left(%tmp.txt,1) == [) {
%tmp.nick = $mid(%tmp.txt,2,$calc($len(%tmp.txt)-2))
}
if ($left(%tmp.txt,6) == points) {
%tmp.pts = $remove(%tmp.txt,points=)
if (%tmp.pts > $gettok(%top1,2,32)) {
%top3 = %top2
%top2 = %top1
%top1 = %tmp.nick %tmp.pts
}
elseif (%tmp.pts > $gettok(%top2,2,32)) {
%top3 = %top2
%top2 = %tmp.nick %tmp.pts
}
elseif (%tmp.pts > $gettok(%top3,2,32)) { %top3 = %tmp.nick %tmp.pts }
}
inc %tmp
}
msg $chan Top3: #1. %top1 $+ , #2. %top2 $+ , #3. %top3 $+ .
}
on *:text:.pradeti *:#w*: {
if (@ $+ $nick $+ @ isin %allow.users) {
if ($2 isnum 200-500) && ($2 isin %ids) {
%ids = $remove(%ids,$2)
%pids = %pids $2
msg $chan Prasidejo rungtynes ( $+ $readini(ids.ini,teams,$2) $+ ). Nutrauktas ID ( $+ $2 $+ ) balsavimas.
}
else { msg $chan Blogas ID }
}
else msg $nick Tau nesuteikta privilegija naudoti sia komanda!
}
on *:text:.pabaigti *:#w*: {
if (@ $+ $nick $+ @ isin %allow.users) {
if ($2 isnum 200-500) && ($2 isin %pids) && ($3 isnum 0-2) {
var %tmp.num 1
var %tmp.rez
var %tmp.nick
var %tmp.txt
write -c 5pt.txt
write -c 4pt.txt
write -c 3pt.txt
write -c 1pt.txt
while (%tmp.num <= $lines(rez.ini)) {
%tmp.txt = $read(rez.ini,%tmp.num)
if ($left(%tmp.txt,1) == [) {
%tmp.nick = $mid(%tmp.txt,2,$calc($len(%tmp.txt)-2))
}
if ($left(%tmp.txt,4) == $2 $+ $chr(61)) {
%tmp.txt = $remove(%tmp.txt,$2 $+ $chr(61))
if ($gettok(%tmp.txt,1,32) == $3) {
if ($3 == 0) { write 5pt.txt %tmp.nick }
else {
%tmp.rez = $abs($calc($gettok(%tmp.txt,2,32)-$4))
if (%tmp.rez == 0) { write 4pt.txt %tmp.nick }
elseif (%tmp.rez <= 3) { write 3pt.txt %tmp.nick }
else { write 1pt.txt %tmp.nick }
}
}
}
inc %tmp.num
}
var %koms $readini(ids.ini,teams,$2)
msg $chan Rungtynes, $gettok(%koms,1,58) $3 $gettok(%koms,2,58) pasibaige! Ieskoma laimetoju...
if ($3 == 0) { laim.5pt $chan }
else { laim.4pt $chan }
%pids = $remove(%pids,$2)
}
else { msg $chan Blogas ID }
}
else msg $nick Tau nesuteikta privilegija naudoti sia komanda!
}
on *:text:.reg *:#w*: {
if (@ $+ $nick $+ @ isin %allow.users) {
if ($2 isnum 200-500) && (!$readini(ids.ini,teams,$2)) {
writeini ids.ini teams $2 $3
%ids = %ids $2
msg $chan Uzregistruotos naujos rungtynes ( $+ $3 $+ ). Nuo siol galima balsuoti uz ID ( $+ $2 $+ ).
}
else { msg $chan Blogas ID }
}
else msg $nick Tau nesuteikta privilegija naudoti sia komanda!
}
alias laim.5pt {
var %tmp 1
var %nick
var %texts 1
var %txt1
while (%tmp <= $lines(5pt.txt)) {
%nick = $read(5pt.txt,%tmp)
writeini rez.ini %nick points $calc(5+$readini(rez.ini,%nick,points))
if ($len(%txt [ $+ [ %texts ] ]) <= 400) { %txt [ $+ [ %texts ] ] = %txt [ $+ [ %texts ] ] %nick }
else { inc %texts | var %txt [ $+ [ %texts ] ] | %txt [ $+ [ %texts ] ] = %txt [ $+ [ %texts ] }
inc %tmp
}
msg $1 Penkiu tasku laimetojai:
%tmp = 1
while (%tmp <= %texts) {
.timer 1 %tmp msg $1 $iif(%txt [ $+ [ %tmp ] ],%txt [ $+ [ %tmp ] ],Nera!)
inc %tmp
}
}
alias laim.4pt {
var %tmp 1
var %nick
var %texts 1
var %txt1
while (%tmp <= $lines(4pt.txt)) {
%nick = $read(4pt.txt,%tmp)
writeini rez.ini %nick points $calc(4+$readini(rez.ini,%nick,points))
if ($len(%txt [ $+ [ %texts ] ]) <= 400) { %txt [ $+ [ %texts ] ] = %txt [ $+ [ %texts ] ] %nick }
else { inc %texts | var %txt [ $+ [ %texts ] ] | %txt [ $+ [ %texts ] ] = %txt [ $+ [ %texts ] }
inc %tmp
}
msg $1 Keturiu tasku laimetojai:
%tmp = 1
while (%tmp <= %texts) {
.timer 1 %tmp msg $1 $iif(%txt [ $+ [ %tmp ] ],%txt [ $+ [ %tmp ] ],Nera!)
inc %tmp
}
.timer 1 $calc(%texts + 1) laim.3pt $1
}
alias laim.3pt {
var %tmp 1
var %nick
var %texts 1
var %txt1
while (%tmp <= $lines(3pt.txt)) {
%nick = $read(3pt.txt,%tmp)
writeini rez.ini %nick points $calc(3+$readini(rez.ini,%nick,points))
if ($len(%txt [ $+ [ %texts ] ]) <= 400) { %txt [ $+ [ %texts ] ] = %txt [ $+ [ %texts ] ] %nick }
else { inc %texts | var %txt [ $+ [ %texts ] ] | %txt [ $+ [ %texts ] ] = %txt [ $+ [ %texts ] }
inc %tmp
}
msg $1 Triju tasku laimetojai:
%tmp = 1
while (%tmp <= %texts) {
.timer 1 %tmp msg $1 $iif(%txt [ $+ [ %tmp ] ],%txt [ $+ [ %tmp ] ],Nera!)
inc %tmp
}
.timer 1 $calc(%texts + 1) laim.1pt $1
}
alias laim.1pt {
var %tmp 1
var %nick
var %texts 1
var %txt1
while (%tmp <= $lines(1pt.txt)) {
%nick = $read(1pt.txt,%tmp)
writeini rez.ini %nick points $calc(1+$readini(rez.ini,%nick,points))
if ($len(%txt [ $+ [ %texts ] ]) <= 400) { %txt [ $+ [ %texts ] ] = %txt [ $+ [ %texts ] ] %nick }
else { inc %texts | var %txt [ $+ [ %texts ] ] | %txt [ $+ [ %texts ] ] = %nick }
inc %tmp
}
msg $1 Vieno tasko laimetojai:
%tmp = 1
while (%tmp <= %texts) {
.timer 1 %tmp msg $1 $iif(%txt [ $+ [ %tmp ] ],%txt [ $+ [ %tmp ] ],Nera!)
inc %tmp
}
}