aboutsummaryrefslogtreecommitdiff
path: root/captain/launch.f90
diff options
context:
space:
mode:
Diffstat (limited to 'captain/launch.f90')
-rw-r--r--captain/launch.f906
1 files changed, 6 insertions, 0 deletions
diff --git a/captain/launch.f90 b/captain/launch.f90
index 97e0a59..8a074a5 100644
--- a/captain/launch.f90
+++ b/captain/launch.f90
@@ -4,9 +4,15 @@ 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