战神引擎转生脚本(总共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.
