on *:TEXT:!dm:#: {
  if (%starter == $null) { 
    set %starter $nick 
    msg $chan %starter has started a dm! !challenge to face him!@%$!
    halt
  }
  else { 
    msg $chan $nick theres already a dm going on between %starter and %challenger
  }
}
on *:TEXT:!challenge*:#:{
  if (%challenger == $null) {
    set %challenger $nick
    msg $chan %challenger FACES %starter $+ !
    halt
  }
  else { 
    notice $nick Theres already a dm going on between %starter and %challenger
  }
}
on *:TEXT:!dm off:#:{
  unset %starter %challenger
}