``` unit Q2; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.TakeCastGold(10000); //将城堡的金币-10000 //直接针对城堡对象的操作方法 if Player.Castle <> nil then begin Player.Castle.TotalGold := Player.Castle.TotalGold - 10000; end; end; end. ```