Code: Alles auswählen
Kampf <- function(angreifer, verteidiger) #Angreifer entspricht der Anzahl der Truppen mit denen angegriffen wird
#Bedingung beim Kampf
while(angreifer>=3 && verteidiger >=2) #Fall mit mindestens 3 Angreifern und 2 Verteidigern
{angriff <- sort(sample(1:6, min(3, angreifer), replace = TRUE), decreasing = TRUE)
verteidigung <- sort(sample(1:6, min(2,verteidiger), replace = TRUE), decreasing = TRUE
if (angriff[1] > verteidigung[1] && angriff[2] > verteidgung[2]) {verteidiger <- verteidiger - min(2, verteidiger)}
else if (angriff[1] <= verteidigung[1] && angriff[2] <= verteidigung[2])
while (angreifer >=3 & verteidiger ==1) { #Fall mit mindestens 3 Angreifern und 1 Verteidiger
angriff <- sort(sample(1:6, min(3, angreifer), replace = TRUE), decreasing = TRUE)
verteidigung <- sample(1:6)
if(angriff[1] > verteidigung) {verteidiger <- verteidiger -1}
else {angreifer <- angreifer -1}
while (angreifer ==2 & verteidiger >=2) { #Fall mit 2 Angreifern und mindestens 2 Verteidigern
angriff <- sort(sample(1:6, min(2, angreifer), replace = TRUE), decreasing = TRUE)
verteidigung <- sort(sample(1:6, min(2,verteidiger), replace = TRUE), decreasing = TRUE
if (angriff[1] > verteidigung[1] && angriff[2] > verteidgung[2]) {verteidiger <- verteidiger - min(2, verteidiger)}
while (angreifer ==2 & verteidiger ==1) { #Fall mit 2 Angreifern und einem Verteidiger
angriff <- sort(sample(1:6, min(2, angreifer), replace = TRUE), decreasing = TRUE)
verteidigung <- sample(1:6)
if (angriff[1] > verteidigung) {verteidiger <- verteidiger -1}
else {angreifer <- angreifer -1}
while (angreifer ==1 & verteidiger >=2) { #Fall mit 1 Angreifer und mindestens 2 Verteidigern
angriff <- sample(1:6)
verteidigung <- sort(sample(1:6, min(2, verteidiger), replace = TRUE), decreasing = TRUE)
if (angriff > verteidigung[1]) {verteidiger <- verteidiger -1}
else {angreifer <- angreifer -1}
while (angreifer ==1 & verteidiger ==1) { #Fall mit 1 Angreifer und 1 Verteidiger
angriff <- sample(1:6)
verteidigung <- sample(1:6)
if (angriff > verteidigung) {verteidiger <- verteidiger -1}
else {angreifer <- angreifer -1}}
return(c(angreifer, verteidiger))
}