src/main.ps

(in-package sugar-qsp.main)

;;; Game session state (saved in savegames)
;; Variables
(var *globals (create))
;; Inventory (objects)
(var *objs (create))
(var *current-location nil)
;; Game time
(var *started-at (chain *date (now)))
;; Timers
(var *timer-interval 500)
(var *timer-obj nil)
;; Games
(var *loaded-games (list))

;;; Transient state
;; ACTions
(var *acts (create))
;; Savegame data
(var *state-stash (create))
;; List of audio files being played
(var *playing (create))
;; Local variables stack (starts with an empty frame)
(var *locals (list))

;;; Game data
;; Games (filename -> [locations])
(var *games (list))
;; The main (non library) game. Updated by openqst
(var *main-game nil)
;; Active locations
(var *locs (create))

;; Launch the game from the first location
(setf (@ window onload)
      (lambda ()
        (#.(intern "INIT-DOM" "SUGAR-QSP.API"))
        ;; For MSECCOUNT
        (setf *started-at (chain *date (now)))
        ;; For $COUNTER and SETTIMER
        (#.(intern "SET-TIMER" "SUGAR-QSP.API")
           *timer-interval)
        ;; Start the first game
        (#.(intern "RUN-GAME" "SUGAR-QSP.API")
           (chain *object (keys *games) 0))
        (values)))