/* * Ok.  Here is the plan: * * We have a variable, $fake_dcc, that contains a list of words that can * be substituted for ``DCC'' as a CTCP. * * The sender randomly picks a word off that list and uses it. * The receiver then reparses the handshake if its on his list. * * Don't be fooled.  This script is not nearly as useful as it * might be made to be.  Its just a contrived example. */@ fake_dcc = [FOO BAR GOOTCHIE]/* * Sender's side */on ^send_to_server "% % % PRIVMSG % :$chr(1)DCC*" {	quote PRIVMSG $4 :$chr(1)$getrandword($fake_dcc) $6-}/* * Receiver's side */on ^raw_irc "% PRIVMSG % :$chr(1)\\[$fake_dcc\\]*" {	pretend $0 $1 $2 :$chr(1)DCC $4-}alias getrandword @ function_return = word($rand($#) $*)#jfn'96