战神引擎多功能综合会员服务Npc脚本

用于战神引擎多功能综合会员服务Npc脚本，脚本功能非常的丰富，可以修改发型，改变性别、领取元宝、购买宝宝、清洗Pk值、领取每日维持金、会员兑换、领取装备等，脚本是明文版的，可以任意修改里面的内容。脚本牵扯到了2份文件，不能直接覆盖，要单独提取添加到自己的版本里面。

战神引擎多功能综合会员服务Npc脚本

部分脚本

program Mir2;
{$I common.pas}
{$I ActiveValidateCom.pas} 
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
Procedure _GetYB;
var 
d2,d3 : integer;
s1 , td : double;
begin
	s1 := GetNow;
	d2 := This_Player.GetS(23,1);
    td := ConvertDBToDateTime(d2);
	d3 := minusDataTime(s1,td);
	if (d3 >= 30) or (This_Player.GetS(23,2) < 3) then
	begin
		This_Player.QueryAwardCode(This_Player.Name);
		This_Npc.CloseDialog(This_Player);
	end else
	   This_Npc.NpcDialog(This_Player,
	   '你操作太快，连续领取3次没有成功，将锁定30秒！请' + inttostr(30 - d3) + '秒后再次尝试！'
	   );
end;
Procedure _chongzhi;
Begin     
    This_Npc.NpcDialog(This_Player,
	+'|点击下方血槽打开功能键,点击充值'
	+'|充值完毕可点我领取元宝'
	+'|没充值不要乱点,会锁定的哦'
	+'|　'
    +'|{cmd}<领取元宝/@GetYB>'
    );
end;
Procedure _huigong;
Begin     
    This_Npc.NpcDialog(This_Player,
	+'|    会员，就是通过赞助服务运行而获得了特'
	+'|别服务的玩家，拥有普通玩家所不具备的一些特'
	+'|殊功能。会员是有等级的，会员划分为三个等级'
	+'|　'
    +'|{cmd}<普通会员/@putong>^<高级会员/@gaoji>^<黄金会员/@huangjin>'
    +'|{cmd}<返回/@main>'
    );
end;
Procedure _huangjin;
Begin     
    This_Npc.NpcDialog(This_Player,
	+'|黄金会员：'
	+'|   拥有理发、减罪恶服务、买宝宝服务。'
	+'|   每天发放“会员维持金”200W。免传送费用'
	+'|传送证。'
	+'|   48级后在领取会员维持金时，有50%几率。'
	+'|1点声望。'
	+'|　'
    +'|{cmd}<返回/@main>'
    );
end;
Procedure _gaoji;
Begin     
    This_Npc.NpcDialog(This_Player,
	+'|高级会员：'
	+'|   拥有理发、减罪恶服务、买宝宝服务。'
	+'|免传送费用、传送证。'
	+'|每天发放“会员维持金”100W。'
	+'|　'
    +'|{cmd}<返回/@main>'
    );
end;
Procedure _putong;
Begin     
    This_Npc.NpcDialog(This_Player,
	+'|普通会员：'
	+'|   拥有减罪恶服务。免传送费用、传送证。'
	+'|每天发放“会员维持金”50W。'
	+'|　'
    +'|{cmd}<返回/@main>'
    );
end;
Procedure _shenghui;
Begin     
    This_Npc.NpcDialog(This_Player,
	+'|    现在您可以用您的声望来换取会员服务，但'
	+'|换取的会员服务只能使用到凌晨12点。'
	+'|    换取普通会员服务需要1点声望，换取高级'
	+'|会员服务需要2点声望，换取黄金会员服务需要4'
	+'|点声望。'
	+'|　'
	+'|{cmd}<换取普通会员服务/@huanpu>^<换取高级会员服务/@huangao>'
	+'|{cmd}<换取黄金会员服务/@huanhuang>^<返回/@main>'
    );
end;
procedure _huanpu;
var
pu : integer; 
begin
pu := This_Player.getV(92,1);
          if This_Player.Myshengwan >= 1 then
			begin
             This_Player.MyShengwan := This_Player.MyShengwan-1;
             This_Player.SetV(92,1,pu + 1);
			 This_Player.PlayerDialog('你已经成功成为普通会员，有效期为1天');
			end else
            This_Player.PlayerDialog('你没有1点声望。');
end ;
procedure _huangao;
var
gao : integer; 
begin
gao := This_Player.getV(55,2);
          if This_Player.Myshengwan >= 2 then
			begin
             This_Player.MyShengwan := This_Player.MyShengwan-2;
             This_Player.SetV(55,2,gao + 1);
			 This_Player.PlayerDialog('你已经成功成为高级会员，有效期为1天');
			end else
            This_Player.PlayerDialog('你没有2点声望。');
end ;
procedure _huanhuang;

分享到：

赞(0)