bind dcc o|o onot dcc:wallop
bind dcc o|o ovnot dcc:wallop
bind dcc o|o vnot dcc:wallop

proc dcc:wallop {hand idx text} {
  global botnick lastbind
  set chan [lindex [console $idx] 0]
  set note [lrange $text 0 end]
  if {[lindex $text 0] == ""} {
    putidx $idx "## Usage: .<onot|ovnot|vnot> <note>"
    return 0
  }
  set laliste ""
  foreach user [chanlist $chan] {
    if {([isop $user $chan] && ($lastbind == "onot")) || ([isvoice $user $chan] && ($lastbind == "vnot")) || (($lastbind == "ovnot") && ([isvoice $user $chan] || [isop $user $chan]))} {
     if {($botnick != $user) && ![matchattr [nick2hand $user $chan] b]} {
       if {$laliste != "" } {
         append laliste ","
       }
       append laliste $user
     }
    }
  }
  if {$laliste != ""} {
    puthelp "NOTICE $laliste :\[Notice $chan ($lastbind) <$hand>\] $note"
  }
  putidx $idx "\[Notice $chan ($lastbind) <$hand>\] $note"
  return 1
}

bind dcc o|o notice dcc_notice
proc dcc_notice {hand idx text} {
  set nick [lindex $text 0]
  set note [lrange $text 1 end]
  if {[lindex $text 0] == ""} {
    putidx $idx "## Usage: .notice <alias> <note>"
    return 0
  }
  putbot Aide "notice $nick \[Notice (par $hand)\] $note"
  putidx $idx "\[Notice $nick\] $note"
  return 1
}

bind raw - WALLOPS hum_wallops
proc hum_wallops {from key args} {
  set lenick [lindex [split $from "!"] 0]
  set nick [lindex [string tolower [split $from "!"]] 0]
  set msg [string range $args 2 [expr [string length $args] - 2]]
  if {($nick == "uworld.undernet.org")||($nick == "uworld2.undernet.org")||($nick == "uworld.eu.undernet.org")} {
    if {[lindex $msg 0] == "GLINE"} {
      putloglev 5 #Aide "10GLINE -> [lindex $msg 2] 15 [lrange $msg 4 end]"
    } elseif {[lindex $msg 0] == "REMGLINE"} {
      putloglev 5 #Aide "10REMGLINE -> [lrange $msg 1 end]"
    } elseif {[lindex $msg 0] == "AUTOBAN"} {
      putloglev 4 #Aide "10AUTOBAN (par [lindex $msg 4]) -> [lindex $msg 2] 15 [lrange $msg 5 end]"
    } elseif {[lindex $msg 0] == "CLEARCHAN"} {
      putloglev 4 #Aide "10CLEARCHAN [lindex $msg 2] -> [lindex $msg 1]"
    } elseif {[lindex $msg 0] == "CMD"} {
      putloglev 4 #Aide "10CMD -> [lrange $msg 1 end]"
    }
  } elseif {$nick == "channels.undernet.org"} {
    putloglev 5 #Aide "10X (par [lindex $msg 0]) -> [lindex $msg 5] [lindex $msg 7]"
  } elseif {$nick == "channels2.undernet.org"} {
    putloglev 5 #Aide "10W (par [lindex $msg 0]) -> [lindex $msg 5] [lindex $msg 7]"
  } elseif {[string length $nick] > 10} {
    putloglev 5 #Aide "10CONNECT (par [lindex $msg 5]) -> $lenick à [lindex $msg 2]"
  } else {
    putloglev 6 #Aide "6$lenick $msg"
  }
  return 1
}

bind notc v * les_notices
proc les_notices {nick host hand text} {
  if {([lindex $text 0] != "DCC") && ![matchattr $hand b]} {
    putloglev 2 #Aide "5Notice! $nick ($hand) ->14 $text"
  }
}

set derniergline ""

bind raw - NOTICE les_snotices
proc les_snotices {from keyword args} {
  global server derniergline
  set args [lindex $args 0]
  if {[string range $server 0 [expr [string length $from] - 1]] == $from} {
    if {[lindex $args 6] == "GLINE"} {
      set gline [lindex $args 8]
      set gline [string range $gline 0 [expr [string length $gline] - 2]]
      if {$derniergline != $gline} {
        putloglev 5 #Aide "10GLINE -> $gline 14 !Automatique! \[[ctime [lindex $args 15]]\]"
      }
      set derniergline $gline
    }
    if {[lindex $args 5] == "KILL"} {
      set gline [lindex $args 8]
      set gline [string range $gline 0 [expr [string length $gline] - 2]]
      putloglev 4 #Aide "10KILL -> $gline (par [lindex $args 10]) 15 [lrange $args 13 end]"
    }
    if {([lindex $args 5] == "break:")} {
      putloglev 3 #Aide "7\[NetSplitt!\] -> [lindex $args 7] de [lindex $args 6]"
    }
    if {([lindex $args 5] == "junction:")} {
      putloglev 3 #Aide "12\[Jonction!\] -> [lindex $args 7] à [lindex $args 6]"
    }
  }
}

bind dcc AOJ voir dcc_voir
proc dcc_voir {hand idx args} {
  if {$args == "+clones"} {
    putdcc $idx "Ok, voir les clones!"
    console $idx -m+1
    return 1
  }
  if {$args == "-clones"} {
    putdcc $idx "Ok, ne plus voir les clones!"
    console $idx -1
    return 1
  }
  if {$args == "+msg&not"} {
    putdcc $idx "Ok, voir les msg/notices!"
    console $idx -m+2
    return 1
  }
  if {$args == "-msg&not"} {
    putdcc $idx "Ok, ne plus voir les msg/notices!"
    console $idx -2
    return 1
  }
  if {$args == "+kick&join"} {
    putdcc $idx "Ok, voir les kicks, join, part ... !"
    console $idx +kj
    return 1
  }
  if {$args == "-kick&join"} {
    putdcc $idx "Ok, ne plus voir les kicks, join, part ... !"
    console $idx -kj
    return 1
  }
  if {$args == "+splits"} {
    putdcc $idx "Ok, voir les splits!"
    console $idx -m+3
    return 1
  }
  if {$args == "-splits"} {
    putdcc $idx "Ok, ne plus voir les splits!"
    console $idx -3
    return 1
  }
  if {$args == "+uworld"} {
    putdcc $idx "Ok, voir les commandes de uworld!"
    console $idx -m+4
    return 1
  }
  if {$args == "-uworld"} {
    putdcc $idx "Ok, ne plus voir les commandes de uworld!"
    console $idx -4
    return 1
  }
  if {$args == "+glines"} {
    putdcc $idx "Ok, voir les glines!"
    console $idx -m+5
    return 1
  }
  if {$args == "-glines"} {
    putdcc $idx "Ok, ne plus voir les glines!"
    console $idx -5
    return 1
  }
  if {$args == "+wallops"} {
    putdcc $idx "Ok, voir les wallops!"
    console $idx -m+6
    return 1
  }
  if {$args == "-wallops"} {
    putdcc $idx "Ok, ne plus voir les wallops!"
    console $idx -6
    return 1
  }
  if {$args == "+annonces"} {
    putdcc $idx "Ok, voir les annonces!"
    console $idx -m+7
    return 1
  }
  if {$args == "-annonces"} {
    putdcc $idx "Ok, ne plus voir les annonces!"
    console $idx -7
    return 1
  }
  if {$args == "+infos"} {
    putdcc $idx "Ok, voir les infos générales!"
    console $idx -m+8
    return 1
  }
  if {$args == "-infos"} {
    putdcc $idx "Ok, ne plus voir les infos générales!"
    console $idx -8
    return 1
  }
  putdcc $idx "## Usage: .voir <+|-><clones|msg&not|kick&join|splits|uworld|wallops|glines|annonces|infos>"
  putdcc $idx "   Notes: Le mode uworld permettra de voir aussi les KILLs"
  putdcc $idx "          Utiliser .store pour modifier de façon permanente."
  return 0
}