Walls implemenetdD

Viralitet.nlogo

@@ -107,7 +107,7 @@ to go
 
   ask videos [
     move
-    set energi energi - 0.2
+    set energi energi - 0.5
 
     ; This is the core of the ssubject matter. The algorithm below !SHOULD! be finalized with teachers!
     let deltas (list (utrolige-evner-præference - utrolige-evner) (empati-præference - emotionelt) (nuttethed-præference - nuttethed) (humor-præference - humor))
@@ -127,20 +127,31 @@ to go
 
     ])
 
-
     set label round energi
   ]
   tick
-
 end
 
 
 to move ;turtle method
-  right 360
-  left 360
-  forward random 2
+  ifelse wall? [
+    right 180
+    forward 1
+  ] [
+    right random 360
+    forward random 2
+    show "ELSE"
+  ]
+end
+
+
+to-report wall?
+  let patch-forward patch-right-and-ahead 0 1
+  report patch-forward = nobody or gray = [pcolor] of patch-forward
 end
 
+
+
 @#$#@#$#@
 GRAPHICS-WINDOW
 210
@@ -194,7 +205,7 @@ CHOOSER
 start
 start
 "TOP RIGHT" "TOP LEFT" "BOTTOM RIGHT" "BOTTOM LEFT"
-0
+1
 
 BUTTON
 117
@@ -230,6 +241,23 @@ NIL
 NIL
 1
 
+BUTTON
+757
+440
+1069
+473
+NIL
+ask videos[show wall?]
+NIL
+1
+T
+OBSERVER
+NIL
+NIL
+NIL
+NIL
+1
+
 @#$#@#$#@
 ## WHAT IS IT?