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;

 

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。