procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);begin if Player.GameGold 10最新传奇私服网0 then Npc.MessageBox(Playe法师pkr, 你的元宝数量不足100); if Player.Gold 10000 then begin 防盛大私服 Player.Gold := Player.Gold + 50000; //金币数量直接+5W Player.GoldChanged; //所有的金币、元宝及礼金数量发生变化后都调用此函数让客户端刷新 Npc.MessageBox(Player, 你太穷了,我送了5W金币); end;