ON *:TEXT:.add*:#cdqpug:{
if (%pugstart != 1) {
msg $chan Sorry but our pug is not started yet.
}
else {
if ($2 == T) {
if (%tplayer.1 != None) goto tplayer2
else if (%tplayer.2 != None) goto tplayer3
else if (%tplayer.3 != None) goto tplayer4
else if (%tplayer.4 != None) goto tplayer5
else if (%tplayer.5 != None) goto tplayer1
else goto terror
}
if ($2 == CT) {
if (%ctplayer.1 != None) goto ctplayer2
else if (%ctplayer.2 != None) goto ctplayer3
else if (%ctplayer.3 != None) goto ctplayer4
else if (%ctplayer.4 != None) goto ctplayer5
else if (%ctplayer.5 != None) goto ctplayer1
else goto cterror
}
}
:tplayer1
set %tplayer.1 $nick
msg $chan User added in slots 1
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer2
set %tplayer.2 $nick
msg $chan User added in slots 2
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer3
set %tplayer.3 $nick
msg $chan User added in slots 3
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer4
set %tplayer.4 $nick
msg $chan User added in slots 4
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer5
set %tplayer.5 $nick
msg $chan User added in slots 5
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer1
set %ctplayer.1 $nick
msg $chan User added in slots 1
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer2
set %ctplayer.2 $nick
msg $chan User added in slots 2
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer3
set %ctplayer.3 $nick
msg $chan User added in slots 3
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer4
set %ctplayer.4 $nick
msg $chan User added in slots 4
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer5
set %ctplayer.5 $nick
msg $chan User added in slots 5
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:cterror
set %ctplayer.1 $nick
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:terror
set %tplayer.1 $nick
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
}
}
ON *:TEXT:.kick*:#cdqpug:{
if ($ulevel == 200) {
/cs #cdqpug kick $2 $3
if ($2 == %tplayer.1) set %tplayer.1 None
else if ($2 == %tplayer.2) set %tplayer.2 None
else if ($2 == %tplayer.3) set %tplayer.3 None
else if ($2 == %tplayer.4) set %tplayer.4 None
else if ($2 == %tplayer.5) set %tplayer.5 None
else if ($2 == %ctplayer.1) set %ctplayer.1 None
else if ($2 == %ctplayer.2) set %ctplayer.2 None
else if ($2 == %ctplayer.3) set %ctplayer.3 None
else if ($2 == %ctplayer.4) set %ctplayer.4 None
else if ($2 == %ctplayer.5) set %ctplayer.5 None
}
}
on *:TEXT:.rem:#cdqpug:{
if ($nick == %tplayer.1) goto tplayer1rem
else if ($nick == %tplayer.2) goto tplayer2rem
else if ($nick == %tplayer.3) goto tplayer3rem
else if ($nick == %tplayer.4) goto tplayer4rem
else if ($nick == %tplayer.5) goto tplayer5rem
else if ($nick == %ctplayer.1) goto ctplayer1rem
else if ($nick == %ctplayer.2) goto ctplayer2rem
else if ($nick == %ctplayer.3) goto ctplayer3rem
else if ($nick == %ctplayer.4) goto ctplayer4rem
else if ($nick == %ctplayer.5) goto ctplayer5rem
:tplayer1rem
set %tplayer.1 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer2rem
set %tplayer.2 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer3rem
set %tplayer.3 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer4rem
set %tplayer.4 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:tplayer5rem
set %tplayer.5 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer1rem
set %ctplayer.1 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer2rem
set %ctplayer.2 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer3rem
set %ctplayer.3 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer4rem
set %ctplayer.4 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
:ctplayer5rem
set %ctplayer.5 None
msg $chan 4,1· 0Players for the PUG 4,1· 0T: %tplayer.1 - %tplayer.2 - %tplayer.3 - %tplayer.4 - %tplayer.5 4,1· 0CT: %ctplayer.1 - %ctplayer.2 - %ctplayer.3 - %ctplayer.4 - %ctplayer.5 4,1·
halt
}