summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas Fitzsimmons <fitzsim@fitzsim.org>2013-09-30 03:48:04 -0400
committerThomas Fitzsimmons <fitzsim@fitzsim.org>2020-11-22 18:00:48 -0500
commit00310a1da15fc907b5c1f2c9a02487fde90ce030 (patch)
treebea93d98c5f8b7ea8bed7811feb757cc573666c9
parentd04632228ffac9c7ebb5af0c0c73be28446184c2 (diff)
Add beach mode
-rw-r--r--slime-volleyball.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/slime-volleyball.el b/slime-volleyball.el
index 835c15c..c8c23b2 100644
--- a/slime-volleyball.el
+++ b/slime-volleyball.el
@@ -124,6 +124,11 @@
:type 'boolean
:group 'slime-volleyball)
+(defcustom slime-volleyball-beach-mode nil
+ "Non-nil when Slimes should compete on sand"
+ :type 'boolean
+ :group 'slime-volleyball)
+
(cl-defstruct slime-volleyball-slime
"A player in the game of slime volleyball"
player
@@ -747,7 +752,9 @@
slime-volleyball-template-ground
(concat
"<rect x=\"0\" y=\"%d\" width=\"%d\" height=\"%d\""
- " fill=\"#888888\" />")
+ " fill=\""
+ (if slime-volleyball-beach-mode "#EEE8AA" "#778899")
+ "\" />")
slime-volleyball-template-message-box-start
(concat
"<defs>"