``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var I: Integer; begin //SkillCount：技能个数 //Skills[n]: 第n个技能 for I := 0 to Player.SkillCount - 1 do begin Player.SendMessage(Format('技能:%s, 等级:%d', [Player.Skills[I].Name, Player.Skills[I].Level])); //Player.Skills[I].Level := 3; //修改技能信息 end; end; ```