core.lisp

   1 (in-package :core)
   2
   3 (defparameter *screen-width* 1000)
   4 (defparameter *screen-height* 750)
   5
   6 ;; apply to load and save
   7
   8 (defun main ()
   9   (let ((name (format nil "Ru*** roLeplay Playground v~A" parameters:*rulp-version*)))
  10     (format t "rulp-~A on ~A-~A~%"
  11             parameters:*rulp-version*
  12             parameters:*rulp-system*
  13             parameters:*rulp-arch*)
  14     (load "init.lisp" :if-does-not-exist nil)
  15     ;; (graphics:playground *screen-width* *screen-height* name)
  16     (bt:make-thread (lambda () (graphics:playground *screen-width* *screen-height* name)))
  17 ;    (gui:lobby)
  18     )
  19   ;(bt:make-thread (lambda () (lobby:editor-gui))) ;; here bt-thread it is just used for execute ltk without troubles
  20   ;; for now it is disabled
  21 ;  (graphics:add-plane (make-instance 'layers:plane :image (truename "media/board.tga")))
  22
  23 ;  (graphics:add-entity (make-instance 'layers:entity :img-path (truename "media/test.png") :size 1))
  24
  25 ;  (bt:make-thread (lambda () (graphics:playground *screen-width* *screen-height* "Ru*** Lisp Playground")))
  26 )
  27   ;; "Ru■■■ Lisp Playground"