Hello I was wandering if anyone would be kind to help me make this code shows Icon for rooms in this channel list For Buzzen chat network.
such as BCN rooms show butterfly icon.
BSR show Owner Hammer Icon.
and UCR shows nothing.

Here What I got so Far

Code:
;____________________________________________________________________________________
;:::::::::::::::::::   Channel List
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

alias BV2.list { var %c $1 , %p $2 | unset %BV2.list*
  if ($sock(BV2.list)) sockclose $ifmatch
  if (!$window(@BV2.list)) window -blkx -t30 +benstx @BV2.list verdana 10
  BV2.list.top | titlebar @BV2.list - $BV2.list.flip(%c) $iif(%p,- Page: %p)
  sockopen BV2.list www.buzzen.net 80
  sockmark BV2.list %c %p
}

alias BV2.list.flip return $gettok($BV2.list.cat(2),$findtok($BV2.list.cat(1),$$1,44),44)

alias BV2.list.cat {
  if ($$1 == 1) return UN,GN,RM,CP,PR,IN,NE,SP,CC,LS,ET,RL,RP
  elseif ($$1 == 2) return Unlisted,General,Romance,Computing,Peers,Interests,News & Events,Sports & Politics,City Chats,Lifestyles,Entertainment,Religion,RolePlay
}

alias BV2.list.menu1 {
  if ($1 isin begin end) return
  if ($gettok($BV2.list.cat(2),$1,44)) { var %i $ifmatch | return $+($iif($regex($window(@BV2.list).title,%i),$style(3)) %i,:,BV2.list $gettok($BV2.list.cat(1),$1,44)) }
}

alias BV2.list.menu2 {
  if ($1 <= $gettok(%BV2.list.num,1,32)) return $1 :BV2.list $gettok(%BV2.list.num,2,32) $1
}

alias BV2.list.top {
  clear @BV2.list
  aline @BV2.list $chr(160)
  aline @BV2.list Room $chr(9) Language $chr(9) Users $chr(9) Topic
  aline @BV2.list $chr(160)
}

on 1:sockopen:BV2.list:{
  tokenize 32 $sock($sockname).mark
  var %str $+(/roomslist.aspx?,$iif($2,$+(pg=,$2,&)),cat=,$1)
  sockwrite -n $sockname POST %str HTTP/1.4
  sockwrite -n $sockname Host: www.buzzen.net
  sockwrite -n $sockname Content-Length: $+($len(%str),$str($crlf,2),%str)
  sockwrite -n $Sockname $crlf
}

on 1:sockread:BV2.list:{
  var %r | sockread %r 
  if ($regex(%r,Title2".Pages:)) && ($regsubex(%r,/^[^<]*>|<[^>]*>|<[^>]*$/g,)) && ($numtok($gettok($v1,2-,32),32) > 1) {
    tokenize 32 $sock($sockname).mark
    set %BV2.list.num $v1 $1
  }
  if ($regex(%r,chatui)) {
    tokenize 1 $regsubex(%r,%r,/^&nbsp;|<td[^>]*>|<img[^>]*>|</td>|<a[^>]*>|</a>|<td[^>]*|</span>|</li>$/g,$chr(1))
    if ($3) {
      aline -p @BV2.list $3 $+ $chr(9) $replace($6,&ntilde;,ñ,&ccedil;,ç,‫العربية,Arabic) $chr(9) $chr(160) $5 $chr(9) $remove($4,&nbsp;)
      /window -b @BV2.list 
    }
  }
  if ($regex(%r,</HTML>)) sockclose $sockname
}

on *:close:@BV2.list:unset %BV2.list*

menu @BV2.list {
  dclick:join $chr(37) $+ $chr(35) $+ $replace($$gettok($sline(@BV2.list,1),1,9),$chr(32),\b)

  Join Channel:join $chr(37) $+ $chr(35) $+ $replace($$gettok($sline(@BV2.list,1),1,9),$chr(32),\b)
  -
  Category
  .$submenu($BV2.list.menu1($1))
  $iif(%BV2.list.num,Select Page)
  .$submenu($BV2.list.menu2($1))
  -
  Channel Link
  .Echo to Status:var %selectroom $chr(37) $+ $chr(35) $+ $replace($$gettok($sline(@BV2.list,1),1,9),$chr(32),\b) | echo -st * Link: http://irc.buzzen.net/chatui.aspx?rm=%25%23 $+ $replace($right(%selectroom,-2),\b,+)
  .Clipboard:var %selectroom $chr(37) $+ $chr(35) $+ $replace($$gettok($sline(@BV2.list,1),1,9),$chr(32),\b) | clipboard http://irc.buzzen.net/chatui.aspx?rm=%25%23 $+ $replace($right(%selectroom,-2),\b,+)
  .Run in IE:var %selectroom $chr(37) $+ $chr(35) $+ $replace($$gettok($sline(@BV2.list,1),1,9),$chr(32),\b) | run iexplore http://irc.buzzen.net/chatui.aspx?rm=%25%23 $+ $replace($right(%selectroom,1,9),-2),\b,+)
}


Thank you for your time :0)