on *:text:!fight*:#:{
  if ($3 == $null) {
    .notice $nick Usage: !fight 1 2  (eg. !fight Love Hate)
    halt
  }
  set %fighta $rand(1,100)
  set %fightb 100
  dec %fightb %fighta
  set %str1 $replace($2,-,$chr(32))
  set %str2 $replace($3,-,$chr(32))
  if (%fighta > %fightb) {
    var %won1 WINS! ^.^
    var %won2 LOSES -.-
  }
  if (%fightb > %fighta) {
    var %won1 LOSES $chr(9) -.-
    var %won2 WINS! $chr(9) ^.^
  }
  .msg # [Fight] %fighta $+ % %str1 $chr(9) %won1
  .msg # [Fight] %fightb $+ % %str2 $chr(9) %won2
  unset %fighta
  unset %fightb
  unset %str1
  unset %str2
}

on *:text:!love*:#:{
  if ($3 == $null) {
    .notice $nick Usage: !love 1 2  (eg. !love Beefs Chikkin)
    halt
  }
  set %fighta $rand(1,100)
  set %fightb 100
  dec %fightb %fighta
  set %str1 $replace($2,-,$chr(32))
  set %str2 $replace($3,-,$chr(32))
  .msg # [Love] " $+ %str1 $+ " Love's " $+ %str2 $+ " - %fighta $+ %
  unset %fighta
  unset %fightb
  unset %str1
  unset %str2
}

on *:text:!hate*:#:{
  if ($3 == $null) {
    .notice $nick Usage: !hate 1 2  (eg. !hate Me You)
    halt
  }
  set %fighta $rand(1,100)
  set %fightb 100
  dec %fightb %fighta
  set %str1 $replace($2,-,$chr(32))
  set %str2 $replace($3,-,$chr(32))
  .msg # [Hate] " $+ %str1 $+ " Hate's " $+ %str2 $+ " - %fighta $+ %
  unset %fighta
  unset %fightb
  unset %str1
  unset %str2
}