procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);begin if Player.GameGold 100 then Npc.MessageBox(Player, 你的元宝数量不足100); if Player.Gold 10000 then beg游戏战歌网in Player.Gold := Player.Gold + 500fuguchuanqi00; //金币数量直接+5W Player.GoldChang老传奇私服ed; //所有的金币、元宝及礼金数量发生变化后都调用此函数让客户端刷新 Npc.MessageBox(Player, 你太穷了，我送了5W金币); end;