战神引擎元宝转生脚本(转生20次,可以得攻魔道属性)

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

温馨提示:本文最后更新于2022-06-14 22:50:51,某些文章具有时效性,若有错误或已失效,请在下方留言或联系吾爱游戏迷
------本页内容已结束,喜欢请分享------

感谢您的来访,获取更多优质资源请收藏本站。

© 版权声明
THE END
喜欢就支持一下吧
点赞122 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片