on *:TEXT:!vd*:#: {
  if (%vd == 1) && (%vdplay !== 1) {
    if ($4 !isnum 0-5000) { notice $nick Specify the troops please. | halt }
    if ($calc($2 + ($3 * 2) + ($4 * 4)) > 20000) { notice $nick You have spent too many points. Please see !vdrules to see how much you can spend. | halt }
    if (%play == 1) { notice $nick A game is already being played. | halt }
    if (%vd == 0) { notice $nick Violent Diplomacy is not currently on. Please contact Jcfc so he can turn it on. | halt }
    if ($calc($2 + ($3 * 2) + ($4 * 4)) <= 20000) {
      msg $chan $nick wants to play Violent Diplomacy! Type !vd [INFANTRY] [DRAGOONS] [CAVALRY] to play with him.
      set %vdplay 1
      set %p1inf $2
      set %p1drag $3
      set %p1cav $4
      set %player1 $nick
      halt
    }
  }
  if (%vdplay == 1) && (%vd == 1) {
    if (%player1 == $nick) { msg $chan You can't play yourself!
      unset %vdplay
      unset %p1inf
      unset %p1drag
      unset %p1cav
      unset %player1
      halt
    }
    if ($4 !isnum 0-5000) { notice $nick Specify the troops please. | halt }
    if ($calc($2 + ($3 * 2) + ($4 * 4)) > 20000) { notice $nick You have spent too many points. Please see !vdrules to see how much you can spend. | halt }
    if (%play == 1) { notice $nick A game is already being played. | halt }
    if (%vd == 0) { notice $nick Violent Diplomacy is not currently on. Please contact Jcfc so he can turn it on. | halt }
    if ($calc($2 + ($3 * 2) + ($4 * 4)) <= 20000) {
      set %vd 1
      set %p2inf $2
      set %p2drag $3
      set %p2cav $4
      set %player2 $nick
      msg $chan The game is on! %player1 vs. %player2 $+ .
      msg $chan It is %player1 $+ 's go first.
      set %turn 1
      halt
    }
    if (%vd == 0) { notice $nick Violent Diplomacy is not currently on. Please contact Jcfc so he can turn it on. | halt }
  }
}

on *:TEXT:!tell*:#:{ if (%vd == 1) {
    if (%p2cav == 0 && %p2inf == 0 && %p2drag == 0) { inc %vdwins [ $+ [ %player1 ] ] | msg $chan Congratulations %player1 $+ ! You win! You have won %vdwins [ $+ [ %player1 ] ] times. | halt }
    if (%p1cav == 0 && %p1inf == 0 && %p1drag == 0) { inc %vdwins [ $+ [ %player2 ] ] | msg $chan Congratulations %player2 $+ ! You win! You have won %vdwins [ $+ [ %player2 ] ] times. | halt }
    if ($2 == cav) && (%p1cav == 0) && (%turn == 1) { notice %player1 You have no cavalry left to attack with! | halt }
    if ($3 == cav) && (%p2cav == 0) && (%turn == 1) { notice %player1 You opponent has no cavalry to attack! | halt }
    if ($2 == cav) && (%p2cav == 0) && (%turn == 2) { notice %player2 You have no cavalry left to attack with! | halt }
    if ($3 == cav) && (%p1cav == 0) && (%turn == 2) { notice %player2 You opponent has no cavalry to attack! | halt }
    if ($2 == cav) && ($3 == cav) && (%turn == 1) {
      if (%p1cav > %p2cav) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *2),$calc(%p2cav /5 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /20 *16),$calc(%p2cav /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /10 *6),$calc(%p2cav /5 *9))))      
          set %p2cav 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *2),$calc(%p2cav /5 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /10 *6),$calc(%p2cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1cav < %p2cav) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /20 *16),$calc(%p1cav /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /10 *6),$calc(%p1cav /5 *9))))      
          set %p1cav 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1cav == %p2cav) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *1),$calc(%p2cav /5 *2))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *3),$calc(%p1cav /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *1),$calc(%p1cav /5 *2))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *3),$calc(%p2cav /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == cav) && ($3 == cav) && (%turn == 2) {
      if (%p1cav > %p2cav) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *2),$calc(%p2cav /5 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /20 *16),$calc(%p2cav /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /10 *6),$calc(%p2cav /5 *9))))      
          set %p2cav 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *2),$calc(%p2cav /5 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /10 *6),$calc(%p2cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1cav < %p2cav) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /20 *16),$calc(%p1cav /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /10 *6),$calc(%p1cav /5 *9))))      
          set %p1cav 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1cav == %p2cav) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *1),$calc(%p2cav /5 *2))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *3),$calc(%p1cav /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1cav /5 *1),$calc(%p1cav /5 *2))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p2cav /5 *3),$calc(%p2cav /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == inf) && (%p1inf == 0) && (%turn == 1) { notice %player1 You have no infantry left to attack with! | halt }
    if ($3 == inf) && (%p2inf == 0) && (%turn == 1) { notice %player1 You opponent has no infantry to attack! | halt }
    if ($2 == inf) && (%p2inf == 0) && (%turn == 2) { notice %player2 You have no infantry left to attack with! | halt }
    if ($3 == inf) && (%p1inf == 0) && (%turn == 2) { notice %player2 You opponent has no infantry to attack! | halt }
    if ($2 == inf) && ($3 == inf) && (%turn == 1) {
      if (%p1inf > %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /20 *16),$calc(%p2inf /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /10 *6),$calc(%p2inf /5 *9))))      
          set %p2inf 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /10 *6),$calc(%p1inf /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1inf < %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /20 *16),$calc(%p1inf /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /10 *6),$calc(%p1inf /5 *9))))      
          set %p1inf 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /10 *6),$calc(%p1inf /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1inf == %p2inf) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *1),$calc(%p2inf /5 *2))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *3),$calc(%p1inf /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *1),$calc(%p1inf /5 *2))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *3),$calc(%p2inf /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == inf) && ($3 == inf) && (%turn == 2) {
      if (%p1inf > %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /20 *16),$calc(%p2inf /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1inf $calc((%p1cav) - $r($calc(%p2inf /10 *6),$calc(%p2inf /5 *9))))      
          set %p2inf 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /10 *6),$calc(%p2inf /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1inf < %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /20 *16),$calc(%p1inf /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /10 *6),$calc(%p1inf /5 *9))))      
          set %p1inf 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /10 *6),$calc(%p1inf /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1inf == %p2inf) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *1),$calc(%p2inf /5 *2))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *3),$calc(%p1inf /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1inf /5 *1),$calc(%p1inf /5 *2))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p2inf /5 *3),$calc(%p2inf /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == drag) && (%p1drag == 0) && (%turn == 1) { notice %player1 You have no dragoons left to attack with! | halt }
    if ($3 == drag) && (%p2drag == 0) && (%turn == 1) { notice %player1 You opponent has no dragoons to attack! | halt }
    if ($2 == drag) && (%p2drag == 0) && (%turn == 2) { notice %player2 You have no dragoons left to attack with! | halt }
    if ($3 == drag) && (%p1drag == 0) && (%turn == 2) { notice %player2 You opponent has no dragoons to attack! | halt }
    if ($2 == drag) && ($3 == drag) && (%turn == 1) {
      if (%p1drag > %p2drag) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /20 *16),$calc(%p2drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /10 *6),$calc(%p2drag /5 *9))))      
          set %p2drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1drag < %p2drag) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /20 *16),$calc(%p1drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /10 *6),$calc(%p1inf /5 *9))))      
          set %p1drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1drag == %p2drag) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *1),$calc(%p2drag /5 *2))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *1),$calc(%p1drag /5 *2))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *3),$calc(%p2drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == drag) && ($3 == drag) && (%turn == 2) {
      if (%p1drag > %p2drag) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /20 *16),$calc(%p2drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /10 *6),$calc(%p2drag /5 *9))))      
          set %p2drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /10 *6),$calc(%p2drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1drag < %p2drag) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /20 *16),$calc(%p1drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /10 *6),$calc(%p1drag /5 *9))))      
          set %p1drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1drag == %p2drag) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *1),$calc(%p2drag /5 *2))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *1),$calc(%p1drag /5 *2))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p2drag /5 *3),$calc(%p2drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == inf) && (%p1inf == 0) && (%turn == 1) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == inf) && (%p2inf == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == inf) && (%p2inf == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == inf) && (%p1inf == 0) && (%turn == 2) { msg $chan You opponent has no infantry to attack! | halt }  
    if ($2 == drag) && (%p1drag == 0) && (%turn == 1) { msg $chan You have no dragoons left to attack with! | halt }
    if ($3 == drag) && (%p2drag == 0) && (%turn == 1) { msg $chan You opponent has no dragoons to attack! | halt }
    if ($2 == drag) && (%p2drag == 0) && (%turn == 2) { msg $chan You have no dragoons left to attack with! | halt }
    if ($3 == drag) && (%p1drag == 0) && (%turn == 2) { msg $chan You opponent has no dragoons to attack! | halt }
    if ($2 == inf) && ($3 == drag) && (%turn == 1) {
      if (%p1inf > $calc(%p2drag * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /20 *16),$calc(%p2drag /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2drag /10 *6),$calc(%p2drag /10 *9))))      
          set %p2drag 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1inf < $calc(%p2drag * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /20 *16),$calc(%p1inf /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1inf /10 *6),$calc(%p1inf /10 *9))))      
          set %p1inf 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /10 *6),$calc(%p1inf /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1inf == $calc(%p2drag * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2drag /5 *1),$calc(%p2drag /5 *2))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1inf /5 *1),$calc(%p1inf /5 *2))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p2drag /5 *3),$calc(%p2drag /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == inf) && ($3 == drag) && (%turn == 2) {
      if (%p2inf > $calc(%p1drag * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /20 *16),$calc(%p1drag /20 *19))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p1drag < 0) { set %p1drag 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p2drag /10 *6),$calc(%p2drag /10 *9))))      
          set %p2drag 0
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2inf $calc((%p2inf) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p2inf < $calc(%p2drag * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2drag $calc((%p2drag) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /20 *16),$calc(%p2inf /20 *19))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p2inf /10 *6),$calc(%p2inf /10 *9))))      
          set %p2inf 0
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2drag $calc((%p2drag) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /10 *6),$calc(%p2inf /10 *9))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p2inf == $calc(%p2drag * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p2drag /5 *1),$calc(%p2drag /5 *2))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p2inf /5 *1),$calc(%p2inf /5 *2))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2drag /5 *3),$calc(%p2drag /5 *4))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == drag) && (%p1drag == 0) && (%turn == 1) { msg $chan You have no dragoons left to attack with! | halt }
    if ($3 == inf) && (%p2inf == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == inf) && (%p2inf == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == drag) && (%p1drag == 0) && (%turn == 2) { msg $chan You opponent has no dragoons to attack! | halt }  
    if ($2 == drag) && (%p1drag == 0) && (%turn == 1) { msg $chan You have no dragoons left to attack with! | halt }
    if ($3 == inf) && (%p2inf == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == inf) && (%p2inf == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == drag) && (%p1drag == 0) && (%turn == 2) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == drag) && ($3 == inf) && (%turn == 1) {
      if ($calc(%p1drag * 2) > %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /20 *16),$calc(%p2inf /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /10 *6),$calc(%p2inf /10 *9))))      
          set %p2inf 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if ($calc(%p1drag * 2) < %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /20 *16),$calc(%p1drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))      
          set %p1drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1drag == $calc(%p2inf * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *1),$calc(%p2inf /5 *2))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *1),$calc(%p1drag /5 *2))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *3),$calc(%p2inf /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == drag) && ($3 == inf) && (%turn == 2) {
      if (%p1drag > $calc(%p2inf * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /20 *16),$calc(%p2inf /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /10 *6),$calc(%p2inf /10 *9))))      
          set %p2inf 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1drag < $calc(%p2inf * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /20 *16),$calc(%p1drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))      
          set %p1drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *2),$calc(%p1drag /5 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1drag == $calc(%p2inf * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *1),$calc(%p2inf /5 *2))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1drag /5 *1),$calc(%p1drag /5 *2))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p2inf /5 *3),$calc(%p2inf /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == inf) && (%p1inf == 0) && (%turn == 1) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == inf) && (%p2inf == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == inf) && (%p2inf == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == inf) && (%p1inf == 0) && (%turn == 2) { msg $chan You opponent has no infantry to attack! | halt }  
    if ($2 == cav) && (%p1cav == 0) && (%turn == 1) { msg $chan You have no cavalry left to attack with! | halt }
    if ($3 == cav) && (%p2cav == 0) && (%turn == 1) { msg $chan You opponent has no cavalry to attack! | halt }
    if ($2 == cav) && (%p2cav == 0) && (%turn == 2) { msg $chan You have no cavalry left to attack with! | halt }
    if ($3 == cav) && (%p1cav == 0) && (%turn == 2) { msg $chan You opponent has no cavalry to attack! | halt }
    if ($2 == inf) && ($3 == cav) && (%turn == 1) {
      if (%p1inf > $calc(%p2cav * 4)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /20 *16),$calc(%p2cav /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /10 *6 *4),$calc(%p2cav /10 *9 *4))))      
          set %p2cav 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /10 *6),$calc(%p1drag /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1inf < $calc(%p2cav * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /5 *2 *4),$calc(%p1inf /5 *4 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /20 *16),$calc(%p1inf /20 *19))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /10 *6 *4),$calc(%p1inf /10 *9 *4))))      
          set %p1inf 0
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /5 *2 *4),$calc(%p1inf /5 *4 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /10 *6),$calc(%p1inf /10 *9))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1inf == $calc(%p2cav * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *1),$calc(%p2cav /5 *2))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /5 *1),$calc(%p1inf /5 *2))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *3),$calc(%p2cav /5 *4))))
          if (%p1inf < 0) { set %p1inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == inf) && ($3 == cav) && (%turn == 2) {
      if (%p2inf > $calc(%p2cav * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /20 *16),$calc(%p2cav /20 *19))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p2cav /10 *6 *4),$calc(%p2cav /10 *9 *4))))      
          set %p2cav 0
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2inf $calc((%p2inf) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /10 *6),$calc(%p1drag /10 *9))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p2inf < $calc(%p2cav * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p2inf /5 *2 *4),$calc(%p2inf /5 *4 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /20 *16),$calc(%p2inf /20 *19))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p2inf /10 *6 *4),$calc(%p2inf /10 *9 *4))))      
          set %p2inf 0
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2cav $calc((%p2cav) - $r($calc(%p2inf /5 *2 *4),$calc(%p2inf /5 *4 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /10 *6),$calc(%p2inf /10 *9))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p2inf == $calc(%p2cav * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p2cav /5 *1),$calc(%p2cav /5 *2))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p2inf /5 *1),$calc(%p2inf /5 *2))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2cav /5 *3),$calc(%p2cav /5 *4))))
          if (%p2inf < 0) { set %p2inf 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == cav) && (%p1cav == 0) && (%turn == 1) { msg $chan You have no cavalry left to attack with! | halt }
    if ($3 == inf) && (%p2inf == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == inf) && (%p2inf == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == cav) && (%p1cav == 0) && (%turn == 2) { msg $chan You opponent has no cavalry to attack! | halt }  
    if ($2 == cav) && (%p1cav == 0) && (%turn == 1) { msg $chan You have no cavalry left to attack with! | halt }
    if ($3 == inf) && (%p2inf == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == inf) && (%p2inf == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == cav) && (%p1cav == 0) && (%turn == 2) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == cav) && ($3 == inf) && (%turn == 1) {
      if ($calc(%p1cav * 4) > %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /20 *16),$calc(%p2inf /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2inf /10 *6),$calc(%p2inf /10 *9))))      
          set %p2inf 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2inf /5 *2),$calc(%p2inf /5 *4))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p2inf /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if ($calc(%p1cav * 4) < %p2inf) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /20 *16),$calc(%p1cav /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))      
          set %p1cav 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if ($calc(%p1cav *4) == %p2inf) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2inf /5 *1),$calc(%p2inf /5 *2))))      
          set %p2inf $calc((%p2inf) - $r($calc(%p1cav /5 *3),$calc(%p1cav /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2inf $calc((%p2inf) - $r($calc(%p1cav /5 *1),$calc(%p1cav /5 *2))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p2inf /5 *3),$calc(%p2inf /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2inf < 0) { set %p2inf 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == cav) && ($3 == inf) && (%turn == 2) {
      if (%p2cav > $calc(%p1inf * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /20 *16),$calc(%p1inf /20 *19))))
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /10 *6),$calc(%p1inf /10 *9))))      
          set %p1inf 0
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /5 *2),$calc(%p1inf /5 *4))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p1inf /10 *6),$calc(%p2cav /10 *9))))
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p2cav < $calc(%p1inf * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *2),$calc(%p2cav /5 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /20 *16),$calc(%p2cav /20 *19))))
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /10 *6),$calc(%p2cav /10 *9))))      
          set %p2cav 0
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *2),$calc(%p2cav /5 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /10 *6),$calc(%p2cav /10 *9))))
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if ((%p2cav *4) == %p1inf) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /5 *1),$calc(%p1inf /5 *2))))      
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *3),$calc(%p2cav /5 *4))))
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1inf $calc((%p1inf) - $r($calc(%p2cav /5 *1),$calc(%p2cav /5 *2))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p1inf /5 *3),$calc(%p1inf /5 *4))))
          if (%p2cav < 0) { set %p2cav 0 }
          if (%p1inf < 0) { set %p1inf 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == cav) && (%p1cav == 0) && (%turn == 1) { msg $chan You have no cavalry left to attack with! | halt }
    if ($3 == drag) && (%p2drag == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == drag) && (%p2drag == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == cav) && (%p1cav == 0) && (%turn == 2) { msg $chan You opponent has no cavalry to attack! | halt }  
    if ($2 == cav) && (%p1cav == 0) && (%turn == 1) { msg $chan You have no cavalry left to attack with! | halt }
    if ($3 == drag) && (%p2drag == 0) && (%turn == 1) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == drag) && (%p2drag == 0) && (%turn == 2) { msg $chan You have no infantry left to attack with! | halt }
    if ($3 == cav) && (%p1cav == 0) && (%turn == 2) { msg $chan You opponent has no infantry to attack! | halt }
    if ($2 == cav) && ($3 == drag) && (%turn == 1) {
      if ($calc(%p1cav * 2) > %p2drag) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /20 *16),$calc(%p2drag /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /10 *6),$calc(%p2drag /10 *9))))      
          set %p2drag 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if ($calc(%p1cav * 2) < %p2drag) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /20 *16),$calc(%p1cav /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))      
          set %p1cav 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if ($calc(%p1cav *2) == %p2drag) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *1),$calc(%p2drag /5 *2))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *3),$calc(%p1cav /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *1),$calc(%p1cav /5 *2))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *3),$calc(%p2drag /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == cav) && ($3 == drag) && (%turn == 2) {
      if (%p1cav > $calc(%p2drag * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /20 *16),$calc(%p2drag /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /10 *6),$calc(%p2drag /10 *9))))      
          set %p2drag 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *2),$calc(%p2drag /5 *4))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p2drag /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1cav < $calc(%p2drag * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /20 *16),$calc(%p1cav /20 *19))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))      
          set %p1cav 0
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *2),$calc(%p1cav /5 *4))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p1cav /10 *6),$calc(%p1cav /10 *9))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if ((%p1cav *4) == %p2drag) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *1),$calc(%p2drag /5 *2))))      
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *3),$calc(%p1cav /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2drag $calc((%p2drag) - $r($calc(%p1cav /5 *1),$calc(%p1cav /5 *2))))      
          set %p1cav $calc((%p1cav) - $r($calc(%p2drag /5 *3),$calc(%p2drag /5 *4))))
          if (%p1cav < 0) { set %p1cav 0 }
          if (%p2drag < 0) { set %p2drag 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == drag) && ($3 == cav) && (%turn == 1) {
      if (%p1drag > $calc(%p2cav * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /20 *16),$calc(%p2cav /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /10 *6 *4),$calc(%p2cav /10 *9 *4))))      
          set %p2cav 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1drag < $calc(%p2cav * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *2 *4),$calc(%p1drag /5 *4 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /20 *16),$calc(%p1drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /10 *6 *4),$calc(%p1drag /10 *9 *4))))      
          set %p1drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *2 *4),$calc(%p1drag /5 *4 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
      if (%p1drag == $calc(%p2cav * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *1),$calc(%p2cav /5 *2))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *1),$calc(%p1drag /5 *2))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *3),$calc(%p2cav /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 2
          msg $chan It is now %player2 $+ 's turn.
          halt
        }
      }
    }
    if ($2 == drag) && ($3 == cav) && (%turn == 2) {
      if (%p1drag > $calc(%p2cav * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /20 *16),$calc(%p2cav /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 fought bravely, but was no match for %player1 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /10 *6 *4),$calc(%p2cav /10 *9 *4))))      
          set %p2cav 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 defeated all of %player2 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *2 *4),$calc(%p2cav /5 *4 *4))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p2cav /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 had an incredible warring mind, and almost destroyed %player2 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1drag < $calc(%p2cav * 2)) {
        set %rand $rand(1,3)
        if (%rand == 1) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *2 *4),$calc(%p1drag /5 *4 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /20 *16),$calc(%p1drag /20 *19))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player1 fought bravely, but was no match for %player2 $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /10 *6 *4),$calc(%p1drag /10 *9 *4))))      
          set %p1drag 0
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 defeated all of %player1 $+ 's troops!
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 3) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *2 *4),$calc(%p1drag /5 *4 *4))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p1drag /10 *6),$calc(%p1drag /10 *9))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan %player2 had an incredible warring mind, and almost destroyed %player1 $+ 's troops $+ !
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
      if (%p1drag == $calc(%p2cav * 2)) {
        set %rand $rand(1,2)
        if (%rand == 1) {
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *1),$calc(%p2cav /5 *2))))      
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *3),$calc(%p1drag /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan What a tight battle! Fortunately for %player1 $+ , his men took less losses that %player2 $+ 's men.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
        if (%rand == 2) {
          set %p2cav $calc((%p2cav) - $r($calc(%p1drag /5 *1),$calc(%p1drag /5 *2))))      
          set %p1drag $calc((%p1drag) - $r($calc(%p2cav /5 *3),$calc(%p2cav /5 *4))))
          if (%p1drag < 0) { set %p1drag 0 }
          if (%p2cav < 0) { set %p2cav 0 }
          msg $chan An incredibly close battle, but %player2 $+ 's men came out on top.
          notice %player1 You have %p1inf infantry, %p1drag dragoons, and %p1cav cavalry remaining.
          notice %player2 You have %p2inf infantry, %p2drag dragoons, and %p2cav cavalry remaining.
          set %turn 1
          msg $chan It is now %player1 $+ 's turn.
          halt
        }
      }
    }
  }
}