on *:join:#: {
  if (%auto-v [ $+ [ $chan ] ] == ON && $nick isreg $chan) mode $chan +v $nick
  if ($nick == DeadlyBot && $me == DeadlyBot) {
    inc %channumber
    set $+(%,chan.,$chan) $chan($chan)
  }
  if (%spy. [ $+ [ $chan ] ] == On) {
    inc %spytalker
    set %nick. [ $+ [ %spytalker ] ] $nick
    %spy.return. [ $+ [ $chan ] ] 3( $+ $time $+ ) * %nick. [ $+ [ %spytalker ] ] has joined $chan 
  }
}

on *:Kick:#: {
  if ($knick == DeadlyBot) { 
    dec %channumber
    unset %chan. [ $+ [ $chan ] ]
    if (%channumber == 0) unset %channumber
  }
  if (%spy. [ $+ [ $chan ] ] == On) {
    inc %spytalker
    set %nick1. [ $+ [ %spytalker ] ] $knick
    set %nick2. [ $+ [ %spytalker ] ] $nick
    %spy.return. [ $+ [ $chan ] ] 3( $+ $time $+ ) * %nick1. [ $+ [ %spytalker ] ] was kicked by %nick2. [ $+ [ %spytalker ] ] ( $+ $iif($1,$1-,%nick2. [ $+ [ %spytalker ] ]) $+ ) 
  }
}

on *:Part:#: {
  if ($nick == DeadlyBot) {
    dec %channumber
    unset %chan. [ $+ [ $chan ] ]
    if (%channumber == 0) unset %channumber
  }
}