- (init-frame-time)
- (check-server-connections)
- (eval-from-clients)
- (refresh-running-mobs)
- (process-events)
- (do () ((quit?))
- (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
- (logic-mobs)
- (render-mobs)
- (glLoadIdentity)
- ,@code
- (SDL_GL_SwapBuffers)
- (delay-frame)
- (init-frame-time)
- (check-server-connections)
- (eval-from-clients)
- (refresh-running-mobs)
- (process-events)
- (setq running nil))))
+ (set-game-code game-function)
+ (cond ((not (game-running?))
+ (init-frame-time)
+ (process-events)
+ (game-loop)))))
+
+(let (running game-code)
+ (defun game-loop ()
+ (setq running t)
+ (do () ((quit?))
+ (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+ (glLoadIdentity)
+ (when (functionp game-code) (funcall game-code))
+ (SDL_GL_SwapBuffers)
+ (delay-frame)
+ (init-frame-time)
+ (eval-from-skin)
+ (process-events))
+ (setq running nil))
+
+ (defun game-running? ()
+ running)
+
+ (defun set-game-code (game-function)
+ (setq game-code game-function)))