Skip to content
TechGear007 TG007 Technology · IRC · Community
Search
General IRCX

Ircx Roomlist

A TG007 community discussion started by Dippy.

Forum Home Search Forum Sign In
Discussion 40 posts
Page 2 of 2
Open
Topic #15519 · 40 published posts · 11,367 views
err0r Subject Matter Expert Member #20,793
#79,807

does it return the category in the raws?

Get information about ircWx here

Dippy Member #6,161
#79,809

LISTGN LISTRM as far as I can see there nothing about raw there

BumbleBeeChat.Net

Dippy Member #6,161
#79,827 



	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 Apr 23, 2012 10:10 AM by Dippy

BumbleBeeChat.Net

err0r Subject Matter Expert Member #20,793
#79,829

it does not include the category in list or listx does it?

Get information about ircWx here

Dippy Member #6,161
#79,830 



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 }


  }




}

BumbleBeeChat.Net

Dippy Member #6,161
#79,831

other then that is all I got

BumbleBeeChat.Net

Dippy Member #6,161
#79,833

what raw 183?

BumbleBeeChat.Net

JOhnson I know not of what I speak Member #27,425
#79,838

what raw 183?

 

:oops: 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 :D

oasiz Member #494
#79,841

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.

Enjoy a bit of MSN Chat nostalgia? You'll love our fun retro webchat page!

Dippy Member #6,161
#79,846

ok that an idea but still needs to grab the category from the irc right?

BumbleBeeChat.Net

oasiz Member #494
#79,848

Of course.

 

The reason I'm suggesting populating a database with the channel information is it's infinitely more flexible than just having an on-demand pure html output directly from the server.

 

For example you might want to re-order the channels by user count not channel name, and/or have channels with certain modes ("r" springs to mind) at the top of the list.

 

You could even display hidden/secret channels (as well as an "Unlisted" category) for logged in staff members, or choose to hide channels with certain keywords/phrases in their topics.

 

Your options are endless, and you can easily cache the results for X seconds to improve performance and avoid unnecessary load on the chat server itself.

Enjoy a bit of MSN Chat nostalgia? You'll love our fun retro webchat page!

Dippy Member #6,161
#79,849

ok sounds good where do I start lol

BumbleBeeChat.Net

JOhnson I know not of what I speak Member #27,425
#79,878
:oops: iv been watching your site with interest and see a lot of good things even if it is a msn clone using there software but its a start ... I see you still aren't getting any help have you upset someone in tg007 Dippy :shock: lol ... someone must know where you can get a room list from or maybe everyone is on holiday again :lolwave: joking ... well I will keep looking at your place and hope you get what your after ... good luck as the site looks good :D

err0r Subject Matter Expert Member #20,793
#79,879

Um you must be miss-reading. I've helped him several times in this thread.

Get information about ircWx here

oasiz Member #494
#79,880

As have I - but I draw the line at actually doing the coding for another network! :P

Enjoy a bit of MSN Chat nostalgia? You'll love our fun retro webchat page!

JOhnson I know not of what I speak Member #27,425
#79,881

Um you must be miss-reading. I've helped him several times in this thread.

 

:oops: im not aiming my comments at you err0r as you have helped me out more times than anyone has and I have always said thank you for that ... you have also taught me a lot so I thank you for that :D ... Yes iv seen the help you have gave Dippy but your not the only one here he is asking and im sure there are loads of php / mirc coders that could answer him even if its to say NO :lolwave: NO is better then no reply ;) ... yes I know the same old question comes up why is he using msn ocx ? :oops: iv asked myself the same question but its a step in the right direction and he can only learn from that and who knows in a few years he might move on to his own ocx :D only time will tell ... Im sorry you took my posting the way you did after watching me post on techgear over the years :D and I would have though that you would have got use to me and my ways :lolwave:

err0r Subject Matter Expert Member #20,793
#79,882

I see you still aren't getting any help have you upset someone in tg007 Dippy :shock: lol ... someone must know where you can get a room list from

It's hard to misunderstand that. He has a roomlist I helped fix it for him. What he is now asking for is way more complicated than just posting a fix here on the forum. First he needs to create a way to get the category, whether it's part of the room name or stored in a database. Then he has to develop a system off of whichever way he chooses.. As I said it's not something that can just be posted here as a quick snippet.

 

As for ppl willing to help him for pay there are a lot that would.. the net is full of freelance coders.

Get information about ircWx here

Dippy Member #6,161
#79,885

can you point me to the irc freelancers?

BumbleBeeChat.Net

chain Member #797
#79,888

http://www.scriptlance.com/tag/IRC/freelancers

 

https://sites.google.com/site/longtermestate/news/irc

 

http://www.freelancer.com/work/irc/

______________________________________________________

T.ogether
E.veryone
A.chieves
M.ore


 

 

coderirclogo.png.8580c336378f27471a13a95ffd242c9d (1).png

Dippy Member #6,161
#79,889

nice one :) Thanks

BumbleBeeChat.Net