- 威望
- 0
- 金钱
- 6792
- 贡献
- 0
- 最后登录
- 2025-2-16
- 注册时间
- 2024-5-30
- 主题
- 3302
- 精华
- 0
- 帖子
- 3380
|
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
if Player.GameGold < 100 then
Npc.MessageBox(Player, '你的元宝数量不足100');
if Player.Gold < 10000 then
begin
Player.Gold := Player.Gold + 50000; //金币数量直接+5W
Player.GoldChanged; //所有的金币、元宝及礼金数量发生变化后都调用此函数让客户端刷新
Npc.MessageBox(Player, '你太穷了,我送了5W金币');
end; |
|