- 威望
- 0
- 金钱
- 6792
- 贡献
- 0
- 最后登录
- 2025-2-16
- 注册时间
- 2024-5-30
- 主题
- 3302
- 精华
- 0
- 帖子
- 3380
|
如何收取城堡金币
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. |
|