# w00w00!
# this is a script to use the irc killing socket apps i made
# change mylong to the u_long that ircii sends when it sends
# a dcc chat request                                   - nyt

^set exec_protection off

@ KILLCONN = [irckill/irconn]
@ KILLACC = [irckill/ircacc]
@ MYLONG = [My IP in network long] # example is 3260545834

^alias leftof @ function_return = [$left($index($0 $1-) $1-)]

^alias dcckill {
	if ([$0])
	{
		@ KILLPORT = rand(65535-1024)+1025
		exec $KILLACC $KILLPORT
		ctcp $0 DCC CHAT chat $MYLONG $KILLPORT
		echo *** killing $0
	}
	{
		echo *** usage /dcckill USER
	}
}
^on ^raw_irc "% PRIVMSG % :
DCC CHAT chat % %" {
	echo *** killing $0
	if ([$index(
 $7)]==[-1])
	{
		exec $KILLCONN $6 $7
	}{
		exec $KILLCONN $6 $leftof(
 $7)
	}
}