战神引擎创建行会和战队的国王脚本
战神引擎创建行会和战队的国王脚本，脚本里面要求500金币和祖玛头像，可以自由设置。
{********************************************************************
*******************************************************************}
program Mir2;
{$I ActiveValidateCom.pas}
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 >= 5000000) 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(5000000);
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,
'想要成立行会，你首先需要证明你是否有这个资格才行哦。\'
+'成立行会需要<500万金币 c="red">和<一个沃玛号角 c="red">为条件的，沃玛教主\'
+'只是在沃玛寺庙出现的哦，你要是想杀死他，需要你自己足\'
+'够强大才行！\ \'
+'|{cmd}<知道了 exit="">');
end;
end;
procedure _requestcastlewarnow;
begin
if AutoOpen(1) then
begin
if This_Player.ReqCastleWar then
begin
This_Npc.NpcDialog(This_Player,
'战役的提议被接受了。\' +
'尽快赶去沙巴克城堡吧。\');
end;
end else
This_Npc.NpcDialog(This_Player,
'<'+inttostr(autoopenday(1))+'天后可申请沙巴克战争。 c="red">\ \'
);
end;
procedure _requestcastlewar;
begin
This_Npc.NpcDialog(This_Player,
'要求战斗，你必须要有一个祖玛头像，你有了吗？\' +
'如果你在服务器里面的申请被允许了的话，那么战役\' +
'将在两天后进行。\ \' +
'|{cmd}<提供一个祖玛头像 requestcastlewarnow="">\' +
'|{cmd}<取消 main="">\');
end;
procedure _buildCorpsexp;
begin
This_Npc.NpcDialog(This_Player,
'成立战队需要创建者等级达到35级，并且递交100万金币.\ \' +
'|{cmd}<返回 main="">\');
end;
procedure _buildguildexp;
begin
This_Npc.NpcDialog(This_Player,
'战队队长才可以创建行会，\'
+'成立行会需要<500万金币 c="red">和<一个沃玛号角 c="red">为条件的，沃玛教主\'
+'只是在沃玛寺庙出现的哦，你要是想杀死他，需要你自己足\'
+'够强大才行！\ \'
+'|{cmd}<返回 main="">');
end;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
'|┏━━━━━━━━━━━━━━━━━━━┓\|'+
'<这里是比奇城堡宫殿。我是管理这里各种事情的国王。你有什么 c="254">\'+
'<事情吗？请注意：您在填写行会或战队名称时一定要慎重。如果 c="254">\'+
'<包含不健康、有悖于社会精神文明的字眼，我们可以在不通知的 c="254">\'+
'<情况下做删除处理。我们愿与您共建网络文明，谢谢您的配合 c="254">\'+
'|┗━━━━━━━━━━━━━━━━━━━┛\'
+'|{cmd}<创建战队 buildcorpsnow="">^<询问如何建立战队 buildcorpsexp="">\'
+'|{cmd}<创建行会 buildguildnow="">^<询问如何建立行会 buildguildexp="">\'
);
end;
begin
domain;
end.
推荐工具
热门游戏
- 1
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 2
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 3
- 战神引擎官方制作1.76原始端
- 战神版本
- 战神引擎官方制作1.76原始端
- 战神版本
- 4
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 5
- 经典版本+一切都有+沉默首选
- 战神版本
- 经典版本+一切都有+沉默首选
- 战神版本
- 6
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 7
- 新UI+新地图+新怪物+新装备
- 战神版本
- 新UI+新地图+新怪物+新装备
- 战神版本
- 8
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 9
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 10
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 11
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 12
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本