Someone

on *:text:.box:#: {
  if (%match == $null) {
    msg $chan $nick is looking for a boxing partner! Type ".box" to challenge him!
    var %match 1
    var %p1 $nick
  }
  elseif (match == 2) {
    notice $nick There is already a match in progress. Please be patient.
  }
  elseif (match == 1) {
    var %p2 $nick
    var %hp1 99
    var %hp2 99
    inc %match 1
    var %turn 1
    var %1st $+(%p,$r(1,2))
    if (%1st == %p1) {
      var %2nd %p2
    }
    if (%1st == %p2) {
      var %2nd %p1
    }
    msg $chan $nick has accepted %p1 $+ 's challenge! %1st will go first!
  }
}
on *:text:.punch: {
  if (%match == 0) {
    notice $nick There is no current match. Type ".box" to start one.
  }
  if (%match == 1) {
    notice $nick Nobody has accepted your challenge yet.
  }
  if (%match == 2) {
    if (%turn == 1) {
      if ($nick == %1st) {
        set %dmg $r(0,15)
        msg $chan $nick deals %dmg damage to %2nd $+ . %2nd $+ 's hp is now %hp2
        inc %turn 1
        if (%hp2 <= 0) {
          %2nd has been killed by %1st $+ !
          unset %p1
          unset %p2 
          unset %hp1
          unset %hp2
          unset %match 
          unset %turn 
          unset %1st
          unset %2nd
        }
      }
      elseif ($nick == %2nd) { 
        notice $nick It is not your turn.
      }
    }
    elseif (%turn == 2) {
      if ($nick == %2nd) {
        set %dmg $r(0,15)
        msg $chan $nick deals %dmg damage to %1st $+ . %1st $+ 's hp is now %hp1
        dec %turn 1
        if (%hp2 <= 0) {
          %1st has been killed by %1st $+ !
          unset %p1
          unset %p2
          unset %hp1
          unset %hp2
          unset %match 
          unset %turn 
          unset %1st
          unset %2nd
        }
      }
      elseif ($nick == %1st) { 
        notice $nick It is not your turn.
      }
    }
  }
}
on *:text:.kick:#: {
  if (%match == 0) {
    notice $nick There is no current match. Type ".box" to start one.
  }
  if (%match == 1) {
    notice $nick Nobody has accepted your challenge yet.
  }
  if (%match == 2) {
    if (%turn == 1) {
      if ($nick == %1st) {
        set %dmg $r(3,13)
        msg $chan $nick deals %dmg damage to %2nd $+ . %2nd $+ 's hp is now %hp2
        inc %turn 1
        if (%hp2 <= 0) {
          %2nd has been killed by %1st $+ !
          unset %p1
          unset %p2 
          unset %hp1
          unset %hp2
          unset %match 
          unset %turn 
          unset %1st
          unset %2nd
        }
      }
      elseif ($nick == %2nd) { 
        notice $nick It is not your turn.
      }
    }
    elseif (%turn == 2) {
      if ($nick == %2nd) {
        set %dmg $r(3,13)
        msg $chan $nick deals %dmg damage to %1st $+ . %1st $+ 's hp is now %hp1
        dec %turn 1
        if (%hp2 <= 0) {
          %1st has been killed by %1st $+ !
          unset %p1
          unset %p2
          unset %hp1
          unset %hp2
          unset %match 
          unset %turn 
          unset %1st
          unset %2nd
        }
      }
      elseif ($nick == %1st) { 
        notice $nick It is not your turn.
      }
    }
  }
}