Try

Code:

on *:NICK: { if (away isin $newnick) { kcomchans $newnick }
}

on *:JOIN:#: {
if (away isin $nick) { kcomchans $nick }
}

alias kcomchans {
var %findchans = $comchan( $1, 0 )
var %findchan = 1
while ( %findchan <= %findchans ) { //cs op $comchan( $1, %findchan ) $me
if ( $me isop $comchan( $1, %findchan )) { //kick $comchan( $1, %findchan ) $1 }
inc %findchan
}
}