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
}
}
}