bind dcc OJ +surveiller plus_surveiller
proc plus_surveiller {hand idx args} {
  set args [lindex $args 0]
  set nick [lindex $args 0]
  set masque [lindex $args 1]
  set raison [lrange $args 2 end]
  if {[string index $masque 0] != "*"} {
    set raison "$masque $raison"
    set masque [trouver_masque $nick #Aide]
  }
  if {$masque == ""} {
    putdcc $idx "### Mauvaise syntaxe ou individu introuvable."
    putdcc $idx "    .+surveiller <alias> \[Si il n'est pas sur #Aide, alors le masque: *!*abc@*.abc.com\] <raison>"
    return 0
  }
  if {[matchattr [finduser $masque] V] || [matchattr $nick V]} {
    putdcc $idx "### Hum, cette personne est un aidant de jour connu, un admin doit d'abord retirer son accès. (DATA: [finduser $masque]/[matchattr $nick V])"
    return 0
  }
  if {[matchattr [finduser $masque] AOJMNRPH] || (([nick2hand $nick] != "*") && ([nick2hand $nick] != "")) || [matchattr $nick AOJGCTRPMN]} {
    putdcc $idx "### Hum, cette personne a un masque d'adresse confondant avec un membre actuel, changez le masque d'adresse ou utilisez directement un ban. (DATA: [matchattr [finduser $masque] AGTCOJRPMNH]/[nick2hand $nick]/[matchattr $nick AGTCOJRPMNH])"
    return 0
  }
  if {$raison == ""} {
    putdcc $idx "### Une raison claire doit être ajoutée à la mention 'à surveiller'."
    putdcc $idx "    .+surveiller <alias> \[Si il n'est pas sur #Aide, alors le masque: *!*abc@*.abc.com\] <raison>"
    return 0
  }
  adduser $nick $masque
  chattr $nick +d|d #Aide
  setuser $nick PASS halandouille
  setuser $nick info $raison
  setuser $nick laston [unixtime]
  setuser $nick xtra lop [getuser $hand xtra vrainick]
  putdcc $idx "$nick a été ajouté dans la liste des usagers à surveiller."
  putdcc $idx "Raison: $raison"
  news_add "AideBot" "dcc" "AideBot" "#aide" "[unixtime] Ajout d'un usager à la liste de gens à surveiller par [getuser $hand xtra vrainick]. ->  $nick  <-  Raison: $raison"
  return 1
}

bind dcc O -surveiller moins_surveiller
proc moins_surveiller {hand idx args} {
  if ![validuser $args] {
    putdcc $idx "### Mauvaise syntaxe ou usager inconnu"
    putdcc $idx "    .-surveiller <nom d'usager (.surveiller)>"
    return 0
  }
  if [matchattr $args ACTGOJMNRPH|v #Aide] {
    putdcc $idx "### Hey, c'est un membre lui!!!"
    putdcc $idx "    .-surveiller <nom d'usager (.surveiller)>"
    return 0
  }
  if [matchattr $args b] {
    putdcc $idx "### Hey, c'est un bot du canal lui!!!"
    putdcc $idx "    .-surveiller <nom d'usager (.surveiller)>"
    return 0
  }
  if ![matchattr $args d|d #Aide] {
    putdcc $idx "### Cet usager n'est pas dans la liste à surveiller!"
    putdcc $idx "    .-surveiller <nom d'usager (.surveiller)>"
    return 0
  }
  deluser $args
  putdcc $idx "La mention \"à surveiller\" a été retirée de sur $args"
}

bind dcc p surveiller proc_surveiller
proc proc_surveiller {hand idx args} {
  set args [lindex $args 0]
  if {$args ==""} {
    putdcc $idx "Sont à surveiller: [userlist d|d]"
    foreach user [userlist d|d] {
      if [matchattr $user v|v #Aide] {
        putdcc $idx "---> $user <---  (membre)  --  par AideBot (auto)"
        putdcc $idx "     Raison:  Sans dessein ;-p   (va voir un admin qu'il t'arrange ça ;-p)"
      } elseif {[getuser $user info] != ""} {
        putdcc $idx "---> $user <---  ([getuser $user HOSTS])  --  \[[dire_date [getuser $user xtra created]]\]  --  par [getuser $user xtra lop]"
        putdcc $idx "     Raison:  [getuser $user info]"
      } else {
        putdcc $idx "---> $user <---  ([getuser $user HOSTS])  --  \[[dire_date [getuser $user xtra created]]\]  --  par AideBot (auto)"
        putdcc $idx "     Raison:  [getuser $user comment]"
      }
      set commentaires ""
      set i 1
      set comm [getuser $user xtra comm_$i]
      while {$comm != ""} {
        lappend commentaires $comm
        incr i
        set comm [getuser $user xtra comm_$i]
      }
      if {$commentaires != ""} {
        putdcc $idx "     Commentaires des membres:"
        foreach item $commentaires {
          putdcc $idx "      - $item"
        }
      }
    }
  } else {
    set nick [lindex $args 0]
    set comm [lrange $args 1 end]
    if {![matchattr $nick d|d #Aide] || ([llength $comm] < 3)} {
      putdcc $idx "## Syntaxe: .surveiller  (pour obtenir la liste et les commentaires)"
      putdcc $idx "            .surveiller <nick déjà à surveiller> <commentaire>"
      return 0
    }
    set i 1
    while {[getuser $nick xtra comm_$i] != ""} {
      incr i
    }
    setuser $nick xtra comm_$i $comm
    putdcc $idx "Oki, c'est noté."
  }
  return 1
}


bind join d|d * join_surveiller
proc join_surveiller {nick host hand chan} {
  putloglev 8 $chan "À surveiller: $nick!$host ($hand) vient d'entrer sur $chan. \[(par [getuser $hand xtra lop]) -> [getuser $hand info]\]  --  n.b.: Ce message sert à vous avertir de garder l'oeil ouvert... mais si $nick se comporte 'bien' il n'y a aucune raison de prendre action contre lui!"
  return 0
}