alias nms {
  var %nms $regsubex($str(@,$nick($chan,0,ohv)),/./g,$+($nick($chan,\n),$chr(32)))
  var %x = 1 | while %nms { .timer 1 $calc(%x * 1.5) msg $chan $gettok(%masshl,1-30,32) | var %nms $gettok(%masshl,31-,32) | inc %x }
}