加密文件.txt

企业版传奇世界本

[@加密信息]
{
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\QMCMD.txt
#ACT
goto @QMCJJSSJ
#IF
#ACT
SENDMSG 5 版本信息：<$SERVERNAME>-飞雪世界<$BANKACCOUNT4>版　<$WEBSITE>　(客服QQ:<$QQ>)


[@成功老大通知]
恭喜！恭喜！恭喜！\\
你刚才申请建立[<$GLOBAL(JZMN1)>]家族，已通过全服10人支持！\\
现在正式成功建立了！你可以通过家族系统的“家族管理”功能\
来管理你的家族，招收成员、设置家族公告等！\\
<知道了！/@exit>

[@家族失败通知]
#IF
EQUAL D8 88
#ACT
MOV D9 0
MOV D8 0
SENDMSG 5 家族建立失败！在规定的15秒时间内，在线玩家中没有10个人支持建立这个家族！
break
close


[@家族成员加入]
#IF
EQUAL D8 88
#ACT
SHOWHUMEFFECT 22
SHOWHUMEFFECT 23
SHOWHUMEFFECT 24
give 家族号角 1
SENDMSG 7 (*)成功加入家族，获得家族号角一个，双击“家族号角”便可以进行家族聊天！
#ELSEACT
break
#IF
CHECKVAR GLOBAL JZM01 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族01.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR01 + 1
SAVEVAR GLOBAL JZR01 ..\QuestDiary\数据文件\家族\JZR01.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ01)>
break
#IF
CHECKVAR GLOBAL JZM02 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族02.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR02 + 1
SAVEVAR GLOBAL JZR02 ..\QuestDiary\数据文件\家族\JZR02.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ02)>
break
#IF
CHECKVAR GLOBAL JZM03 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族03.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR03 + 1
SAVEVAR GLOBAL JZR03 ..\QuestDiary\数据文件\家族\JZR03.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ03)>
break
#IF
CHECKVAR GLOBAL JZM04 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族04.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR04 + 1
SAVEVAR GLOBAL JZR04 ..\QuestDiary\数据文件\家族\JZR04.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ04)>
break
#IF
CHECKVAR GLOBAL JZM05 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族05.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR05 + 1
SAVEVAR GLOBAL JZR05 ..\QuestDiary\数据文件\家族\JZR05.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ05)>
break
#IF
CHECKVAR GLOBAL JZM06 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族06.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR06 + 1
SAVEVAR GLOBAL JZR06 ..\QuestDiary\数据文件\家族\JZR06.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ06)>
break
#IF
CHECKVAR GLOBAL JZM07 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族07.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR07 + 1
SAVEVAR GLOBAL JZR07 ..\QuestDiary\数据文件\家族\JZR07.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ07)>
break
#IF
CHECKVAR GLOBAL JZM08 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族08.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR08 + 1
SAVEVAR GLOBAL JZR08 ..\QuestDiary\数据文件\家族\JZR08.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ08)>
break
#IF
CHECKVAR GLOBAL JZM09 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族09.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR09 + 1
SAVEVAR GLOBAL JZR09 ..\QuestDiary\数据文件\家族\JZR09.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ09)>
break
#IF
CHECKVAR GLOBAL JZM10 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族10.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR10 + 1
SAVEVAR GLOBAL JZR10 ..\QuestDiary\数据文件\家族\JZR10.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ10)>
break
#IF
CHECKVAR GLOBAL JZM11 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族11.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR11 + 1
SAVEVAR GLOBAL JZR11 ..\QuestDiary\数据文件\家族\JZR11.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ11)>
break
#IF
CHECKVAR GLOBAL JZM12 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族12.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR12 + 1
SAVEVAR GLOBAL JZR12 ..\QuestDiary\数据文件\家族\JZR12.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ12)>
break
#IF
CHECKVAR GLOBAL JZM13 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族13.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR13 + 1
SAVEVAR GLOBAL JZR13 ..\QuestDiary\数据文件\家族\JZR13.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ13)>
break
#IF
CHECKVAR GLOBAL JZM14 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族14.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR14 + 1
SAVEVAR GLOBAL JZR14 ..\QuestDiary\数据文件\家族\JZR14.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ14)>
break
#IF
CHECKVAR GLOBAL JZM15 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族15.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR15 + 1
SAVEVAR GLOBAL JZR15 ..\QuestDiary\数据文件\家族\JZR15.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ15)>
break
#IF
CHECKVAR GLOBAL JZM16 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族16.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR16 + 1
SAVEVAR GLOBAL JZR16 ..\QuestDiary\数据文件\家族\JZR16.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ16)>
break
#IF
CHECKVAR GLOBAL JZM17 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族17.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR17 + 1
SAVEVAR GLOBAL JZR17 ..\QuestDiary\数据文件\家族\JZR17.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ17)>
break
#IF
CHECKVAR GLOBAL JZM18 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族18.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR18 + 1
SAVEVAR GLOBAL JZR18 ..\QuestDiary\数据文件\家族\JZR18.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ18)>
break
#IF
CHECKVAR GLOBAL JZM19 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族19.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR19 + 1
SAVEVAR GLOBAL JZR19 ..\QuestDiary\数据文件\家族\JZR19.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ19)>
break
#IF
CHECKVAR GLOBAL JZM20 = $STR(S8)
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\家族\家族20.txt
MOV D8 0
SET [8] 1
CALCVAR GLOBAL JZR20 + 1
SAVEVAR GLOBAL JZR20 ..\QuestDiary\数据文件\家族\JZR20.txt
#CALL [\封号系统\在线封号.txt] @在线封号
SENDMSG 6 [家族公告]：恭喜你已经成为[<$STR(S8)>]家族中的一员，你的族长是：<$GLOBAL(JZZ20)>
break

;==========================================================================================

[@家族申请提示]
#IF
CHECKMAPNAME 0
#ACT
GOTO @在地图里
break
#IF
CHECKMAPNAME 1
#ACT
GOTO @在地图里
break
#IF
CHECKMAPNAME 2
#ACT
GOTO @在地图里
break
#IF
CHECKMAPNAME 3
#ACT
GOTO @在地图里
break
#IF
CHECKMAPNAME 4
#ACT
GOTO @在地图里
break
#IF
CHECKMAPNAME 5
#ACT
GOTO @在地图里
break
#IF
CHECKMAPNAME 7
#ACT
GOTO @在地图里
break
#IF
CHECKMAPNAME SH000
#ACT
GOTO @在地图里
break

[@在地图里]
#IF
LARGE d9 0
#ACT
break
#IF
Check [8] 1
#ACT
break
#IF
CHECKLEVELEX > 44
#ACT
DELAY 14 @JSSJDL
#SAY
勇士： <COLOR=red [><$GLOBAL(JZZN1)><COLOR=red ] >发起建立 <COLOR=red [><$GLOBAL(JZMN1)><COLOR=red ]>家族 的申请！\\
需要10个全服等级45级以上无家族玩家投票同意此家族建立，那么\
这个家族才能成功建立！无家族玩家1人只有1次投票机会！\\
<我同意，投票支持建立这个家族/@同意建立家族>\\
<不同意，我要保留我的投票权利/@exit>　　　　　<COLOR=red 限制时间15秒作出决定>
#ELSEACT
break

[@JSSJDL]
#ACT
SENDMSG 6 投票时间过期，你保留了你今天的投票权利！
break
close

[@JSSJTG]
#ACT
break

[@同意建立家族]
<COLOR=red 注意:>如果你同意支持此家族建立，那么你就会加入这个家族，\
以后你想退出这个家族就需要支付100万金币才能退出！\\
<COLOR=red 点确定后加入后，以后想退出这个家族就要支付100万金币>\\
<我确定要支持并加入到这个家族/@确定支持>\\
<算了，我保留我的投票权利/@exit>

[@确定支持]
#IF
CHECKVAR GLOBAL JZSN1 < 1
#ACT
DELAY 0 @JSSJTG
break
#ELSEACT
DELAY 0 @JSSJTG
CALCVAR GLOBAL JZRN1 + 1
MOV S8 $GLOBAL(JZMN1)
MOV D8 88
GOTO @检查是否到10人
break

[@检查是否到10人]
#IF
CHECKVAR GLOBAL JZSN1 < 1
#ACT
break
#IF
CHECKVAR GLOBAL JZRN1 > 9
CHECKVAR GLOBAL JZSN1 > 0
#ACT
CALCVAR GLOBAL JZSN1 = 0
hcall $GLOBAL(JZZN1) @成功老大通知
DELAY 0 @家族建立成功
SENDMSG 8 [系统公告]：[<$GLOBAL(JZZN1)>]申请建立的[<$GLOBAL(JZMN1)>]家族，已通过全服10人支持，现在正式成功建立！
break
#ELSEACT
hcall $GLOBAL(JZZN1) @成功老大增加
SENDMSG 5 你同意支持[<$GLOBAL(JZZN1)>]建立[<$GLOBAL(JZMN1)>]家族，目前该家族人气支持度[<$GLOBAL(JZRN1)>]人
break
close

[@成功老大增加]
#ACT
SENDMSG 5 [系统通知]：有玩家同意支持你建立[<$GLOBAL(JZMN1)>]家族，目前家族人气支持度[<$GLOBAL(JZRN1)>]人



[@家族建立成功]
#IF
CHECKVAR GLOBAL JZM01 = 暂无
#ACT
CALCVAR GLOBAL JZM01 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ01 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM01 ..\QuestDiary\数据文件\家族\JZM01.txt
SAVEVAR GLOBAL JZZ01 ..\QuestDiary\数据文件\家族\JZZ01.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM02 = 暂无
#ACT
CALCVAR GLOBAL JZM02 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ02 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM02 ..\QuestDiary\数据文件\家族\JZM02.txt
SAVEVAR GLOBAL JZZ02 ..\QuestDiary\数据文件\家族\JZZ02.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM03 = 暂无
#ACT
CALCVAR GLOBAL JZM03 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ03 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM03 ..\QuestDiary\数据文件\家族\JZM03.txt
SAVEVAR GLOBAL JZZ03 ..\QuestDiary\数据文件\家族\JZZ03.txt
GMEXECUTE 在线提问 @家族成员加入