77M2引擎如何收取城堡金币的脚本命令和示例

如何收取城堡金币

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.