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.

我只是路过打酱油的。

无回帖，不论坛，这才是人道。

激动人心，无法言表！

真是被感动的痛哭流涕……

感恩无私的分享与奉献 :)

真是难得给力的帖子啊。

真是被感动的痛哭流涕……

我只是路过打酱油的。

无回帖，不论坛，这才是人道。