bind mode - * desynchmode
proc desynchmode { nick uhost hand chan modechange victim } {
global desynchnick desynchvictim desynchchan
if ![string compare $nick ""] {
   if ![string compare $desynchvictim $victim]&&![string compare $chan $desynchchan] {
      if [isop $desynchnick $chan] {
         putserv "MODE $chan -ov $desynchnick $desynchnick"
      } else {
         putserv "KICK $chan $desynchnick Desynch, cycle please"
      }
   }
} else {
set desynchnick $nick
set desynchvictim $victim
set desynchchan $chan
}
}

putlog "Loaded : Desynch.Tcl © Lucas <Lucas@eggdrop-fr.org> (22/7/99)"