用于战神引擎押镖和镖车奖励自定义NPC脚本,小鱼提取了对应的脚本2个和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.