加密文件.txt

企业版传奇世界本

break
#IF
CHECKVAR GLOBAL JZM04 = 暂无
#ACT
CALCVAR GLOBAL JZM04 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ04 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM04 ..\QuestDiary\数据文件\家族\JZM04.txt
SAVEVAR GLOBAL JZZ04 ..\QuestDiary\数据文件\家族\JZZ04.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM05 = 暂无
#ACT
CALCVAR GLOBAL JZM05 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ05 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM05 ..\QuestDiary\数据文件\家族\JZM05.txt
SAVEVAR GLOBAL JZZ05 ..\QuestDiary\数据文件\家族\JZZ05.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM06 = 暂无
#ACT
CALCVAR GLOBAL JZM06 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ06 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM06 ..\QuestDiary\数据文件\家族\JZM06.txt
SAVEVAR GLOBAL JZZ06 ..\QuestDiary\数据文件\家族\JZZ06.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM07 = 暂无
#ACT
CALCVAR GLOBAL JZM07 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ07 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM07 ..\QuestDiary\数据文件\家族\JZM07.txt
SAVEVAR GLOBAL JZZ07 ..\QuestDiary\数据文件\家族\JZZ07.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM08 = 暂无
#ACT
CALCVAR GLOBAL JZM08 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ08 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM08 ..\QuestDiary\数据文件\家族\JZM08.txt
SAVEVAR GLOBAL JZZ08 ..\QuestDiary\数据文件\家族\JZZ08.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM09 = 暂无
#ACT
CALCVAR GLOBAL JZM09 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ09 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM09 ..\QuestDiary\数据文件\家族\JZM09.txt
SAVEVAR GLOBAL JZZ09 ..\QuestDiary\数据文件\家族\JZZ09.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM10 = 暂无
#ACT
CALCVAR GLOBAL JZM10 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ10 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM10 ..\QuestDiary\数据文件\家族\JZM10.txt
SAVEVAR GLOBAL JZZ10 ..\QuestDiary\数据文件\家族\JZZ10.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM11 = 暂无
#ACT
CALCVAR GLOBAL JZM11 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ11 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM11 ..\QuestDiary\数据文件\家族\JZM11.txt
SAVEVAR GLOBAL JZZ11 ..\QuestDiary\数据文件\家族\JZZ11.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM12 = 暂无
#ACT
CALCVAR GLOBAL JZM12 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ12 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM12 ..\QuestDiary\数据文件\家族\JZM12.txt
SAVEVAR GLOBAL JZZ12 ..\QuestDiary\数据文件\家族\JZZ12.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM13 = 暂无
#ACT
CALCVAR GLOBAL JZM13 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ13 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM13 ..\QuestDiary\数据文件\家族\JZM13.txt
SAVEVAR GLOBAL JZZ13 ..\QuestDiary\数据文件\家族\JZZ13.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM14 = 暂无
#ACT
CALCVAR GLOBAL JZM14 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ14 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM14 ..\QuestDiary\数据文件\家族\JZM14.txt
SAVEVAR GLOBAL JZZ14 ..\QuestDiary\数据文件\家族\JZZ14.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM15 = 暂无
#ACT
CALCVAR GLOBAL JZM15 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ15 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM15 ..\QuestDiary\数据文件\家族\JZM15.txt
SAVEVAR GLOBAL JZZ15 ..\QuestDiary\数据文件\家族\JZZ15.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM16 = 暂无
#ACT
CALCVAR GLOBAL JZM16 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ16 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM16 ..\QuestDiary\数据文件\家族\JZM16.txt
SAVEVAR GLOBAL JZZ16 ..\QuestDiary\数据文件\家族\JZZ16.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM17 = 暂无
#ACT
CALCVAR GLOBAL JZM17 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ17 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM17 ..\QuestDiary\数据文件\家族\JZM17.txt
SAVEVAR GLOBAL JZZ17 ..\QuestDiary\数据文件\家族\JZZ17.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM18 = 暂无
#ACT
CALCVAR GLOBAL JZM18 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ18 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM18 ..\QuestDiary\数据文件\家族\JZM18.txt
SAVEVAR GLOBAL JZZ18 ..\QuestDiary\数据文件\家族\JZZ18.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM19 = 暂无
#ACT
CALCVAR GLOBAL JZM19 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ19 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM19 ..\QuestDiary\数据文件\家族\JZM19.txt
SAVEVAR GLOBAL JZZ19 ..\QuestDiary\数据文件\家族\JZZ19.txt
GMEXECUTE 在线提问 @家族成员加入
break
#IF
CHECKVAR GLOBAL JZM20 = 暂无
#ACT
CALCVAR GLOBAL JZM20 = $GLOBAL(JZMN1)
CALCVAR GLOBAL JZZ20 = $GLOBAL(JZZN1)
CALCVAR GLOBAL JZMN1 = 暂无
CALCVAR GLOBAL JZZN1 = 暂无
CALCVAR GLOBAL JZSN1 = 0
CALCVAR GLOBAL JZRN1 = 0
SAVEVAR GLOBAL JZM20 ..\QuestDiary\数据文件\家族\JZM20.txt
SAVEVAR GLOBAL JZZ20 ..\QuestDiary\数据文件\家族\JZZ20.txt
GMEXECUTE 在线提问 @家族成员加入
break

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

[@加入家族成员收钱]
#IF
Check [8] 1
#ACT
break
#IF
EQUAL S98 允许
#ACT
MOV S8 $STR(T96)
MOV D8 88
hcall $STR(T90) @jianshaoyb
goto @家族成员加入
break
#ELSEACT
hcall $STR(T90) @DFMYKYX
SENDMSG 6 有人招收你加入家族，但你当前状态不允许加入家族，你可以在落霞岛-家族系统NPC处开启允许加入家族！
break

[@jianshaoyb]
#ACT
GAMEGOLD - 200
SENDMSG 7 你成功招收了一名家族成员，元宝数量-200
break

[@加入家族成员]
#IF
Check [8] 1
#ACT
break
#IF
EQUAL S98 允许
#ACT
MOV S8 $STR(T96)
MOV D8 88
hcall $STR(T90) @jianshaoyb34
goto @家族成员加入
break
#ELSEACT
hcall $STR(T90) @DFMYKYX
SENDMSG 6 有人招收你加入家族，但你当前状态不允许加入家族，你可以在落霞岛-家族系统NPC处开启允许加入家族！
break

[@jianshaoyb34]
#ACT
SENDMSG 6 你成功招收了一名家族成员！
break

[@DFMYKYX]
#ACT
SENDMSG 6 对方当前状态不允许加入家族，你可以叫他在落霞岛-家族系统NPC处开启允许加入家族！
break


[@JZJYTZLEHG]
#IF
Check [8] 0
#ACT
break
#IF
EQUAL S99 $STR(T13)
#ACT
SENDMSG 7 <$STR(T12)>
break

[@JZHXZJTXL]
#IF
Check [8] 0
#ACT
break
#IF
EQUAL S99 $STR(T14)
#ACT
SENDMSG 6 <$STR(T15)>
break

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

[@getstring807]
#IF
EQUAL s5 无人
#ACT
CHANGEPERMISSION 10
SENDMSG 5 请与[工作组]联系获取管理密码
MessageBox 对不起，你所输入的管理密码错误，请重新输入！\管理密码，禁止使用GM功能
break
close

[@QMCJJSSJ]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\QMCMD.txt
#ELSEACT
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\冲级定时\01.txt
#ACT
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\冲级定时\11.txt
#ACT
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\冲级定时\21.txt
#ACT
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\冲级定时\31.txt
#ACT
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\冲级定时\41.txt
#ACT
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\冲级定时\51.txt
#ACT
break
#IF
CHECKLEVELEX = 40
#ACT
CALCVAR HUMAN SCL = 0
CALCVAR HUMAN SCL + $EXP
MOV S3 $HUMAN(SCL)
CALCVAR HUMAN SCL - $HUMAN(QMC)
CALCVAR HUMAN QMJ = $HUMAN(SCL)
SAVEVAR HUMAN QMJ ..\QuestDiary\数据文件\QMJ.txt
delnamelist ..\QuestDiary\数据文件\QMCMD.txt
SENDMSG 7 [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！
SENDMSG 5 你比赛开始时登记经验是：[<$HUMAN(QMC)>]，当前经验是[<$STR(S3)>]，你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]！
messagebox [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！\　\你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]点
GOTO @QMCJJCPML
break
#IF
CHECKLEVELEX = 41
#ACT
CALCVAR HUMAN SCL = 10000
CALCVAR HUMAN SCL + $EXP
MOV S3 $HUMAN(SCL)
CALCVAR HUMAN SCL - $HUMAN(QMC)
CALCVAR HUMAN QMJ = $HUMAN(SCL)
SAVEVAR HUMAN QMJ ..\QuestDiary\数据文件\QMJ.txt
delnamelist ..\QuestDiary\数据文件\QMCMD.txt
SENDMSG 7 [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！
SENDMSG 5 你比赛开始时登记经验是：[<$HUMAN(QMC)>]，当前经验是[<$STR(S3)>]，你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]！
messagebox [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！\　\你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]点
GOTO @QMCJJCPML
break
#IF
CHECKLEVELEX = 42
#ACT
CALCVAR HUMAN SCL = 30000
CALCVAR HUMAN SCL + $EXP
MOV S3 $HUMAN(SCL)
CALCVAR HUMAN SCL - $HUMAN(QMC)
CALCVAR HUMAN QMJ = $HUMAN(SCL)
SAVEVAR HUMAN QMJ ..\QuestDiary\数据文件\QMJ.txt
delnamelist ..\QuestDiary\数据文件\QMCMD.txt
SENDMSG 7 [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！[60级前可重复申请参加]
SENDMSG 5 你比赛开始时登记经验是：[<$HUMAN(QMC)>]，当前经验是[<$STR(S3)>]，你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]！
messagebox [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！\　\你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]点
GOTO @QMCJJCPML
break
#IF
CHECKLEVELEX = 43
#ACT
CALCVAR HUMAN SCL = 60000
CALCVAR HUMAN SCL + $EXP
MOV S3 $HUMAN(SCL)
CALCVAR HUMAN SCL - $HUMAN(QMC)
CALCVAR HUMAN QMJ = $HUMAN(SCL)
SAVEVAR HUMAN QMJ ..\QuestDiary\数据文件\QMJ.txt
delnamelist ..\QuestDiary\数据文件\QMCMD.txt
SENDMSG 7 [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！[60级前可重复申请参加]
SENDMSG 5 你比赛开始时登记经验是：[<$HUMAN(QMC)>]，当前经验是[<$STR(S3)>]，你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]！
messagebox [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！\　\你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]点
GOTO @QMCJJCPML
break
#IF
CHECKLEVELEX = 44
#ACT
CALCVAR HUMAN SCL = 100000
CALCVAR HUMAN SCL + $EXP
MOV S3 $HUMAN(SCL)
CALCVAR HUMAN SCL - $HUMAN(QMC)
CALCVAR HUMAN QMJ = $HUMAN(SCL)
SAVEVAR HUMAN QMJ ..\QuestDiary\数据文件\QMJ.txt
delnamelist ..\QuestDiary\数据文件\QMCMD.txt
SENDMSG 7 [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！[60级前可重复申请参加]
SENDMSG 5 你比赛开始时登记经验是：[<$HUMAN(QMC)>]，当前经验是[<$STR(S3)>]，你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]！
messagebox [全民冲级比赛结束]：你参加的1小时全民冲级比赛时间到了！\　\你本次比赛1小时所练经验是[<$HUMAN(QMJ)>]点
GOTO @QMCJJCPML
break
#IF
CHECKLEVELEX = 45
#ACT
CALCVAR HUMAN SCL = 150000
CALCVAR HUMAN SCL + $EXP
MOV S3 $HUMAN(SCL)
CALCVAR HUMAN SCL - $HUMAN(QMC)