mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Show normal diconnect

Browse source
This commit is contained in:
David Botton 2024-05-09 15:41:40 -04:00
parent 798ad3a201
commit c93c477e66
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/07-tutorial.lisp
View file

@ -12,6 +12,7 @@
(defun on-new-window (body) (defun on-new-window (body)
(handler-case ; Disconnects from the browser can be handled gracefully using the condition system. (handler-case ; Disconnects from the browser can be handled gracefully using the condition system.
(progn (progn
(format t "Starting Game~%")
(setf (title (html-document body)) "Tutorial 07") (setf (title (html-document body)) "Tutorial 07")
;; Show a "splash" screen ;; Show a "splash" screen
(setf (hiddenp (prog1 (setf (hiddenp (prog1
@ -72,7 +73,8 @@
(setf mover-y 0)) (setf mover-y 0))
(when (> mover-y bounds-y) (when (> mover-y bounds-y)
(setf mover-y bounds-y)) (setf mover-y bounds-y))
(sleep .02)))) (sleep .02)))
(format t "Normal Disconnect~%"))
(error (c) (error (c)
(format t "Lost connection.~%~%~A" c)))) (format t "Lost connection.~%~%~A" c))))