diff --git a/common/sql/test.db3 b/common/sql/test.db3 index 07210a4..54b22f8 100644 Binary files a/common/sql/test.db3 and b/common/sql/test.db3 differ 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'