hormones

breed [ hormones hormone ]

to set-up
clear-all 
reset-ticks
set-up-turtles
ask patches with [pxcor <= (max-pxcor - 10) and pxcor >= (min-pxcor + 10) and pycor <= (max-pycor) and pycor >= (min-pycor + 30)  ]
[set pcolor red]
ask patches with [pxcor <= (max-pxcor - 10) and pxcor >= (min-pxcor + 10) and pycor <= (max-pycor - 10) and pycor >= (min-pycor + 20)  ]
[set pcolor green]
ask patches with [pxcor <= (max-pxcor - 10) and pxcor >= (min-pxcor + 10) and pycor <= (max-pycor - 20) and pycor >= (min-pycor)  ]
[set pcolor yellow]
end 

to set-up-turtles
  create-hormones 100
  ask turtles 
  [set color blue setxy 0 15 set heading 180]
end 

to go
  tick
  if ticks >= 50 [ stop ]
  ask hormones [if xcor > (max-pxcor - 6)[set heading 0] 
               if ycor >= (max-pycor - 1) and pcolor = black[set heading 270] fd 1 ]
  ask hormones [if pcolor = red [forward 5 set color blue set heading 180]]
  ask hormones [if pcolor = green [set color orange ]]
  ask hormones [if pcolor = 124 [set color orange]]
  ask hormones [if pcolor = yellow [set color violet set heading 90 ]]

if make-TSH-producing-pituitary-adenoma
  [ask patches with [pxcor <= (max-pxcor - 15) and pxcor >= (min-pxcor + 15) and pycor <= (max-pycor - 10) and pycor >= (min-pycor + 20) ]
   [set pcolor 124]
    create-hormones 5 [setxy 0 0 set heading 180 set color orange]
    ask turtles [if pcolor = red [die]]]  

if have-hyperthyroidism
  ;wait ticks >= 14
  [create-hormones 5 [setxy 0 -7 ]
  ask turtles [if pcolor = red [die]]]

;if have-low-hypothalamic-lesion 
end