战神引擎转生脚本(总共20转带物品数据库)

战神引擎转生脚本(总共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
else
This_NPC.NpcDialog(This_Player,
'你没有达到转生等级或没有十五转玉佩或者没有转生证明,记得把玉佩放到背包!');
end else
This_NPC.NpcDialog(This_Player,
'你没有达到等级350级或没有十五转玉佩或者没有转生证明,记得把玉佩放到背包!');
end;
procedure _shiqi;
begin
if This_Player.Level >= 400 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(300000);//This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,300000,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,
'你没有达到等级400级或没有十六转玉佩或者没有转生证明,记得把玉佩放到背包!');
end;
procedure _shiba;
begin
if This_Player.Level >= 450 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(350000);//This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,350000,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,
'你没有达到等级450级或没有十七转玉佩或者没有转生证明,记得把玉佩放到背包!');
end;
procedure _shijiu;
begin
if This_Player.Level >= 480 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(400000);//This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,400000,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,
'你没有达到等级480级或没有十八转玉佩或者没有转生证明,记得把玉佩放到背包!');
end;
procedure _ershi;
begin
if This_Player.Level >= 500 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);
This_Player.Give('流星火雨',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于满转,送他二十转玉佩作为奖励！', 3);
end
else
This_NPC.NpcDialog(This_Player,
'你没有达到转生等级或没有十九转玉佩或者没有转生证明,记得把玉佩放到背包!');
end else
This_NPC.NpcDialog(This_Player,
'你没有达到等级500级或没有十九转玉佩或者没有转生证明,记得把玉佩放到背包!');
end;
procedure _zhuansheng;
begin
This_Npc.NpcDialog(This_Player,
'|<　　　　　　　　　　　　　　　　　　　　　/c=red>\'+
'|<一转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 yi="">\'+
'|<二转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 er="">\'+
'|<三转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 san="">\'+
'|<四转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 si="">\'+
'|<五转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 wu="">\'+
'|<六转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 liu="">\'+
'|<七转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 qi="">\'+
'|<八转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 ba="">\'+
'|<九转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 jiu="">\'+
'|<十转轮回: c="red"><注意:勿重复扣级 c="70">　<开始转生 shi="">\'+
'|<【十转获得逐日剑法】 c="215"><【转生查看】 zhuansheng1="">\'+
'|高级转生轮回<【点击转生】 zhuansheng20="">\'+
'|<　　　　　　　　　　　　　　　　　　　　　/c=red>\'
);
end;
procedure _zhuansheng20;
begin
This_Npc.NpcDialog(This_Player,
'|<　　　　　　　　　　　　　　　　　　　　　/c=red>\'+
'|<十一转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shiyi="">\'+
'|<十二转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shier="">\'+
'|<十三转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shisan="">\'+
'|<【十三转获得武力盾】 c="215"><【转生查看】 zhuansheng1="">\'+
'|<十四转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shisi="">\'+
'|<十五转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shiwu="">\'+
'|<【十五转获得开天斩】 c="215"><【转生查看】 zhuansheng1="">\'+
'|<十六转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shiliu="">\'+
'|<十七转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shiqi="">\'+
'|<【十七转获得彻地钉】 c="215"><【转生查看】 zhuansheng1="">\'+
'|<十八转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shiba="">\'+
'|<十九转轮回: c="red"><注意:勿重复扣级 c="254">　<开始转生 shijiu="">\'+
'|<二十转轮回: c="red"><注意:勿重复扣级 c="254">　<终极转生 ershi="">\'+
'|<【二十转获得流星火雨】 c="215"><【转生查看】 zhuansheng1="">\'+
'|<　　　　　　　　　　　　　　　　　　　　　/c=red>\'+
// '|<十转后: c="red">至十五转<转生 shi="">\'+
'|<　　　　　　　　　　　　　　　　　　　　　/c=red>\'
);
end;
procedure _zhuansheng1;
begin
This_Npc.NpcDialog(This_Player,
'|<一转转生: c="red"><【需要:转生证明1个+100元宝】 c="215">'+
'|<二转转生: c="red"><【需要:一转+500元宝】 c="215">\'+
'|<三转转生: c="red"><【需要:二转+1000元宝】 c="215">\'+
'|<四转转生: c="red"><【需要:三转+2000元宝】 c="215">\'+
'|<五转转生: c="red"><【需要:四转+5000元宝】 c="215">\'+
'|<六转转生: c="red"><【需要:五转+转生证明*1】 c="215">\'+
'|<七转转生: c="red"><【需要:六转+转生证明*2】 c="215">\'+
'|<八转转生: c="red"><【需要:七转+转生证明*4】 c="215">\'+
'|<九转转生: c="red"><【需要:八转+转生证明*6】 c="215">\'+
'|<十转转生: c="red"><【需要:九转+转生证明*6】 c="215">'+
'|<十一转: c="red"><【200级+10转+证明*6+3万元宝】 c="215">'+
'|<十二转: c="red"><【200级+11转+证明*6+5万元宝】 c="215">\'+
'|<十三转: c="red"><【200级+12转+证明*6+10万元宝】 c="215">\'+
'|<十四转: c="red"><【250级+13转+证明*6+15万元宝】 c="215">\'+
'|<十五转: c="red"><【300级+14转+证明*6+20万元宝】 c="215">\'+
'|<十六转: c="red"><【350级+15转+证明*6+25万元宝】 c="215">\'+
'|<十七转: c="red"><【400级+16转+证明*6+30万元宝】 c="215">\'+
'|<十八转: c="red"><【450级+17转+证明*6+35万元宝】 c="215">\'+
'|<十九转: c="red"><【480级+18转+证明*6+40万元宝】 c="215">\'+
'|<二十转: c="red"><【500级+19转+证明*6+50万元宝】 c="215">\'+
'|<　　　　　　　　　　　　　　　　　　　　　/c=red>\'
);
end;
begin
This_Npc.NpcDialog(This_Player,
'|☆☆☆☆★★★★<转生轮回>★★★★☆☆☆☆\'+
'|<【轮回转生】提升全身属性,pk更强大 c="253">'+
'|<【轮回说明】每次转生只能点一次 c="253">'+
'|<【轮回说明】重复点降级转生,勿多点 c="253">'+
'|<【gm说明】转生pk不掉落,轮回属性 c="253">'+
'|<　　　　　　　　　　　　　　　　　　/c=red>\'+
'|{cmd}<【开始转生】 zhuansheng=""> \'+
'|{cmd}<【转生查看】 zhuansheng1=""> \'
);
end.