branch: externals/slime-volleyball
commit 00310a1da15fc907b5c1f2c9a02487fde90ce030
Author: Thomas Fitzsimmons <[email protected]>
Commit: Thomas Fitzsimmons <[email protected]>
Add beach mode
---
slime-volleyball.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
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>"
