aboutsummaryrefslogtreecommitdiff
path: root/captain/launch.f90
blob: 8a074a5187318c37906c643e6b1de4c026b8b0fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
module remote_launch
implicit none

contains

    subroutine launch_instructions_on_player(instruction, player)
    use captain_db
    implicit none
    
        character(*), intent(in)::instruction, player
        integer::instruction_id, player_id
        
        instruction_id = get_instruction_id(instruction)
        player_id = get_player_id(player)
        call add_new_job(instruction_id, player_id)
        
    end subroutine launch_instructions_on_player


end module remote_launch