[@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