if (word(2 $loadinfo()) != [pf]) {
	load -pf $word(1 $loadinfo());
	return;
};

#	Copyright (c) 2004 BlackJac@EFNet
#
#	Version: 1.0.2004.06.04.1
#
#	This script replicates BitchX's CLOAK feature.

package cloak;

# Available settings:
#	0 - allow all incoming CTCP requests
#	1 - block all incoming CTCP requests except for PING
#	2 - block all incoming CTCP requests
assign CLOAK 0;

^on ^set "CLOAK" {
	switch ($1) {
		(0) {
			^on ctcp_request -"*";
			^on ctcp_request -"% % PING *";
			assign CLOAK 0;
			xecho -b -c Value of CLOAK set to 0;
		};
		(1) {
			^on ^ctcp_request "*" #;
			^on ^ctcp_request "% % PING *" {
				notice $0 
PING $3-4
;
			};
			assign CLOAK 1;
			xecho -b -c Value of CLOAK set to 1;
		};
		(2) {
			^on ^ctcp_request "*" #;
			^on ctcp_request -"% % PING *";
			assign CLOAK 2;
			xecho -b -c Value of CLOAK set to 2;
		};
		(*) {
			xecho -b -c Current value of CLOAK is $cloak;
		};
	};
};

set CLOAK $CLOAK;