{ 35博客35boke.com
*******************************************************************}
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _lianti1;
var today , num,AddHP,AddHP1,AddHP2: integer;
begin
if This_Player.GetV(99,1) <> today then
begin
This_Player.SetV(99,1,today);
This_Player.SetV(99,2,0);
end;
//初始化变量值,每天首次触发,将领取变量设置为0
num := This_Player.GetV(99,2);
AddHP := 60*num;
AddHP1 := 40*num;
AddHP2 := 20*num;
if num > 1 then
begin
case This_Player.Job of
0 : //战士
begin
This_Player.AddPlayerAbil(4, AddHP, 65535);
This_Player.AddHeroAbil(4, AddHP, 65535);
This_Npc.NpcDialog(This_Player,
'恭喜你开启成功\'
);
end;
1 : //法师
begin
This_Player.AddPlayerAbil(4, AddHP1, 65535);
This_Player.AddHeroAbil(4, AddHP1, 65535);
This_Npc.NpcDialog(This_Player,
'恭喜你开启成功\'
);
end;
2 : //道士
begin
This_Player.AddPlayerAbil(4, AddHP2, 65535);
This_Player.AddHeroAbil(4, AddHP2, 65535);
This_Npc.NpcDialog(This_Player,
'恭喜你开启成功\'
);
end;
end;
end else
This_Npc.NpcDialog(This_Player,
'你没有转生,无法开启属性\'
);
end;
procedure _lianti;
var today , num,AddHP,AddHP1,AddHP2: integer;
begin
if This_Player.GetV(99,1) <> today then
begin
This_Player.SetV(99,1,today);
This_Player.SetV(99,2,0);
end;
//初始化变量值,每天首次触发,将领取变量设置为0
num := This_Player.GetV(99,2);
AddHP := 60*num;
AddHP1 := 40*num;
AddHP2 := 20*num;
if num < 10 then
begin
if (This_Player.MyLFnum >= 50) then
begin
case This_Player.Job of
0 : //0是战士
begin
This_Player.AddPlayerAbil(4, AddHP, 65535);
This_Player.AddHeroAbil(4, AddHP, 65535);
This_Player.DecLF(0, 50, false);
This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一
This_Npc.NpcDialog(This_Player,
'恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\'
+'|{cmd}<继续/@lianti>\'
+'|{cmd}<取消/@doexit>\'
);
end;
1 : //法师
begin
This_Player.AddPlayerAbil(4, AddHP1, 65535);
This_Player.AddHeroAbil(4, AddHP1, 65535);
This_Player.DecLF(0, 50, false);
This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一
This_Npc.NpcDialog(This_Player,
'恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\'
+'|{cmd}<继续/@lianti>\'
+'|{cmd}<取消/@doexit>\'
);
end;
2 : //道士
begin
This_Player.AddPlayerAbil(4, AddHP2, 65535);
This_Player.AddHeroAbil(4, AddHP2, 65535);
This_Player.DecLF(0, 50, false);
This_Player.SetV(99,2, num + 1); //领取变量每领取一次加一
This_Npc.NpcDialog(This_Player,
'恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\'
+'|{cmd}<继续/@lianti>\'
+'|{cmd}<取消/@doexit>\'
);
end;
end;
end else
This_Npc.NpcDialog(This_Player,
'灵符不足50,无法炼体\'
);
end else
This_Player.PlayerDialog(
'<你的炼体层数已经达到顶级,无法继续/c=red>'
);
end;
var today , num,AddHP,AddHP1,AddHP2: integer;
begin
if This_Player.GetV(99,1) <> today then
begin
This_Player.SetV(99,1,today);
This_Player.SetV(99,2,0);
end;
//初始化变量值,每天首次触发,将领取变量设置为0
num := This_Player.GetV(99,2);
AddHP := 60*num;
AddHP1 := 40*num;
AddHP2 := 20*num;
if num < 12 then
This_Npc.NpcDialog(This_Player,
'当前炼体层数<'+inttostr(num)+'/c=red>层 封顶<10/c=254>层!\'
+'|<战士每级增加60点HP/c=251> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\'
+'|<道士每级增加40点HP/c=252> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\'
+'|<法师每级增加20点HP/c=253> 当前可获得HP<'+inttostr(num*2)+'/c=red>点\'
+'|<每次炼体灵符50/c=254>\'
+'|<人物可获得属性/c=250>\'
+'|<属性有限时间10小时,可重复领取/c=251>\'
+'|<开启炼体功能需要50灵符:第一次开启不会增加生命值/c=red>\'
+'|{cmd}<开始炼体/@lianti> ^<开启属性/@lianti1>'
);
end.
本圈子是用户交流圈,里面的内容均属用户自行发布,管理不对其资源进行测试,
如有不实或者链接失效欢迎举报:
电脑端举报入口:帖子左侧感叹号
移动端举报入口:帖子右下侧
如果不懂查看:https://35boke.com/6625.html
自己写的?不是吧,大佬!
如果巅锋留不住,不如来35学技术
这个逼装的我给82分,剩下的用666的方式打给你!
666 感谢大佬分享