``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var I: Integer; ATitle: THumTitle; begin //TitleCount 表示称号个数 for I := 0 to Player.TitleCount - 1 do begin ATitle := Player.TitleItems[I]; //取得一个具体的称号 //访问ATitle的属性,称号的属性是只读的,不可修改,其值根据数据库设置获取 end; end; ```