here is a fast edit to one text event this is only an example nothing more...

on $*:TEXT:/^@(Truth|Dare)?\s?(\S+)/Si:#:{
  if  (!%td) { inc -u4 %td
    if ($regml(2) !ison #) { .notice $nick Please Specify a Person }
    else {
      msg # $regml(2) $+ , $iif($regml(1) = Truth,Is it True That,I Dare you to) $read($+($regml(1),.txt)) 
    }
  }
}