font-surface)))
(sdl2:free-surface font-surface)
font-texture))
- (setf +plane+ (make-instance 'plane :image (truename "media/mappa.png")))
+ (setf +plane+ (make-instance 'plane :image (truename "media/board.tga")))
(setf (entities-list +plane+) (list (make-instance 'entity)))
- (push (make-instance 'entity :image (truename "media/hellsteir_pg70.png")) (entities-list +plane+))
- (push (make-instance 'entity :image (truename "media/nell_pg70.png")) (entities-list +plane+))
- (push (make-instance 'entity :image (truename "media/rednex_pg70.png")) (entities-list +plane+))
- (push (make-instance 'entity :image (truename "media/aduial_pg70.png")) (entities-list +plane+))
(sdl2:with-event-loop (:method :poll)
(:quit () t)
(:mousebuttondown (:x x :y y :state state)