clan bot

on *:TEXT:@register*:#findclan-cod2: {
  if (!$hget(players,$nick)) {
    if ($2) {
      hadd -u604800 players $nick $2
      notice $nick You registered in the $2 category. Your registration will expire in 7 days, if you find a team before then, please notify an admin.
    }
    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 ison $chan) {
    if (($2 == cal-o) || ($2 == cal-m) || ($2 == cal-i)) || ($2 == other) {
      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
    }
    if ($2 == detail) {
      msg $chan Registered Players: 
      msg $chan CAL-O: $hfind(players,cal-o,0).data
      msg $chan CAL-M: $hfind(players,cal-m,0).data
      msg $chan CAL-I: $hfind(players,cal-i,0).data
      msg $chan OTHER: $hfind(players,other,0).data
    }
    msg $chan Total Registered: $hget(players,0).item  
  }
}
ON *:TEXT:@detail*:#findclan-cod2: {
  if ($2) {
    if ($hget(players,$nick)) {
      set %x $hfind(details,$2, N, M)
      msg $chan $2 $+ 's Details: $hget(details,%x).data
    }
    else { msg $chan $2 is not in the database! }
  }
  else  { msg $chan Please specify a name! }
}
ON *:TEXT:@mydetail*:#findclan-cod2: {
  if ($2) {
    if ($hget(players,$nick)) {
      hadd details $nick $2-
      msg $chan $nick $+ 's details has been set to: $2-
    }
    else { msg $chan Your nick does not exist in the database! }
  }
  else { msg $chan Your details are set to: $hget(details,$nick)) }
}
ON *:TEXT:@del*:#findclan-cod2: {
  if ($2) {
    if ($hget(players,$2)) {
      hdel players $2
      hdel details $2 
      msg $chan Deleted $2 from the database.
    }
    else { msg $chan $2 is not in the database! }
  }
  else { msg $chan Please specify a name! }
}
ON *:TEXT:@commands*:#findclan-cod2: {
  msg $chan Commands: @register - use to register your nick and league in the database - Only CAL-o, CAL-m, CAL-I, or OTHER can be specified as your league (i.e. @register cal-m)
  msg $chan @status - use to view player names of whos looking for a team - @status detail for more detail (i.e @status cal-m) 
  msg $chan @mydetail - use to set or view your detail - leaving @mydetail blank will show your detail, adding stuff after it sets your detail (i.e @mydetail Past Teams: compLexity Contact: AIM-chickenEater)
  msg $chan @credits - use to view credits!
}
ON *:TEXT:@credits*:#findclan-cod2: {
  msg $chan Coding - wonder, also thanks to snang :).
  msg $chan Idea - Twista
  msg $chan Version - 1.0
}