Battle of Trafalgar - Self Organisation Demonstrator

;; Welcome to the Battle of Trafalgar

;;initialise:
;;    Create two fleets with suitable dispositions
;; establish two fleets differentiated by colour, allow differences in size resilience etc.

;;at each tick
;; both fleets move
;; in range, ships determine if they have been damaged by the other fleet (stochastic element)
;;ships hit suffer damage
;; ships with no health are sunk
;; redships move at right angles to blue ships (known as crossing the T) for a set period before becoming 'control free' then red ships target blue ships, acting independently
;; red ability to target is governed by the radius at which they can sense blue ship to create informational superiority
;; red ships will be autonomous while blue ships can only move according to their orders or as manually controlled


globals[
bluecaptive;;blue and red captives create a tally of blue/red losses
redcaptive
]



breed [friends friend];; these will be red ships as the model is based on the red fleet perspective, friends and enemies are used soley to avoid confusion with netlogo primitives
breed [enemies enemy];;blue ships
breed [arrow arrows];;this will be for wind direction, at the moment this play no role in the sim so this can be removed.  Possible extensions can use wind speed and direction to aid or hinder ships depending on direction of travel.  This would create a more realistic battle




turtles-own [health speed age];; for both fleets we will use health and speed as variables in combat, age for specific timed operations

to setup
  clear-all
  ask patches [set pcolor 88];;create light blue background for sea
  set redcaptive 0;; losses at zero to start
  set bluecaptive 0;;losses at zero to start



  create-arrow 1[;;creates a windguage, this can be used in extensions to create a more realistic model
    set xcor -12
    set ycor 12;;top right corner like an old map
    set shape "arrow";;indicates direction of wind
    set color 90;;black
    set size 2;;big enough to stand out
    set heading wind_direction;; wind direction can be set at interface
    ]



  create-enemies blue_number [;;blue number is set as global using a slider
    set color blue
    set size 0.5
    set xcor 10;; situate enemy fleet to the east
    set ycor random -16 ;;situate enemy fleet to the south
    set heading 0;; can be north but just to get more distance covered
    set health blue_health;; set on slider
    set speed blue_speed / 10 ;; set on slider the division by 10 allows realistic speed in knots (nautical miles per hour) to translate to an observable speed in the model
    separate-enemies;;spreads enemies out
  ]
  create-friends red_number [;; friendly ship set up
    set color red
    set size 0.5
    set xcor random -16;;sets friendlies in eastern half of battle space
    set ycor random 2 ;;creates two columns
    set heading 90;; sets an initial heading of west
    set health red_health;;set on slider the division by 10 allows realistic speed in knots (nautical miles per hour) to translate to an observable speed in the model
    set speed red_speed / 10;; set on slider
    seperate-friends
  ];; set number of red ships, heading east along centre line

  reset-ticks
end 

to go

  ask patches [set pcolor 88 ];; make sure the map remains sea coloured as firing creates yellow patches which should be temprary 'flashes'

  let bluecount count enemies;; end of game module
    if bluecount = 0 [;; blue ships destroyed
      print "Game Over"
      stop
    ]

   let redcount count friends;;end of game module
    if redcount = 0 [;; redships destroyed
      print "Game Over"
      stop
    ]

  ask friends [;; the red fleet is to move forward and also look for enemies to fire upon
    check-damage;; check if ship has been hit
      fd speed;; this will be the speed set as redspeed
    if age > delay[;; delays the point at which red ships act control free, this allows them to complete as many passes as necessary to show what happens in closely controlled battle.  The difference in red behaviour is noticed once the delay time has elapsed and red ships shift to control-free
      pursue;;engage the three rules: target/close range/fire sub routine in control-free mode
    ]
    increment-age;; allows a global measurement of time elapsed
  ]

  ask enemies [;;similar to friends module but using shells rather than balls and shoot rather than fire to prevent friendly fire
    check-damage-from-friends;; check if ship has been hit
    fd speed;; move forward at bluespeed

  ]



  tick
end 

to check-damage;; red ships can be hit by a blue ship firing a 'broadside' i.e. canons firing to the left and right sides, additionally for this model red ships can be hit from astern by blue ships (this is a hack to make the 'face' primitve for targeting work for red and therefore the same conditions for blue to prevent bias in the model
  ask friends[
    if any? enemies-on patch-left-and-ahead 180 1[;;astern / behind
      if random-float 100 < blue_accuracy[;;hit?
        ask patches in-radius 1 [set pcolor yellow];;flash
        set health health - 1;;take damage
        set color 26;;change colour indicating damage (orange)
        if speed > 0 [set speed speed - 0.1];;slow down due to demasting
        if health = 0 [set redcaptive redcaptive + 1];;count losses
        if health = 0 [die];;destroyed or captured
        if speed = 0 [die];;destroyed or captured
    ]
  ]
     if any? enemies-on patch-left-and-ahead 90 1 [;; this checks for enemies abeam and port (i.e. at 90 degrees to the left) and in canon range
      if random-float 100 < blue_accuracy[;;check to see if the enemy has hit the target
        ask patches in-radius 1 [set pcolor yellow];;create a 'flash'
        set health health - 1;;take damage
        set color 26;;damaged ships are a different colour (orange)
        if speed > 0 [set speed speed - 0.1];;slow down because of damage
        if health = 0 [set redcaptive redcaptive + 1];; loss count
        if health = 0 [die];; destroyed/captured
        if speed = 0 [die];;destroyed/captured
    ]
  ]
    if any? enemies-on patch-right-and-ahead 90 1 [;; this checks for enemies abeam and port (i.e. at 90 degrees to the right) and in canon range
      if random-float 100 < blue_accuracy[;;check to see if the enemy has hit the target
        ask patches in-radius 1 [set pcolor yellow];;create a 'flash'
        set health health - 1;;take damage
        set color 26;; turn orange
        if speed > 0 [set speed speed - 0.1];; slow down because of damage
        if health = 0 [set redcaptive redcaptive + 1];;loss count
        if health = 0 [die];;destroyed / damaged
        if speed = 0 [die];;destroyed / damaged
    ]
  ]
  ]
end 

to check-damage-from-friends;;blue ships can be attacked from the broadside attacks but also from a red ship astern (firing ahead). Strictly this wasn't a feature of the battle but in order to use the 'face' primitive to target blue ships red ships need to be able to fire ahead
   ask enemies[
    if any? friends-on patch-left-and-ahead 180 1[;;astern
      if random-float 100 < red_accuracy[;;hit?
        ask patches in-radius 1 [set pcolor yellow];;flash
        set health health - 1;;take damage
        set color 126;;change coloour
        if speed > 0 [set speed speed - 0.1];;slowed by damage
        if health = 0 [set bluecaptive bluecaptive + 1];;update losses
        if health = 0 [die];;destroyed/captured
        if speed = 0 [die];;destroyed/captured
    ]
  ]
     if any? friends-on patch-left-and-ahead 90 1[;;port beam
      if random-float 100 < red_accuracy[;;hit?
        ask patches in-radius 1 [set pcolor yellow];;flash
        set health health - 1;;take damage
        set color 126;; change colour
        if speed > 0 [set speed speed - 0.01];;slow down due to damage
        if health = 0 [set bluecaptive bluecaptive + 1];;count losses
        if health = 0 [die];;destroyed/captured
        if speed = 0 [die];;destroyed/captured
    ]
  ]
     if any? friends-on patch-right-and-ahead 90 1[;;starboard beam
      if random-float 100 < red_accuracy[;;hit?
        ask patches in-radius 1 [set pcolor yellow];;flash
        set health health - 1;;take damage
        set color 126;;change colour
        if speed > 0 [set speed speed - 0.1];;slow down due to damage
        if health = 0 [set bluecaptive bluecaptive + 1]
        if health = 0 [die];;destroyed/captured
        if speed = 0 [die];;destroyed/captured
    ]
  ]
  ]
end 

to separate-enemies ;;space out enemies
  if any? other enemies-here [;; check for more enemies in same space
    set heading 270;;head west
    fd 2;;go two patches
    set heading 0;; return to original course
  ]
end 

to seperate-friends;;space out friends
  if any? other friends-here[;;check for red ships in same space
    set heading 180;;head south
    fd 1;; move 2
    set heading 090;; back to original course
  ]
end 

to increment-age;;method og calculating global time elapsed
  set age (1 + age)
end 

to pursue;; red ships target blue ships and 'hunt' by linking, closing distance and firing
   ask friends [
    if control-free = "yes" [;;user input for control-free mode, red ships only act independently if this is selected
    if distance one-of enemies < sense [;;gives red ships a situational awareness range called sense (range and distance are netlogo primitives)
      if count link-neighbors > 0[;;do you have a target?
    let linked-target one-of link-neighbors;;assign target to variable linked-target
    face linked-target;;face the target
          if speed < 0.1 [set speed speed + 0.05];;increase speed (this will overcome a certain amount of damage
  ]
      if count link-neighbors < 1 [;;if there is no target
       create-link-to one-of enemies[hide-link]];;link to target
    ]
    ]
  ]
end