比奇国王Npc脚本(创建行会+创建战队+申请攻城)

用于战神引擎的国王Npc脚本综合版,这个NPC上集成了创建战队、创建行会、申请攻城等功能,申请行会和战队的条件也都非常的简单,金币、等级、祖玛头像和沃玛号角,脚本是明文版的,可以任意修改里面的条件。如果要天天攻城,记得在盘古上面设置时间为1天。

比奇国王Npc脚本(创建行会+创建战队+申请攻城)

比奇国王Npc脚本(创建行会+创建战队+申请攻城)

比奇国王Npc脚本(创建行会+创建战队+申请攻城)

部分脚本

program Mir2;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _buildCorpsnow;
begin
  This_Npc.InputDialog(This_Player, '请输入新战队名称:', 0, 101);
end;
procedure P101;
var str_dlg , str_input : string; 
begin
  if This_Npc.InputOk then
  begin
    if (This_Player.Level >= 35) and (This_Player.GoldNum >= 1000000) then
    begin
      str_input := This_Npc.InputStr;
      if (length(str_input) > 0) and (length(str_input) < 15) then
      begin  
        case This_Player.CreateSelfCorps(str_input) of  
            0 : 
            begin
                This_Player.DecGold(1000000);
                str_dlg := '战队创建成功。';
            end;
            1 : str_dlg := '创建失败,战队名包含违规字符。';
            2 : str_dlg := '创建失败,战队名已存在。';
            3 : str_dlg := '您已有战队,请先退出再创建。';
            4 : str_dlg := '玩家不在线';
            5 : str_dlg := '玩家没有战队';
            6 : str_dlg := '已有行会';
            7 : str_dlg := '目标不存在';
            8 : str_dlg := '请求已经存在';
            9 : str_dlg := '成员不符合条件(战队招募条件)';
            10 : str_dlg := '请求不存在';
            11 : str_dlg := '请求的类型错误';
            12 : str_dlg := '战队不存在';
            13 : str_dlg := '战队成员已满';
            14 : str_dlg := '关系类型错误';
            15 : str_dlg := '关系已存在';
            16 : str_dlg := '战队人数已满';
            17 : str_dlg := '数据大小不对';
            18 : str_dlg := '成员不存在';
            19 : str_dlg := '不能操作自己';
            20 : str_dlg := '尝试删除队长(战队队长不能被删除)';
            21 : str_dlg := '职位已满';
            22 : str_dlg := '无效的目标';
            23 : str_dlg := '类型不匹配';
            24 : str_dlg := '信息长度太长';
            25 : str_dlg := '没有找到目标';
            26 : str_dlg := '成员已经存在';
            27 : str_dlg := '关系不存在';
            28 : str_dlg := '在战队战区域(无法退出战队)';
            29 : str_dlg := '在攻城区域(无法退出战队)';
            30 : str_dlg := '没有更多日志';
            31 : str_dlg := '该成员已有职务';
            32 : str_dlg := '已联盟不可宣战';
            33 : str_dlg := '已宣战不可联盟';
            34 : str_dlg := '目标战队的联盟开关关闭';
            555 : str_dlg := '无操作权限';
            1000 : str_dlg := '未知错误';
        end;
         This_Npc.NpcDialog(This_Player,
         str_dlg + '。\ \'
         +'|{cmd}<返回/@main>');
       end else
        This_Npc.NpcDialog(This_Player,
        '战队名称不能超过7个汉字或14个英文字母!\ \'
        +'|{cmd}<返回/@main>');
    end else
    This_Npc.NpcDialog(This_Player,
    '想要成立战队,你首先需要证明你是否有这个资格才行哦。\'
    +'成立战队需要创建者等级达到35级,并且递交100万金币才行\ \'
    +'|{cmd}<返回/@main>');
  end;
end;
procedure _buildguildnow;
begin
  This_Npc.InputDialog(This_Player, '请输入新行会名称:', 0, 102);
end;
procedure P102;
var str_dlg , str_input : string; 
begin
  if This_Npc.InputOk then
  begin
    if (This_Player.GetBagItemCount('沃玛号角') >= 1) and (This_Player.GoldNum >= 1000000) then
    begin 
      str_input := This_Npc.InputStr;
      if (length(str_input) > 0) and (length(str_input) < 15) then
      begin  
        case This_Player.CreateSelfGild(str_input) of  
            0 : 
            begin
              This_Player.Take('沃玛号角',1);
              This_Player.DecGold(1000000); 
            str_dlg := '行会创建成功。';
            end; 
            1 : str_dlg := '创建失败,行会名包含违规字符。';
            2 : str_dlg := '创建失败,行会名已存在。';
            3 : str_dlg := '您已有行会,请先退出再创建。';
            4 : str_dlg := '玩家不在线';
            5 : str_dlg := '玩家没有战队';
            6 : str_dlg := '已有行会';
            7 : str_dlg := '目标不存在';
            8 : str_dlg := '请求已经存在';
            9 : str_dlg := '成员不符合条件(战队招募条件)';
            10 : str_dlg := '请求不存在';
            11 : str_dlg := '请求的类型错误';
            12 : str_dlg := '行会不存在';
            13 : str_dlg := '行会成员已满';
            14 : str_dlg := '关系类型错误';
            15 : str_dlg := '关系已存在';
            16 : str_dlg := '战队人数已满';
            17 : str_dlg := '数据大小不对';
            18 : str_dlg := '成员不存在';
            19 : str_dlg := '不能操作自己';
            20 : str_dlg := '尝试删除队长(战队队长不能被删除)';
            21 : str_dlg := '职位已满';
            22 : str_dlg := '无效的目标';
            23 : str_dlg := '类型不匹配';
            24 : str_dlg := '信息长度太长';
            25 : str_dlg := '没有找到目标';
            26 : str_dlg := '成员已经存在';
            27 : str_dlg := '关系不存在';
            28 : str_dlg := '在行会战区域(无法退出行会)';
            29 : str_dlg := '在攻城区域(无法退出行会)';
            30 : str_dlg := '没有更多日志';
            31 : str_dlg := '该成员已有职务';
            32 : str_dlg := '已联盟不可宣战';
            33 : str_dlg := '已宣战不可联盟';
            34 : str_dlg := '目标行会的联盟开关关闭';
            555 : str_dlg := '战队队长才可以创建行会';
            1000 : str_dlg := '未知错误';
        end;
       This_Npc.NpcDialog(This_Player,
       str_dlg + '。\ \'
       +'|{cmd}<返回/@main>');
      end else
      This_Npc.NpcDialog(This_Player,
      '行会名称不能超过7个汉字或14个英文字母!\ \'
      +'|{cmd}<返回/@main>'); 
    end else
    This_Npc.NpcDialog(This_Player,
     '想要成立行会,你首先需要证明你是否有这个资格才行哦。\'
     +'成立行会需要<100万金币/c=red>和<一个沃玛号角/c=red>为条件的,沃玛教主\'
     +'只是在沃玛寺庙出现的哦,你要是想杀死他,需要你自己足\'
     +'够强大才行!\ \'
     +'|{cmd}<知道了/@exit>');
  end;
end;
分享到:
赞(0)