on *:START:{ liststart }
alias liststart { socklisten listing 6668 }
on *:socklisten:listing:{ sockaccept sendlist. $+ $r(111,999) }
on *:sockread:sendlist.*:{ var %r | sockread %r | tokenize 32 %r
if ($1 == ROOMLIST) {
if ($var(%create.*,1)) {
sockwrite -tn $sockname <center><b>List rooms:</b><br>
sockwrite -tn $sockname <table cellpadding="0" cellspacing="1" border="0" style="width: 90%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="Black">
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="1" color="White">RoomName</font></b><br></td>
sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">topic</font></b><br></td>
sockwrite -tn $sockname <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Modes</font></b><br></td></tr>
var %n = 1
var %a = 1
while (%n <= $var(%create.*,0)) {
if (%a == 2) { sockwrite -tn $sockname <tr bgcolor="bbbbbb"><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),\b,$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,modes,room) </font></td></tr> | dec %a }
elseif (%a == 1) { sockwrite -tn $sockname <tr bgcolor="dddddd"><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),\b,$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,modes,room) </font></td></tr> | inc %a }
inc %n
}
sockwrite -tn $sockname </table></center> | $sockname
sockclose $sockname
}
else {
sockwrite -tn $sockname <center><b>List rooms:</b><br>
sockwrite -tn $sockname No room available for the moment
sockwrite -tn $sockname </center> | $sockname
}
}
else { sockclose $sockname }
}
alias {
sockwrite $1 $decode(PGJyPjxjZW50ZXI+PGEgaHJlZj0iaHR0cDovL3BhcGVyY2hhdC5mcmVlLmZyLyI+PGZvbnQgc2l6ZT0iMSI+UGFnZSBDcunpZSBQYXIgUGFwZXJJUkMgTVNOTGlrZSBTZXJ2ZXI8L2ZvbnQ+PC9hPjwvY2VudGVyPg==,m)
}