set my "0"
set npu "0"

bind pub - fullv fullv
proc fullv {nick host hand chan t} {
  global my npu
  if { $nick == "My1" } {
    set nl "[chanlist $chan]"
    for { set i 0 } { $i < [llength $nl] } { incr i } {
      putquick "MODE $chan +v [lindex $nl $i]"
      if {$chan == "#my1-fcs" } {
        set my "1"
        putquick "MODE #my1-fcs +m"
      }
      if {$chan == "#npu" } {
        set npu "1"
        putquick "MODE #npu +m"
        puthelp "privmsg $nick :NPU fullv ist auf $npu"
      }
    }
  }
}

bind join "#my1-fcs *" vmy
proc vmy {nick host hand chan} {
  global my
  if { $my=="1" } {
    putquick "MODE #my1-fcs +v $nick"
  }
}

bind join "#npu *!*@*" vnpu
proc vnpu {nick host hand chan} {
  global npu
  if { $npu=="1" } {
    putquick "MODE #npu +v $nick"
  }
}