diff --git a/xhampion.adb b/xhampion.adb index ca870f0..4f0f616 100644 --- a/xhampion.adb +++ b/xhampion.adb @@ -55,10 +55,10 @@ begin gameplay: loop exit when window_should_close; - if is_key_pressed (key_w) then movement.x := movement.x + 1.0; - elsif is_key_pressed (key_s) then movement.x := movement.x - 1.0; - elsif is_key_pressed (key_a) then movement.y := movement.y - 1.0; - elsif is_key_pressed (key_d) then movement.y := movement.y + 1.0; + if is_key_pressed (key_w) then movement.x := movement.x + 0.1; + elsif is_key_pressed (key_s) then movement.x := movement.x - 0.1; + elsif is_key_pressed (key_a) then movement.y := movement.y - 0.1; + elsif is_key_pressed (key_d) then movement.y := movement.y + 0.1; end if; dd := get_mouse_delta;