Merge branch 'main' of https://git.alfrescocavern.com/zongor/mmo-project

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

fortran/client/install.sh

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

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'

fortran/client/test/check.f90

@@ -1,5 +0,0 @@
-program check
-implicit none
-
-print *, "Put some tests in here!"
-end program check

fortran/server/src/db.f90

@@ -119,7 +119,6 @@ contains
    end function db_add_user
 
    integer function db_delete_user(db, username) result(rc)
-        !! Adds student to database.
       type(db_type), intent(inout) :: db
       character(len=*), intent(in)    :: username
       type(c_ptr)                     :: stmt
@@ -141,7 +140,6 @@ contains
    end function db_delete_user
 
    integer function db_get_logged_in_users(db, connection) result(rc)
-        !! Prints number of courses per student to standard output.
       type(db_type), intent(inout) :: db
       integer(c_int), intent(inout) :: connection
       character(len=*), parameter :: TCP_SUFFIX = c_carriage_return // c_new_line // c_null_char
@@ -274,7 +272,6 @@ contains
    end function db_move_user
 
    subroutine db_error(code, proc, err_msg)
-        !! Prints error message.
       integer, intent(in)           :: code
       character(len=*), intent(in), optional :: proc
       character(len=*), intent(in), optional :: err_msg

fortran/server/test.sh

@@ -1,3 +1,2 @@
 #!/bin/sh
-#listen1 'tcp!*!35565'
 ~/.local/bin/fortran-mmo-server ../../common/sql/test.db3

fortran/server/test/server_test.f90

@@ -1,7 +0,0 @@
-program main
-   use iso_fortran_env
-   implicit none
-
-   write(output_unit, "(i3, 1x, a24, 1x, f8.2, 1x, f8.2)") 0, 'chakr', 0.0, 0.0
-
-end program main

fortran/www/src/db.f90

@@ -72,7 +72,6 @@ contains
     integer function db_add_user(db, username, password, apperance_r, apperance_g, apperance_b, &
         x_pos, y_pos, logged_in, created) result(rc)
 
-        !! Adds student to database.
         type(db_type),    intent(inout) :: db
         character(len=*), intent(in)    :: username
         character(len=*), intent(in)    :: password
@@ -120,7 +119,6 @@ contains
 
 
     integer function db_delete_user(db, username) result(rc)
-        !! Adds student to database.
         type(db_type),    intent(inout) :: db
         character(len=*), intent(in)    :: username
         type(c_ptr)                     :: stmt
@@ -142,7 +140,6 @@ contains
     end function db_delete_user
 
     integer function db_count_logged_in_users(db) result(rc)
-        !! Prints number of courses per student to standard output.
         type(db_type), intent(inout) :: db
 
         type(c_ptr)      :: stmt
@@ -173,7 +170,6 @@ contains
     end function db_count_logged_in_users
 
     integer function db_get_logged_in_users(db) result(rc)
-        !! Prints number of courses per student to standard output.
         type(db_type), intent(inout) :: db
 
         type(c_ptr)      :: stmt