School

patches-own  [ work-ethic  attention-span  smartness score ]
;;work ethic and attention span make each patch's smartness fluctuate regularly so that the model stays interesting
;; score is the replacement for its grade, to compare to the player

to setup
clear-all
reset-ticks
  ask patches [ set pcolor blue ]
  ask patches [ set work-ethic random 100 ]      ;; chance they study/do homework
  ask patches [ set attention-span random 100 ] ;; what they learn from listening
  ask patches [ set smartness random 100    ]   ;; changes based off of doing homework and listening

tick
end 

to go

  ask patches [  if work-ethic > difficulty [ do-homework ] ]
  ask patches [ if attention-span > difficulty  [ listen-in-class ] ]
                                                         ;; if they are studious enough they'll do the homework and get smarter higher grade
  ask patches [ if work-ethic < difficulty [ be-lazy ] ]
  ask patches [ if attention-span < difficulty [ be-lazy ] ]
  ask patches [ take-quiz ]
  ask patches [ balance ]

tick
end 

to do-homework ;; patches procedure
  if smartness < 100 [ set  smartness smartness + 2 ]
  set pcolor pcolor + 1
  if attention-span < 100 [ set attention-span attention-span + 2 ]
end 

to listen-in-class
  if smartness < 100 [ set smartness smartness + 1 ]
  if work-ethic < 100  [ set work-ethic work-ethic + 1 ]
end 

to take-quiz
  if smartness < difficulty [ fail ]
  if smartness >= difficulty [ pass ]
end 

to fail
  set pcolor pcolor - 1
  if score > 4 [ set score score - 1 ]                 ;; grade suffers
  set work-ethic work-ethic + 1                        ;; student learns from their mistake and  tries harder next time
  set smartness smartness - 5                           ;; student is now behind the classmates who passed the test
end 

to pass
 set pcolor pcolor + 1
  if score <= 12 [ set score score + 4 ]               ;; higher gpa, no other benefits because that would be OP
  if score > 12 [ set score 16 ]
  set work-ethic work-ethic - 5                        ;; max score is 16 and the gpa is 1/4 of the score
  set attention-span attention-span - 5
  ;; student gets arrogant and works less hard(also its hard to have the program be interesting if the students only get smarter
end 

to be-lazy
  set pcolor pcolor  - 2
  if smartness > 12 [ set smartness smartness - 12 ]
end 

to balance
  if attention-span <= 0 [ set attention-span random 100  ]
  if smartness <= 0 [ set smartness random 100 ]
  if smartness < 50 [ set smartness smartness + 20 ]
  if work-ethic <= 0 [ set work-ethic random 100 ]
end