Type:
!truth [nick/empty] to read a truth/dare question.
!addtruth [truth/dare] to add a truth/dare question.
!opentruth [truth/dare] To open the truth/dare file.

on $*:TEXT:/^!(truth|dare)/Si:#: {
  if (%flood [ $+ [ $+($site,$network) ] ]) { notice $nick 12You must wait04 $duration($v1) 12before you can use that again. | halt }
  var %nick $nick(#,$rand(1,$nick(#,0))) | while (%nick = $nick) var %nick $nick(#,$rand(1,$nick(#,0)))
  if ($2 = $me) { msg # 12I'm afraid I can't do that.. | halt }
  if ($2 && $2 !ison #) { notice $nick 12Specified person has to be on the channel. | halt }
  set -z $+(%,flood,$site,$network) 15
  if (!$2) { msg # 4 $+ %nick 12 $+ $read($regml(1) $+ .txt) | halt }
  msg # 4 $2  $+ , 12 $+ $iif($regml(1) = truth,,I dare you to) $read($regml(1) $+ .txt)
}

on $*:TEXT:/^!add(truth|dare)/Si:#: {
  if ($nick == Vegito) { write $regml(1) $+ .txt $2- | msg $nick " $+ $2- $+ " has been added, $nick $+ ! }
}

on $*:TEXT:/^!open(truth|dare)/Si:#: {
  if ($nick != Vegito) halt
  if (!$lines($regml(1) $+ .txt)) { msg $nick The $regml(1) folder is empty. | halt }  
  run $regml(1) $+ .txt
}