diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 16:52:40 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 16:57:17 -0400 |
| commit | a9fc9ce2035e0db07baa6e732200265a90f66332 (patch) | |
| tree | d31b4d46cb14608b3bdf1f2a65b7186841949d0c /captain/external.f90 | |
| parent | 1e7a526f569ebce3687c43a907b45fc2e44fab23 (diff) | |
| download | levitating-a9fc9ce2035e0db07baa6e732200265a90f66332.tar.gz levitating-a9fc9ce2035e0db07baa6e732200265a90f66332.zip | |
Added player report of task type, which the captain will show in the job summary.
Diffstat (limited to 'captain/external.f90')
| -rw-r--r-- | captain/external.f90 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/captain/external.f90 b/captain/external.f90 index 467f1ca..07f52cb 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -94,7 +94,7 @@ contains character(1)::nl = new_line(' ') type(task), dimension(:), pointer::tasks - character(32)::task_text, job_text + character(32)::task_text, job_text, task_type character(len=:), pointer::task_results_filename character(len=:), pointer::player_link, instruction_link, result_link @@ -142,6 +142,10 @@ contains res = trim(res)//nl//result_link deallocate(result_link) + if(get_task_type(job_id, i, task_type)) then + res = trim(res)//" ("//trim(task_type)//")" + end if + end do deallocate(tasks) else |