This commit is contained in:
zongor 2023-09-17 09:40:35 -04:00
parent 0336cfaeb3
commit 8bbf0b584f
1 changed files with 8 additions and 3 deletions

View File

@ -35,18 +35,23 @@ program main
!
! do login stuff here
!
!call execute_command_line('mkfifo /tmp/fortran-mmo-in.pipe && mkfifo /tmp/fortran-mmo-out.pipe')
!Main game loop
do while (.not. window_should_close()) ! Detect window close button or ESC key
if (is_key_down(KEY_RIGHT)) then
player_position%x = player_position%x + 0.2_c_float
player_updated = .true.
else if (is_key_down(KEY_LEFT)) then
player_position%x = player_position%x - 0.2_c_float
player_updated = .true.
else if (is_key_down(KEY_DOWN)) then
player_position%z = player_position%z + 0.2_c_float
player_updated = .true.
else if (is_key_down(KEY_UP)) then
player_position%z = player_position%z - 0.2_c_float
player_updated = .true.
end if
camera%position%x = player_position%x
@ -59,6 +64,7 @@ program main
! if player updated
! send new player postition to server
! call execute_command_line('nc localhost 35565 < /tmp/fortran-mmo-in.pipe > /tmp/fortran-mmo-out.pipe')
! else
! send ping to server
! read response
@ -94,7 +100,6 @@ program main
!
call close_window() !Close window and OpenGL context
call execute_command_line('rm /tmp/fortran-mmo.pipe')
contains
end program main
end program main