On Fri 8-Dec-2000 6:00p, [EMAIL PROTECTED] wrote:
a> The file should be a standard TEXT file, as that is the reason for the
a> program.
a> It then "types" that file to the Channel.
This is an old script I have used for ages...
/*
** Type - Outputs a textfile to a channel, a nick or locally
** by Andrew "Andy" Ricketts
**
** Make an alias = "/Type /RX Type.AMIRX %p"
**
** "/Type ?" for help.
*/
PARSE ARG arguments
ADDRESS "AMIRC.1"
output = WORD(arguments,1)
textfile = WORD(arguments,2)
IF output = "?" THEN DO
"ECHO P="D2C(27)"b�Type� "D2C(2)"Usage:"D2C(2)" /Type [<output> [textfile]"
EXIT
END
IF textfile = "" | ~EXISTS(textfile) THEN DO
IF EXISTS("C:RequestFile") THEN DO
ADDRESS COMMAND "C:RequestFile >T:Result PATTERN #?.txt|#?.asc"
OPEN("Text", "T:Result", "R")
textfile = READLN("Text")
CLOSE("Text")
textfile = STRIP(TRANSLATE(textfile,' ','"'),"B")
END
ELSE DO
"ECHO P="D2C(27)"b�Type� "D2C(2)"Usage:"D2C(2)" /Type [<output> [textfile]
[type]]"
EXIT
END
END
IF LENGTH(textfile) = 0 THEN DO
"ECHO P="D2C(27)"b�Type� No file selected."
EXIT
END
"ECHO P="D2C(27)"b�Type� Now displaying "D2C(2)""textfile""D2C(2)" ..."
OPEN("File",textfile,"R")
DO FOREVER
delay(50)
line = READLN("File")
line = D2C(2)""D2C(2)""line
IF EOF("File") THEN LEAVE
IF output = "" THEN "ECHO P="D2C(27)"b�Type� "line
ELSE IF output = ">" THEN "SAY "line
ELSE "SAY /MSG "output" "line
END
CLOSE("File")
EXIT
Works fine for me... /type #channel/nick path:filename
John
DR. John M. Hoyt / AKA Warren Peace - amicon.net SysAdmin
WarNPeace - C-Link! International Coordinator
- ZenMetal/CNet Alpha Team
Find me on irc.reefer.org - ExodusIRC.Net Admin
___________________________________________________________________
AmIRC Mailing List - http://www.vapor.com/amirc/
AmIRC FAQ......: http://faq.vapor.com/amirc/
Listserver Help: mailto:[EMAIL PROTECTED]?Subject=HELP
Unsubscribe....: mailto:[EMAIL PROTECTED]?Subject=UNSUBSCRIBE
