Commit c056295d authored by Daniel Graungaard's avatar Daniel Graungaard
Browse files

Aborted tables. Made a more student friendly version with lists

parent c017b1e1
......@@ -129,8 +129,6 @@ to go
if energi > 50 [
move-to-next-segment
show find-current-segment
stop
]
set label round energi
......@@ -155,14 +153,28 @@ to-report wall?
report patch-forward = nobody or gray = [pcolor] of patch-forward
end
to-report groups
report ["TOP RIGHT" "TOP LEFT" "BOTTOM RIGHT" "BOTTOM LEFT"]
to-report all-segments
report ["TOP RIGHT" "TOP LEFT" "BOTTOM RIGHT" "BOTTOM LEFT"] ; this also determines the order that the video will jump to the segments in
end
to move-to-next-segment ; turtle method
if (not member? find-current-segment completed-segments) [set completed-segments lput find-current-segment completed-segments] ;update conpleted segments
ifelse length completed-segments = 4
[completed]
[find-missing-segment-and-jump]
end
to find-missing-segment-and-jump
foreach all-segments [segment ->
if not member? segment completed-segments [jump-to segment stop]
]
end
......@@ -170,6 +182,16 @@ to-report list-compare
end
to completed
show "COMPLETED"
end
to jump-to [segment]
show segment
end
......@@ -188,6 +210,8 @@ to-report find-current-segment
end
@#$#@#$#@
GRAPHICS-WINDOW
210
......@@ -241,7 +265,7 @@ CHOOSER
start
start
"TOP RIGHT" "TOP LEFT" "BOTTOM RIGHT" "BOTTOM LEFT"
2
0
BUTTON
117
......@@ -277,6 +301,23 @@ 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
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