on ^*:NOTICE:*:*: {
var %chans = $replace($regsubex($1-,/(?:\s|^)([^#]+?)?(?:$|\s)/g,$chr(44)),$chr(32),$chr(44)), %x = 1
while ($comchan($nick,%x)) {
var %chan = $comchan($nick,%x)
if ($istok(%chans,%chan,44)) %chan = $deltok(%chans,%chan,44)
inc %x
}
if ($numtok(%chans,44) > 0) echo -a user in the wrong channel(s) %chans
}