战神引擎书页兑换新技能脚本

玩家通过书页兑换技能脚本，战神引擎专用，脚本上默认支持流星火雨、嗜血术、逐日剑法、狮子吼、气波功、灭天火、无极真气，脚本是明文版，支持玩家任意修改里面的兑换条件和兑换书籍，前提是你的物品和技能数据库要有这些书籍，并且可以刷出来正常使用才行。脚本牵扯到了TaoZhuang.pas文件，不能直接覆盖使用，需要单独提取增加。

战神引擎书页兑换新技能脚本

书页兑技能部分脚本

program Mir2;
{$I TaoZhuang.pas}
procedure _shidu;
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer;
ck_str,ck_red:string;
begin
if This_Player.Job = 2 then
begin
if This_Player.GetBagItemCount('书页') >= 1000 then
begin
This_Player.Take('书页', 1000);
This_Player.Give('召唤神兽',1);
This_Npc.NpcNotice('恭喜：玩家'+ This_Player.Name + '在土城成功兑换了召唤神兽技能书！');
end
else
begin
This_Npc.NpcDialog(This_Player,
'|书页不足1000，无法兑换！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你不是道士，不要乱点！\');
end;
end;
procedure _modun;
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer;
ck_str,ck_red:string;
begin
if This_Player.Job = 1 then
begin
if This_Player.GetBagItemCount('书页') >= 1000 then
begin
This_Player.Take('书页', 1000);
This_Player.Give('冰咆哮',1);
This_Npc.NpcNotice('恭喜：玩家'+ This_Player.Name + '在土城成功兑换了冰咆哮技能书！');
end
else
begin
This_Npc.NpcDialog(This_Player,
'|书页不足1000，无法兑换！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你不是法师，不要乱点！\');
end;
end;
procedure _cish;
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer;
ck_str,ck_red:string;
begin
if This_Player.Job = 0 then
begin
if This_Player.GetBagItemCount('书页') >= 1000 then
begin
This_Player.Take('书页', 1000);
This_Player.Give('烈火剑法',1);
This_Npc.NpcNotice('恭喜：玩家'+ This_Player.Name + '在土城成功兑换了烈火剑法技能书！');
end
else
begin
This_Npc.NpcDialog(This_Player,
'|书页不足1000，无法兑换！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你不是战士，不要乱点！\');
end;
end;
procedure _shixue;
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer;
ck_str,ck_red:string;
begin
if This_Player.YbNUm >= 0 then
begin
if This_Player.Job = 2 then
begin
if This_Player.GetBagItemCount('书页') >= 1000 then
begin
//This_Player.ScriptRequestSubYBNum(888);
This_Player.Take('书页', 1000);
This_Player.Give('噬血术',1);
This_Npc.NpcNotice('恭喜：玩家'+ This_Player.Name + '在土城成功兑换了噬血术技能书！');
end
else
begin
This_Npc.NpcDialog(This_Player,
'|书页不足1000，无法兑换！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你不是道士，不要乱点！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你没有888元宝！\');
end;
end;
procedure _qigong;
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer;
ck_str,ck_red:string;
begin
if This_Player.YbNUm >= 0 then
begin
if This_Player.Job = 2 then
begin
if This_Player.GetBagItemCount('书页') >= 1000 then
begin
//This_Player.ScriptRequestSubYBNum(888);
This_Player.Take('书页', 1000);
This_Player.Give('气功波',1);
This_Npc.NpcNotice('恭喜：玩家'+ This_Player.Name + '在土城成功兑换了气功波技能书！');
end
else
begin
This_Npc.NpcDialog(This_Player,
'|书页不足1000，无法兑换！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你不是道士，不要乱点！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你没有888元宝！\');
end;
end;
procedure _wuji;
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer;
ck_str,ck_red:string;
begin
if This_Player.YbNUm >= 0 then
begin
if This_Player.Job = 2 then
begin
if This_Player.GetBagItemCount('书页') >= 1000 then
begin
//This_Player.ScriptRequestSubYBNum(888);
This_Player.Take('书页', 1000);
This_Player.Give('无极真气',1);
This_Npc.NpcNotice('恭喜：玩家'+ This_Player.Name + '在土城成功兑换了无极真气技能书！');
end
else
begin
This_Npc.NpcDialog(This_Player,
'|书页不足1000，无法兑换！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你不是道士，不要乱点！\');
end;
end
else
begin
This_Npc.NpcDialog(This_Player,
'|你没有888元宝！\');
end;
end;

分享到：

赞(0)