``` unit Q55; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.ObserverMode := True; //隐身模式开启 Player.SuperManMode := True; //无敌模式开启 end; end. ```