#module_scripts

 # script_client_get_my_agent
  # Input:
  # Output: reg0 = agent_id_of_current_player
  ("client_get_my_agent",
   [
     (assign, reg0, -1),
     (try_begin),
       (assign, ":player_agent", -1),
       (try_begin),
         (game_in_multiplayer_mode),
         (multiplayer_get_my_player, ":my_player_no"),
         (player_is_active,":my_player_no"),
         (player_get_agent_id, ":player_agent", ":my_player_no"),
       (else_try),
         (get_player_agent_no, ":player_agent"),
       (try_end),

       (assign, reg0, ":player_agent"),
     (try_end),
   ]),