game.lisp

   1 ;;; Copyright 2009 Christoph Senjak
   2
   3 (in-package :uxul-world)
   4
   5 (defparameter *cfont* nil)
   6
   7 (defun start-game (&key (music nil) room-function (15-fps nil))
   8   "Start the Game: Call room-function for getting the room-object to
   9 run. Music is ignored so far. 15-fps makes only every second frame be
  10 drawn (for very slow computers)"
  11      (sdl:with-init (sdl:sdl-init-video sdl:sdl-init-audio)
  12        (sdl:window +screen-width+ +screen-height+
  13                    :title-caption "Uxul World"
  14                    :icon-caption "Uxul World"
  15                    :flags (logior sdl:sdl-hw-accel  sdl:sdl-hw-surface)
  16                    ;:flags (logior sdl:sdl-hw-surface) #| sdl:sdl-fullscreen )|#
  17 )
  18        ;;(if music (sdl-mixer:OPEN-AUDIO :frequency 44100))
  19        (let ((*graphics-table* (make-hash-table :test #'equal)))
  20          (if 15-fps
  21              (setf (sdl:frame-rate) 15)
  22              (setf (sdl:frame-rate) 30))
  23
  24          (setf *current-room* (funcall room-function))
  25
  26          (sdl:clear-display (sdl:color :r 0 :g 0 :b 0));; :update-p nil)
  27
  28          ;;(if music (sdl-mixer:play-sample levelmusic))
  29
  30          (sdl:with-events ()
  31            (:quit-event ()
  32                         #|(if music
  33                         (progn (sdl-mixer:halt-music)
  34                         (sdl-mixer:halt-sample :channel t)
  35                         (sdl-mixer:free levelmusic)
  36                         (sdl-mixer:close-audio))
  37                         t
  38                         )|# t)
  39            (:key-down-event (:key key)
  40                             (cond
  41                               ((sdl:key= key :SDL-KEY-ESCAPE)
  42                                (sdl:push-quit-event))
  43                               (T
  44                                (on-key-down *current-room* key))))
  45            (:key-up-event (:key key)
  46                           (on-key-up *current-room* key))
  47            (:idle
  48             (progn
  49               (invoke *current-room*)
  50               (when 15-fps
  51                 (invoke *current-room*))
  52               (sdl:clear-display (sdl:color :r 128 :g 128 :b 128)); :update-p nil)
  53               (draw *current-room*)
  54               (sdl:update-display)
  55          ))))))
  56
  57
  58 ;; For Debugging
  59
  60 (defun preview-animation (frameskip &rest images)
  61
  62      (sdl:with-init (sdl:sdl-init-video sdl:sdl-init-audio)
  63        (sdl:window +screen-width+ +screen-height+
  64                    :title-caption "Uxul World"
  65                    :icon-caption "Uxul World"
  66                    :flags (logior sdl:sdl-hw-accel)
  67                    #| :flags (logior sdl:sdl-hw-surface sdl:sdl-fullscreen )|#  )
  68        (let ((*graphics-table*
  69               #-ecl (trivial-garbage:make-weak-hash-table
  70                      :weakness :value
  71                      :test #'equal)
  72               #+ecl (make-hash-table :test #'equal)
  73               )
  74              (my-anim (apply #'make-animation frameskip images))
  75              )
  76
  77          (setf (sdl:frame-rate) 30)
  78          (sdl:clear-display (sdl:color :r 64 :g 64 :b 46));; :update-p nil)
  79
  80          (sdl:with-events ()
  81            (:quit-event () t)
  82            (:key-down-event (:key key)
  83                             (cond
  84                               ((sdl:key= key :SDL-KEY-ESCAPE)
  85                                (sdl:push-quit-event))))
  86            (:idle
  87             (progn
  88               (sdl:clear-display (sdl:color :r 64 :g 64 :b 46));; :update-p nil)
  89
  90
  91               (draw my-anim)
  92
  93               (sdl:update-display)
  94          ))))))