QM
[@Startup]
#IF
#ACT
#CALL [\LaoXu微信验证\微信GJ.txt] @初始化微信QJ
#CALL [\系统功能\开区文件\全局变量设置.txt] @开区数据处理
#CALL [\系统功能\开区文件\开区捐献配置.txt] @开区配置捐献
[@LoadGuild]
#IF
#ACT
VAR Integer GUILD 行会攻沙活跃度
[@Login]
#IF
EQUAL <$USERNAME> 红方
ISDUMMY
EQUAL A439
#ACT
MOV A439 红方
AddGuild 红方 <$USERNAME>
AddGuildMemberCount = 1000
BREAK
#IF
EQUAL <$USERNAME> 蓝方
ISDUMMY
EQUAL A440
#ACT
CHANGEHUMNAME 蓝方
MOV A440 蓝方
AddGuild 蓝方 <$USERNAME>
AddGuildMemberCount = 1000
BREAK
#if
haveguild
#act
loadvar guild 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
#IF
CHECKLEVELEX > 0
#ACT
VAR INTEGER HUMAN 免费押镖
LOADVAR HUMAN 免费押镖 ..\QuestDiary\数据文件\押镖\免费押镖.txt
VAR INTEGER HUMAN 消耗数据
LOADVAR HUMAN 消耗数据 ..\QuestDiary\数据文件\消耗产出\消耗数据.txt
VAR INTEGER HUMAN 产出数据
LOADVAR HUMAN 产出数据 ..\QuestDiary\数据文件\消耗产出\产出数据.txt
VAR INTEGER HUMAN 收费押镖
LOADVAR HUMAN 收费押镖 ..\QuestDiary\数据文件\押镖\收费押镖.txt
VAR INTEGER HUMAN 沙城捐献
LOADVAR HUMAN 沙城捐献 ..\QuestDiary\数据文件\沙城捐献\捐献名单.txt
VAR INTEGER HUMAN 攻沙保护
LOADVAR HUMAN 攻沙保护 ..\QuestDiary\数据文件\攻沙保护\攻沙保护.txt
VAR INTEGER HUMAN 爵位捐献
LOADVAR HUMAN 爵位捐献 ..\QuestDiary\数据文件\爵位捐献\元宝爵位.txt
VAR INTEGER HUMAN 擂台胜场
LOADVAR HUMAN 擂台胜场 ..\QuestDiary\擂台脚本\擂台文件\擂台胜场.txt
VAR INTEGER HUMAN 擂台负场
LOADVAR HUMAN 擂台负场 ..\QuestDiary\擂台脚本\擂台文件\擂台负场.txt
VAR INTEGER HUMAN 怪物伤害
LOADVAR HUMAN 怪物伤害 ..\QuestDiary\数据文件\怪物伤害\怪物伤害.txt
VAR INTEGER HUMAN 沙城活跃
LOADVAR HUMAN 沙城活跃 ..\QuestDiary\数据文件\沙城活跃\沙城活跃.txt
#CALL [\系统功能\登陆脚本.txt] @登陆设置
#CALL [\系统功能\称号文件\登录称号读取.txt] @登录称号读取
#CALL [\系统功能\爆率文件\普通爆率读取.txt] @普通爆率读取
#CALL [\LaoXu微信验证\微信GR.txt] @初始化微信GR
#CALL [\LaoXu微信验证\登陆认证.txt] @二级密码登录
#CALL [\系统功能\分辨率脚本.txt] @分辨率检测
;----------定时器------------
;---地图消耗---
SETONTIMER 253 1
;---玲珑宝箱统计---
SETONTIMER 246 10
;---连杀计时---
SETONTIMER 247 1
SETONTIMER 254 7
SETONTIMER 249 1
#IF
checkTextList ..\..\..\..\数据文件\清理微信名单.txt <$SERVERNAME>|<$USERID>|
#ACT
CALCVAR HUMAN 解绑状态Save = 0
SAVEVAR HUMAN 解绑状态Save ..\QuestDiary\LaoXu微信验证\微信数据Save.txt
CALCVAR HUMAN 微信ID号Save =
SAVEVAR HUMAN 微信ID号Save ..\QuestDiary\LaoXu微信验证\微信数据Save.txt
MOV T3
MOV T1
MOV T2
SET [049] 0
SET [050] 0
SET [051] 0
SET [052] 0
SET [053] 0
SET [054] 0
SET [055] 0
SET [056] 0
SET [057] 0
SET [058] 0
SET [059] 0
SET [060] 0
SET [061] 0
DelTextList ..\..\..\..\数据文件\清理微信名单.txt <$SERVERNAME>|<$USERID>|
MAP wx
MESSAGEBOX 系统解除微信，请重新绑定微信。
#CALL [\LaoXu微信验证\登陆认证.txt] @二级密码登录
break
;---地图消耗及挤出安全区和皇宫杀死宝宝---
[@OnTimer253]
#OR
ISONMAP ZJGW
ISONMAP 0150
#ACT
KILLSLAVE
BREAK
#IF
INSAFEZONE
#act
SET [021] 1
#ELSEACT
SET [021] 0
#OR
ISONMAP FENGHUO1
ISONMAP FENGHUO2
ISONMAP FENGHUO3
ISONMAP FENGHUO4
ISONMAP FENGHUO5
#ACT
INC G132 5
INC U0 5
#OR
ISONMAP F011
ISONMAP D5072
ISONMAP D5074
#ACT
INC G131 10
INC U0 10
#OR
ISONMAP ssst1
ISONMAP ssst2
ISONMAP ssst3
ISONMAP wzsy
#ACT
INC G122 1
INC U0 1
#IF
ISONMAP WZZD1
#ACT
INC U0 5
#if
CHECKITEM 玲珑宝箱 1
not isonmap wzzd1
#act
MAPMOVE WZZD1
break
#IF
ISONMAP wzzd1
CHECKGAMEGOLD > 20
#ACT
INC G393 5
#IF
ISONMAP wzzd1
CHECKGAMEGOLD < 20
#ACT
LOGOUT
MESSAGEBOX 对不起!您的元宝小于20,自动小退回城
BREAK
;---玲珑宝箱统计---
[@ONTIMER246]
#IF
CHECKITEM 玲珑宝箱 1
#ACT
INC U46 10
SENDMSG 1 【<$USERNAME>】玲珑宝箱<$STR(U46)>秒,玩家坐标[<$X>，<$Y>]300秒时可以打开宝箱
#elseact
MOV U46 0
[@OnTimer247]
#IF
LARGE N$连杀计时 0
#ACT
DEC N$连杀计时 1
#IF
EQUAL N$连杀计时 1
#ACT
MOV U47 0
[@OnTimer248]
#IF
NOT ISONMAP WX
NOT EQUAL T1 <$USERMACHINEID>
NOT EQUAL T2 <$MACHINEID>
#ACT
MAP WX
BREAK
#IF
NOT ISONMAP WX
CHECK [050] 0
EQUAL T2 <$MACHINEID>
#ACT
MAP WX
BREAK
#IF
NOT ISONMAP WX
EQUAL T1
#ACT
MAP WX
BREAK
#IF
NOT ISONMAP WX
EQUAL T3
#ACT
MAP WX
BREAK
#IF
EQUAL T1 <$USERMACHINEID>
#ACT
SetOffTimer 248
BREAK
#IF
EQUAL T2 <$MACHINEID>
CHECK [050] 1
#ACT
SetOffTimer 248
BREAK
[@ONTIMER249]
#IF
CHECK [065] 1
NOT ISONMAP WX
#ACT
MAP WX
ChangeSP 11 1
ChangeSP 12 1
#IF
CHECK [065] 1
#ACT
#CALL [\LaoXu微信验证\微信验证.txt] @微信验证A
BREAK
#IF
LARGE G493 0
#ACT
SendCenterMsg 250 0 圣龙无双：【<$STR(G493)>】秒后开放正式区,请耐心等待 0 1
#IF
LARGE U3 0
#ACT
DEC U3 1
#IF
EQUAL U3 1
#ACT
#CALL [\系统功能\爆率文件\普通爆率读取.txt] @普通爆率读取
[@ONTIMER250]
#IF
LARGE G100 0
#ACT
DEC G100 1
#IF
EQUAL G100 1
#ACT
CALCVAR GLOBAL 普通擂台擂主 = 无
SAVEVAR GLOBAL 普通擂台擂主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台打擂 = 无
SAVEVAR GLOBAL 普通擂台打擂 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台状态 =
SAVEVAR GLOBAL 普通擂台状态 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台胜主 = 0
SAVEVAR GLOBAL 普通擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台负主 = 0
SAVEVAR GLOBAL 普通擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台胜次 = 0
SAVEVAR GLOBAL 普通擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台负次 = 0
SAVEVAR GLOBAL 普通擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台元宝 = 0
SAVEVAR GLOBAL 普通擂台元宝 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台元总 = 0
SAVEVAR GLOBAL 普通擂台元总 ..\QuestDiary\数据文件\擂台\擂台变量.txt
#IF
EQUAL G100 0
#ACT
SETOFFTIMER 250
#if
EQUAL <$GLOBAL(普通擂台状态)> 等待挑战
EQUAL <$GLOBAL(普通擂台擂主)> <$USERNAME>
EQUAL G100 4
#ACT
CLEARDELAYGOTO 1
SENDMSG 0 251 249 〖擂台〗擂主〖<$USERNAME>〗开设的擂台「[60秒]内无人应战!擂台已自动撤消!
GAMEGOLD + <$GLOBAL(普通擂台元宝)>
MAPMOVE JUEDOU 40 39
MOV G100 0
DELAYGOTO 1000 @普通擂台清理
BREAK
#if
EQUAL <$GLOBAL(普通擂台状态)> 正在挑战
EQUAL G100 4
#ACT
SENDMSG 0 251 249 〖擂台〗〖<$GLOBAL(普通擂台擂主)>〗与〖<$GLOBAL(普通擂台打擂)>〗由于10分钟没有结束战斗，没收元宝！
<$GLOBAL(普通擂台擂主)>.CLEARDELAYGOTO 1
<$GLOBAL(普通擂台打擂)>.CLEARDELAYGOTO 1
<$GLOBAL(普通擂台擂主)>.MAPMOVE JUEDOU 40 39
<$GLOBAL(普通擂台打擂)>.MAPMOVE JUEDOU 40 39
MAPMOVE JUEDOU 40 39
MOV G100 0
DELAYGOTO 1000 @普通擂台清理
BREAK
#if
EQUAL <$GLOBAL(普通擂台状态)> 挑战结束
EQUAL <$GLOBAL(普通擂台擂主)> <$USERNAME>
EQUAL G100 4
#ACT
CLEARDELAYGOTO 1
<$GLOBAL(普通擂台打擂)>.CLEARDELAYGOTO 1
GAMEGOLD + <$GLOBAL(普通擂台元总)>
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(普通擂台元总)>”元宝...
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(普通擂台元总)>”元宝...
MAPMOVE JUEDOU 40 39
MOV G100 0
DELAYGOTO 1000 @普通擂台清理
BREAK
#if
EQUAL <$GLOBAL(普通擂台状态)> 挑战结束
EQUAL <$GLOBAL(普通擂台打擂)> <$USERNAME>
EQUAL G100 4
#ACT
<$GLOBAL(普通擂台擂主)>.CLEARDELAYGOTO 1
<$GLOBAL(普通擂台打擂)>.CLEARDELAYGOTO 1
GAMEGOLD + <$GLOBAL(普通擂台元总)>
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(普通擂台元总)>”元宝...
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(普通擂台元总)>”元宝...
MAPMOVE JUEDOU 40 39
MOV G100 0
DELAYGOTO 1000 @普通擂台清理
BREAK
[@普通擂台清理]
#IF
#ACT
CALCVAR GLOBAL 普通擂台擂主 = 无
SAVEVAR GLOBAL 普通擂台擂主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台打擂 = 无
SAVEVAR GLOBAL 普通擂台打擂 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台状态 =
SAVEVAR GLOBAL 普通擂台状态 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台胜主 = 0
SAVEVAR GLOBAL 普通擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台负主 = 0
SAVEVAR GLOBAL 普通擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台胜次 = 0
SAVEVAR GLOBAL 普通擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台负次 = 0
SAVEVAR GLOBAL 普通擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台元宝 = 0
SAVEVAR GLOBAL 普通擂台元宝 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 普通擂台元总 = 0
SAVEVAR GLOBAL 普通擂台元总 ..\QuestDiary\数据文件\擂台\擂台变量.txt
Setofftimer 250
[@ONTIMER251]
#IF
LARGE G101 0
#ACT
DEC G101 1
#IF
EQUAL G101 1
#ACT
CALCVAR GLOBAL 高爆擂台擂主 = 无
SAVEVAR GLOBAL 高爆擂台擂主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台打擂 = 无
SAVEVAR GLOBAL 高爆擂台打擂 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台状态 =
SAVEVAR GLOBAL 高爆擂台状态 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台胜主 = 0
SAVEVAR GLOBAL 高爆擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台负主 = 0
SAVEVAR GLOBAL 高爆擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台胜次 = 0
SAVEVAR GLOBAL 高爆擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台负次 = 0
SAVEVAR GLOBAL 高爆擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台元宝 = 0
SAVEVAR GLOBAL 高爆擂台元宝 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台元总 = 0
SAVEVAR GLOBAL 高爆擂台元总 ..\QuestDiary\数据文件\擂台\擂台变量.txt
#IF
EQUAL G101 0
#ACT
SETOFFTIMER 251
#if
EQUAL <$GLOBAL(高爆擂台状态)> 等待挑战
EQUAL <$GLOBAL(高爆擂台擂主)> <$USERNAME>
EQUAL G101 4
#ACT
CLEARDELAYGOTO 1
SENDMSG 0 251 249 〖擂台〗擂主〖<$USERNAME>〗开设的擂台「[60秒]内无人应战!擂台已自动撤消!
GAMEGOLD + <$GLOBAL(高爆擂台元宝)>
MAPMOVE JUEDOU 60 39
MOV G101 0
DELAYGOTO 1000 @高爆擂台清理
BREAK
#if
EQUAL <$GLOBAL(高爆擂台状态)> 正在挑战
EQUAL G101 4
#ACT
SENDMSG 0 251 249 〖擂台〗〖<$GLOBAL(高爆擂台擂主)>〗与〖<$GLOBAL(高爆擂台打擂)>〗由于10分钟没有结束战斗，没收元宝！
<$GLOBAL(高爆擂台擂主)>.CLEARDELAYGOTO 1
<$GLOBAL(高爆擂台打擂)>.CLEARDELAYGOTO 1
<$GLOBAL(高爆擂台擂主)>.MAPMOVE JUEDOU 60 39
<$GLOBAL(高爆擂台打擂)>.MAPMOVE JUEDOU 60 39
MAPMOVE JUEDOU 60 39
MOV G101 0
DELAYGOTO 1000 @高爆擂台清理
BREAK
#if
EQUAL <$GLOBAL(高爆擂台状态)> 挑战结束
EQUAL <$GLOBAL(高爆擂台擂主)> <$USERNAME>
EQUAL G101 4
#ACT
CLEARDELAYGOTO 1
<$GLOBAL(高爆擂台打擂)>.CLEARDELAYGOTO 1
GAMEGOLD + <$GLOBAL(高爆擂台元总)>
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(高爆擂台元总)>”元宝...
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(高爆擂台元总)>”元宝...
MAPMOVE JUEDOU 60 39
MOV G101 0
DELAYGOTO 1000 @高爆擂台清理
BREAK
#if
EQUAL <$GLOBAL(高爆擂台状态)> 挑战结束
EQUAL <$GLOBAL(高爆擂台打擂)> <$USERNAME>
EQUAL G101 4
#ACT
<$GLOBAL(高爆擂台擂主)>.CLEARDELAYGOTO 1
<$GLOBAL(高爆擂台打擂)>.CLEARDELAYGOTO 1
GAMEGOLD + <$GLOBAL(高爆擂台元总)>
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(高爆擂台元总)>”元宝...
SENDMSG 0 251 249 〖擂台〗玩家“%s”成功打擂成功！获得“<$GLOBAL(高爆擂台元总)>”元宝...
MAPMOVE JUEDOU 60 39
MOV G101 0
DELAYGOTO 1000 @高爆擂台清理
BREAK
[@高爆擂台清理]
#IF
#ACT
CALCVAR GLOBAL 高爆擂台擂主 = 无
SAVEVAR GLOBAL 高爆擂台擂主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台打擂 = 无
SAVEVAR GLOBAL 高爆擂台打擂 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台状态 =
SAVEVAR GLOBAL 高爆擂台状态 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台胜主 = 0
SAVEVAR GLOBAL 高爆擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台负主 = 0
SAVEVAR GLOBAL 高爆擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台胜次 = 0
SAVEVAR GLOBAL 高爆擂台胜主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台负次 = 0
SAVEVAR GLOBAL 高爆擂台负主 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台元宝 = 0
SAVEVAR GLOBAL 高爆擂台元宝 ..\QuestDiary\数据文件\擂台\擂台变量.txt
CALCVAR GLOBAL 高爆擂台元总 = 0
SAVEVAR GLOBAL 高爆擂台元总 ..\QuestDiary\数据文件\擂台\擂台变量.txt
Setofftimer 251
[@OnTimer252]
#IF
CHECKLEVELEX < 50
#ACT
CHANGEEXP + 6000
#ELSEACT
SetOffTimer 252
MESSAGEBOX 您的等级已满50，，无法继续获得经验！
BREAK
[@OnTimer254]
#OR
EQUAL A51 <$USERNAME>
EQUAL A52 <$USERNAME>
EQUAL A53 <$USERNAME>
EQUAL A54 <$USERNAME>
EQUAL A55 <$USERNAME>
EQUAL A56 <$USERNAME>
EQUAL A57 <$USERNAME>
#ACT
BREAK
#IF
ISONMAP WZZD1
#ACT
BREAK
#IF
EQUAL A4 一合
#ACT
GOTO @一合检测属性
BREAK
#IF
EQUAL A4 二合
#ACT
GOTO @二合检测属性
BREAK
#IF
EQUAL A4 三合
#ACT
GOTO @三合检测属性
BREAK
#IF
EQUAL A4 四合
#ACT
GOTO @四合检测属性
BREAK
#OR
EQUAL A4 统战
EQUAL A4 五合
#ACT
GOTO @统战检测属性
BREAK
[@一合检测属性]
#IF
CHECKLEVELEX < 50
NOT INSAFEZONE
#ACT
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制等级：50以下无法出安全区
break
[@二合检测属性]
#IF
CHECKLEVELEX < 52
NOT INSAFEZONE
#ACT
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制等级：52级以下无法出安全区
break
#if
checkjob warrior
small <$MAXDC> 220
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于220无法出安全区
break
#if
checkjob wizard
small <$MAXMC> 200
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于200无法出安全区
break
#if
checkjob taoist
small <$MAXSC> 180
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于180无法出安全区
break
[@三合检测属性]
#IF
CHECKLEVELEX < 55
NOT INSAFEZONE
#ACT
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制等级：55级以下无法出安全区
break
#if
checkjob warrior
small <$MAXDC> 290
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于290无法出安全区
break
#if
checkjob wizard
small <$MAXMC> 280
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于280无法出安全区
break
#if
checkjob taoist
small <$MAXSC> 260
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于260无法出安全区
break
[@四合检测属性]
#IF
CHECKLEVELEX < 58
NOT INSAFEZONE
#ACT
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制等级：58级以下无法出安全区
break
#if
checkjob warrior
small <$MAXDC> 350
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于350无法出安全区
break
#if
checkjob wizard
small <$MAXMC> 300
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于300无法出安全区
break
#if
checkjob taoist
small <$MAXSC> 300
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于300无法出安全区
break
[@统战检测属性]
#IF
CHECKLEVELEX < 60
NOT INSAFEZONE
#ACT
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制等级：60级以下无法出安全区
break
#if
checkjob warrior
small <$MAXDC> 380
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于380无法出安全区
break
#if
checkjob wizard
small <$MAXMC> 350
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于350无法出安全区
break
#if
checkjob taoist
small <$MAXSC> 350
NOT INSAFEZONE
#act
MAPMOVE 3 333 333
MESSAGEBOX 对不起！合区后根据开区天数限制等级，当前限制属性低于350无法出安全区
break
;====全局提问====
[@捐献属性更新]
#IF
ISDUMMY
#act
BREAK
#OR
CheckContainsText S93 │爵│
CheckContainsText S93 │统│
EQUAL A495 <$USERNAME>
EQUAL A496 <$USERNAME>
EQUAL A497 <$USERNAME>
EQUAL A498 <$USERNAME>
EQUAL A499 <$USERNAME>
CHECKTEXTLIST ..\QuestDiary\数据文件\爵位捐献\共享第一.txt <$USERNAME>
#ACT
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取
BREAK
[@世界BOSS活动]
#OR
CheckOffline
ISDUMMY
CHECKTEXTLIST ..\QuestDiary\系统功能\限制地图.txt <$MAP>
#ACT
BREAK
#IF
#ACT
CloseBigDialogBox
#SAY
\ <≮世界BOSS≯/AUTOCOLOR=249,116,251,250,254,242> \
<〓〓〓〓/AUTOCOLOR=249><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓〓〓〓〓〓〓〓〓〓〓/AUTOCOLOR=251><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓/AUTOCOLOR=249> \
<活动介绍：/FCOLOR=87><地图为安全模式，对世界BOSS造成的伤害进行排名！/FCOLOR=250>\
<> <进入地图切换和平模式，BOSS死亡切换全体攻击模式/FCOLOR=250>\
<> <BOSS死亡掉落1件天字，2件无双，10件火龙/FCOLOR=250>\
<> <大量元宝 + 金刚石 /FCOLOR=250>\
<><第1名--第3名:/SCOLOR=253><天字装备1个/SCOLOR=243>\
<><幸运玩家10名:/SCOLOR=253><火龙首饰1个/SCOLOR=243>\
<传送条件：/FCOLOR=95><≮“龙的传人”+1000元宝≯/FCOLOR=70> <进入世界BOSS/@进入世界BOSS>\
[@进入世界BOSS]
#IF
EQUAL G30 0
#ACT
MESSAGEBOX 对不起！当前活动未开启，无法进入
BREAK
#IF
CHECKGAMEGOLD < 1000
#ACT
MESSAGEBOX 对不起！您没有1000元宝无法进入
BREAK
#IF
CHECK [002] 0
#ACT
MESSAGEBOX 对不起！您没有开启龙传无法进入
BREAK
#IF
CHECK [002] 1
CHECKGAMEGOLD > 999
CheckMonMap ZJGW 1
#ACT
map ZJGW
GAMEGOLD - 1000
INC G366 1000
SetHumAttackMode 1 3600
GuildNoticeMsg 255 52 【提示】ぐ 「<$USERNAME>」 真勇敢，单枪匹马闯入「世界BOSS」寻宝去了！
BREAK
#IF
CHECK [002] 1
CHECKGAMEGOLD > 999
CheckMonMap ZJGW 0
#ACT
map ZJGW
GAMEGOLD - 1000
INC G366 1000
SetHumAttackMode 0 3600
GuildNoticeMsg 255 52 【提示】ぐ 「<$USERNAME>」 真勇敢，单枪匹马闯入「世界BOSS」寻宝去了！
BREAK
[@世界BOSS显示]
#IF
ISONMAP ZJGW
#ACT
OPENMERCHANTBIGDLG 6 1391 1 0 0 0 1
#SAY
\ <世界BOSS伤害排行/AUTOCOLOR=249,116,251,250,254,242>\
<第一名:/SCOLOR=253><$STR(A31)> <伤害:/SCOLOR=253><$STR(G31)>\
<第二名:/SCOLOR=243><$STR(A32)> <伤害:/SCOLOR=243><$STR(G32)>\
<第三名:/SCOLOR=251><$STR(A33)> <伤害:/SCOLOR=251><$STR(G33)>\
<第四名:/SCOLOR=250><$STR(A34)> <伤害:/SCOLOR=250><$STR(G34)>\
<第五名:/SCOLOR=254><$STR(A35)> <伤害:/SCOLOR=254><$STR(G35)>\
<当前伤害伤害总计:><$HUMAN(怪物伤害)>\
[@世界BOSS改变模式]
#IF
ISONMAP ZJGW
#ACT
MESSAGEBOX 当前自动切换为全体模式。
SetHumAttackMode 0 3600
BREAK
[@世界BOSS奖励A]
#IF
EQUAL A31 <$USERNAME>
#ACT
GetRandomText ..\QuestDiary\数据文件\装备抽取\天字.txt S4
GIVE <$STR(S4)> 1
MOV S$统筹物品 <$STR(S4)>
#CALL [\系统功能\版本数据统筹\物品地图分类A.txt] @物品地图分类A
messagebox 恭喜你获得世界BOSS活动第一名，获得物品:【<$STR(S4)>】
GuildNoticeMsg 0 253 {【公告】：玩家|255:0:1}{【<$USERNAME>】|254:0:1}{世界BOSS伤害排行第一获得物品:|255:0:1}{<$STR(S4)>|254:0:1}
BREAK
#IF
EQUAL A32 <$USERNAME>
#ACT
GetRandomText ..\QuestDiary\数据文件\装备抽取\天字.txt S4
GIVE <$STR(S4)> 1
MOV S$统筹物品 <$STR(S4)>
#CALL [\系统功能\版本数据统筹\物品地图分类A.txt] @物品地图分类A
messagebox 恭喜你获得世界BOSS活动第二名，获得物品:【<$STR(S4)>】
GuildNoticeMsg 0 253 {【公告】：玩家|255:0:1}{【<$USERNAME>】|254:0:1}{世界BOSS伤害排行第二获得物品:|255:0:1}{<$STR(S4)>|254:0:1}
BREAK
#IF
EQUAL A33 <$USERNAME>
#ACT
GetRandomText ..\QuestDiary\数据文件\装备抽取\天字.txt S4
GIVE <$STR(S4)> 1
MOV S$统筹物品 <$STR(S4)>
#CALL [\系统功能\版本数据统筹\物品地图分类A.txt] @物品地图分类A
messagebox 恭喜你获得世界BOSS活动第三名，获得物品:【<$STR(S4)>】
GuildNoticeMsg 0 253 {【公告】：玩家|255:0:1}{【<$USERNAME>】|254:0:1}{世界BOSS伤害排行第三获得物品:|255:0:1}{<$STR(S4)>|254:0:1}
BREAK
#OR
EQUAL A37 <$USERNAME>
EQUAL A38 <$USERNAME>
EQUAL A39 <$USERNAME>
EQUAL A40 <$USERNAME>
EQUAL A41 <$USERNAME>
EQUAL A42 <$USERNAME>
EQUAL A43 <$USERNAME>
EQUAL A44 <$USERNAME>
EQUAL A45 <$USERNAME>
EQUAL A46 <$USERNAME>
#ACT
GetRandomText ..\QuestDiary\数据文件\装备抽取\火龙.txt S4
GIVE <$STR(S4)> 1
MOV S$统筹物品 <$STR(S4)>
#CALL [\系统功能\版本数据统筹\物品地图分类A.txt] @物品地图分类A
messagebox 恭喜你获得世界BOSS活动幸运奖，获得物品:【<$STR(S4)>】
GuildNoticeMsg 0 253 {【公告】：玩家|255:0:1}{【<$USERNAME>】|254:0:1}{世界BOSS伤害排行第幸运奖得物品:|255:0:1}{<$STR(S4)>|254:0:1}
BREAK
[@绝世神器开始]
#OR
CheckOffline
ISDUMMY
CHECKTEXTLIST ..\QuestDiary\系统功能\限制地图.txt <$MAP>
#ACT
BREAK
#IF
#ACT
CloseBigDialogBox
#SAY
<╔═╗╔═╗/AUTOCOLOR=6> <◆><绝世神器/SCOLOR=250><◆>\
<‖/AUTOCOLOR=6><绝><‖/AUTOCOLOR=6><‖/AUTOCOLOR=6><唯><‖/AUTOCOLOR=6>\
<‖ ‖‖ ‖/AUTOCOLOR=6> <活动介绍/AUTOCOLOR=254> : <第一天开区210分钟,第2天晚上11点/AUTOCOLOR=46>\
<‖/AUTOCOLOR=6><世><‖/AUTOCOLOR=6><‖/AUTOCOLOR=6><我><‖/AUTOCOLOR=6> <活动开启时刷新1只神兵守护，爆率极高！/AUTOCOLOR=46>\
<‖ ‖‖ ‖/AUTOCOLOR=6> <怪物爆率/AUTOCOLOR=254> : <必爆天字辈剑甲一个/AUTOCOLOR=250>\
<‖/AUTOCOLOR=6><神><‖/AUTOCOLOR=6><‖/AUTOCOLOR=6><我><‖/AUTOCOLOR=6> <传送条件/AUTOCOLOR=254> : <≮“龙的传人”+ 500元宝≯/AUTOCOLOR=250>\
<‖ ‖‖ ‖ ╔═════════════════════╗/AUTOCOLOR=6>\
<‖/AUTOCOLOR=6><器><‖/AUTOCOLOR=6><‖/AUTOCOLOR=6><尊><‖/AUTOCOLOR=6> <‖/AUTOCOLOR=6> <我要进入{FCOLOR=251}/@进入绝世神器> <随便看看{FCOLOR=251}/@EXIT> <‖/AUTOCOLOR=6>\
<╚═╝╚═╝ ╚═════════════════════╝/AUTOCOLOR=6>\
[@进入绝世神器]
#IF
CHECK [002] 0
#ACT
MESSAGEBOX 对不起！您没有开启龙传无法进入
BREAK
#IF
CHECKGAMEGOLD > 499
#ACT
GAMEGOLD - 500
INC G367 500
mapmove sblq 49 47
GuildNoticeMsg 254 0 【提示】ぐ 「<$USERNAME>」真勇敢，单枪匹马闯入 「绝世神器」寻宝去了！
BREAK
#ELSEACT
MESSAGEBOX 对不起！您没有500元宝无法进入
break
[@财富广场开始]
#OR
CheckOffline
ISDUMMY
CHECKTEXTLIST ..\QuestDiary\系统功能\限制地图.txt <$MAP>
#ACT
BREAK
#IF
#ACT
CloseBigDialogBox
#SAY
<╔┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╗/SCOLOR=10>\
<┊/SCOLOR=10> <◆><财富广场/SCOLOR=250><◆> <┊/SCOLOR=10>\
<┊/SCOLOR=10> <新区开启前6个小时一共3波，每2个小时一波/SCOLOR=254> <┊/SCOLOR=10>\
<┊/SCOLOR=10> <活动地图会刷新50只/SCOLOR=254><送财金猪/SCOLOR=151><，必爆大量元宝./SCOLOR=254> <┊/SCOLOR=10>\
<┊/SCOLOR=10> <天字剑甲1个 无双首饰1个 火龙首饰5个 /SCOLOR=254><┊/SCOLOR=10>\
<┊/SCOLOR=10> <机会多多，元宝多多，装备多多，惊喜不断~~/SCOLOR=254> <┊/SCOLOR=10>\
<┊/SCOLOR=10> <传送条件/AUTOCOLOR=254> : <“龙的传人”/AUTOCOLOR=250> <┊/SCOLOR=10>\
<┊/SCOLOR=10> <进入财富广场/@进入财富广场> <┊/SCOLOR=10>\
<╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝/SCOLOR=10>\
[@进入财富广场]
#IF
CHECK [002] 0
#ACT
MESSAGEBOX 对不起！您没有开启龙传无法进入
BREAK
#IF
CHECK [002] 1
#ACT
MAPMOVE cfgc
SENDMSG 0 251 249 【提示】ぐ 「<$USERNAME>」真勇敢，单枪匹马闯入「财富广场」寻宝去了！！
break
[@武林大会进入]
#IF
#ACT
#CALL [\系统功能\称号文件\普通称号读取.txt] @普通称号读取
#OR
CheckOffline
ISDUMMY
CHECKTEXTLIST ..\QuestDiary\系统功能\限制地图.txt <$MAP>
#ACT
BREAK
#IF
#ACT
CloseBigDialogBox
#SAY
<★武林大会★/FCOLOR=249 > <尊敬的：/FCOLOR=242>{<$USERNAME>/FCOLOR=246}<【圣龙无双欢迎您】/FCOLOR=242>\
<------------------------------------------------------------/FCOLOR=89>\
<活动介绍：/FCOLOR=131><开启后10分钟内可重复进入地图,10分钟后关闭大门/FCOLOR=224>\
<------------------------------------------------------------/FCOLOR=89>\
<活动介绍：/FCOLOR=131><战斗到仅剩最后一人诞生“武林盟主”,受万人仰慕!/FCOLOR=254>\
<------------------------------------------------------------/FCOLOR=89>\
<盟主奖励：/FCOLOR=131><获得2万元宝奖励,0.2倍爆率,1.1倍攻击(不叠加天一)/FCOLOR=253>\
<------------------------------------------------------------/FCOLOR=89>\
<活动时间：/FCOLOR=253><每天19：10/FCOLOR=253> <前往武林大会/@进入武林大会>\
[@进入武林大会]
#IF
EQUAL A80 开放
#ACT
MOVR P7 18 28
MOVR P8 21 31
MAPMOVE wlzb <$STR(P7)> <$STR(P8)>
SendCenterMsg 200 251 玩家:【<$USERNAME>】进入武林大会参加挑战!!! 1 2
#ELSEACT
MESSAGEBOX 对不起！武林大会活动已经关闭，无法进入。
BREAK
[@龙门镖局押镖]
#OR
CheckOffline
ISDUMMY
CHECKTEXTLIST ..\QuestDiary\系统功能\限制地图.txt <$MAP>
#ACT
BREAK
#if
#act
CloseBigDialogBox
#say
<╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗/FCOLOR=180>\
<┆/FCOLOR=180><☆龍門镖局☆/FCOLOR=215> <[进入押镖之路]{FCOLOR=251}/@进入龙门镖局> <☆龍門镖局☆/FCOLOR=215><┆/FCOLOR=180>\
<╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝/FCOLOR=180>\
<①：/FCOLOR=215><新区开区3小时后开放,以后每天17-19点开放/FCOLOR=19>\
<②：/FCOLOR=215><随机分配白银、高级、超级、无敌等镖车，奖励不一样/FCOLOR=19>\
<③：/FCOLOR=215><押镖途中下线视为失败，没收押金,每人每天5次/FCOLOR=19>\
<④：/FCOLOR=215><押镖途中镖车被仇人损坏视为失败，押金将归劫镖所有/FCOLOR=19>\
<⑤：/FCOLOR=215><押镖完成后退回押金，并奖励经验3000万-1亿经验奖励/FCOLOR=19>\
<请把镖车拉运到：押镖之路(二)镖务总管处换取酬劳/FCOLOR=254>(道士不要带宝宝)\
[@进入龙门镖局]
#IF
EQUAL A47 开
#ACT
MAPMOVE YB01 80 81
GuildNoticeMsg 254 162 (*)玩家『%s』闯进【押镖之路】，开始了他的征途之路!
break
#ELSEACT
MESSAGEBOX 每日押镖任务还末开放！\ \
break
[@龙传活动开A]
#OR
CheckOffline
ISDUMMY
CHECKTEXTLIST ..\QuestDiary\系统功能\限制地图.txt <$MAP>
#ACT
BREAK
#IF
ISONMAP WZZD1
#ACT
BREAK
#IF
#ACT
CloseBigDialogBox
#SAY
<〓〓〓〓/AUTOCOLOR=249><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓〓〓〓〓〓〓〓〓〓〓/AUTOCOLOR=251><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓/AUTOCOLOR=249> \
<活动介绍：/FCOLOR=243><开启龙传数量达到新区200次 一合后300次/FCOLOR=253>\
<> <活动触发后刷新99只小怪和1个BOSS/FCOLOR=251>\
<> <本地图必爆无双首饰、圣龙首饰，有较大几率爆出火龙剑甲/FCOLOR=251>\
<地图介绍：/FCOLOR=222><合区后每天20：00--22：00不开放/FCOLOR=250>\
<传送条件：/FCOLOR=222><1000元宝 + “龙传封号”/FCOLOR=253> \
<〓〓〓〓/AUTOCOLOR=249><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓〓〓〓〓〓〓〓〓〓〓/AUTOCOLOR=251><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓/AUTOCOLOR=249> \ \
<>当前龙传掉落数量： <$STR(G37)> <√进入龙传活动地图/@进入龙传活动>\
[@龙传活动开B]
#OR
CheckOffline
ISDUMMY
CHECKTEXTLIST ..\QuestDiary\系统功能\限制地图.txt <$MAP>
#ACT
BREAK
#IF
ISONMAP WZZD1
#ACT
BREAK
#IF
#ACT
CloseBigDialogBox
#SAY
<〓〓〓〓/AUTOCOLOR=249><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓〓〓〓〓〓〓〓〓〓〓/AUTOCOLOR=251><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓/AUTOCOLOR=249> \
<活动介绍：/FCOLOR=243><开启龙传数量达到新区200次 一合后300次/FCOLOR=253>\
<> <活动触发后刷新99只小怪和1个BOSS/FCOLOR=251>\
<> <本地图必爆无双首饰、圣龙首饰，有较大几率爆出火龙剑甲/FCOLOR=251>\
<地图介绍：/FCOLOR=222><合区后每天20：00--22：00不开放/FCOLOR=250>\
<传送条件：/FCOLOR=222><1000元宝 + “龙传封号”/FCOLOR=253> \
<〓〓〓〓/AUTOCOLOR=249><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓〓〓〓〓〓〓〓〓〓〓/AUTOCOLOR=251><〓〓〓〓/AUTOCOLOR=95><〓〓〓〓/AUTOCOLOR=249> \ \
<>当前龙传掉落数量： <$STR(G37)> <√进入龙传活动地图/@进入龙传活动>\
[@进入龙传活动]
#IF
ISONMAP WZZD1
#ACT
BREAK
#if
CHECK [002] 1
CHECKGAMEGOLD > 999
CHECKLEVELEX > 42
#act
ADDBUTTON 6 10 1398 1398 1398 0 <$STR(N$按钮怪物A)> 0 <$STR(G38)>
ADDBUTTON 6 11 1399 1399 1399 0 <$STR(N$按钮怪物B)> 0 <$STR(G39)>
MAP G004
GAMEGOLD - 1000
INC G368 1000
GuildNoticeMsg 255 52 (*)玩家【%s】闯进了『龙传活动地图』，里面怪物强悍。小怪爆终极，你们还在等什么!
#ELSEACT
MESSAGEBOX 你的等级不足43级没有1000元宝或者你不是龙的传人!
[@龙传按钮显示]
#IF
ISONMAP G004
#ACT
ADDBUTTON 6 10 1377 1377 1377 0 <$STR(N$按钮怪物A)> 0 <$STR(G38)>
ADDBUTTON 6 11 1378 1378 1378 0 <$STR(N$按钮怪物B)> 0 <$STR(G39)>
[@新手地图传出]
#OR
ISONMAP srtt
ISONMAP Fama1
ISONMAP Fama2
ISONMAP Fama3
ISONMAP Fama4
ISONMAP BOSSG
ISONMAP BOSS8
ISONMAP 65
ISONMAP cqzl
ISONMAP zhu9
ISONMAP zhu10
ISONMAP hlcx
ISONMAP di1
ISONMAP di2
ISONMAP di3
ISONMAP lydx1
ISONMAP lydx2
ISONMAP lydx3
#ACT
MOVR P1 322 338
MOVR P2 322 338
MAPMOVE 3 <$STR(P1)> <$STR(P2)>
CLEARDELAYGOTO 1
MESSAGEBOX 对不起！三个小时后自动关闭新手地图\ \所有玩家自动传出新手地图
BREAK
[@行会人数提高]
#IF
EQUAL <$USERNAME> 红方
#ACT
AddGuildMemberCount = 1000
SENDMSG 0 红方行会开始入会
BREAK
#IF
EQUAL <$USERNAME> 蓝方
#ACT
AddGuildMemberCount = 1000
SENDMSG 0 红方行会开始入会
BREAK
[@攻沙模式更改]
#if
#act
SetHumAttackMode 5 65535
#IF
NOT ISONMAP 3
NOT ISONMAP 0
NOT ISONMAP 11
NOT ISONMAP 4
NOT ISONMAP 5
NOT ISONMAP 6
NOT ISONMAP 0122
NOT ISONMAP f0002
#ACT
MOVR N$回X 324 338
MOVR N$回Y 324 338
MAPMOVE 3 <$STR(N$回X)> <$STR(N$回Y)>
MESSAGEBOX 攻沙期间无法进入其他地图，自动传送回城
BREAK
[@攻沙结束清理]
#IF
ISDUMMY
#ACT
BREAK
#IF
#ACT
SetHumAttackMode 5 1
CALCVAR HUMAN 攻沙保护 = 0
SAVEVAR HUMAN 攻沙保护 ..\QuestDiary\数据文件\攻沙保护\攻沙保护.txt
[@红蓝方活跃度计算]
#if
small G15 2
#ACT
BREAK
#if
not haveguild
#act
break
#IF
checkvar guild 行会攻沙活跃度 < 1
#act
break
;胜利方，活跃度（包括，开启红蓝方+平时没开启情况+三合后的多方）
#IF
EQUAL <$OWNERGUILD> <$GUILDNAME>
#ACT
MOV G358 <$guild(行会攻沙活跃度)>
calcvar guild 行会攻沙活跃度 = 0
savevar guild 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
BREAK
;没有红蓝方或者多方行会攻沙，没有失败方奖励【没有几合的情况】
#if
not equal A8 1
#ACT
calcvar guild 行会攻沙活跃度 = 0
savevar guild 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
BREAK
; 一合红蓝的失败方
#IF
EQUAL A8 1
EQUAL G15 2
EQUAL A86 <$GUILDNAME>
#ACT
MOV G359 <$guild(行会攻沙活跃度)>
calcvar guild 行会攻沙活跃度 = 0
savevar guild 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
BREAK
; 二合红蓝的失败方
#IF
large G15 2
EQUAL A8 1
checkcontainstext <$servername> 二合
EQUAL A86 <$GUILDNAME>
#ACT
MOV G359 <$guild(行会攻沙活跃度)>
calcvar guild 行会攻沙活跃度 = 0
savevar guild 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
BREAk
;二合后的多方攻沙失败方,非红蓝方
#IF
EQUAL A8 1
checkvar guild 行会攻沙活跃度 > 0
NOT checkcontainstext <$servername> 一合
NOT checkcontainstext <$servername> 二合
#ACT
INC G359 <$guild(行会攻沙活跃度)>
calcvar guild 行会攻沙活跃度 = 0
savevar guild 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
BREAK
;没有参加的行会清0
#IF
checkvar guild 行会攻沙活跃度 > 0
#ACT
calcvar guild 行会攻沙活跃度 = 0
savevar guild 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
BREAK
[@捐献名单]
#IF
ISDUMMY
#ACT
BREAK
#IF
#ACT
CALCVAR HUMAN 沙城捐献 = 0
SAVEVAR HUMAN 沙城捐献 ..\QuestDiary\数据文件\沙城捐献\捐献名单.txt
SETRANKLEVELNAME %s\攻沙活跃[<$HUMAN(沙城活跃)>]\斩杀[<$STR(U48)>]|死亡[<$STR(U49)>]\<$STR(S90)>\
[@清理沙巴克活跃度]
#IF
ISDUMMY
#ACT
BREAK
#IF
haveguild
#ACT
CALCVAR GUILD 行会攻沙活跃度 = 0
savevar GUILD 行会攻沙活跃度 ..\QuestDiary\数据文件\沙城活跃\行会攻沙活跃度.txt
#IF
#ACT
CALCVAR HUMAN 沙城活跃 = 0
SAVEVAR HUMAN 沙城活跃 ..\QuestDiary\数据文件\沙城活跃\沙城活跃.txt
[@红方行会掌门]
#IF
EQUAL A437 <$USERNAME>
#ACT
ChangeGuildMaster 红方 <$USERNAME>
[@蓝方行会掌门]
#IF
EQUAL A438 <$USERNAME>
#ACT
ChangeGuildMaster 蓝方 <$USERNAME>
[@每日清理数据]
#IF
ISDUMMY
#ACT
BREAK
#IF
#ACT
CALCVAR HUMAN 免费押镖 = 0
SAVEVAR HUMAN 免费押镖 ..\QuestDiary\数据文件\押镖\免费押镖.txt
CALCVAR HUMAN 收费押镖 = 0
SAVEVAR HUMAN 收费押镖 ..\QuestDiary\数据文件\押镖\收费押镖.txt
[@调整爆率提问]
#IF
#ACT
#CALL [\系统功能\爆率文件\普通爆率读取.txt] @普通爆率读取
[@调整元宝提问]
#IF
NOT EQUAL <$STR(A403)> <$USERNAME>
#ACT
BREAK
#IF
EQUAL <$STR(A402)> <$SERVERNAME>
EQUAL <$STR(A403)> <$USERNAME>
#ACT
GAMEGOLD + <$STR(A404)>
INC G403 <$STR(A404)>
GAMEGIRD + <$STR(A405)>
GAMEDIAMOND + <$STR(A406)>
MESSAGEBOX 您收到补发元宝【<$STR(A404)>】灵符【<$STR(A405)>】
AddTextListEx ..\..\..\..\数据文件\每日统计文件\技术补发总名单.TXT [<$STR(A402)>][<$STR(A403)>]元宝[<$STR(A404)>]灵符[<$STR(A405)>][<$STR(A406)>]|[<$DATETIME>]
AddTextListEx ..\..\..\..\数据文件\每日统计文件\<$YEAR>年<$MONTH>月<$DAY>号\技术补发记录.txt [<$STR(A402)>]|[<$STR(A403)>]|元宝[<$STR(A404)>]|灵符[<$STR(A405)>]|[<$STR(A406)>]|[<$DATETIME>]
GetStringPos ..\..\..\..\数据文件\充值商人\技术补发数据.TXT <$STR(A401)>
DelText ..\..\..\..\数据文件\充值商人\技术补发数据.TXT <$STR(N0)> 0
MOV A401
MOV A402
MOV A403
MOV A404
MOV A405
MOV A406
[@玩家改名]
#IF
EQUAL A489
#ACT
BREAK
#if
equal A488
#act
break
#IF
EQUAL A488 <$USERNAME>
#ACT
CHANGEHUMNAME A489
[@察看地图人数A]
#IF
ISONMAP G003
#ACT
INC G438 1
[@个人消耗产出统计]
#IF
ISDUMMY
#ACT
BREAK
#IF
#ACT
MOV N$打金计算E <$STR(U4)>
INC N$打金计算E <$STR(U17)>
INC N$打金计算E <$STR(U19)>
MOV N$消耗计算E <$STR(U0)>
INC N$消耗计算E <$STR(U1)>
INC N$消耗计算E <$STR(U2)>
CALCVAR HUMAN 消耗数据 = <$STR(N$消耗计算E)>
SAVEVAR HUMAN 消耗数据 ..\QuestDiary\数据文件\消耗产出\消耗数据.txt
CALCVAR HUMAN 产出数据 = <$STR(N$打金计算E)>
SAVEVAR HUMAN 产出数据 ..\QuestDiary\数据文件\消耗产出\产出数据.txt
[@大双发送数据]
#IF
A494.checkonline
EQUAL A494 <$USERNAME>
#ACT
<$STR(A494)>.CHANGELEVEL = <$STR(G480)>
<$STR(A494)>.GAMEGOLD + <$STR(G479)>
<$STR(A494)>.GAMEDIAMOND + <$STR(G478)>
<$STR(A494)>.GAMEGIRD + <$STR(G477)>
<$STR(A494)>.INC U26 <$STR(G479)>
<$STR(A494)>.INC U27 <$STR(G478)>
<$STR(A494)>.MOV M48 1
AddTextListEx ..\QuestDiary\激情文件\发送名单记录.TXT <$SERVERNAME>|<$STR(A494)>|等级:<$STR(G480)>|元宝:<$STR(G479)>|金刚石:<$STR(G478)>|灵符:<$STR(G477)>|<$DATETIME>
MOV N17 0
MOV N18 0
MOV N19 0
MOV N20 0
MOV N$激情元宝数量 0
MOV N$激情金刚石数量 0
MOV N$激情灵符数量 0
MOV N$激情等级玩家 0
MOV N$激情等级玩家A 0
MOV A494
MOV G480 0
MOV G479 0
MOV G478 0
MOV G476 0
MOV G477 0
BREAK
#ELSEACT
MESSAGEBOX 对不起！玩家当前不在线。
BREAK
[@技术行会人数修改]
#IF
ISGUILDMASTER
#ACT
AddGuildMemberCount = <$STR(A436)>
