如何收取城堡金币
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.
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
