program main use iso_c_binding use raylib implicit none integer(c_int) :: screen_width = 800 integer(c_int) :: screen_height = 450 type(camera3d), target :: camera type(vector3) :: npc_position type(vector3) :: player_position real(c_float) :: npc_dir logical :: player_updated ! ! implement a login and logout screen ! https://www.raylib.com/examples/core/loader.html?name=core_basic_screen_manager ! https://www.raylib.com/examples/text/loader.html?name=text_input_box ! call init_window(screen_width, screen_height, "fortran client : raylib"//c_null_char) player_position = vector3( 0.0_c_float, 1.0_c_float, 2.0_c_float ) npc_position = vector3( -4.0_c_float, 1.0_c_float, 0.0_c_float ) npc_dir = 0.1_c_float camera%position = vector3(0.0_c_float, 10.0_c_float, 10.0_c_float) !Camera position camera%target = vector3(0.0_c_float, 0.0_c_float, 0.0_c_float) !Camera looking at point camera%up = vector3(0.0_c_float, 1.0_c_float, 0.0_c_float) !Camera up vector(rotation towards target) camera%fovy = 45.0_c_float !Camera field - of - view Y camera%projection = CAMERA_PERSPECTIVE !Camera projection type call set_target_fps(60_c_int) ! ! do login stuff here ! !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 else if (is_key_down(KEY_LEFT)) then player_position%x = player_position%x - 0.2_c_float else if (is_key_down(KEY_DOWN)) then player_position%z = player_position%z + 0.2_c_float else if (is_key_down(KEY_UP)) then player_position%z = player_position%z - 0.2_c_float end if camera%position%x = player_position%x camera%position%y = player_position%y + 10.0_c_float camera%position%z = player_position%z + 10.0_c_float camera%target%x = player_position%x camera%target%y = player_position%y camera%target%z = player_position%z ! if player updated ! send new player postition to server ! else ! send ping to server ! read response ! for each user in logged in ! if (npc_position%x < -10) then ! npc_dir = 0.1_c_float ! else if (npc_position%x > 10) then ! npc_dir = -0.1_c_float ! end if ! npc_position%x = npc_position%x + npc_dir call begin_drawing() call clear_background(RAYWHITE) call begin_mode_3d(camera) ! Draw floor call draw_grid(30_c_int, 1.0_c_float) ! Draw other users call draw_cube(npc_position, 0.5_c_float, 0.5_c_float, 0.5_c_float, GRAY) call draw_cube_wires(npc_position, 0.5_c_float, 0.5_c_float, 0.5_c_float, DARKGRAY) !Draw player cube call draw_cube(player_position, 0.5_c_float, 0.5_c_float, 0.5_c_float, PURPLE) call draw_cube_wires(player_position, 0.5_c_float, 0.5_c_float, 0.5_c_float, DARKPURPLE) call end_mode_3d() call end_drawing() end do ! ! send logout call to server ! call close_window() !Close window and OpenGL context contains end program main