motivztion for getting matriculation1

turtles-own   [ motivation energy age speed finished? walk_stat]

to setup
 
  clear-all
  ask patches  [ set pcolor pxcor / max-pxcor * -1 + blue ]
  foreach n-values (max-pxcor * max-pycor * 4 * obstacles / 100)   [?]
  [
   ask one-of patches with [pcolor != red and pcolor != green ]
   [
    ifelse random(100) <= motivation-areas [set pcolor green] [set pcolor red] 
     
   ] 
    
  ]
  
  create-turtles 10  
  [ set finished? false
    setxy min-pxcor random-pycor ;; starting point - left side of the screen and random vertical patch
    set heading 90 ;; heading right! -->
    set motivation 0 ;; initialized value for all turtles motivation...
    set pcolor red ;; starting position color...
    set speed 1
    set color scale-color blue age 0 50
    set walk_stat false
    set shape "person"

;; colors each turtle a shade of blue proportional
;; to its value for the age variable
 
    
    ]
  
  
 
 reset-ticks
end 

to go
  if ticks = 0 [reset-timer]
  if not any? turtles with [motivation < max-pxcor ] [  stop ]
  move-turtles
  ;eat-grass
  tick
  wait 0.1
end 

to move-turtles 
  ask turtles with [not finished?][ 
    ifelse xcor <= max-pxcor - 1 
    [
      if pcolor = red [set speed random-float 0.3]
      if pcolor = green [set speed 1 + random-float 2]
      ifelse walk_stat 
      [set shape "person_walk2" set walk_stat not walk_stat]
      [set shape "person_walk" set walk_stat not walk_stat]
      forward (random-float 0.5 + sqrt((pycor + max-pycor) / (max-pycor * 2)) * speed)  set motivation pxcor 
      set speed 1
      ] ;; move between 0 to 1 patch
    ;;;(pycor + max-pycor) / (max-pycor * 2) is an example of speeding as f(height)
    [ set xcor max-pxcor set motivation max-pxcor set finished? true set label timer] ;; align end position to the right edge
    ]
  
  
  
  
  
 
; [ if  ( pcolor=red)  [ set speed speed - 3]
;        ([ pcolor=green  [ set speed speed + 3 ]]
 
 
  ;ask turtles [ set shape "sheep" ]
  ;ask turtles [ set color  white ]
end 
 
 
 
 
 ;;; just for fun change the color of the patch from blue to green and increse energy by 10...

to eat-grass
   ask turtles [
     if pcolor = blue [ set pcolor green
       set energy energy  + 10 ] ]
end