- 战神引擎
- 传奇服务端服务端装备属性(StdItems)物品数据库 2023-8-2
- android-killer 最新的1.30+ 视频教程 2023-12-23
- 常见的ip黑名单txt 5月前
- 各位好人大哥，能发一个新月城风云链接吗？ 2024-5-18
- 战神引擎
- V8
- lua
- 脚本
- 安卓
- Linux
- 传奇
- 天花板
- 冰雪
- 手工端
- 手游
- 系统
- unity
- 666
- 原神
- 游戏
- 传奇3
- 单机
- zircon
- 176
- 复古
- 野径云俱黑赶快
- 群服
- CentOS
- 特色
- 存档
- 破解版
- 问题
- 盘古
- 白猪
- 离线版
- 话题
- 图片
- 格式
- 沉默
- 光芒引擎
- 说明书
- 富士康
- iPhone
- 君临
- 阅读
- 小说
- 水晶传奇
- Controller
- 代码
- TeamViewer
- 向日葵
- 真三国
- sql
- 攻略
- 雷神
- 新春
- 情怀
- 魔兽
- 单机传奇
- 酷狗
- 探秘
- 3proxy
- 登录
- sxg
- Gee
- 丛林肉搏
- 第一版
- 苹果
- XO引擎
- socks5
- 硬盘
- 检测
- 翻墙
- 黑神话
- 黑神话悟空
- 热血传奇
- 客户端
3152
0
0
返回
战神引擎盘古技能升级
夜
发布于 2021-9-24
夜
发布于 2021-9-24
program mir2;
var
huoqiang,liehuo,bingpaoxiao,liouxing,shidu,shixue,mofadun,chisha,leidian,linghun,shensheng,youling,youhuo,yinsheng,gongsha,banyue,zhuri,zhiyu : integer;
procedure _DoExit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
This_NPC.NpcDialog(This_Player,
+'|你可以在这里兑换技能和升级技能,技能最高可达10级。\'
+'|5000个技能书+金砖兑换一本技能，700技能书升级一次技能。\'
+'|必须点击恢复技能可以把技能升级满，。\'
+'| \'
+'|{cmd}<升级技能/@jn1> ^<升级高级技能/@jn> ^<兑换书籍/@ds>\'
+'| {cmd}<恢复技能/@jihuo> \'
);
end;
procedure _jihuo;
begin
if This_Player.GetV(96,1) < 3 then This_Player.SetV(96,1,3);
if This_Player.GetV(96,2) < 3 then This_Player.SetV(96,2,3);
if This_Player.GetV(96,3) < 3 then This_Player.SetV(96,3,3);
if This_Player.GetV(96,4) < 3 then This_Player.SetV(96,4,3);
if This_Player.GetV(96,5) < 3 then This_Player.SetV(96,5,3);
if This_Player.GetV(96,6) < 3 then This_Player.SetV(96,6,3);
if This_Player.GetV(96,7) < 3 then This_Player.SetV(96,7,3);
if This_Player.GetV(96,8) < 3 then This_Player.SetV(96,8,3);
if This_Player.GetV(96,9) < 3 then This_Player.SetV(96,9,3);
if This_Player.GetV(96,10) < 3 then This_Player.SetV(96,10,3);
if This_Player.GetV(96,11) < 3 then This_Player.SetV(96,11,3);
if This_Player.GetV(96,12) < 3 then This_Player.SetV(96,12,3);
if This_Player.GetV(96,13) < 3 then This_Player.SetV(96,13,3);
if This_Player.GetV(96,14) < 3 then This_Player.SetV(96,14,3);
if This_Player.GetV(96,15) < 3 then This_Player.SetV(96,15,3);
if This_Player.GetV(96,16) < 3 then This_Player.SetV(96,16,3);
if This_Player.GetV(96,17) < 3 then This_Player.SetV(96,17,3);
if This_Player.GetV(96,18) < 3 then This_Player.SetV(96,18,3);
liehuo :=This_Player.getV(96,1);
bingpaoxiao :=This_Player.getV(96,2);
zhuri :=This_Player.getV(96,3);
liouxing :=This_Player.getV(96,4);
shidu :=This_Player.getV(96,5);
shixue :=This_Player.getV(96,6);
mofadun :=This_Player.getV(96,7);
leidian :=This_Player.getV(96,8);
linghun :=This_Player.getV(96,9);
shensheng :=This_Player.getV(96,10);
youling :=This_Player.getV(96,11);
yinsheng :=This_Player.getV(96,12);
gongsha :=This_Player.getV(96,13);
banyue :=This_Player.getV(96,14);
chisha :=This_Player.getV(96,15);
youhuo :=This_Player.getV(96,16);
zhiyu :=This_Player.getV(96,17);
huoqiang :=This_Player.getV(96,18);
This_Player.ChgSkillLv('烈火剑法',liehuo,0);
This_Player.ChgSkillLv('冰咆哮',bingpaoxiao,0);
This_Player.ChgSkillLv('逐日剑法',zhuri,0);
This_Player.ChgSkillLv('流星火雨',liouxing,0);
This_Player.ChgSkillLv('施毒术',shidu,0);
This_Player.ChgSkillLv('噬血术',shixue,0);
This_Player.ChgSkillLv('魔法盾',mofadun,0);
This_Player.ChgSkillLv('雷电术',leidian,0);
This_Player.ChgSkillLv('刺杀剑术',chisha,0);
This_Player.ChgSkillLv('灵魂火符',linghun,0);
This_Player.ChgSkillLv('神圣战甲术',shensheng,0);
This_Player.ChgSkillLv('幽灵盾',youling,0);
This_Player.ChgSkillLv('治愈术',zhiyu,0);
This_Player.ChgSkillLv('诱惑之光',youhuo,0);
This_Player.ChgSkillLv('影身术',yinsheng,0);
This_Player.ChgSkillLv('攻杀剑术',gongsha,0);
This_Player.ChgSkillLv('半月弯刀',banyue,0);
This_Player.ChgSkillLv('火墙',huoqiang,0);
end;
procedure _jn1;
begin
This_NPC.NpcDialog(This_Player,
+'|升级技能只能升级到5鸡。\'
+'| \'
+'|{cmd}<魔法盾/@mfd> ^<雷电术/@lds> ^<刺杀剑术/@cs>\'
+'|{cmd}<灵魂火符/@lhhf> ^<神圣战甲术/@zjs> ^<幽灵盾/@yld>\'
+'|{cmd}<治愈术/@zys> ^<诱惑之光/@yh>^<影身术/@yss>\'
+'|{cmd}<攻杀剑术/@zss> ^<半月弯刀/@by>^<火墙/@hq>\'
);
end;
procedure _hq;
begin
if This_Player.GetV(96,18) < 3 then This_Player.SetV(96,18,3);
huoqiang :=This_Player.getV(96,18);
begin
if huoqiang < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,18,huoqiang +1);
This_Player.ChgSkillLv('火墙',huoqiang,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _by;
begin
if This_Player.GetV(96,14) < 3 then This_Player.SetV(96,14,3);
banyue :=This_Player.getV(96,14);
begin
if banyue < 4 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,14,banyue +1);
This_Player.ChgSkillLv('半月弯刀',banyue,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _zss;
begin
if This_Player.GetV(96,13) < 3 then This_Player.SetV(96,13,3);
gongsha :=This_Player.getV(96,13);
begin
if gongsha < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,13,gongsha +1);
This_Player.ChgSkillLv('攻杀剑术',gongsha,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _yss;
begin
if This_Player.GetV(96,12) < 3 then This_Player.SetV(96,12,3);
yinsheng :=This_Player.getV(96,12);
begin
if yinsheng < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,12,yinsheng +1);
This_Player.ChgSkillLv('影身术',yinsheng,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _yh;
begin
if This_Player.GetV(96,16) < 3 then This_Player.SetV(96,16,3);
youhuo :=This_Player.getV(96,16);
begin
if youhuo < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,16,youhuo +1);
This_Player.ChgSkillLv('诱惑之光',youhuo,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _zys;
begin
if This_Player.GetV(96,17) < 3 then This_Player.SetV(96,17,3);
zhiyu :=This_Player.getV(96,17);
begin
if zhiyu < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,17,zhiyu +1);
This_Player.ChgSkillLv('治愈术',zhiyu,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _yld;
begin
if This_Player.GetV(96,11) < 3 then This_Player.SetV(96,11,3);
youling :=This_Player.getV(96,11);
begin
if youling < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,11,youling +1);
This_Player.ChgSkillLv('幽灵盾',youling,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _zjs;
begin
if This_Player.GetV(96,10) < 3 then This_Player.SetV(96,10,3);
shensheng :=This_Player.getV(96,10);
begin
if shensheng < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,10,shensheng +1);
This_Player.ChgSkillLv('神圣战甲术',shensheng,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _lhhf;
begin
if This_Player.GetV(96,9) < 3 then This_Player.SetV(96,9,3);
linghun :=This_Player.getV(96,9);
begin
if linghun < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,9,linghun +1);
This_Player.ChgSkillLv('灵魂火符',linghun,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _cs;
begin
if This_Player.GetV(96,15) < 3 then This_Player.SetV(96,15,3);
chisha :=This_Player.getV(96,15);
begin
if chisha < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,15,chisha +1);
This_Player.ChgSkillLv('刺杀剑术',chisha,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _lds;
begin
if This_Player.GetV(96,8) < 3 then This_Player.SetV(96,8,3);
leidian :=This_Player.getV(96,8);
begin
if leidian < 4 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,8,leidian +1);
This_Player.ChgSkillLv('雷电术',leidian,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _mfd;
begin
if This_Player.GetV(96,7) < 3 then This_Player.SetV(96,7,3);
mofadun :=This_Player.getV(96,7);
begin
if mofadun < 5 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,7,mofadun +1);
This_Player.ChgSkillLv('魔法盾',mofadun,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
//-------兑换技能-----
procedure _ds;
begin
This_NPC.NpcDialog(This_Player,
+'|兑换技能。\'
+'| \'
+'|{cmd}<兑换逐日剑法/@zr1> ^<兑换狮子吼/@sz1>\'
+'|{cmd}<兑换流星火雨/@lxhy1> ^<兑换灭天火/@mth1>\'
+'|{cmd}<兑换噬血术/@sxs1> ^<兑换无极真气/@wjzq1>\'
);
end;
procedure _wjzq1;
begin
if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then
begin
This_Player.Take('书页',5000);
This_Player.Take('金砖',1);
This_Player.Give('无极真气',1);
ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
procedure _sxs1;
begin
if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then
begin
This_Player.Take('书页',5000);
This_Player.Take('金砖',1);
This_Player.Give('噬血术',1);
ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
procedure _mth1;
begin
if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then
begin
This_Player.Take('书页',5000);
This_Player.Take('金砖',1);
This_Player.Give('灭天火',1);
ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
procedure _lxhy1;
begin
if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then
begin
This_Player.Take('书页',5000);
This_Player.Take('金砖',1);
This_Player.Give('流星火雨',1);
ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
procedure _sz1;
begin
if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then
begin
This_Player.Take('书页',5000);
This_Player.Take('金砖',1);
This_Player.Give('狮子吼',1);
ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
procedure _zr1;
begin
if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then
begin
This_Player.Take('书页',5000);
This_Player.Take('金砖',1);
This_Player.Give('逐日剑法',1);
ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
procedure _jn;
begin
This_NPC.NpcDialog(This_Player,
+'|所有技能只能提升到10级。\'
+'| \'
+'|{cmd}<烈火剑法/@liehuo> ^<逐日剑法/@zhuri>\'
+'|{cmd}<冰咆哮/@bpx> ^<流星火雨/@lxhy>\'
+'|{cmd}<施毒术/@sds> ^<噬血术/@sxs>\'
);
end;
procedure _sxs;
begin
if This_Player.GetV(96,6) < 3 then This_Player.SetV(96,6,3);
shixue :=This_Player.getV(96,6);
begin
if shixue < 10 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,6,shixue +1);
This_Player.ChgSkillLv('噬血术',shixue,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _sds;
begin
if This_Player.GetV(96,5) < 3 then This_Player.SetV(96,5,3);
shidu :=This_Player.getV(96,5);
begin
if shidu < 10 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,5,shidu +1);
This_Player.ChgSkillLv('施毒术',shidu,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _lxhy;
begin
if This_Player.GetV(96,4) < 3 then This_Player.SetV(96,4,3);
liouxing :=This_Player.getV(96,4);
begin
if liouxing < 10 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,4,liouxing+1);
This_Player.ChgSkillLv('流星火雨',liouxing,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _zhuri;
begin
if This_Player.GetV(96,3) < 3 then This_Player.SetV(96,3,3);
zhuri :=This_Player.getV(96,3);
begin
if zhuri < 10 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,3,zhuri+1);
This_Player.ChgSkillLv('逐日剑法',zhuri,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _bpx;
begin
if This_Player.GetV(96,2) < 3 then This_Player.SetV(96,2,3);
bingpaoxiao :=This_Player.getV(96,2);
begin
if bingpaoxiao < 10 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,2,bingpaoxiao+1);
This_Player.ChgSkillLv('冰咆哮',bingpaoxiao,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
procedure _liehuo;
begin
if This_Player.GetV(96,1) < 3 then This_Player.SetV(96,1,3);
liehuo :=This_Player.getV(96,1);
begin
if liehuo < 10 then
begin
if This_Player.GetBagItemCount ('书页') >= 700 then
begin
This_Player.Take('书页',700);
This_Player.setV(96,1,liehuo+1);
This_Player.ChgSkillLv('烈火剑法',liehuo,0);
ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 + 25);
end
else
This_NPC.NpcDialog(This_Player,'你没有700个书页');
end
else
This_NPC.NpcDialog(This_Player,'技能已满！');
end;
end;
begin
domain;
end.
随便看看
最新回复 (0)
版块热门