Make frontender option actually work

README.md

@@ -1,44 +1,44 b''
 (инструкции на Русском - внизу)
 
 # txt2web
 Compiler for QSP games which creates monolithic HTML pages.
 
 ## Usage
 
 There are three mastery levels
 
 1. Just build me the game:<br/>
 `txt2web game.txt`<br/>
 And it will create the game in game.html
 
 2. I know what I'm doing:<br/>
 `txt2web game.txt -o game.html --body body.html --js jquery.js my-js-library.js --css styles/*.css`<br/>
 All options are self-explanatory. The result is a monolithic html specified
 with the `-o` option. Default `body.html` (used by the first mastery level) can
 be found in `extas` directory.
 
 3. I'm a frontend developer!<br/>
 `txt2web game.txt -c -o game.js`<br/>
 It just builds the game script into a js you can put on your website. To run
-the game execute `SugarQSP.start()`
+the game execute `qsp_start()`
 
 # txt2web
 Компилятор для игр на QSP создающий монолитные страницы на HTML.
 
 ## Инструкции
 
 Есть три уровня мастерства.
 
 1. **Просто собери мне игру**:<br/>
 `txt2web game.txt`<br/>
 Создаст игру в game.html
 
 2. **Я знаю что делаю**:<br/>
 `txt2web game.txt -o game.html --body body.html --js jquery.js my-js-library.js --css styles/*.css`<br/>
 Если вы знаете что делаете, то для вас смысл опций очевиден. `body.html` и `default.css`
 лежат в каталоге `extras`.
 
 3. **Я - фронтендер!**<br/>
 `txt2web game.txt -c -o game.js`<br/>
 Просто соберёт игру в Javascript файл который вы можете разместить на своём
-сайте как вам угодно.
+сайте как вам угодно. Чтобы запустить игру: `qsp_start()`

src/main.ps

@@ -1,54 +1,56 b''
 
 (in-package txt2web.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))
 ;; Promise to continue running the game after menu
 (var *menu-resume nil)
 
 ;;; 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))
 
 (setf (@ window onload)
-      (lambda ()
-        (#.(intern "INIT-DOM" "TXT2WEB.API"))
-        ;; For MSECCOUNT
-        (setf *started-at (chain *date (now)))
-        ;; For $COUNTER and SETTIMER
-        (#.(intern "SET-TIMER" "TXT2WEB.API")
-           *timer-interval)
-        ;; Start the first game
-        (#.(intern "RUN-GAME" "TXT2WEB.API")
-           (chain *object (keys *games) 0))
-        (values)))
+      #'start)
+
+(defun start ()
+  (#.(intern "INIT-DOM" "TXT2WEB.API"))
+  ;; For MSECCOUNT
+  (setf *started-at (chain *date (now)))
+  ;; For $COUNTER and SETTIMER
+  (#.(intern "SET-TIMER" "TXT2WEB.API")
+     *timer-interval)
+  ;; Start the first game
+  (#.(intern "RUN-GAME" "TXT2WEB.API")
+     (chain *object (keys *games) 0))
+  (values))
 
 ;;; Some very common utilities (for both api and lib)
 
 (defun by-id (id)
   (chain document (get-element-by-id id)))