this is to show the channels the bot is in.

on $*:TEXT:/^!chanlist$/iS:#: { msg # I'm in: $regsubex($str(-,$chan(0)),/(.)/g,$+($chan(\n),$chr(32))) }

on the code you have posted you used $comchan so it would show the channels which both you and the bot are on.
if thats what you are going for then do

on $*:TEXT:/^!chanlist$/iS:#: { msg # Me and $nick are in these same channels: $regsubex($str(-,$comchan($nick,0)),/(.)/g,$+($comchan($nick,\n),$chr(32))) }

also the

if ($nick == $me) { halt }

is useless hence you cant trigger ur own on text events