# imap version 1.0  by Ian Frechette.
# To give credit where credit is due, this was inspired by Run's
# ircmap2 script.  I looked at it once and decided it was slow and kludgy to
# deal with and wrote my own.  All code here is original to me.
#
# Currently the only commands  are
# /initmap [stuff]        - which will create a the data by issuing a /links 
#                         from the current server.
#                         - stuff can be whatever.. The map is split up if you
#                         you try to use stuff.. try   '*.ca *'
# /gomap [server_name]    - will show the current map of the visible irc
#                         network.  If a servername is given it'll try to
#                         recurse outward from that server instead of the
#                         current server.
# Note: you may issue the /gomap command as many times as you want after
# the data has been created.  You may also /initmap at any time to update the
# data.
#
# Note Also.. as of yet hostmasks are not possible, nor would they really
# make much sense.
#
# This script has been modified to work correctly on the EPIC client.
#

^set novice off
^set max_recursion 50

@ RCS.imap = [$$Header: /guest/mrg/src/ircii-2.3.22beta/script/RCS/imap,v 1.2 1994/07/30 18:22:03 mrg Exp $$]
eval @ map.mask = encode(*.)
# @ map.str = [| | | | | | | | | | | | | | | | | | | | | | | ]

#  It starts builds the map data list.   working on args now
alias initmap {
	echo *** imap: removing any old map data around
	purge maplist
	purge maplist2
	purge maphublist
	echo *** imap: building links list to use later
	echo *** imap: please wait until it's finished .....
	map.buildlist $*
}

# This alias may take a server name as an argument or it may 
# be left blank.
# gomap tries to display the entire irc map from the point of view of
# the given server or if no arg is given from the server the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != [      erver the list was
# built on.
alias gomap {
	if ([$0] != 