on *:TEXT:!setaim *:#:{
  if ($nick == Jaryn1) || ($nick == Dao) || ($nick == PennyWise) {
    set % $+ $2 $3-
    notice $nick 7Set aim screename $2 $+ 's as $3-
    set %aimlist %aimlist $2 $+ ,
  }
  else {
    notice $nick Sorry, $nick but you have to be Jaryn1 or Dao to use this command, pm one of them and they will add it right away if it is legit.
  }
}

on *:TEXT:!aim *:#:{
  if ($nick ishop $chan || $nick isop $chan) || ($nick == PennyWise) {
    if ($($+( $+ $2 $+ ,$$2),2) == $null) {
      notice $nick Sorry, $nick but this persons aim screenname isn't in the database, know this persons msn address? Tell Jaryn1 or Dao and they will add it right away if it is legit!
    }
    else {
      notice $nick 4[ $2 $+ 's 4] 12[ AiM 12] address is: 7[ $($+(%aim$+$2,$$2),2) 7]
    }
  }
}

on *:TEXT:@aim *:#:{
  if ($nick ishop $chan || $nick isop $chan) {
    if ($($+( $+ $2 $+ ,$$2),2) == $null) {
    notice $nick Sorry, $nick but this persons aim screenname isn't in the database, know this persons aim screenname? Tell Jaryn1 or Dao and they will add it right away if it is legit    }
    else {
      msg $chan 4[ $2 $+ 's 4] 12[ AiM 12] address is: 7[ $($+(%aim$+$2,$2)) 7]
    }
  }
}

on *:TEXT:!unsetaim *:#:{
  if ($nick == Jaryn1) || ($nick == Dao) || ($nick == PennyWise) {
    notice $nick 7Unset $2 $+ 's AiM screen name.
    unset % $+ $2
  }
  else {
    notice $nick 7This Persons AiM is already unset.
  }
}

on *:TEXT:!aimlist:#:{
  if ($nick ishop $chan || $nick isop $chan) {
    notice $nick 4[ There are currently $numtok(%aimlist,32) aim screenames's in the database. 4] - 7[ %aimlist 7]

  }
}

on *:TEXT:@aimlist:#:{
  if ($nick ishop $chan || $nick isop $chan) {
    msg $chan 4[ There are currently $numtok(%aimlist,32) aim screennames's in the database. 4] - 7[ %aimlist 7]
  }
}