;____________________________________________________________________________________
;::::::::::::::::::: 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,/^ |<td[^>]*>|<img[^>]*>|</td>|<a[^>]*>|</a>|<td[^>]*|</span>|</li>$/g,$chr(1))
if ($3) {
aline -p @BV2.list $3 $+ $chr(9) $replace($6,ñ,ñ,ç,ç,‫العربية,Arabic) $chr(9) $chr(160) $5 $chr(9) $remove($4, )
/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,+)
}