zongor
/
mmo-project
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small fix

This commit is contained in:
zongor 2023-10-14 12:09:01 -04:00
parent cd803751d9
commit abb74e63c5
4 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
common/sql/test.db3
View File

Binary file not shown.

2
fortran/client/app/main.f90
View File

@ -53,7 +53,7 @@ program main
call me%sync_camera(camera) call me%sync_camera(camera)
time = get_time() 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 if (player_updated) then
players = me%move() players = me%move()
else else

1
fortran/client/install.sh Executable file
View File

@ -0,0 +1 @@
fpm install --flag '-fno-range-check'

4
fortran/client/src/player.f90
View File

@ -107,7 +107,7 @@ contains
call json%add(user, 'username', local_username) call json%add(user, 'username', local_username)
call json%add(user, 'x_pos', this%position%x) 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(user, 'command', request_type)
call json%add(root, user) call json%add(root, user)
@ -167,7 +167,7 @@ contains
if (request_type .eq. 1) then if (request_type .eq. 1) then
print *, 'login, setting pos' print *, 'login, setting pos'
this%position%x = x_pos this%position%x = x_pos
this%position%y = y_pos this%position%z = y_pos
print *, x_pos, y_pos print *, x_pos, y_pos
print *, 'login, setting apperance' print *, 'login, setting apperance'