RagulGeneticDriftTurtles

turtles-own [ age ]

to setup
  
  clear-all
  
  create-turtles 10
  [
    setxy 0 0
    set size 2
    set shape "turtle"
    set age 0
    pendown
  ]
  
  reset-ticks
end 

to go
  
  every .05
  [
    ask turtles
    [
      wander
      maybe-reproduce
      set age age + 1
      maybe-die
    ]
    tick
  ]
end 

to wander
  
  rt (random 11) - 5
  fd .2
end 

to maybe-reproduce
  
  if(age > 10 and age < 65)[
    let chanceRePro random 100
    if(chanceRePro < 2)
    [
      reproduce
    ]
  ]
end 

to reproduce
  
  hatch 1
  [
    set age 0
  ]
end 

to maybe-die
  
  if(age > 75)[
    let chanceOldAge random 126
    ifelse(age > 200)
    [
      die
      penup
    ]
    [
      if(chanceOldAge > (200 - age))
      [
        die
        penup
      ]
    ]
  ]
end