That's actually simple:
procedure map_enter_p_proc begin
critter_add_trait(self_obj,TRAIT_OBJECT,OBJECT_TEAM_NUM,TEAM_PLAYER);
end
Teams can be switched via other procedures using simple variable blocks (in combat_p_proc, for example, have a look at mcjo.ssl /Jo in Modoc). Having a...