投稿
  1. 首页
  2. IT百科

传奇私服武力盾添加

taiki • 2023-4-10 • IT百科 • 阅读 31

传奇私服武力盾添加,第1张

无法添加。传奇私服武力盾是打怪爆出来的，不可以自己添加。《传奇》系列产品的制作者是韩国企业Actoz，这一家公司成立于1996年，Actoz在1998年发布了一款名叫《传奇霸王战》的电脑游戏。

战神引擎转生脚本(总共20转带物品数据库)，如果你们添加的版本里面已经有了转生证明，那么不需要添加DB，没有就记得从压缩包里面的SQL文件里面找到转生证明，添加到你的版本里面去，转生需要的添加在脚本里面自由修改，包括赠送的物品，默认赠送的是技能书。

{

*******************************************************************}

program Mir2

procedure _doexit

begin

This_Npc.CloseDialog(This_Player)

end

procedure _yi

begin

if (This_Player.GetBagItemCount (‘转生证明’) >= 1) and (This_Player.YBNum >= 100) then

begin

This_Player.Take(‘转生证明’,1)

This_Player.ScriptRequestSubYBNum(100)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,100,1)

This_Player.Give(‘一转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于一转,送他一转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有1个金刚石或者没有足够的元宝！’)

end

procedure _er

begin

if (This_Player.GetBagItemCount (‘一转玉佩’) >= 1) and (This_Player.YBNum >= 500) then

begin

This_Player.Take(‘一转玉佩’,1)

This_Player.ScriptRequestSubYBNum(500)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,500,1)

This_Player.Give(‘二转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于二转,送他二转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有一转玉佩或者没有足够的元宝,记得把玉佩放到背包！’)

end

procedure _san

begin

if (This_Player.GetBagItemCount (‘二转玉佩’) >= 1) and (This_Player.YBNum >= 1000) then

begin

This_Player.Take(‘二转玉佩’,1)

This_Player.ScriptRequestSubYBNum(1000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,1000,1)

This_Player.Give(‘三转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于三转,送他三转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有二转玉佩或者没有足够的元宝,记得把玉佩放到背包！’)

end

procedure _si

begin

if (This_Player.GetBagItemCount (‘三转玉佩’) >= 1) and (This_Player.YBNum >= 2000) then

begin

This_Player.Take(‘三转玉佩’,1)

This_Player.ScriptRequestSubYBNum(2000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,2000,1)

This_Player.Give(‘四转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于四转,送他四转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有三转玉佩或者没有足够的元宝,记得把玉佩放到背包！’)

end

procedure _wu

begin

if (This_Player.GetBagItemCount (‘四转玉佩’) >= 1) and (This_Player.YBNum >= 5000) then

begin

This_Player.Take(‘四转玉佩’,1)

This_Player.ScriptRequestSubYBNum(5000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,5000,1)

This_Player.Give(‘五转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于五转,送他五转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有四转玉佩或者没有足够的元宝,记得把玉佩放到背包！’)

end

procedure _liu

begin

if (This_Player.GetBagItemCount (‘五转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 1)then

begin

This_Player.Take(‘五转玉佩’,1)

This_Player.Take(‘转生证明’,1)

This_Player.Give(‘六转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于六转,送他六转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有五转玉佩或者没有足够的转生证明,记得把玉佩放到背包！’)

end

procedure _qi

begin

if (This_Player.GetBagItemCount (‘六转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 2)then

begin

This_Player.Take(‘六转玉佩’,1)

This_Player.Take(‘转生证明’,2)

This_Player.Give(‘七转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于七转,送他七转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有六转玉佩或者没有足够的转生证明,记得把玉佩放到背包！’)

end

procedure _ba

begin

if (This_Player.GetBagItemCount (‘七转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 4)then

begin

This_Player.Take(‘七转玉佩’,1)

This_Player.Take(‘转生证明’,4)

This_Player.Give(‘八转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于八转,送他八转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有七转玉佩或者没有足够的转生证明,记得把玉佩放到背包!’)

end

procedure _jiu

begin

if (This_Player.GetBagItemCount (‘八转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘八转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.Give(‘九转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他九转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有八转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end

procedure _shi

begin

if This_Player.Level >= 90 then

begin

if (This_Player.GetBagItemCount (‘九转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘九转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.ScriptRequestSubYBNum(10000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,10000,1)

This_Player.Give(‘十转玉佩’,1)

This_Player.Give(‘转生神印’,1)

This_Player.Give(‘逐日剑法’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他十转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有九转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end else

This_NPC.NpcDialog(This_Player,

‘你没有达到等级90级或没有九转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end

procedure _shiyi

begin

if This_Player.Level >= 200 then

begin

if (This_Player.GetBagItemCount (‘十转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘十转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.ScriptRequestSubYBNum(30000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,30000,1)

This_Player.Give(‘十一转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他十一转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有十转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end else

This_NPC.NpcDialog(This_Player,

‘你没有达到等级200级或没有十转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end

procedure _shier

begin

if This_Player.Level >= 200 then

begin

if (This_Player.GetBagItemCount (‘十一转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘十一转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.ScriptRequestSubYBNum(50000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,50000,1)

This_Player.Give(‘十二转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他十二转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有十一转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end else

This_NPC.NpcDialog(This_Player,

‘你没有达到等级200级或没有十一转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end

procedure _shisan

begin

if This_Player.Level >= 200 then

begin

if (This_Player.GetBagItemCount (‘十二转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘十二转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.ScriptRequestSubYBNum(100000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,100000,1)

This_Player.Give(‘十三转玉佩’,1)

This_Player.Give(‘转生神印’,1)

This_Player.Give(‘武力盾’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他十三转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有十二转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end else

This_NPC.NpcDialog(This_Player,

‘你没有达到等级200级或没有十二转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end

procedure _shisi

begin

if This_Player.Level >= 250 then

begin

if (This_Player.GetBagItemCount (‘十三转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘十三转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.ScriptRequestSubYBNum(150000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,150000,1)

This_Player.Give(‘十四转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他十四转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有十三转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end else

This_NPC.NpcDialog(This_Player,

‘你没有达到等级250级或没有十三转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end

procedure _shiwu

begin

if This_Player.Level >= 300 then

begin

if (This_Player.GetBagItemCount (‘十四转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘十四转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.ScriptRequestSubYBNum(200000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,200000,1)

This_Player.Give(‘十五转玉佩’,1)

This_Player.Give(‘转生神印’,1)

This_Player.Give(‘开天斩’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他十五转玉佩作为奖励！’, 3)

end

else

This_NPC.NpcDialog(This_Player,

‘你没有达到转生等级或没有十四转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end else

This_NPC.NpcDialog(This_Player,

‘你没有达到等级300级或没有十四转玉佩或者没有转生证明,记得把玉佩放到背包!’)

end

procedure _shiliu

begin

if This_Player.Level >= 350 then

begin

if (This_Player.GetBagItemCount (‘十五转玉佩’) >= 1) and (This_Player.GetBagItemCount (‘转生证明’) >= 6)then

begin

This_Player.Take(‘十五转玉佩’,1)

This_Player.Take(‘转生证明’,6)

This_Player.ScriptRequestSubYBNum(250000)//This_Player.PsYBConsum(This_NPC,’Gaoji0LB’,20051,250000,1)

This_Player.Give(‘十六转玉佩’,1)

This_Player.Give(‘转生神印’,1)

ServerSay(‘玩家’+This_Player.Name+’历尽千辛万苦终于满转,送他十六转玉佩作为奖励！’, 3)

end

我举个例,你看下:还不明的加我QQ:56453473

D:\Mirserver\Mir200\Envir\ShopItemList.txt

物品类别 物品名称 Item.wil序号 出售价格 Deco.wil序号1 Deco.wil序号2 描述

0 封印套装(男) 1002 35000 380 1 封印套装|送钻石会员卡|

0 封印套装(女) 1002 35000 380 1 封印套装|送钻石会员卡|

0 帝王套装男 1002 20000 380 1 帝王套装|送钻石会员卡|

0 帝王套装女 1002 20000 380 1 帝王套装|送钻石会员卡|

0 王者套装(男) 1002 15000 380 1 王者套+无敌 至尊 烈火|王者套男|送 无敌 至尊 烈火 任选一套|

0 王者套装(女) 1002 15000 380 1 王者套+无敌 至尊 烈火|王者套女|送 无敌 至尊 烈火 任选一套|

0 武力盾 1002 10000 380 1 战士终极技能

0 彻地钉 1002 10000 380 1 战士终极技能

0 护体神盾1002 10000 380 1 战士终极技能

1 洗冤录 1137 10 459 7 清洗红名!

1 火龙神品 1135 5 479 1 补充火龙之心怒气值|将火龙之心装备在英雄装|备的四格(放符.毒的位置)|然后将火龙神品放到英雄|背包里面后拖放到火龙之|心上可增加1万点

1 魔血石(大) 1026 15 380 1 补充HP MP|装备于角色栏中|兼气血石和魔血石的效果|于一体,可恢复HP和MP|购买后与角色绑定

1 魔血石(中) 1027 12 380 1 补充HP MP|装备于角色栏中|兼气血石和魔血石的效果|于一体,可恢复HP和MP|购买后与角色绑定

1 气血石(大) 993 10 479 8 补充HP|装备于角色栏中|HP低于70%将开始恢复|总恢复持久1111|购买后与角色绑定

1 气血石(中) 991 8 479 8 补充HP|装备于角色栏中|HP于70%将开始恢复|总恢复持久1111|购买后与角色绑定

1 随身药箱 1103 2 380 0 双击后可以随时随地|在线购药，组队打宝必备物品

1 元宝神石 1002 100 380 1 补充HP MP|装备于角色栏中|HP低于70%将开始超强恢复|总恢复持久100000|购买后与角色绑定

1 祝福油罐 1174 30 380 1 使用后获得30个祝福油|每次双击获得一个

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/bake/7871152.html

赞 (0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
taiki taiki 一级用户组
0 0
上一篇 2023-04-10
下一篇 2023-04-10

发表评论

登录后才能评论

评论列表（0条）

保存