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

来源: 作者: 点击:
[@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