Commit 20d4b674 authored by Daniel Graungaard's avatar Daniel Graungaard
Browse files

Small movement bugfixes

parent 4799ec10
......@@ -65,10 +65,10 @@ to setup
jump-to start
;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 utrolige-evner 6
set emotionelt 7
set humor 4
set nuttethed 7
set energi 10 ; Dette er den mængde energi videoen starter med
set completed-segments (list)
......@@ -113,16 +113,16 @@ to go
let deltas (list (utrolige-evner-præference - utrolige-evner) (empati-præference - emotionelt) (nuttethed-præference - nuttethed) (humor-præference - humor))
let average sum deltas / length deltas
show average
(ifelse abs average <= 1 [
set energi (energi + 1)
set energi (energi + 2)
] abs average <= 2 [
set energi (energi + 0.5)
set energi (energi + 1.5)
] abs average <= 3 [
set energi (energi + 0.2)
set energi (energi + 1)
])
if energi > 1000 [
if energi >= 1000 [
move-to-next-segment
]
......@@ -140,19 +140,22 @@ end
to move ;turtle method
if pcolor = gray [forward -1 show "Bug>"] ; removes bugs when hit wall
ifelse wall? [
forward -1
right 180
right 90
] [
right random 360
right random 180
forward random 2
]
end
to-report wall?
let patch-forward patch-right-and-ahead 0 1
report patch-forward = nobody or gray = [pcolor] of patch-forward
let patch-forward-right patch-right-and-ahead 0 1
let patch-forward-left patch-left-and-ahead 0 1
report patch-forward-right = nobody or gray = [pcolor] of patch-forward-right or patch-forward-left = nobody or gray = [pcolor] of patch-forward-left
end
to-report all-segments
......@@ -318,7 +321,7 @@ TEXTBOX
152
Pre-teens
30
46.0
9.9
1
TEXTBOX
......@@ -351,6 +354,17 @@ Voksne
0.0
1
MONITOR
32
323
296
368
Video energi
[energi] of videos with [who = 0]
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