This will make a file with all server names
which can be pasted into AmIRC config...
--
.----------------------------------------.
| Robert Grimm |
| IRC: [Raz] ''' |
| http://www.isd.net/rgrimm (o o) |
�--------------------------ooO--(_)--Ooo-�
-- Attached file included as plaintext by Listar --
-- File: Links.AMIRX
/*
** Grabs all server names from a server and writes a file to be imported into your
** AmIRC default config file.
**
** Make an alias "/Links = /RX Links.AMIRX %p"
*/
OPTIONS RESULTS
PARSE ARG network
IF network = "" THEN DO
"ECHO P="D2C(27)"b�Links� "D2C(2)"Usage:"D2C(2)" /Links <network name>"
EXIT
END
"IsConnected"
IF rc = 5 THEN DO
"ECHO Not connected to server."
EXIT
END
"GetServerName" ; file = "Ram:"result
"ECHO P="D2C(27)"b�Links� Writting to "D2C(2)""file""D2C(2)
IF ~OPEN(1,file,"W") THEN DO
"ECHO Could not open server file."
EXIT
END
total = 0
"Channels" ; channels = TRANSLATE(result,","," ")
"RAW LINKS"
DO FOREVER
drop comm
'getline'
comm = line.command
IF comm = "365" THEN LEAVE
IF comm = "364" THEN DO
drop rest
rest = line.rest
host = WORD(rest,1)
line = "SERVER "host",6667,"channels",,"network
DO WHILE POS(D2C(2),line) > 0
line = DELSTR(line,POS(D2C(2),line),1)
END
IF POS("*",line) = 0 THEN DO
WRITELN(1,line)
total = total + 1
END
END
END
CLOSE(1)
"ECHO P="D2C(27)"b�Links� Written "D2C(2)""total" "network""D2C(2)" servers to
"D2C(2)""file""D2C(2)
EXIT
__________________________________________________________
AmIRC Mailing List - Info & Archive: http://www.vapor.com/
For Listserver Help: <[EMAIL PROTECTED]>, "HELP"
To Unsubscribe: <[EMAIL PROTECTED]>, "UNSUBSCRIBE"
