Extending Models with New Features (15 min)

turtles-own [
  social-connections  ; List of other turtles this one knows
]

to setup
  ; ... basic setup ...
  ask turtles [
    set social-connections []
  ]
  create-social-network
end

to create-social-network
  ; Each turtle connects to nearby turtles
  ask turtles [
    let potential-friends other turtles in-radius 5
    let num-connections min list 5 count potential-friends
    
    ask n-of num-connections potential-friends [
      ; Create bidirectional social connection
      set social-connections lput myself social-connections
      ask myself [
        set social-connections lput myself social-connections
      ]
    ]
  ]
end

to spread-information
  ask turtles with [has-information?] [
    ; Share with social connections
    foreach social-connections [ friend ->
      ask friend [
        if random 100 < influence-probability [
          set has-information? true
        ]
      ]
    ]
  ]
end

to environmental-change
  ; Periodic environmental disruption
  if ticks mod 500 = 0 and ticks > 0 [
    ask n-of (count patches * 0.1) patches [  ; 10% of environment changes
      set resource-level resource-level * 0.5  ; Resources cut in half
      set pcolor scale-color green resource-level 0 100
    ]
  ]
  
  ; Gradual climate change  
  if ticks mod 100 = 0 [
    ask patches [
      set temperature temperature + 0.1  ; Gradual warming
      update-habitat-suitability
    ]
  ]
end

turtles-own [
  strategy          ; Current behavior
  memory           ; List of recent experiences
  success-rate     ; How well current strategy works
]

to adapt-strategy
  ask turtles [
    ; Remember recent outcome
    set memory lput last-payoff memory
    if length memory > 10 [ set memory but-first memory ]  ; Keep only recent memories
    
    ; Calculate recent success rate
    if length memory > 5 [
      set success-rate mean memory
      
      ; Change strategy if doing poorly
      if success-rate < 0.3 [
        set strategy one-of ["cooperate" "defect" "tit-for-tat"]
        set memory []  ; Reset memory with new strategy
      ]
    ]
  ]
end