procedureMain(Npc:TNormNpc;Player:TPlayObject;Args:TArgs);
begin
ifPlayer.GameGold<100then
Npc.MessageBox(Player'你的元宝数量不足100');
ifPlayer.Gold<10000then
begin
Player.Gold:=Player.Gold+50000;//金币数量直接+5W
Player.GoldChanged;//所有的金币、元宝及礼金数量发生变化后都调用此函数让客户端刷新
Npc.MessageBox(Player'你太穷了,我送了5W金币');
end;
begin
ifPlayer.GameGold<100then
Npc.MessageBox(Player'你的元宝数量不足100');
ifPlayer.Gold<10000then
begin
Player.Gold:=Player.Gold+50000;//金币数量直接+5W
Player.GoldChanged;//所有的金币、元宝及礼金数量发生变化后都调用此函数让客户端刷新
Npc.MessageBox(Player'你太穷了,我送了5W金币');
end;

