魔宗使者脚本打造不一样的传世

[@main]

#IF
EQUAL $CLAN.KIND 1
#ACT
MOV S84 {/@@!PIC2#323,16820}
#IF
EQUAL $CLAN.KIND 2
#ACT
MOV S84 {/@@!PIC2#323,16821}
#IF
HaveClan
EQUAL $CLAN.CHIEF $USERNAME
#SAY
{color=green <$USERNAME>},你具有至高无上的权利可任意的将整个宗族\
加入或退出行会。其等级越高，宗族<可招收的弟子/@弟子>就越多。\\
　　你所属的宗族名字: <$STR(S84)><$CLAN.NAME>\
　　你所属的宗族等级: <$CLAN.GRADE>\
　　你所属的宗族等级经验: <$CLAN.EXP>\
　　你所属的宗族当前成员数量: <$CLAN.MEMBERCOUNT>\
　　你所属的宗族成员数量上限: <$CLAN.MEMBERMAX>\
#ELSESAY
　　宗族宗主具有至高无上的权利，可任意的将整个宗族加\
入或退出行会。其等级越高，宗族<可招收的弟子/@弟子>就越多。\
　　宗族的所有成员在每周日晚上19点可参加争夺中州药店\
和海岛流浪商人隶属权的战争。获得胜利后，宗族可领取之\
一周内的税收，弟子可领取相应的奖励。\
　　等级超过40级就可创建神宗。魔宗内的所有弟子必须都\
崇尚赤阳魔尊以纯阳功法修炼。\
　　创建魔宗需要物品：<color=green 灵皓石1块，金砖1块>\
　　<立刻创建魔宗/@创建魔宗>　　<离开/@exit>

[@创建魔宗]
#ACT
QUERYVAL 1 0 14 @宗族名称 请输入你想创立的宗族名称:
Break
[@宗族名称]
#IF
CHECKLEVELEX < 40
#SAY
　　你的等级还未到40级，不能创建宗族。\\
　　<知道了/@exit>
#ACT
break
#IF
!checkitem 金砖 1
!checkitem 灵皓石 1
#SAY
　　缺少必要的材料，不能创建！\
　　创建需要：<color=green 灵皓石1块，金砖1块>\
　　<知道了/@exit>
#ACT
break
#IF
HaveClan
#ACT
SENDMSG 5 你已经有宗族了，不能再建立宗族。
break
#IF
EQUAL S1 暂无宗族
#ACT
SENDMSG 5 你所输入的宗族名字已经有其它宗族使用了，请重新输入！
break
#IF
CHECKVARLIST $STR(S1) ..\QuestDiary\游戏读取\宗族名单.txt
#ACT
SENDMSG 5 你所输入的宗族名字已经有其它宗族使用了，请重新输入！
break

#IF
LARGE $AMBITKIND 2
#ACT
GOTO @检测神魔
break
#ELSEACT
goto @检测等级1
TAKE 金砖 1
TAKE 灵皓石 1
CreateClan 2 $STR(S1) $USERNAME
ClanMemberMax SELF = $STR(P0)
ADDVARLIST $STR(S1) ..\QuestDiary\游戏读取\宗族名单.txt
SENDMSG 5 恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
#ELSESAY
恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！


[@检测神魔]
#IF
EQUAL $AMBITKIND 3
#ACT
goto @检测等级
TAKE 金砖 1
TAKE 灵皓石 1
CreateClan 2 $STR(S1) $USERNAME
ClanMemberMax SELF = $STR(P0)
ADDVARLIST $STR(S1) ..\QuestDiary\游戏读取\宗族名单.txt
SENDMSG 5 恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
#SAY
恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
#IF
EQUAL $AMBITKIND 5
#ACT
TAKE 金砖 1
TAKE 灵皓石 1
CreateClan 2 $STR(S1) $USERNAME
ClanMemberMax SELF = 20
ADDVARLIST $STR(S1) ..\QuestDiary\游戏读取\宗族名单.txt
SENDMSG 5 恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
#SAY
恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
#IF
EQUAL $AMBITKIND 7
#ACT
TAKE 金砖 1
TAKE 灵皓石 1
CreateClan 2 $STR(S1) $USERNAME
ClanMemberMax SELF = 20
ADDVARLIST $STR(S1) ..\QuestDiary\游戏读取\宗族名单.txt
SENDMSG 5 恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
#SAY
恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
#ELSEACT
#ELSESAY
恭喜，你的宗族建立成功,你的宗族成员数量上限为<$CLAN.MEMBERMAX>人！
break

[@弟子]
　　<color=green 宗族宗主等级>　　　　　　　　　　<color=green 弟子数量>\
　　40级--49级                         6名\
　　50级--64级                         8名\
　　天人一重--天人九重                10名\
　　天人十重--天人十九重              15名\
　　天人二十重--天人二十九重          18名\
　　天人三十重以上                    20名\
　　<返回/@main>

[@检测等级1]
#IF
CHECKLEVELEX > 49
small $CLAN.MEMBERMAX 8
#ACT
MOV P0 8
break
#IF
CHECKLEVELEX < 50
small $CLAN.MEMBERMAX 8
#ACT
MOV P0 6
break
[@检测等级]
#IF
SMALL $AMBITLEVEL 10
small $CLAN.MEMBERMAX 10
#ACT
MOV P0 10
break
#IF
SMALL $AMBITLEVEL 20
LARGE $AMBITLEVEL 9
small $CLAN.MEMBERMAX 15
#ACT
MOV P0 15
break
#IF
SMALL $AMBITLEVEL 30
LARGE $AMBITLEVEL 19
small $CLAN.MEMBERMAX 18
#ACT
MOV P0 18
break
#IF
LARGE $AMBITLEVEL 29
small $CLAN.MEMBERMAX 20
#ACT
MOV P0 20
break

激动人心，无法言表！

无回帖，不论坛，这才是人道。

感恩无私的分享与奉献

我只是路过打酱油的。

我只是路过打酱油的。

太生气了，无法HOLD啦 >_<......

无回帖，不论坛，这才是人道。

淡定，淡定，淡定……

强烈支持楼主ing……