Test Model 12321

globals [redzone]
breed [ligands ligand]
breed [receptors receptor]
breed [signals signal]
breed [relaymolecules1 relaymolecule1]
breed [relaymolecules2 relaymolecule2]
breed [relaymolecules3 relaymolecule3]
breed [responseproteins responseprotein]
turtles-own [energy]

to setup
  clear-all

  ;;Set key variable values
  set cellresponsetrigger false  ;;tracks when the ligand binds to the receptor
 ;; import-drawing "IMG_1609.jpg"
  set-default-shape ligands "circle"

  ;;Create the number of ligands selected at start of simulation
  create-ligands initial-number-of-ligands [
    set size 1
    set color white
    set energy 1
  ]

  ;;Prepare the background color for the simulation
   ask ligands [setxy 10 13]
   ask patches [set pcolor black]
   ask patches with [pycor > 11] [set pcolor blue];; blue is above y=0
   ask patch 0 12 [set pcolor red]
   ask patch 0 13 [set pcolor red]
   ask patch 0 14 [set pcolor red]
   ask patch 0 15 [set pcolor red]

 ;;Reset the counter
  reset-ticks
  tick
end 

to go
  ask ligands [
    ;;check if ligand has bound to the receptor area
    ifelse [pcolor] of patch-ahead 1 = red AND energy = 1
        [ set cellresponsetrigger true set energy 0]
    [ ifelse [pcolor] of patch-ahead 1 = blue AND energy = 1
       [forward 1]
       [lt random-float 360 ] ;; moves randomly in only the blue area ; ifelse [pcolor] of patch-ahead 1 = blue
  ]
  ]

  if cellresponsetrigger = true
      [ cell-response ]
end 

to cell-response

  if cellresponsetrigger [
  ask ligands [
    if [pcolor] of patch-ahead 1 = red
        [ set size 0 forward 10]
  ]
  ]

  ifelse not cellresponsetrigger
      [ stop ]
      [ set cellresponsetrigger false]

  set-default-shape signals "pentagon" ;;"default"
  create-signals 8 [
    set size 2
    set xcor 0 set ycor 5
  ]
  ask signals [set xcor 0 set ycor 3]
  ask signals [
    set size 0
  ]

  set-default-shape relaymolecules1 "pentagon" ;;"relay molecule 1"
  create-relaymolecules1 1 [
  set size 2
  set color 13
  set xcor 0 set ycor 4
  ]
  ask relaymolecules1 [set xcor 0 set ycor 2]
  ask relaymolecules1 [
    set size 0
  ]

  set-default-shape relaymolecules2 "pentagon" ;;;;"relay molecule 2"
  create-relaymolecules2 1 [
    set size 2
    set color 15
    set xcor 0 set ycor 0
  ]
  ask relaymolecules2 [set xcor 0 set ycor -2]
  ask relaymolecules2 [
    set size 0
  ]

  set-default-shape relaymolecules3 "pentagon" ;;"relay molecule 3"
  create-relaymolecules3 1 [
    set size 2
    set color 17
    set xcor 0 set ycor -2]
  ask relaymolecules3 [set xcor 0 set ycor -4]
  ask relaymolecules3 [
    set size 0
  ]

  set-default-shape responseproteins "pentagon" ;;"response protein"
  create-responseproteins 3 [
  set size 3
  set color 115
  set xcor 0 set ycor -8
  ]
  ask responseproteins [set xcor 0 set ycor -10]
  ask responseproteins [
    set size 0
  ]

  stop
end 

to clear
  clear-all
end