在线封号.txt

企业版传奇世界本

[@在线封号]
{
#IF
#ACT
MOV S80 $USERNAME
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
Check [8] 1
#ACT
GOTO @家族封号114
break
#ELSEACT
GOTO @公主封号110
break

[@家族封号114]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族01.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM01)
MOV S99 $GLOBAL(JZM01)
MOV S97 $GLOBAL(JZZ01)
MOV S94 1
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM01)>]　族长：[<$GLOBAL(JZZ01)>]　家族人数[<$GLOBAL(JZR01)>]　家族经验：[<$GLOBAL(JZJ01)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG01)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族02.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM02)
MOV S99 $GLOBAL(JZM02)
MOV S97 $GLOBAL(JZZ02)
MOV S94 2
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM02)>]　族长：[<$GLOBAL(JZZ02)>]　家族人数[<$GLOBAL(JZR02)>]　家族经验：[<$GLOBAL(JZJ02)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG02)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族03.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM03)
MOV S99 $GLOBAL(JZM03)
MOV S97 $GLOBAL(JZZ03)
MOV S94 3
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM03)>]　族长：[<$GLOBAL(JZZ03)>]　家族人数[<$GLOBAL(JZR03)>]　家族经验：[<$GLOBAL(JZJ03)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG03)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族04.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM04)
MOV S99 $GLOBAL(JZM04)
MOV S97 $GLOBAL(JZZ04)
MOV S94 4
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM04)>]　族长：[<$GLOBAL(JZZ04)>]　家族人数[<$GLOBAL(JZR04)>]　家族经验：[<$GLOBAL(JZJ04)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG04)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族05.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM05)
MOV S99 $GLOBAL(JZM05)
MOV S97 $GLOBAL(JZZ05)
MOV S94 5
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM05)>]　族长：[<$GLOBAL(JZZ05)>]　家族人数[<$GLOBAL(JZR05)>]　家族经验：[<$GLOBAL(JZJ05)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG05)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族06.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM06)
MOV S99 $GLOBAL(JZM06)
MOV S97 $GLOBAL(JZZ06)
MOV S94 6
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM06)>]　族长：[<$GLOBAL(JZZ06)>]　家族人数[<$GLOBAL(JZR06)>]　家族经验：[<$GLOBAL(JZJ06)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG06)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族07.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM07)
MOV S99 $GLOBAL(JZM07)
MOV S97 $GLOBAL(JZZ07)
MOV S94 7
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM07)>]　族长：[<$GLOBAL(JZZ07)>]　家族人数[<$GLOBAL(JZR07)>]　家族经验：[<$GLOBAL(JZJ07)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG07)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族08.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM08)
MOV S99 $GLOBAL(JZM08)
MOV S97 $GLOBAL(JZZ08)
MOV S94 8
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM08)>]　族长：[<$GLOBAL(JZZ08)>]　家族人数[<$GLOBAL(JZR08)>]　家族经验：[<$GLOBAL(JZJ08)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG08)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族09.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM09)
MOV S99 $GLOBAL(JZM09)
MOV S97 $GLOBAL(JZZ09)
MOV S94 9
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM09)>]　族长：[<$GLOBAL(JZZ09)>]　家族人数[<$GLOBAL(JZR09)>]　家族经验：[<$GLOBAL(JZJ09)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG09)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族10.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM10)
MOV S99 $GLOBAL(JZM10)
MOV S97 $GLOBAL(JZZ10)
MOV S94 10
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM10)>]　族长：[<$GLOBAL(JZZ10)>]　家族人数[<$GLOBAL(JZR10)>]　家族经验：[<$GLOBAL(JZJ10)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG10)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族11.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM11)
MOV S99 $GLOBAL(JZM11)
MOV S97 $GLOBAL(JZZ11)
MOV S94 11
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM11)>]　族长：[<$GLOBAL(JZZ11)>]　家族人数[<$GLOBAL(JZR11)>]　家族经验：[<$GLOBAL(JZJ11)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG11)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族12.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM12)
MOV S99 $GLOBAL(JZM12)
MOV S97 $GLOBAL(JZZ12)
MOV S94 12
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM12)>]　族长：[<$GLOBAL(JZZ12)>]　家族人数[<$GLOBAL(JZR12)>]　家族经验：[<$GLOBAL(JZJ12)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG12)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族13.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM13)
MOV S99 $GLOBAL(JZM13)
MOV S97 $GLOBAL(JZZ13)
MOV S94 13
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM13)>]　族长：[<$GLOBAL(JZZ13)>]　家族人数[<$GLOBAL(JZR13)>]　家族经验：[<$GLOBAL(JZJ13)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG13)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族14.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM14)
MOV S99 $GLOBAL(JZM14)
MOV S97 $GLOBAL(JZZ14)
MOV S94 14
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM14)>]　族长：[<$GLOBAL(JZZ14)>]　家族人数[<$GLOBAL(JZR14)>]　家族经验：[<$GLOBAL(JZJ14)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG14)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族15.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM15)
MOV S99 $GLOBAL(JZM15)
MOV S97 $GLOBAL(JZZ15)
MOV S94 15
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM15)>]　族长：[<$GLOBAL(JZZ15)>]　家族人数[<$GLOBAL(JZR15)>]　家族经验：[<$GLOBAL(JZJ15)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG15)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族16.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM16)
MOV S99 $GLOBAL(JZM16)
MOV S97 $GLOBAL(JZZ16)
MOV S94 16
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM16)>]　族长：[<$GLOBAL(JZZ16)>]　家族人数[<$GLOBAL(JZR16)>]　家族经验：[<$GLOBAL(JZJ16)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG16)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族17.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM17)
MOV S99 $GLOBAL(JZM17)
MOV S97 $GLOBAL(JZZ17)
MOV S94 17
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM17)>]　族长：[<$GLOBAL(JZZ17)>]　家族人数[<$GLOBAL(JZR17)>]　家族经验：[<$GLOBAL(JZJ17)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG17)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族18.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM18)
MOV S99 $GLOBAL(JZM18)
MOV S97 $GLOBAL(JZZ18)
MOV S94 18
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM18)>]　族长：[<$GLOBAL(JZZ18)>]　家族人数[<$GLOBAL(JZR18)>]　家族经验：[<$GLOBAL(JZJ18)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG18)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族19.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM19)
MOV S99 $GLOBAL(JZM19)
MOV S97 $GLOBAL(JZZ19)
MOV S94 19
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM19)>]　族长：[<$GLOBAL(JZZ19)>]　家族人数[<$GLOBAL(JZR19)>]　家族经验：[<$GLOBAL(JZJ19)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG19)>
GOTO @公主封号110
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\家族\家族20.txt
#ACT
INC S80 \家族：
INC S80 $GLOBAL(JZM20)
MOV S99 $GLOBAL(JZM20)
MOV S97 $GLOBAL(JZZ20)
MOV S94 20
SENDMSG 5 当前所在家族：[<$GLOBAL(JZM20)>]　族长：[<$GLOBAL(JZZ20)>]　家族人数[<$GLOBAL(JZR20)>]　家族经验：[<$GLOBAL(JZJ20)>]
SENDMSG 7 家族族长公告：<$GLOBAL(JZG20)>
GOTO @公主封号110
break
#ELSEACT
SET [8] 0
GOTO @公主封号110
break

[@公主封号110]
#IF
CHECKVAR HUMAN FENH = 0
#ACT
GOTO @使用公主封号
break
#IF
CHECKVAR HUMAN FENH = 1
#ACT
GOTO @使用武馆封号
break
#IF
CHECKVAR HUMAN FENH = 2
#ACT
GOTO @使用骑兵封号
break
#IF
CHECKVAR HUMAN FENH = 3
#ACT
GOTO @使用PK值封号
break
#IF
CHECKVAR HUMAN FENH = 4
#ACT
GOTO @使用冲级封号
break
#ELSEACT
GOTO @显示封号365
break

[@使用公主封号]
#IF
CHECKVAR GLOBAL GJ01 = $USERNAME
#ACT
INC S80 \