战神引擎元宝转生脚本(转生20次，可以得攻魔道属性)
战神引擎元宝转生脚本(转生20次，可以得攻魔道属性)
{
*******************************************************************}
program mir2;
{$I TaoZhuang.pas}
function Gaoji0LB(price, num: Integer):boolean;
begin
result := true;
end;
procedure _M1;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 1000 then
begin
This_Player.Give('一转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于一转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,1000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M2;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 2000 then
if (This_Player.GetBagItemCount ('一转') >= 1) then
begin
This_Player.Take('一转',1);
This_Player.Give('二转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于二转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,2000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M3;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 3000 then
if (This_Player.GetBagItemCount ('二转') >= 1) then
begin
This_Player.Take('二转',1);
This_Player.Give('三转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于三转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,3000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M4;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 4000 then
if (This_Player.GetBagItemCount ('三转') >= 1) then
begin
This_Player.Take('三转',1);
This_Player.Give('四转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于四转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,4000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M5;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 5000 then
if (This_Player.GetBagItemCount ('四转') >= 1) then
begin
This_Player.Take('四转',1);
This_Player.Give('五转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于五转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,5000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M6;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 6000 then
if (This_Player.GetBagItemCount ('五转') >= 1) then
begin
This_Player.Take('五转',1);
This_Player.Give('六转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于六转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,6000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M7;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 7000 then
if (This_Player.GetBagItemCount ('六转') >= 1) then
begin
This_Player.Take('六转',1);
This_Player.Give('七转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于七转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,7000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M8;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 8000 then
if (This_Player.GetBagItemCount ('七转') >= 1) then
begin
This_Player.Take('七转',1);
This_Player.Give('八转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于八转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,8000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M9;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 9000 then
if (This_Player.GetBagItemCount ('八转') >= 1) then
begin
This_Player.Take('八转',1);
This_Player.Give('九转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于九转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,9000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M10;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 10000 then
if (This_Player.GetBagItemCount ('九转') >= 1) then
begin
This_Player.Take('九转',1);
This_Player.Give('十转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M11;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 12000 then
if (This_Player.GetBagItemCount ('十转') >= 1) then
begin
This_Player.Take('十转',1);
This_Player.Give('十一转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十一转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,12000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M12;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 14000 then
if (This_Player.GetBagItemCount ('十一转') >= 1) then
begin
This_Player.Take('十一转',1);
This_Player.Give('十二转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十二转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,14000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M13;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 16000 then
if (This_Player.GetBagItemCount ('十二转') >= 1) then
begin
This_Player.Take('十二转',1);
This_Player.Give('十三转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十三转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,16000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M14;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 18000 then
if (This_Player.GetBagItemCount ('十三转') >= 1) then
begin
This_Player.Take('十三转',1);
This_Player.Give('十四转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十四转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,18000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M15;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 22000 then
if (This_Player.GetBagItemCount ('十四转') >= 1) then
begin
This_Player.Take('十四转',1);
This_Player.Give('十五转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十五转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,22000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M16;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 25000 then
if (This_Player.GetBagItemCount ('十五转') >= 1) then
begin
This_Player.Take('十五转',1);
This_Player.Give('十六转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十六转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,25000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M17;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 30000 then
if (This_Player.GetBagItemCount ('十六转') >= 1) then
begin
This_Player.Take('十六转',1);
This_Player.Give('十七转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十七转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,30000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M18;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 40000 then
if (This_Player.GetBagItemCount ('十七转') >= 1) then
begin
This_Player.Take('十七转',1);
This_Player.Give('十八转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十八转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,40000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M19;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 60000 then
if (This_Player.GetBagItemCount ('十八转') >= 1) then
begin
This_Player.Take('十八转',1);
This_Player.Give('十九转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于十九转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,60000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M20;
begin
if This_Player.FreeBagNum > 0 then
begin
if This_Player.YBnum >= 80000 then
if (This_Player.GetBagItemCount ('十九转') >= 1) then
begin
This_Player.Take('十九转',1);
This_Player.Give('二十转',1);
ServerSay('玩家'+This_Player.Name+'历尽千辛万苦终于二十转！', 3);
This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,80000,1);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你转生未放在包里或元宝不足，不能转生！'
);
end else
This_Npc.NpcDialog(This_Player,
'对不起，你背包已满！'
);
end;
procedure _M99;
begin
This_Npc.NpcDialog(This_Player,
'┏━━━━━━━━━━━━━━━━━━━┓\'+
'|<【十一转】: c="253"><1万2元宝 c="red">消耗十转<【十一转】 m11="">\'+
'|<【十二转】: c="253"><1万4元宝 c="red">消耗十一转<【十二转】 m12="">\'+
'|<【十三转】: c="253"><1万6元宝 c="red">消耗十二转<【十三转】 m13="">\'+
'|<【十四转】: c="253"><1万8元宝 c="red">消耗十三转<【十四转】 m14="">\'+
'|<【十五转】: c="253"><2万2元宝 c="red">消耗十四转<【十五转】 m15="">\'+
'|<【十六转】: c="253"><2万5元宝 c="red">消耗十五转<【十六转】 m16="">\'+
'|<【十七转】: c="253"><3万元宝 c="red">消耗十六转<【十七转】 m17="">\'+
'|<【十八转】: c="253"><4万元宝 c="red">消耗十七转<【十八转】 m18="">\'+
'|<【十九转】: c="253"><6万元宝 c="red">消耗十八转<【十九转】 m19="">\'+
'|<【二十转】: c="253"><8万元宝 c="red">消耗十九转<【二十转】 m20="">\'+
'|┗━━━━━━━━━━━━━━━━━━━┛\'
);
end;
procedure _chakan;
begin
This_Npc.NpcDialog(This_Player,
'┏━━━━━━━━━━━━━━━━━━━┓\'+
'|<【一转属性】: c="253"> <攻魔道4-10 c="red">\'+
'|<【二转属性】: c="253"> <攻魔道6-14 c="red">\'+
'|<【三转属性】: c="253"> <攻魔道10-20 c="red">\'+
'|<【四转属性】: c="253"> <攻魔道16-30 c="red">\'+
'|<【五转属性】: c="253"> <攻魔道24-40 c="red">\'+
'|<【六转属性】: c="253"> <攻魔道30-50 c="red">\'+
'|<【七转属性】: c="253"> <攻魔道40-60 c="red">\'+
'|<【八转属性】: c="253"> <攻魔道50-70 c="red">\'+
'|<【九转属性】: c="253"> <攻魔道60-80 c="red">\'+
'|<【十转属性】: c="253"> <攻魔道70-90 c="red">\'+
'|┗━━━━━━━━━━━━━━━━━━━┛\'
);
end;
procedure _chakan2;
begin
This_Npc.NpcDialog(This_Player,
'┏━━━━━━━━━━━━━━━━━━━┓\'+
'|<【十一转属性】: c="253"><攻魔道80-100 c="red">\'+
'|<【十二转属性】: c="253"><攻魔道90-110 c="red">\'+
'|<【十三转属性】: c="253"><攻魔道100-120 c="red">\'+
'|<【十四转属性】: c="253"><攻魔道110-130 c="red">\'+
'|<【十五转属性】: c="253"><攻魔道120-140 c="red">\'+
'|<【十六转属性】: c="253"><攻魔道130-150 c="red">\'+
'|<【十七转属性】: c="253"><攻魔道140-160 c="red">\'+
'|<【十八转属性】: c="253"><攻魔道150-170 c="red">\'+
'|<【十九转属性】: c="253"><攻魔道160-180 c="red">\'+
'|<【二十转属性】: c="253"><攻魔道170-190 c="red">\'+
'|┗━━━━━━━━━━━━━━━━━━━┛\'
);
end;
begin
TZJH_NPC;
This_NPC.NpcDialog(This_Player,
'|<请先把转生放在包里，带上足够的元宝再来 c="70">\'+
'|┏━━━━━━━━━━━━━━━━━━━┓\'+
'|<1千元宝 c="red"><【一转】 m1="">^<1万2元宝 c="red"><【十一转】 m11="">\'+
'|<2千元宝 c="red"><【二转】 m2="">^<1万4元宝 c="red"><【十二转】 m12="">\'+
'|<3千元宝 c="red"><【三转】 m3="">^<1万6元宝 c="red"><【十三转】 m13="">\'+
'|<4千元宝 c="red"><【四转】 m4="">^<1万8元宝 c="red"><【十四转】 m14="">\'+
'|<5千元宝 c="red"><【五转】 m5="">^<2万2元宝 c="red"><【十五转】 m15="">\'+
'|<6千元宝 c="red"><【六转】 m6="">^<2万5元宝 c="red"><【十六转】 m16="">\'+
'|<7千元宝 c="red"><【七转】 m7="">^<3 c="red"><【十七转】 m17="">\'+
'|<8千元宝 c="red"><【八转】 m8="">^<4 c="red"><【十八转】 m18="">\'+
'|<9千元宝 c="red"><【九转】 m9="">^<6 c="red"><【十九转】 m19="">\'+
'|<1万元宝 c="red"><【十转】 m10="">^<8 c="red"><【二十转】 m20="">\'+
'|┗━━━━━━━━━━━━━━━━━━━┛\|'+
'|<1-10转属性 chakan="">^<10-20转属性 chakan2="">\|'
);
end.
推荐工具
热门游戏
- 1
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 2
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 3
- 战神引擎官方制作1.76原始端
- 战神版本
- 战神引擎官方制作1.76原始端
- 战神版本
- 4
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 5
- 经典版本+一切都有+沉默首选
- 战神版本
- 经典版本+一切都有+沉默首选
- 战神版本
- 6
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 7
- 新UI+新地图+新怪物+新装备
- 战神版本
- 新UI+新地图+新怪物+新装备
- 战神版本
- 8
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 9
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 10
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 11
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 12
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本