用于战神引擎的升级奖励Npc脚本，使用了自定义NPC对话框，带了后台清理功能，自定义对话框必须要使用或者裤衩插件，脚本是明文版，可以任意修改里面的奖励名额、奖品等内容。

部分脚本

procedure _GetFreeGold4;  //方法
var Snum4: Integer;//局部语法变量声明
begin
    Snum4 := GetG(72,2)
    if Snum4 < 5 then
    begin 
        if This_Player.GetV(16,4) <> 1 then
        begin
            if This_Player.Level >= 62 then
          begin
            if This_Player.FreeBagNum >= 3 then
            begin 
                case This_Player.Job of
               0 : 
               begin
                 This_Player.Give('火龙战带',1);
               end;
               1 : 
               begin
                 This_Player.Give('火龙魔带',1);
               end;
               2 : 
               begin
                 This_Player.Give('火龙道带',1);
               end;
           end;
				 ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了62级奖励！', 70);
                This_Player.SetV(16,4,1);
                SetG(72,2,Snum4 + 1);
                This_NPC.NpcDialog(This_Player,
               '恭喜你领取成功');
            end else
            This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
          end else
          This_NPC.NpcDialog(This_Player,'你的等级不足62级'); 
        end else
        This_NPC.NpcDialog(This_Player,'你已领取了奖励');
    end else
    This_NPC.NpcDialog(This_Player,'62级奖励已全部领取！');
end;

procedure _qing;
begin

SetG(63,2,0);
SetG(64,2,0);
SetG(65,2,0);
SetG(72,2,0);
SetG(67,2,0);
SetG(68,2,0);
SetG(69,2,0);
This_Player.SetV(13,4,0);
This_Player.SetV(14,4,0);
This_Player.SetV(15,4,0);
This_Player.SetV(16,4,0);
This_Player.SetV(17,4,0);
This_Player.SetV(18,4,0);
This_Player.SetV(19,4,0);
        This_NPC.NpcDialog(This_Player,
        '清理成功!\|'
        +'{cmd}<返回/@main>');
end;

var Snum1 , Snum2 , Snum3 , Snum4 , Snum5 , Snum6 , Snum7 , Snum8 , Snum9 , Snum10 , Snum11   : Integer; //主函数入口
begin
    begin
     Snum1 := GetG(63,2)
     Snum2 := GetG(64,2)
	 Snum3 := GetG(65,2)
	 Snum4 := GetG(72,2)	
     Snum5 := GetG(67,2)
     Snum6 := GetG(68,2)
	 Snum7 := GetG(69,2)	
    end;
	if This_Player.GMLevel > 4  then
    begin
    This_NPC.NpcDialog( This_Player,
    '|{cmd}<管理清理全局/@qing>'
	);
	 end
	 else
    This_NPC.NpcDialog( This_Player,