;; gun attack for IJN and USN planes ( small guns only)
to-report gun-attack [h]
let pk_rand_val (random 100)
set h (ifelse-value
pk_rand_val < 5 [h]
pk_rand_val > 5 and pk_rand_val < 25 [h - h * pk_rand_val / 100]
pk_rand_val > 25 and pk_rand_val < 50 [h - h * pk_rand_val / 100]
pk_rand_val > 50 and pk_rand_val < 75 [h - h * pk_rand_val / 100]
[0])
report h
end
;; torpedo
to-report torpedo-attack [h n]
let pk_rand_val (random 100)
ifelse navy = "IJN" [
set h (ifelse-value
pk_rand_val < 5 [h]
pk_rand_val > 5 and pk_rand_val < 25 [h - h * 90 / 100]
[0])
][
set h(ifelse-value
pk_rand_val < 90 [h]
[0])
]
report h
end
;; dive bombers
to-report bomb-attack [h]
let pk_rand_val (random 100)
set h (ifelse-value
pk_rand_val < 5 [h]
pk_rand_val > 5 and pk_rand_val < 25 [h - h * 30 / 100]
pk_rand_val > 25 and pk_rand_val < 50 [h - h * 60 / 100]
[0])
report h
end
;; battle ship
to-report heavy-guns [h]
let pk_rand_val (random 100)
set h (ifelse-value
pk_rand_val < 5 [h]
pk_rand_val > 5 and pk_rand_val < 10 [h - h * 40 / 100]
pk_rand_val > 10 and pk_rand_val < 20 [h - h * 80 / 100]
[0])
report h
end
;; destroyer guns
to-report cannon-attack [h]
let pk_rand_val (random 100)
set h (ifelse-value
pk_rand_val < 5 [h]
pk_rand_val > 5 and pk_rand_val < 25 [h - h * 25 / 100]
pk_rand_val > 25 and pk_rand_val < 40 [h - h * 40 / 100]
pk_rand_val > 40 and pk_rand_val < 60 [h - h * 60 / 100]
[0])
report h
end