Lanchester 1

turtles-own[vision]
breed[rojos rojo]
breed[azules azul]

to setup
clear-all
  ask patches [set pcolor green - random-float 2]
  create-rojos R[set shape "person" set color red set vision random V set xcor -10 + random filas set ycor random-ycor
    ifelse tipoEnfrentamiento = "fila" [set heading 90][set heading random 180]]
  create-azules A[set shape "person" set color blue set vision random V set xcor 10 + random filas set ycor random-ycor
    ifelse tipoEnfrentamiento = "fila" [set heading -90][set heading random -180]]
reset-ticks
end 

to go
  ask turtles[ifelse tipoEnfrentamiento = "persecusion" [rt random 180 fd 1 dispara] [fd 1 dispara]]
  tick
end 

to dispara
  ifelse breed = rojos[dazules][drojos]
end 

to drojos
  let blanco one-of rojos in-radius vision
  if blanco != nobody and random-float 1 > 0.5[ask blanco [die]]
end 

to dazules
  let blanco one-of azules in-radius vision
  if blanco != nobody and random-float 1 > 0.5[ask blanco [die]]
end