err0r Posted April 21, 2012 Report Share Posted April 21, 2012 does it return the category in the raws? Link to comment Share on other sites More sharing options...
Dippy Posted April 21, 2012 Author Report Share Posted April 21, 2012 LISTGN LISTRM as far as I can see there nothing about raw there Link to comment Share on other sites More sharing options...
Dippy Posted April 23, 2012 Author Report Share Posted April 23, 2012 (edited) elseif (LIST == $1) || (LISTX == $1) { var %a = 1 ,%nick = $hget($sockname,nick) ,%serv = $config(serv) | sockwrite -tn $sockname %serv 321 %nick Channel Users :Topic while (%a <= $hget(0)) { if (?#* iswm $hget(%a)) { var %hget = $hget(%a) | sockwrite -tn $sockname %serv 322 %nick $right(%hget,-1) $hfind(%hget,zunkies-*,0,w) : $+ $hget(%hget,topic) } | inc %a } sockwrite -tn $sockname %serv 323 %nick :End of /list } Edited April 23, 2012 by Dippy Link to comment Share on other sites More sharing options...
err0r Posted April 23, 2012 Report Share Posted April 23, 2012 it does not include the category in list or listx does it? Link to comment Share on other sites More sharing options...
Dippy Posted April 23, 2012 Author Report Share Posted April 23, 2012 alias cmd { if (r isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return r } } alias ishidden { if (h isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return true } if (p isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return true } if (s isin $readini($+(rooms/ $+ $1 $+ .ini),modes,room)) { return true } else { return false } } on *:socklisten:listing:{ sockaccept sendlist. $+ $r(111111,999999) } on *:sockread:sendlist.*:{ var %r | sockread %r | tokenize 32 %r if ($1 == ROOMLIST) { if ($var(%create.*,1)) { ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; sockwrite -tn $sockname <center><b>Room List:</b><br> sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 90%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#9999FF"> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White">Users</font></b><br></td> sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="2" color="White">Room Name</font></b><br></td> sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="2" color="White">Topic</font></b><br></td> sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="2" color="White">Category</font></b><br></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"> </font></b><br></td></tr> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "><center>To join</center></a></font></td></tr> | dec %a } elseif (%a == 1) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "><center>To join</center></a></font></td></tr> | inc %a } inc %n } ; sockwrite -tn $sockname </table></center> | $sockname sockclose $sockname } else { sockwrite -tn $sockname <center><b>Rooms List:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTGN) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == GN) && ($ishidden == false) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="2.5"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="2.5"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"><a href=""> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == GN) { sockwrite -tn $sockname <tr bgcolor="FFFFFO"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="2.5"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="2.5"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"><a href=""> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="tahoma" size="2.5"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Rooms List:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTCC) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == CC) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == CC) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Room List:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTRM) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RM) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RM) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { ;;sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"><a href="Xchat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) </font></td></tr> sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"><center>Ninguna sala disponible en esta categoria<br> } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTTN) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == TN) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == TN) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTIN) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == IN) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == IN) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTFN) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == FN) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == FN) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTLS) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == LS) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == LS) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTHB) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == HB) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == HB) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTSP) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == SP) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == SP) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTNW) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == NW) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == NW) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTPR) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == PR) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == PR) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } elseif ($1 == ROOMLISTRL) { if ($var(%create.*,1)) { sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 100%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="#ffffff"> sockwrite -tn $sockname <td width="5%" height="10" background="pics/tile_back.gif"> <b> </b></td> sockwrite -tn $sockname <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White"><img src="pics/rl_users.gif"></font></b><br></td> sockwrite -tn $sockname <td width="30%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Room Name</b></td> sockwrite -tn $sockname <td width="64%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Topic</b></td> sockwrite -tn $sockname <td width="11%" height="27" background="pics/tile_back.gif"> <b><font face="Tahoma" size=2.5>Language</b></td> var %n = 1 var %a = 1 while (%n <= $var(%create.*,0)) { if (%a == 2) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RL) { sockwrite -tn $sockname <tr bgcolor="F2F1EE"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> dec %a } elseif (%a == 1) && ($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,category) == RL) { sockwrite -tn $sockname <tr bgcolor="FFFFF0"><td style="vertical-align: top;" width="2%"><font face="tahoma" size="1"> $replace($cmd($gettok($var(%create.*,%n),2,$asc(.))),r,<img src="pics/msn.gif">) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="2"><a href="chat.php?room= $+ $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) $+ "> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2), ,$chr(32)) </font></a></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,language),es-mx,Spanish) </font></td> inc %a } inc %n } sockwrite -tn $sockname </table></center> sockclose $sockname } else { sockwrite -tn $sockname <center><b>Lista de salas:</b><br> sockwrite -tn $sockname No available rooms for the time being sockwrite -tn $sockname </center> | $sockname } if ($sock($sockname)) { sockclose $sockname } } } Link to comment Share on other sites More sharing options...
Dippy Posted April 23, 2012 Author Report Share Posted April 23, 2012 other then that is all I got Link to comment Share on other sites More sharing options...
Dippy Posted April 24, 2012 Author Report Share Posted April 24, 2012 what raw 183? Link to comment Share on other sites More sharing options...
JOhnson Posted April 25, 2012 Report Share Posted April 25, 2012 what raw 183? Â im not very good myself with raw numeric but the only thing I could find is this from mirc.net where im a member ... http://www.mirc.net/raws/ and I dont see a raw 183 ? so hopefully someone on tg007 will know Link to comment Share on other sites More sharing options...
oasiz Posted April 25, 2012 Report Share Posted April 25, 2012 There's no raw to display a channel category, as technically speaking there's no such thing as one - it's a server extension/addition, not anything "official".  For that reason you naturally wont have that data in the LIST/LISTX raw numeric replies unless you hack away at it. I seem to remember ChatsUSA having the category either in or next to the room name?  [GN]%#TheLobby  From my experience your best bet would be to populate a (MySQL?) database every X seconds/minutes with the channel data from each individual category - and cache the results.  It all depends on your IRC server, site set-up and expected traffic volume really, but it's extremely simple to do. Link to comment Share on other sites More sharing options...
Dippy Posted April 26, 2012 Author Report Share Posted April 26, 2012 ok that an idea but still needs to grab the category from the irc right? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now