用于战神引擎的北斗七星Npc脚本，玩家通过支付元宝，点亮NPC上面的七个星星，点亮以后，就能进入地图，没有点亮，元宝不退，地图也进不去，脚本是明文版，可以任意修改里面的内容。

部分脚本

program mir2;
var A,B,C,D,E,F,G :string; 
procedure domain;
begin
    if This_Player.GetV(51,1) > 0 then
    begin
       A := '<★/fcolor=151>';
    end else 
    begin
       A := '☆';
    end;
    if This_Player.GetV(51,2) > 0 then
    begin
       B := '<★/fcolor=151>';
    end else 
    begin
       B := '☆';
    end;
    if This_Player.GetV(51,3) > 0 then
    begin
       C := '<★/fcolor=151>';
    end else 
    begin
       C := '☆';
    end;
    if This_Player.GetV(51,4) > 0 then
    begin
       D := '<★/fcolor=151>';
    end else 
    begin
       D := '☆';
    end;
    if This_Player.GetV(51,5) > 0 then
    begin
       E := '<★/fcolor=151>';
    end else 
    begin
       E := '☆';
    end;
    if This_Player.GetV(51,6) > 0 then
    begin
       F := '<★/fcolor=151>';
    end else 
    begin
       F := '☆';
    end;
    if This_Player.GetV(51,7) > 0 then
    begin
       G := '<★/fcolor=151>';
    end else 
    begin
       G := '☆';
    end;
    if (This_Player.GetV(51,7) > 0) and (This_Player.GetV(51,6) > 0) and (This_Player.GetV(51,5) > 0) and (This_Player.GetV(51,4) > 0) and (This_Player.GetV(51,3) > 0) and(This_Player.GetV(51,2) > 0)and (This_Player.GetV(51,1)> 0) then
    begin
        This_NPC.NpcDialog(This_Player,
        '<点亮北斗七星即可进入终极地图/fcolor=21>'+
       +'|<点亮/@d1>      <天枢:            /fcolor=21>'+ A  
       +'|<点亮/@d2>      <天璇:                        /fcolor=21>'+ B 
       +'|<点亮/@d3>      <天玑:                     /fcolor=21>'+ C   
       +'|<点亮/@d4>      <天权:                 /fcolor=21>'+ D       
       +'|<点亮/@d5>      <玉衡:           /fcolor=21>'+ E         
       +'|<点亮/@d6>      <开阳:                              /fcolor=21>'+ F           
       +'|<点亮/@d7>      <瑶光:                   /fcolor=21>'+ G  
       +'|<                    /fcolor=151>' 
       +'|{cmd}<进入终极地图/@goto>'           
        );
    end else
    begin
        This_NPC.NpcDialog(This_Player,
        '<点亮北斗七星即可进入终极地图/fcolor=21>'+
       +'|<点亮/@d1>      <天枢:            /fcolor=21>'+ A  
       +'|<点亮/@d2>      <天璇:                        /fcolor=21>'+ B 
       +'|<点亮/@d3>      <天玑:                     /fcolor=21>'+ C   
       +'|<点亮/@d4>      <天权:                 /fcolor=21>'+ D       
       +'|<点亮/@d5>      <玉衡:           /fcolor=21>'+ E         
       +'|<点亮/@d6>      <开阳:                              /fcolor=21>'+ F           
       +'|<点亮/@d7>      <瑶光:                   /fcolor=21>'+ G 
       +'|{cmd}<土豪专享:5000元宝点亮全部/@t1>'            
       );
    end;
end;
procedure _d1;