put this in your ALIASES, then type /lock or /unlock

/lock {
  say ----8<---CUT HERE----8<-------
  set %i 1
  while ($nick(#,$calc( %i + 3 ),a,o) != $null) {
    mode # -vvvv  $nick(#,$calc(%i + 0),a,o) $nick(#,$calc(%i + 1),a,o) $nick(#,$calc(%i + 2),a,o) $nick(#,$calc(%i + 3),a,o)  
    inc %i
    inc %i
    inc %i
    inc %i
  }
  while ($nick(#,$calc( %i + 2 ),a,o) != $null) {
    mode # -vvv  $nick(#,$calc(%i + 0),a,o) $nick(#,$calc(%i + 1),a,o) $nick(#,$calc(%i + 2),a,o)
    inc %i
    inc %i
    inc %i
  }
  while ($nick(#,$calc( %i + 1 ),a,o) != $null) {
    mode # -vv  $nick(#,$calc(%i + 0),a,o) $nick(#,$calc(%i + 1),a,o)
    inc %i
    inc %i
  }
  while ($nick(#,$calc( %i),a,o) != $null) {
    mode # -v  $nick(#,$calc(%i + 0),a,o)
    inc %i
  }
  mode # +m
  mode # +i
}


/unlock {
  say ~lock released~
  set %i 1
  mode # -m
  mode # -i
  while ($nick(#,$calc( %i + 3 ),a,o) != $null) {
    mode # +vvvv  $nick(#,$calc(%i + 0),a,o) $nick(#,$calc(%i + 1),a,o) $nick(#,$calc(%i + 2),a,o) $nick(#,$calc(%i + 3),a,o)  
    inc %i
    inc %i
    inc %i
    inc %i
  }
  while ($nick(#,$calc( %i + 2 ),a,o) != $null) {
    mode # +vvv  $nick(#,$calc(%i + 0),a,o) $nick(#,$calc(%i + 1),a,o) $nick(#,$calc(%i + 2),a,o)
    inc %i
    inc %i
    inc %i
  }
  while ($nick(#,$calc( %i + 1 ),a,o) != $null) {
    mode # +vv  $nick(#,$calc(%i + 0),a,o) $nick(#,$calc(%i + 1),a,o)
    inc %i
    inc %i
  }
  while ($nick(#,$calc( %i),a,o) != $null) {
    mode # +v  $nick(#,$calc(%i + 0),a,o)
    inc %i
  }
}