From 3511867b114f196aee9c155657d24ca9e727434e Mon Sep 17 00:00:00 2001
From: Ben Kurtovic <ben.kurtovic@verizon.net>
Date: Wed, 28 Dec 2011 00:46:53 -0500
Subject: [PATCH] "C" cancels the current order, i.e., destroys our target

---
 lobo.nlogo | 28 ++++++++++++++++++++++++++++
 player.nls | 20 ++++++++++++--------
 2 files changed, 40 insertions(+), 8 deletions(-)

diff --git a/lobo.nlogo b/lobo.nlogo
index f885226..58aec85 100644
--- a/lobo.nlogo
+++ b/lobo.nlogo
@@ -61,6 +61,18 @@ to go
   keep-time
 end
 
+to player-fire
+  ask player [
+    fire
+  ]
+end
+
+to player-cancel-order
+  ask player [
+    cancel-order
+  ]
+end
+
 ;; ================
 ;; Other procedures
 ;; ================
@@ -320,6 +332,22 @@ word \"(\" player-target-xcor \", \" player-target-ycor \")\"
 1
 12
 
+BUTTON
+109
+235
+230
+268
+Cancel Order
+player-cancel-order
+NIL
+1
+T
+OBSERVER
+NIL
+C
+NIL
+NIL
+
 @#$#@#$#@
 WHAT IS IT?
 -----------
diff --git a/player.nls b/player.nls
index b7bcc9e..4912b37 100644
--- a/player.nls
+++ b/player.nls
@@ -8,12 +8,6 @@ to spawn-player
   ]
 end
 
-to player-fire
-  ask player [
-    fire
-  ]
-end
-
 to do-player-logic
   if mouse-inside? [
     if mouse-down? and not mouse-was-down? [
@@ -32,10 +26,20 @@ to do-player-logic
       decelerate friction * 5
     ]
     if dist < 0.1 [
-      set is-accelerating? false
-      set player-has-target? false
+      cancel-target
     ]
   ] [
     tank-facexy mouse-xcor mouse-ycor
   ]
 end
+
+to cancel-order
+  if player-has-target? [
+    cancel-target
+  ]
+end
+
+to cancel-target
+  set is-accelerating? false
+  set player-has-target? false
+end