rendered paste body; Find Clan Bot
; snang
on *:TEXT:@register*:#findclan-cod2: {
if (!$hget(players,$nick)) {
if ($2) {
hadd -u604800 players $nick $2
msg $chan Added $nick to $upper($2) database.
}
else { msg $chan Please specify a league. (@register CAL-m) }
}
else { msg $chan Your nickname already exists in the $upper($hget(players,$nick)) database. }
}
on *:TEXT:@status*:#findclan-cod2: {
if ($nick isop $chan) {
if ($2) {
var %x 1
while (%x <= $hget(players,0).item) {
if ($hget(players,%x).data == $2) {
set %results %results $hget(players,%x).item
}
inc %x
}
msg $chan $+(,$upper($2) Players:) %results
unset %results
}
msg $chan Registered Players: $hget(players,0).item
}
}