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 == 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 == 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 /5 *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 /5 *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 (%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 1
        msg $chan It is now %player1 $+ 's turn.
        halt
      }
      if (%rand == 2) {
        set %p1inf $calc((%p1inf) - $r($calc(%p2drag /10 *6),$calc(%p2drag /5 *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 1
        msg $chan It is now %player1 $+ '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 1
        msg $chan It is now %player1 $+ '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 1
        msg $chan It is now %player1 $+ 's turn.
        halt
      }
      if (%rand == 2) {
        set %p2drag $calc((%p2drag) - $r($calc(%p1inf /10 *6),$calc(%p1inf /5 *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 1
        msg $chan It is now %player1 $+ '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 1
        msg $chan It is now %player1 $+ '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 1
        msg $chan It is now %player1 $+ '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 1
        msg $chan It is now %player1 $+ 's turn.
        halt
      }
    }
  }