on $*:text:/^[!@]lock (on|off)$/iS:#:{ 
  if ($nick == gtahell) {
    if ($2 == on) {
      //set %channellist %channellist $chan on
      set %lock. $+ $chan on 
    msg $chan 14,1 lock is now 0,1 ON }
    if ($2 == off) {
      //set %channellist $remtok(%channellist, $chan, 1, 32)
      set %lock. $+ $chan off
    msg $chan 14,1 lock is now 0,1 OFF }
  }
}

on *:TEXT:!test:*:{
  if (!$window(@test)) {
    window @test
    renwin @test @test Locked chans!
    /aline @test %channellist 
  }
  else { /aline @test %channellist }
}


menu @test {
  .Deblock: { //set %channellist $remtok(%channellist, $chan, 1, 32) | //set %lock $remtok(%channellist, $chan, 1, 32) }
}