From abb74e63c5af9c11855af226fa729978425e55cd Mon Sep 17 00:00:00 2001
From: zongor <admin@alfrescocavern.com>
Date: Sat, 14 Oct 2023 12:09:01 -0400
Subject: [PATCH] small fix

---
 common/sql/test.db3           | Bin 8192 -> 8192 bytes
 fortran/client/app/main.f90   |   2 +-
 fortran/client/install.sh     |   1 +
 fortran/client/src/player.f90 |   4 ++--
 4 files changed, 4 insertions(+), 3 deletions(-)
 create mode 100755 fortran/client/install.sh

diff --git a/common/sql/test.db3 b/common/sql/test.db3
index 07210a49fd80335921b54bb71abb8fb98c037868..54b22f88042f1e4041a5944471da95e40b28ed3a 100644
GIT binary patch
delta 124
zcmZp0XmFSy#l$K$QN{^KZcJFn&&_|Ifr-DCfxni2?PfuN6#j_;tS0=|84MVJK#!4|
zL0p`XiHV(^gC#j5F}ujn$k@a*iD3c5D+h67qX$4W2iVfm8i4fVQ}Rj@_9th~2MO-~
UbLPweAf58hg9At@PIQz706U`~F8}}l

delta 118
zcmZp0XmFSy#l*rmQN{^KZcJFn&&|NVz{J0lfqyCgxy^zCDf|-ySb6xbGZ+BHK_GBq
zp^B<HBR7M%I3p7iJ0k~6az<iyk)e^XiD?qU0)|)iKWENt04ijfyi#6C#6i*6=m3zn
P|IeAT3P3vLp9cp36S^F|

diff --git a/fortran/client/app/main.f90 b/fortran/client/app/main.f90
index fe84477..d2517c5 100644
--- a/fortran/client/app/main.f90
+++ b/fortran/client/app/main.f90
@@ -53,7 +53,7 @@ program main
       call me%sync_camera(camera)
 
       time = get_time()
-      if (modulo(time, 1.0) .ge. 0.58_c_double) then
+      if (modulo(time, 1.0) .ge. 0.98_c_double) then
          if (player_updated) then
             players = me%move()
          else
diff --git a/fortran/client/install.sh b/fortran/client/install.sh
new file mode 100755
index 0000000..601a24b
--- /dev/null
+++ b/fortran/client/install.sh
@@ -0,0 +1 @@
+fpm install --flag '-fno-range-check'
diff --git a/fortran/client/src/player.f90 b/fortran/client/src/player.f90
index 846ca10..46cb013 100644
--- a/fortran/client/src/player.f90
+++ b/fortran/client/src/player.f90
@@ -107,7 +107,7 @@ contains
 
       call json%add(user, 'username', local_username)
       call json%add(user, 'x_pos', this%position%x)
-      call json%add(user, 'y_pos', this%position%y)
+      call json%add(user, 'y_pos', this%position%z)
       call json%add(user, 'command', request_type)
 
       call json%add(root, user)
@@ -167,7 +167,7 @@ contains
          if (request_type .eq. 1) then
             print *, 'login, setting pos'
             this%position%x = x_pos
-            this%position%y = y_pos
+            this%position%z = y_pos
             print *, x_pos, y_pos
 
             print *, 'login, setting apperance'