From 2e56bb6a0c7210c8103eb43895b180c1125291ac Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 15 May 2016 21:32:58 -0400 Subject: Use proper asset path and launcher binary. --- scripts/lisparuga.in | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 scripts/lisparuga.in (limited to 'scripts/lisparuga.in') 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 +;;; +;;; 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 . + +(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: -- cgit v1.2.3