(in-package :core)

(defparameter *screen-width* 1000)
(defparameter *screen-height* 750)

;; apply to load and save

(defun main ()
  (let ((name (format nil "Ru*** roLeplay Playground v~A" parameters:*rulp-version*)))
    (format t "rulp-~A on ~A-~A~%"
            parameters:*rulp-version*
            parameters:*rulp-system*
            parameters:*rulp-arch*)
    (load "init.lisp" :if-does-not-exist nil)
    ;; (graphics:playground *screen-width* *screen-height* name)
    (bt:make-thread (lambda () (graphics:playground *screen-width* *screen-height* name)))
;    (gui:lobby)
    )
  ;(bt:make-thread (lambda () (lobby:editor-gui))) ;; here bt-thread it is just used for execute ltk without troubles
  ;; for now it is disabled
;  (graphics:add-plane (make-instance 'layers:plane :image (truename "media/board.tga")))

;  (graphics:add-entity (make-instance 'layers:entity :img-path (truename "media/test.png") :size 1))

;  (bt:make-thread (lambda () (graphics:playground *screen-width* *screen-height* "Ru*** Lisp Playground")))
)
  ;; "Ru■■■ Lisp Playground"