##################################################################
### Détection des +v de CService quand AideBot est pourtant là ###
##################################################################

bind mode - "#aide +v*" mode_plusv
proc mode_plusv {qui host handle chan mode nick} {
  if ![isop AideBot #aide] {return 0}
  if {$handle != "CService"} {return 0}
  pushmode #aide -v $nick
  putlog "J'ai retiré le +v de $nick ([nick2hand $nick]) obtenu par X. (J'étais op sur le canal)"
}

######################################
### Détection des ban par CService ###
######################################

#set bansparx ""

#bind mode - "#aide +b*" mode_plusb

#proc mode_plusb {qui host handle chan mode masque} {
#  global bansparx
#  if {$handle != "CService"} {return 0}
#  lappend bansparx "$masque [unixtime]"
#  timer 60 retirebanparx
#}

#proc retirebanparx { } {
#  global bansparx
#  if {[lindex $bansparx 0] == ""} {
#    set bansparx [lrange $bansparx 1 end]
#  }
#  set l [llength $bansparx]
#  for {set i 0} {$i < $l} {incr i} {
#    if {[expr [unixtime] - [lindex [lindex $bansparx 0] 1]] > 3570} {
#      putbot Aide "msg x unban #aide [lindex [lindex $bansparx 0] 0]"
#      set bansparx [lrange $bansparx 1 end]
#    }
#  }
#}