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;
|
|