押镖和镖车奖励自定义NPC脚本

用于战神引擎押镖和镖车奖励自定义NPC脚本，帮主提取了对应的脚本2个和NPC窗口素材，你们要使用演示视频一样的效果，必须要使用裤衩或者登陆器插件才支持，脚本经过帮主亲自测试，没有任何问题，上面也有测试视频，明文版的文件，根据自己的要求，可以任意修改押镖的地点和奖励内容。
押镖和镖车奖励自定义NPC脚本
部分脚本

program mir2;
procedure _11; 
var today , num: integer;
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(14,1) <> today then     
    begin
       This_Player.SetV(14,1,today);
       This_Player.SetV(14,2,0);
    end;
             //初始化变量值，每天首次触发，将领取变量设置为0
      num := This_Player.GetV(14,2);  //获取已领取次数，**取值时切记写在初始化之后
    if (This_Player.GetSlaveCount('普通镖车') < 1 ) and (This_Player.GetSlaveCount('青铜镖车') < 1 )  and (This_Player.GetSlaveCount('白银镖车') < 1) and (This_Player.GetSlaveCount('黄金镖车') < 1 ) and (This_Player.GetSlaveCount('钻石镖车') < 1 ) then
begin
   if  num < 5 then begin if This_Player.YBnum >= 0 then   
    begin
       This_Player.SetV(14,2, num + 1);
       This_Player.MakeSlaveEx('普通镖车' , 1 ,0);
       ServerSay('【提示】ぐ『' + This_Player.Name + '』领取了普通镖车,大家有仇报仇，有怨报怨！！', 3); 
    end else
   This_Player.PlayerDialog('未知错误!' );
	  end else
   This_Player.PlayerDialog('少侠,您今天已经押镖5次了,请明天再来!');
	  end else
   This_Player.PlayerDialog('您已经领取了镖车,请先当前镖车押送过去吧！');
end;
procedure _22; 
var today , num: integer;
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(14,1) <> today then     
    begin
       This_Player.SetV(14,1,today);
       This_Player.SetV(14,2,0);
    end;
             //初始化变量值，每天首次触发，将领取变量设置为0
      num := This_Player.GetV(14,2);  //获取已领取次数，**取值时切记写在初始化之后
    if (This_Player.GetSlaveCount('普通镖车') < 1 ) and (This_Player.GetSlaveCount('青铜镖车') < 1 )  and (This_Player.GetSlaveCount('白银镖车') < 1) and (This_Player.GetSlaveCount('黄金镖车') < 1 ) and (This_Player.GetSlaveCount('钻石镖车') < 1 ) then
begin
   if  num < 5 then begin if This_Player.YBnum >= 2000 then   
    begin
       This_Player.ScriptRequestSubYBNum(2000);
       This_Player.SetV(14,2, num + 1);
       This_Player.MakeSlaveEx('青铜镖车' , 1 ,0);
       ServerSay('【提示】ぐ『' + This_Player.Name + '』领取了青铜镖车,大家有仇报仇，有怨报怨！！', 3); 
    end else
   This_Player.PlayerDialog('少侠,您没有2000元宝,无法押送白银镖车!' );
	  end else
   This_Player.PlayerDialog('少侠,您今天已经押镖5次了,请明天再来!');
	  end else
   This_Player.PlayerDialog('您已经领取了镖车,请先当前镖车押送过去吧！');
end;
procedure _33; 
var today , num: integer;
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(14,1) <> today then     
    begin
       This_Player.SetV(14,1,today);
       This_Player.SetV(14,2,0);
    end;
             //初始化变量值，每天首次触发，将领取变量设置为0
      num := This_Player.GetV(14,2);  //获取已领取次数，**取值时切记写在初始化之后
    if (This_Player.GetSlaveCount('普通镖车') < 1 ) and (This_Player.GetSlaveCount('青铜镖车') < 1 )  and (This_Player.GetSlaveCount('白银镖车') < 1) and (This_Player.GetSlaveCount('黄金镖车') < 1 ) and (This_Player.GetSlaveCount('钻石镖车') < 1 ) then
begin
   if  num < 5 then begin if This_Player.YBnum >= 3000 then   
    begin
        This_Player.ScriptRequestSubYBNum(3000);
       This_Player.SetV(14,2, num + 1);
       This_Player.MakeSlaveEx('白银镖车' , 1 ,0);
       ServerSay('【提示】ぐ『' + This_Player.Name + '』领取了白银镖车,大家有仇报仇，有怨报怨！！', 3); 
    end else
   This_Player.PlayerDialog('少侠,您没有3000元宝,无法押送白银镖车!' );
	  end else
   This_Player.PlayerDialog('少侠,您今天已经押镖5次了,请明天再来!');
	  end else
   This_Player.PlayerDialog('您已经领取了镖车,请先当前镖车押送过去吧！');
end;
procedure _44; 
var today , num: integer;
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(14,1) <> today then     
    begin
       This_Player.SetV(14,1,today);
       This_Player.SetV(14,2,0);
    end;
             //初始化变量值，每天首次触发，将领取变量设置为0
      num := This_Player.GetV(14,2);  //获取已领取次数，**取值时切记写在初始化之后
    if (This_Player.GetSlaveCount('普通镖车') < 1 ) and (This_Player.GetSlaveCount('青铜镖车') < 1 )  and (This_Player.GetSlaveCount('白银镖车') < 1) and (This_Player.GetSlaveCount('黄金镖车') < 1 ) and (This_Player.GetSlaveCount('钻石镖车') < 1 ) then
begin
   if  num < 5 then begin if This_Player.MyLFnum >= 20 then   
    begin
       This_Player.DecLF(0,20, false);
       This_Player.SetV(14,2, num + 1);
       This_Player.MakeSlaveEx('黄金镖车' , 1 ,0);
       ServerSay('【提示】ぐ『' + This_Player.Name + '』领取了黄金镖车,大家有仇报仇，有怨报怨！！', 3); 
    end else
   This_Player.PlayerDialog('少侠,您没有20灵符,无法押送黄金镖车!');
	  end else
   This_Player.PlayerDialog('少侠,您今天已经押镖5次了,请明天再来!');
	  end else
   This_Player.PlayerDialog('您已经领取了镖车,请先当前镖车押送过去吧！');
end;
procedure _55; 
var today , num: integer;
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(14,1) <> today then     
    begin
       This_Player.SetV(14,1,today);
       This_Player.SetV(14,2,0);
    end;
             //初始化变量值，每天首次触发，将领取变量设置为0
      num := This_Player.GetV(14,2);  //获取已领取次数，**取值时切记写在初始化之后
    if (This_Player.GetSlaveCount('普通镖车') < 1 ) and (This_Player.GetSlaveCount('青铜镖车') < 1 )  and (This_Player.GetSlaveCount('白银镖车') < 1) and (This_Player.GetSlaveCount('黄金镖车') < 1 ) and (This_Player.GetSlaveCount('钻石镖车') < 1 ) then
begin
   if  num < 5 then begin if This_Player.MyLFnum >= 50 then   
    begin
       This_Player.DecLF(0,50, false);
       This_Player.SetV(14,2, num + 1);
       This_Player.MakeSlaveEx('钻石镖车' , 1 ,0);
       ServerSay('【提示】ぐ『' + This_Player.Name + '』领取了钻石镖车,大家有仇报仇，有怨报怨！！', 3); 
    end else
   This_Player.PlayerDialog('少侠,您没有50灵符,无法押送钻石镖车!');
	  end else
   This_Player.PlayerDialog('少侠,您今天已经押镖5次了,请明天再来!');
	  end else
   This_Player.PlayerDialog('您已经领取了镖车,请先当前镖车押送过去吧！');
end;
procedure _quxiao; 
begin
This_Player.SetS(1,1,14);//杀死宝宝,可在登录脚本调用!
end;
begin
	if  (GetHour() = 17) or (GetHour() = 19) and (GetMin() <= 59) then 
   begin
This_Npc.NpcDialog(This_Player,
'Bg:yabiao:0|'+
'Exit:duihuakuang:4:4:780:45|'+
'1:Text:120:90:18:普通镖车@255|'+
'1:Text:255:90:18:青铜镖车@215|'+
'1:Text:395:90:18:白银镖车@254|'+
'1:Text:555:90:18:黄金镖车@251|'+
'1:Text:720:90:18:钻石镖车@253|'+
'1:Spr:yabiao:1:6:105:200:0.1:0.8|'+
'1:Spr:yabiao:7:12:235:200:0.1:0.75|'+
'1:Spr:yabiao:13:18:375:200:0.1:0.75|'+
'1:Spr:yabiao:19:24:525:200:0.1:0.7|'+
'1:Spr:yabiao:25:30:685:200:0.1:0.6|'+
'1:Btn:zs:1:120:330:@11|'+
'1:Text:120:330:18:接   标@254|'+
'1:Btn:zs:1:255:330:@22|'+
'1:Text:255:330:18:接   标@254|'+
'1:Btn:zs:1:395:330:@33|'+
'1:Text:395:330:18:接   标@254|'+
'1:Btn:zs:1:555:330:@44|'+
'1:Text:555:330:18:接   标@254|'+
'1:Btn:zs:1:720:330:@55|'+
'1:Text:720:330:18:接   标@254|'+
'1:Btn:zs:1:425:460:@quxiao|'+
'1:Text:425:460:18:取消镖车@254|'+
'1:Text:425:380:18:镖行天下系统可获得时装碎片、天地灵气、羽毛等材料和经验@254|'+
'1:Text:425:410:18:请把物资运送到土城71，171物资接收员处换取奖励@253|'+
'1:Text:200:460:32:每天可押5次镖@253|'+
	'|{cmd}</@11> </@22> </@33> </@44> </@55> </@quxiao>'
    );
    end else 
//	if This_Player.Level < 88000 then  
   begin
This_Npc.NpcDialog(This_Player,
'Bg:yabiao:0|'+
'Exit:duihuakuang:4:4:780:45|'+
'1:Text:120:90:18:普通镖车@255|'+
'1:Text:255:90:18:青铜镖车@215|'+
'1:Text:395:90:18:白银镖车@254|'+
'1:Text:555:90:18:黄金镖车@251|'+
'1:Text:720:90:18:钻石镖车@253|'+
'1:Spr:yabiao:1:6:105:200:0.1:0.8|'+
'1:Spr:yabiao:7:12:235:200:0.1:0.75|'+
'1:Spr:yabiao:13:18:375:200:0.1:0.75|'+
'1:Spr:yabiao:19:24:525:200:0.1:0.7|'+
'1:Spr:yabiao:25:30:685:200:0.1:0.6|'+
'1:Btn:zs:1:120:330:@11|'+
'1:Text:120:330:18:接   标@254|'+
'1:Btn:zs:1:255:330:@22|'+
'1:Text:255:330:18:接   标@254|'+
'1:Btn:zs:1:395:330:@33|'+
'1:Text:395:330:18:接   标@254|'+
'1:Btn:zs:1:555:330:@44|'+
'1:Text:555:330:18:接   标@254|'+
'1:Btn:zs:1:720:330:@55|'+
'1:Text:720:330:18:接   标@254|'+
'1:Btn:zs:1:425:460:@quxiao|'+
'1:Text:425:460:18:取消镖车@254|'+
'1:Text:425:380:18:镖行天下系统可获得时装碎片、天地灵气、羽毛等材料和经验@254|'+
'1:Text:425:410:18:请把物资运送到土城71，171物资接收员处换取奖励@253|'+
'1:Text:200:460:32:每天可押5次镖@253|'+
	'|{cmd}</@11> </@22> </@33> </@44> </@55> </@quxiao>'
	);
end;
end.
分享到：
赞(0)