145z

如何收取城堡金币

unit Q2;

inte**ce
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.