summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rw-r--r--scripts/lisparuga.in43
1 files changed, 43 insertions, 0 deletions
diff --git a/scripts/lisparuga.in b/scripts/lisparuga.in
new file mode 100644
index 0000000..21d1777
--- /dev/null
+++ b/scripts/lisparuga.in
@@ -0,0 +1,43 @@
+#!@GUILE@ --no-auto-compile
+-*- scheme -*-
+!#
+
+;;; Lisparuga
+;;; Copyright © 2016 David Thompson <davet@gnu.org>
+;;;
+;;; Lisparuga is free software: you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published
+;;; by the Free Software Foundation, either version 3 of the License,
+;;; or (at your option) any later version.
+;;;
+;;; Lisparuga is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Lisparuga. If not, see <http://www.gnu.org/licenses/>.
+
+(use-modules (sly)
+ (sly audio)
+ (lisparuga audio)
+ (lisparuga game)
+ (lisparuga view))
+
+(with-window (make-window #:title "lisparuga"
+ #:resolution scaled-resolution)
+ (enable-fonts)
+ (enable-audio)
+ (add-signal-hook! music loop-music)
+ (add-signal-hook! sound-effects play-sound-effects)
+ (add-hook! key-press-hook (lambda (key)
+ (when (eq? key 'escape)
+ (stop-game-loop))))
+
+ (add-hook! window-close-hook stop-game-loop)
+ (start-sly-repl)
+ (run-game-loop scene))
+
+;;; Local Variables:
+;;; compile-command: "../pre-inst-env lisparuga"
+;;; End: