; 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) {
    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
  }
}