COmpleted jump logic

Viralitet.nlogo

-extensions [table]
 breed[videos video]
 videos-own [emotionelt utrolige-evner nuttethed humor energi completed-segments]
 patches-own [empati-præference humor-præference utrolige-evner-præference nuttethed-præference]
+globals [completed?]
 
 to setup
   clear-all
   reset-ticks
 
-  let segments table:make
-
   ;table:put segments "TOP RIGHT" (pxcor < 0 and pycor > 0)
 
   ;"TOP RIGHT" "TOP LEFT" "BOTTOM RIGHT" "BOTTOM LEFT"
@@ -64,15 +62,7 @@ to setup
 
   create-videos 1 [
 
-    (ifelse start = "TOP LEFT" [
-      setxy (-1 - random half-of-worlds-width) (random half-of-worlds-height + 1)
-    ] start = "TOP RIGHT" [
-      setxy (random half-of-worlds-width + 1) (random half-of-worlds-height + 1)
-    ] start = "BOTTOM LEFT" [
-      setxy (-1 - random half-of-worlds-width) (-1 - random half-of-worlds-height)
-    ] start = "BOTTOM RIGHT" [
-      setxy (random half-of-worlds-width + 1) (-1 - random half-of-worlds-height)
-    ])
+    jump-to start
 
     ;husk at den samlede mængde point herunder ikke må overstige 30 point
     set utrolige-evner 10
@@ -86,6 +76,8 @@ to setup
     set label-color green
 
     set size 2
+
+    set completed? false
   ]
 end
 
@@ -110,6 +102,7 @@ end
 
 to go
   if any? videos with [energi < 0 ] [user-message "Din video er løbet tør for energi. Øv" stop]
+  if completed? [user-message "Din video har været i alle fire segmenter" stop]
 
   ask videos [
     move
@@ -132,6 +125,7 @@ to go
     ]
 
     set label round energi
+
   ]
   tick
 end
@@ -165,33 +159,33 @@ to move-to-next-segment ; turtle method
   ifelse length completed-segments = 4
   [completed]
   [find-missing-segment-and-jump]
-
-
-
 end
 
 to find-missing-segment-and-jump
+  set energi 15 ; her sættes enerngi efter spredning til et nyt segment
+  set label energi
+
 
   foreach all-segments [segment ->
     if not member? segment completed-segments [jump-to segment stop]
   ]
 
-end
-
-to-report list-compare
-
-
-
 end
 
 to completed
-  show "COMPLETED"
+  set completed? true
 end
 
 to jump-to [segment]
-
-  show segment
-
+    (ifelse segment = "TOP LEFT" [
+      setxy (-1 - random half-of-worlds-width) (random half-of-worlds-height + 1)
+    ] segment = "TOP RIGHT" [
+      setxy (random half-of-worlds-width + 1) (random half-of-worlds-height + 1)
+    ] segment = "BOTTOM LEFT" [
+      setxy (-1 - random half-of-worlds-width) (-1 - random half-of-worlds-height)
+    ] segment = "BOTTOM RIGHT" [
+      setxy (random half-of-worlds-width + 1) (-1 - random half-of-worlds-height)
+    ])
 end
 
 
@@ -265,7 +259,7 @@ CHOOSER
 start
 start
 "TOP RIGHT" "TOP LEFT" "BOTTOM RIGHT" "BOTTOM LEFT"
-0
+3
 
 BUTTON
 117