/* $VER: >Multi_CTCP< 1.0 (05/10/97) RaMoNsTeR

                           - (c) 1997 RaMoNsTeR -

                     Any probs? restrictions? bugs? email :

                           ramonster@earthling.net
*/

OPTIONS RESULTS

PARSE ARG argstring								/* 'argstring' - all args from AmIRC */

script_number=1									/* 'script_number' - script to run, Custom_CTCP<script_number>.amirx */ 

DO UNTIL ~Open('check_exists','rexx/Custom_CTCP'script_number'.amirx','R') 	/* Check for 'rexx/Custom_CTCP<script_number>.amirx */
	'SAY /RX Custom_CTCP'script_number'.amirx 'argstring''			/* Run scripts from AmIRC */
	script_number=script_number+1
END
EXIT
cecho:
	"ECHO P="d2c(27)"b«"CTCP"» C=6" arg(1)	/* Echo text to Amirc */
return 0

/* $VER: Multi_CTCP v1.0 (o5/1o/97) RaMoNsTeR */