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