/* * 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