Commit 582e0243 authored by Daniel Graungaard's avatar Daniel Graungaard
Browse files

First view logic added

parent 119c5aff
breed[videos video]
videos-own [emotionelt utrolige-evner nuttethed humor energi completed-segments]
videos-own [emotionelt utrolige-evner nuttethed humor energi completed-segments viewers]
patches-own [empati-præference humor-præference utrolige-evner-præference nuttethed-præference]
globals [completed?]
globals [completed? views]
to setup
clear-all
......@@ -69,16 +69,15 @@ to setup
set emotionelt 10
set humor 10
set nuttethed 10
set energi 10 ; Dette er den mængde energi videoen starter med
set completed-segments (list)
set viewers (list)
set label-color green
set size 2
set completed? false
]
set completed? false
end
to-report half-of-worlds-height
......@@ -120,10 +119,16 @@ to go
set energi energi + 1
])
if energi > 50 [
if energi > 1000 [
move-to-next-segment
]
if(not member? patch-here viewers)
[
set views views + 1
set viewers lput patch-here viewers
]
set label round energi
]
......@@ -295,22 +300,16 @@ NIL
NIL
1
BUTTON
1021
385
1493
418
NIL
ask videos[show member? find-current-segment completed-segments]
NIL
1
T
OBSERVER
NIL
NIL
NIL
MONITOR
1179
201
1236
246
NIL
views
17
1
11
@#$#@#$#@
## WHAT IS IT?
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment