热门标签：传奇引擎版本网络开区最新服务脚本服务端 1.76

您当前的位置：首页 > 传世技术

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

本文出处：网游动力作者：本站发布时间：2014-10-16阅读次数：

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

热门文章