GoingViral_Final

globals 
[ humorcheck
  angercheck
  infocheck
  sadcheck
  roundcheck
  numberwatch
  randomcount
]
turtles-own
[
  shared?         ;; if true, the turtle has shared the content
  watched?          ;; if true, the turtle has seen the content and has/has not shared it yet
  contcheck   ;; number of times content has been viewed
  funny
  anger
  sad             ;; evoking the primal emtions to what degree -- could maybe be one attribute : emotion 
  savvy           ;; How connected are you? will you "get" the content in a sense           ;; slightly linked to arousal but also intrinsic to the person- how enthusiastically are you going to share this video?
  arousal         ;; a culmination of emotions, visibility and other factors --> to share or not to share
]

to setup
  clear-all
  
 
  setup-nodes
  setup-spatially-clustered-network
  
  ask turtles [set shared? false]
  ask turtles [set watched? false]
  ask turtles [set anger random 100 / 100]
  ask turtles [set sad random 100 / 100]
  ask turtles [set funny random 100 / 100]      ;; I want arousal to almost be a 6-point scale that determines sharing- one person's enthusiasm ashould also perhaps directly feed another's more directly? endorsement vs. just passive sharing effect
  
  ask turtles [if funny < 0.5 [ set funny funny + 0.4]];  ;; humor is a pretty universal attribute -even people who don't find most things funny respond to humor more than other emotions. 
 ;; ask turtles [if anger < 0.5 [ set anger anger + 0.3]]       ;; trying to make homophily more relevant means the gradient in people's emotions probably needs to be higher. 
 ;; ask turtles [if sad < 0.5 [ set sad sad + 0.1]]
  
  
  ask turtles [set contcheck 0]
  
  if homophily? [
  
  ask turtles [ask link-neighbors [ if abs ([funny] of myself - funny) > 0.3 [set funny (funny + [funny] of myself) / 2 ] ] ]     ;;homophily? - people tend to be surrounded/friends with people similar to them- minimzing variances in their personality types- homophily?
  
  ask turtles [ask link-neighbors [ if abs ([anger] of myself - anger) > 0.3 [set anger (anger + [anger] of myself) / 2]]]
      
  ask turtles [ask link-neighbors [ if abs ([sad] of myself - sad) > 0.3 [set sad (sad + [sad] of myself) / 2]]]
          
  ]
  ifelse target?
   [ask n-of campaignlevel turtles [seecontent]][ask n-of campaignlevel turtles with [funny > 0.7 and anger > 0.7][seecontent]]               ;; This is effectively releasing the content across the internet  
  
  ;;ask links [ set color white ]                              ;; Do I care about the color of the links? Probably not, unless I'm doing re-transmission ie re-sharing..unlikely.
  reset-ticks
end  

to setup-nodes     
                                             ;; ALL OF THIS IS FROM VIRUSES
  set-default-shape turtles "circle"
  crt number-of-nodes                                         ;; NEED A SCALED DOWN VERSION OF THE WORLD. I might just make it a number that scales well based on say- the population of NA since most of my literature and research is definitely limited by that in a sense. 
  [
    ; for visual reasons, we don't put any nodes *too* close to the edges
    setxy (random-xcor * 0.95) (random-ycor * 0.95)
  ]
  ask turtles [set color white]              ;; No exposure to any content. Will be handled in  "go" 
  
  if supernode? [ask one-of turtles [set color blue set size 2 setxy (random-xcor * 0.5) (random-ycor * 0.5)]]   ;; someone at the center of the universe kind of like a celebrity - Jimmy Kimmel sent something viral all by himself - Gizmodo sends videos viral all the time - similar phenomena
end  

to setup-spatially-clustered-network
  
  let num-links (average-node-degree * number-of-nodes) / 2       
  while [count links < num-links ]                                ;; Note: While the links are created based on proximity in the code, it is not meant to be interpreted as such. It is just meant to serve as "internet proximity" 
  [                                                               ;; Can't tell if that would be an issue, but I'm guessing not at this point.    
    ask one-of turtles
    [
      let choice (min-one-of (other turtles with [not link-neighbor? myself])
                   [distance myself])
      if choice != nobody [ create-link-with choice ]
    ]
  ]
  ; make the network look a little prettier                     ;; I'll probably keep this since it does help with making the network look pretty. 
  repeat 30
  [
    layout-spring turtles links 0.3 (world-width / (sqrt number-of-nodes)) 1
  ]
end 

to seecontent                                               ;; turtle procedure
  
  set watched? true
  
  set contcheck contcheck + 1   
  
  if contcheck = 1 [set color yellow]
  
  if contcheck > 1 and not shared? [set color 43] 
end  

to go 
  
  set randomcount randomcount + 1 
  while [roundcheck < rounds] [ifelse target? [ask n-of campaignlevel turtles with [funny > 0.5 and anger > 0.5][seecontent set roundcheck roundcheck + 1]][ask n-of campaignlevel turtles [seecontent set roundcheck roundcheck + 1 ]]]     
  
  ask turtles [if watched?[shareornot] ]     ;; once turtles see content, they can decide whether or not to share the content.      
  
  ifelse  vanger + vfunny - vsad + vutil > 20 [tick-advance 5] [ tick-advance 7]
  
  ask turtles [if shared? [set color red] ]
  
  set numberwatch count turtles with [watched?]
  
  if supernode? [ask turtles with [size = 2 and shared?] [share]] 
  
 if randomsparks? [if randomcount < 1000 [ if random 100 < 40 [ask one-of turtles [seecontent]]]]
  
  if hold? [ ask turtles [set color white set arousal 0 set shared? false set watched? false set contcheck 0 set roundcheck 0]]
  
  ask turtles [if hold? and size = 2 [set color blue]]
    
  tick
end  

to shareornot    ;; setting up a parameter that determines sharing, how fast sharing takes place

  ifelse vfunny > 5  [set humorcheck (vfunny - 4) * funny][set humorcheck 1 * funny ]
  ifelse vsad > 5 [set sadcheck (vsad - 4) * sad][set sadcheck 1 * sad ]
  ifelse vanger > 5 [set angercheck (vanger - 4) * sad]  [set angercheck 1 * anger]            ;; Getting the agent to decide if he will share or not. How important each attribute is to the agent vs. how much that's reflected in the content
 
  if contcheck > 1 and arousal > 1.5 [set arousal (arousal + (2 * arousal / (1 + contcheck) + arousal / (1 + contcheck) ^ 2))]     ;;The more often you see something will decide how much you value it as well. However this value will probably diminish slightly each time
  
  if contcheck = 1 [set arousal (0.42 * humorcheck - 0.3 * sadcheck + 0.35 * angercheck + 0.2 * vutil + 0.1 * repfreq)] ;;including how useful the content is as a parameter; also if it's second interaction with content, arousal levels add, but by smaller factors each time
   
  if arousal > 2.4 [share]   ;; Max. value possible 1.4. Just set a reasonable threshold?. will go from there based on results.            
end  

to share
  
  ifelse size < 2 [ask (link-neighbors) [seecontent]] [ask turtles in-radius 10 [seecontent]]
  
  set shared? true
  
 ;; set color red
end