From ebf769eeb747200a121aae38b8b5928037b6ee82 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Mon, 18 Nov 2024 21:58:35 +0700 Subject: [PATCH] Deltatime movement --- game.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/game.lisp b/game.lisp index 7fc8f19..fc32493 100644 --- a/game.lisp +++ b/game.lisp @@ -87,7 +87,7 @@ (setf kpos click-pos) ;; (setf (velocity knight1) (vec 0 0)) (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 kpos (v+ kpos vel))))))))) @@ -134,7 +134,7 @@ (let* ((screen-width 900) (screen-height 500)) (rl:with-window (screen-width screen-height "RTS") - (rl:set-target-fps 60) + (rl:set-target-fps 120) (game-init) (loop :until (rl:window-should-close) :do (game-input)