- (init-frame-time)
-; (check-connections)
-; (eval-from-clients)
- (process-events)
- (cond ((not (quit?))
- (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
- (to-origin)
- (cond ((mobs-changed?) (set! mobs (get-active-mobs))))
- (if (procedure? game-code) (game-code))
- (run-mob-actions mobs)
- (render-mobs mobs)
- (SDL_GL_SwapBuffers)
- (delay-frame))))
+ (if (sdl-on?) (init-frame-time))
+ (check-connections)
+ (eval-from-clients)
+ (cond ((sdl-on?)
+ (process-events)
+ (cond ((not (quit?))
+ (glClear (+ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT))
+ (to-origin)
+ (cond ((mobs-changed?) (set! mobs (get-active-mobs))))
+ (if (procedure? game-code) (game-code))
+ (run-mob-actions mobs)
+ (render-mobs mobs)
+ (SDL_GL_SwapBuffers)
+ (delay-frame))))))