Canales en Comun

[TerraChat]

Código [Seleccionar] Expandir

ON 1:OPEN:?: {
.flash Query de $nick $+ !
if ([ %query. [ $+ [ $nick ] ] ] == $null) {
%u = 1
:loop
if ($comchan($nick,%u) == $null) { goto end }
set %temp.cchans $comchan($nick,%u) %temp.cchans | inc %u | goto loop
:end
.echo 14 $query($nick) $chr(160)
.echo 0 $query($nick) ␃14.␃15:␃10] ³␟␂I␂␃14␟niciando Conversacion con␃11 $nick ␃10 $addr($address)
if (%temp.cchans == $null) { .echo 0 $query($nick) ␃14.␃15:␃10] ³␟␂C␂␃14␟anales en Comun:␃11 Ningunos }
else { .echo 0 $query($nick) ␃14.␃15:␃10] ³␟␂C␂␃14␟anales en Comun:␃11 %temp.cchans }
.echo 14 $query($nick) $chr(160)
unset %u %temp.cchans
}
}