全站
2019-03-25
全站
晓月清风 说: 论坛资源板块下的所有资源都是免费下载的!有问题大家可以到提问交流区随时发帖吹牛哦
2019-03-01
全站
晓月清风 说: 全网部分资源免费下载 有急分享谢谢大家的支持!
2019-03-01
系统
2019-03-01
查看: 82|回复: 0
打印 上一主题 下一主题

[战神引擎] 战神引擎(传奇手游)Gowlom2合成脚本

[复制链接]

224

主题

250

帖子

2万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
23585

最佳新人活跃会员热心会员推广达人宣传达人灌水之王突出贡献优秀版主荣誉管理论坛元老爱心贡献三等功二等功一等功论坛霸王

跳转到指定楼层
妤间富
发表于 2019-9-23 07:35:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
战神引擎(传奇手游)Gowlom2合成脚本& Q- F: P: {+ u

0 S- P# B1 L1 E9 t: G, \: g
Cpp 代码,双击复制代码
PROGRAM Mir2;


procedure _nz;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('裁决之杖') >= 3 then
   begin

        This_Player.Take('裁决之杖',3);
        This_Player.Take('金刚石',2888);
        This_Player.Give('怒斩',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把裁决+2888金刚石才能合成!'); 
  
  end;      

procedure _ly;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('骨玉权杖') >= 3 then
   begin

        This_Player.Take('骨玉权杖',3);
        This_Player.Take('金刚石',2888);
        This_Player.Give('龙牙',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把骨玉权杖+2888金刚石才能合成!'); 
  
  end;      


procedure _xys;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('龙纹') >= 3 then
   begin

        This_Player.Take('龙纹',3);
        This_Player.Take('金刚石',2888);
        This_Player.Give('逍遥扇',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把龙纹+2888金刚石才能合成!'); 
  
  end;      
  
  
procedure _tl;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('怒斩') >= 3 then
   begin

        This_Player.Take('怒斩',3);
        This_Player.Take('金刚石',8888);
        This_Player.Give('屠龙',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把怒斩+8888金刚石才能合成!'); 
  
  end; 
 
 
 procedure _xhfz;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('龙牙') >= 3 then
   begin

        This_Player.Take('龙牙',3);
        This_Player.Take('金刚石',8888);
        This_Player.Give('嗜魂法杖',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把龙牙+8888金刚石才能合成!'); 
  
  end;    
 
  procedure _ytj;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('逍遥扇') >= 3 then
   begin

        This_Player.Take('逍遥扇',3);
        This_Player.Take('金刚石',8888);
        This_Player.Give('倚天剑',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把逍遥扇+8888金刚石才能合成!'); 
  
  end; 


procedure _kt;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('屠龙') >= 3 then
   begin

        This_Player.Take('屠龙',3);
        This_Player.Take('金刚石',28888);
        This_Player.Give('开天',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把屠龙+28888金刚石才能合成!'); 
  
  end; 
  
  
procedure _zt;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('嗜魂法杖') >= 3 then
   begin

        This_Player.Take('嗜魂法杖',3);
        This_Player.Take('金刚石',28888);
        This_Player.Give('镇天',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把嗜魂法杖+28888金刚石才能合成!'); 
  
  end; 
  
  
procedure _xt;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('倚天剑') >= 3 then
   begin

        This_Player.Take('倚天剑',3);
        This_Player.Take('金刚石',28888);
        This_Player.Give('玄天',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要3把倚天剑+28888金刚石才能合成!'); 
  
  end;
  
 procedure _xxj;
 begin

     if This_Player.FreeBagNum >= 2 then
     if This_Player.GetBagItemCount ('开天') >= 1 then
     if This_Player.GetBagItemCount ('镇天') >= 1 then
     if This_Player.GetBagItemCount ('玄天') >= 1 then
   begin

        This_Player.Take('开天',1);
        This_Player.Take('镇天',1);
        This_Player.Take('玄天',1);
        This_Player.Take('金刚石',58888);
        This_Player.Give('轩辕剑',1);

    end;
   
        This_NPC.NpcDialog(This_Player,'必须需要1把开天,镇天,玄天+58888金刚石才能合成!'); 
  
  end; 
  

 
 
   
Begin
   This_Npc.NpcDialog(This_Player,
   '|勇士想更快提示你的实力吗?我可以合成更强大的装备\'+
   '|点击你所需要的装备就可以查询到对应材料。\'+
   '|{cmd}<合成怒斩 @nz="">  <合成龙牙 @ly=""> <合成逍遥扇 @xxs="">\'+
   '|{cmd}<合成屠龙 @tl="">  <合成嗜魂 @shfz=""> <合成倚天剑 @ytj="">\'+
   '|{cmd}<合成开天 @kt="">  <合成镇天 @zt=""> <合成倚玄天 @xt="">\'+
   '|{cmd}<合成轩辕剑 @xxj="">'
   );
end.
          

0 a1 ^2 k1 R" D7 B) A: R8 j' ?# e5 n& n9 s4 \
战神引擎合成.pas (4.3 KB, 下载次数: 0) . u& a0 Z& x5 {( q1 d9 b6 I, g5 ~
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则