``` procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs); begin if Player.AttackMode = amAll then //如果当前是全体攻击模式 begin Player.AttackMode := amPeaceful; //修改成和平攻击模式 Player.SendCenterMessage('攻击模式由{S=全体;C=249}改为了{S=和平;C=250}。。。', 0); end; end; ```