IFC Engagement

turtles-own [
hostile? ;; hostile personality variable
empathy? ;; empathy variable
education? ;; education variable
alcohol? ;; weight of alcohol as a causal for sexual assault.
sex
year
year-weight         ;; 1,2,3,4 correlating with the years of undergraduate

]

to setup
  clear-all

  set-default-shape turtles "person" ;; turtle shape is defined

  create-turtles men  [ ;; slider variable men that adjusts how many men turtles are made
    set sex 0
    setxy random-xcor random-ycor
    set size 1
    ]

  create-turtles women  [ ;; slider variable women that adjusts how many women are made
    set sex 1
    setxy random-xcor random-ycor
    set size 1
    ]

  ask turtles [
    ifelse sex = 0
        [set year one-of [1 2 3 4]]
        [set year one-of [5 6 7 8]]

      ]
  color-year
 ; vulnerability
reset-ticks
end 

to go ;; go function for interaction
  ask turtles [
    move
  hostileinteraction]
  tick
end 

to color-year ;; colors the turtles based on their years
  ask turtles[
     if sex = 0 [
       if year = 1 [set color 108]
       if year = 2 [set color 107]
       if year = 3 [set color 106]
       if year = 4 [set color 105]]
     if sex = 1 [
       if year = 5 [set color 138]
       if year = 6 [set color 137]
       if year = 7 [set color 136]
       if year = 8 [set color 135]]]
end 


;to vulnerability ;; playing with weight variables here for status in undergrad and possibility of being / perpotrating sexual assault.
 ; ask turtles[
  ;    if sex = 0 [
   ;    if year = 1 [set year-weight .8]
    ;   if year = 2 [set year-weight .6]
     ;  if year = 3 [set year-weight .4]
      ; if year = 4 [set year-weight .2]]
     ;if sex = 1 [
      ; if year = 5 [set year-weight .8]
       ;if year = 6 [set year-weight .6]
       ;if year = 7 [set year-weight .4]
       ;if year = 8 [set year-weight .2]]]
;end

to hostileinteraction ;; probability that sexual assault is ar result in male hosility.
  if sex = 0 [
    let target one-of turtles in-radius 3
    ask target [
      if (sex = 1 and random-float 10 < hostility * .05)
      [set color red]]]
end 

;to empathyinteraction
 ; if sex = 0
  ;let target one-of turtles in-radius 3
  ;ask target [
   ; if (

to move ;; moves a turtle
    rt random 50
    lt random 50
    fd 1
end 

;to hostile?
 ; ;; check to make sure there is grass here
  ;if ( grass-amount >= energy-gain-from-grass ) [
   ; ;; increment the sheep's energy
    ;set energy energy + energy-gain-from-grass
    ;;;; decrement the grass
    ;set grass-amount grass-amount - energy-gain-from-grass
  ;  recolor-grass
  ;]
;end

;to update-hostility  ;; turtle procedure
 ; let total count turtles-here
  ;;let same count turtles-here with [color = [color] of myself]
  ;;let opposite (total - same)
  ;; you are happy if the proportion of people of the opposite sex
  ;; does not exceed your tolerance
  ;set hostile? (opposite / total) <= (hostility / 100)
;end




;to empathy?
 ; ;; check to make sure there is grass here
  ;if ( grass-amount >= energy-gain-from-grass ) [
   ; ;; increment the sheep's energy
    ;set energy energy + energy-gain-from-grass
    ;;;; decrement the grass
    ;set grass-amount grass-amount - energy-gain-from-grass
  ;  recolor-grass
  ;]
;end


;to update-empathy  ;; turtle procedure
 ; let total count turtles-here
  ;;let same count turtles-here with [color = [color] of myself]
  ;;let opposite (total - same)
  ;; you are happy if the proportion of people of the opposite sex
  ;; does not exceed your tolerance
  ;set hostile? (opposite / total) <= (hostility / 100)
;end

;to education?
 ; ;; check to make sure there is grass here
  ;if ( grass-amount >= energy-gain-from-grass ) [
   ; ;; increment the sheep's energy
    ;set energy energy + energy-gain-from-grass
    ;;;; decrement the grass
    ;set grass-amount grass-amount - energy-gain-from-grass
  ;  recolor-grass
  ;]
;end

;to update-education?  ;; turtle procedure
 ; let total count turtles-here
  ;;let same count turtles-here with [color = [color] of myself]
  ;;let opposite (total - same)
  ;; you are happy if the proportion of people of the opposite sex
  ;; does not exceed your tolerance
  ;set hostile? (opposite / total) <= (hostility / 100)
;end

;to assault  ;; turtle procedure
;  if hostile? and infected? and not empathy?
 ;   [ if random-float 10 > condom-use or
  ;       random-float 10 > ([condom-use] of partner)
   ;     [ if random-float 100 < infection-chance
    ;        [ ask partner [ set infected? true ] ] ] ]
;end