JosephFerano/tinyswords
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Deltatime movement

Browse Source
This commit is contained in:
Joseph Ferano 2024-11-18 21:58:35 +07:00
parent fcb067f5bd
commit ebf769eeb7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
game.lisp
View File

@ -87,7 +87,7 @@
(setf kpos click-pos) (setf kpos click-pos)
;; (setf (velocity knight1) (vec 0 0)) ;; (setf (velocity knight1) (vec 0 0))
(setf click-pos nil)) (setf click-pos nil))
(let ((vel (v* 3.0 (vunit* dist)))) (let ((vel (v* (* (rl:get-frame-time) 150.0) (vunit* dist))))
(setf (velocity knight1) vel) (setf (velocity knight1) vel)
(setf kpos (v+ kpos vel))))))))) (setf kpos (v+ kpos vel)))))))))
@ -134,7 +134,7 @@
(let* ((screen-width 900) (let* ((screen-width 900)
(screen-height 500)) (screen-height 500))
(rl:with-window (screen-width screen-height "RTS") (rl:with-window (screen-width screen-height "RTS")
(rl:set-target-fps 60) (rl:set-target-fps 120)
(game-init) (game-init)
(loop :until (rl:window-should-close) (loop :until (rl:window-should-close)
:do (game-input) :do (game-input)