Commit 1079a519 authored by Daniel Graungaard's avatar Daniel Graungaard
Browse files

Initial go

parent 11c2e54f
breed[videos video]
videos-own [emotionelt utrolige-evner nuttethed humor]
videos-own [emotionelt utrolige-evner nuttethed humor energi]
patches-own [empati-præference humor-præference utrolige-evner-præference nuttethed-præference]
to setup
clear-all
reset-ticks
;top right - ældre
ask patches with [pxcor < 0 and pycor > 0] [
......@@ -47,14 +48,12 @@ to setup
set nuttethed-præference number-from-interval [6 8]
]
ask patches with [pxcor = 0 or pycor = 0] [
set pcolor grey
]
set-default-shape videos "video"
create-videos 1 [
(ifelse start = "TOP LEFT" [
......@@ -67,11 +66,13 @@ to setup
setxy (random half-of-worlds-width + 1) (-1 - random half-of-worlds-height)
])
;husk at den samlede mængde point herunder ikke må overstige 30 point
set utrolige-evner 10
set emotionelt 10
set humor 10
set nuttethed 10
set energi 10 ; Dette er den mængde energi videoen starter med
]
end
......@@ -95,6 +96,17 @@ to-report number-from-interval [interval]
report random delta + first interval
end
to go
if any? videos with [energi < 0 ] [user-message "Din video er løbet tør for energi. Øv" stop]
ask videos [
set energi energi - 0.2
]
tick
end
@#$#@#$#@
GRAPHICS-WINDOW
210
......@@ -150,6 +162,23 @@ start
"TOP RIGHT" "TOP LEFT" "BOTTOM RIGHT" "BOTTOM LEFT"
3
BUTTON
117
101
180
134
NIL
go
T
1
T
OBSERVER
NIL
NIL
NIL
NIL
1
@#$#@#$#@
## 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