战神引擎转生脚本(总共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,
'你没有达到转生等级或没有二转玉佩或者没有足够的元宝,记得把玉佩放到背包！');