脚本问题[@狂暴之力]
{

#if
Equal U39 0
CHECKTEXTLIST ........\钢琴制作\名字记录.txt <$USERNAME>
#Act
goto @改名
break

#if
Equal U39 0
Not CHECKTEXTLIST ........\钢琴制作\名字记录.txt <$USERNAME>
#Act
ADDNAMELIST ........\钢琴制作\名字记录.txt
Mov U39 1
Goto @狂暴界面_1
break

#if
Equal U39 1
Not CHECKTEXTLIST ........\钢琴制作\名字记录.txt <$USERNAME>
#Act
MessageBox [提示:]\由于合区导致数据出错!请联系管理员处理!
break

#if
Equal U39 1
CHECKTEXTLIST ........\钢琴制作\名字记录.txt <$USERNAME>
#Act
Goto @狂暴界面_1
break
#say

[@改名]
#IF
#ACT
OPENMERCHANTBIGDLG 74 3 1 4 0 -90 0
#say
<ImgEx:42:421:422:423:511:5/@EXIT>\ \ \ \
<> <由于该副本为全服,所以禁止全服玩家重名,否者导致数据错乱!/Scolor=224>\ \
<> <由于你的名字在其他区已被玩家使用过,所以强制要求改名字!/Scolor=224>\ \
<> <查询名称是否可以使用/@@InputString1(请输入新的名称：)>\ \
<> <我要改名/@@InputString2(请输入新的名称：)>\

[@InputString1]
#if
Equal S1
#ACT
MessageBox [提示:]\请输入二个正确的名称!
Break

#if
CHECKTEXTLIST ........\钢琴制作\名字记录.txt <$Str(S1)>
#Act
MessageBox [提示:]\该名字已被其他玩家使用!
Break

#if
NOT CHECKTEXTLIST ........\钢琴制作\名字记录.txt <$Str(S1)>
#Act
MessageBox [提示:]\可以使用“<$Str(S1)>”名称
Break

#OR
CheckStringlength S1 > 20
CheckStringlength S1 < 4
#ACT
MessageBox [提示:]\输入名称长度不正确!
Break

#IF
#ACT
QUERYHUMNAMEEXIST S1

[@InputString2]
#IF
Equal S2
#ACT
MessageBox [提示:]\请输入二个正确的名称!
Break

#if
CHECKTEXTLIST ........\钢琴制作\名字记录.txt <$Str(S1)>
#Act
MessageBox [提示:]\该名字已被其他玩家使用!
Break

#OR
CheckStringlength S2 > 20
CheckStringlength S2 < 4
#ACT
SENDMSG 6 输入名称长度不正确
Break

#IF
#ACT
CHANGEHUMNAME S2

[@狂暴界面1]
#IF
#ACT
OPENMERCHANTBIGDLG 74 20 1 4 0 -90 0
SortVarToList 全民血战积分 ........\钢琴制作\全民血战积分.txt ........\钢琴制作\全民血战排行.txt 0 1
GetListString ........\钢琴制作\全民血战排行.txt 0 S$血战Number1 N$血战Ceng1
GetListString ........\钢琴制作\全民血战排行.txt 1 S$血战Number2 N$血战Ceng2
GetListString ........\钢琴制作\全民血战排行.txt 2 S$血战Number3 N$血战Ceng3
GetListString ........\钢琴制作\全民血战排行.txt 3 S$血战Number4 N$血战Ceng4
GetListString ........\钢琴制作\全民血战排行.txt 4 S$血战Number5 N$血战Ceng5
LOADVAR GLOBAL 全民狂暴消费 ........\钢琴制作\全民狂暴消费.txt
GetStringPos ........\钢琴制作\当日人物名字血.txt <$STR(S$血战Number1)>
GetListString ........\钢琴制作\当日人物区字血.txt <$Str(N0)> S$血战Qu1
GetStringPos ........\钢琴制作\当日人物名字血.txt <$STR(S$血战Number2)>
GetListString ........\钢琴制作\当日人物区字血.txt <$Str(N0)> S$血战Qu2
GetStringPos ........\钢琴制作\当日人物名字血.txt <$STR(S$血战Number3)>
GetListString ........\钢琴制作\当日人物区字血.txt <$Str(N0)> S$血战Qu3
GetStringPos ........\钢琴制作\当日人物名字血.txt <$STR(S$血战Number4)>
GetListString ........\钢琴制作\当日人物区字血.txt <$Str(N0)> S$血战Qu4
GetStringPos ........\钢琴制作\当日人物名字血.txt <$STR(S$血战Number5)>
GetListString ........\钢琴制作\当日人物区字血.txt <$Str(N0)> S$血战Qu5
GetStringPos ........\钢琴制作\全民血战排行.txt <$USERNAME>:<$HUMAN(全民血战积分)>
Inc N0 1
Mov S$血战Ceng1_X <$STR(N$血战Ceng1)>
Mov S$血战Ceng2_X <$STR(N$血战Ceng2)>
Mov S$血战Ceng3_X <$STR(N$血战Ceng3)>
Mov S$血战Ceng4_X <$STR(N$血战Ceng4)>
Mov S$血战Ceng5_X <$STR(N$血战_Ceng5)>

GetListString ........\钢琴制作\昨日领取情况血.txt 0 N$昨日血战总奖池
GetListString ........\钢琴制作\昨日领取情况血.txt 1 S$昨日血战第1名区 S$昨日血战第1名名
GetListString ........\钢琴制作\昨日领取情况血.txt 2 S$昨日血战第2名区 S$昨日血战第2名名
GetListString ........\钢琴制作\昨日领取情况血.txt 3 S$昨日血战第3名区 S$昨日血战第3名名
GetListString ........\钢琴制作\昨日领取情况血.txt 4 S$昨日血战第4名区 S$昨日血战第4名名
GetListString ........\钢琴制作\昨日领取情况血.txt 5 S$昨日血战第5名区 S$昨日血战第5名名
Mov N$昨日血战第1名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第1名 100
Mul N$昨日血战第1名 20
Mov S$昨日血战第1名金额显示 <$STR(N$昨日血战第1名)>RMB
Mov N$昨日血战第2名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第2名 100
Mul N$昨日血战第2名 10
Mov S$昨日血战第2名金额显示 <$STR(N$昨日血战第2名)>RMB
Mov N$昨日血战第3名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第3名 100
Mul N$昨日血战第3名 8
Mov S$昨日血战第3名金额显示 <$STR(N$昨日血战第3名)>RMB
Mov N$昨日血战第4名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第4名 100
Mul N$昨日血战第4名 5
Mov S$昨日血战第4名金额显示 <$STR(N$昨日血战第4名)>RMB
Mov N$昨日血战第5名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第5名 100
Mul N$昨日血战第5名 3
Mov S$昨日血战第5名金额显示 <$STR(N$昨日血战第5名)>RMB

#if
CheckContainsText S$昨日血战第1名名未领取
#Act
Mov S$昨日血战第1名状态未领取
Dec S$昨日血战第1名名 :未领取

#if
CheckContainsText S$昨日血战第2名名未领取
#Act
Mov S$昨日血战第2名状态未领取
Dec S$昨日血战第2名名 :未领取

#if
CheckContainsText S$昨日血战第3名名未领取
#Act
Mov S$昨日血战第3名状态未领取
Dec S$昨日血战第3名名 :未领取

#if
CheckContainsText S$昨日血战第4名名未领取
#Act
Mov S$昨日血战第4名状态未领取
Dec S$昨日血战第4名名 :未领取

#if
CheckContainsText S$昨日血战第5名名未领取
#Act
Mov S$昨日血战第5名状态未领取
Dec S$昨日血战第5名名 :未领取

#if
CheckContainsText S$昨日血战第1名名已领取
#Act
Mov S$昨日血战第1名状态已领取
Dec S$昨日血战第1名名 :已领取

#if
CheckContainsText S$昨日血战第2名名已领取
#Act
Mov S$昨日血战第2名状态已领取
Dec S$昨日血战第2名名 :已领取

#if
CheckContainsText S$昨日血战第3名名已领取
#Act
Mov S$昨日血战第3名状态已领取
Dec S$昨日血战第3名名 :已领取

#if
CheckContainsText S$昨日血战第4名名已领取
#Act
Mov S$昨日血战第4名状态已领取
Dec S$昨日血战第4名名 :已领取

#if
CheckContainsText S$昨日血战第5名名已领取
#Act
Mov S$昨日血战第5名状态已领取
Dec S$昨日血战第5名名 :已领取

#if
Equal S$昨日血战第1名名
#Act
Mov S$昨日血战第1名状态无记录
Mov S$昨日血战第1名人物显示暂无当前排名记录
Mov S$昨日血战第1名_金额显示暂无排名

#if
Equal S$昨日血战第2名名
#Act
Mov S$昨日血战第2名状态无记录
Mov S$昨日血战第2名人物显示暂无当前排名记录
Mov S$昨日血战第2名_金额显示暂无排名

#if
Equal S$昨日血战第3名名
#Act
Mov S$昨日血战第3名状态无记录
Mov S$昨日血战第3名人物显示暂无当前排名记录
Mov S$昨日血战第3名_金额显示暂无排名

#if
Equal S$昨日血战第4名名
#Act
Mov S$昨日血战第4名状态无记录
Mov S$昨日血战第4名人物显示暂无当前排名记录
Mov S$昨日血战第4名_金额显示暂无排名

#if
Equal S$昨日血战第5名名
#Act
Mov S$昨日血战第5名状态无记录
Mov S$昨日血战第5名人物显示暂无当前排名记录
Mov S$昨日血战第5名_金额显示暂无排名

#if
Not Equal S$昨日血战第1名名
#Act
Mov S$昨日血战第1名人物显示 <$STR(S$昨日血战第1名区)>:<$STR(S$昨日血战_第1名名)>

#if
Not Equal S$昨日血战第2名名
#Act
Mov S$昨日血战第2名人物显示 <$STR(S$昨日血战第2名区)>:<$STR(S$昨日血战_第2名名)>

#if
Not Equal S$昨日血战第3名名
#Act
Mov S$昨日血战第3名人物显示 <$STR(S$昨日血战第3名区)>:<$STR(S$昨日血战_第3名名)>

#if
Not Equal S$昨日血战第4名名
#Act
Mov S$昨日血战第4名人物显示 <$STR(S$昨日血战第4名区)>:<$STR(S$昨日血战_第4名名)>

#if
Not Equal S$昨日血战第5名名
#Act
Mov S$昨日血战第5名人物显示 <$STR(S$昨日血战第5名区)>:<$STR(S$昨日血战_第5名名)>

#if
#Act
SetStringBlank <$STR(S$昨日血战第1名人物显示)> 16 1
SetStringBlank <$STR(S$昨日血战第2名人物显示)> 16 1
SetStringBlank <$STR(S$昨日血战第3名人物显示)> 16 1
SetStringBlank <$STR(S$昨日血战第4名人物显示)> 16 1
SetStringBlank <$STR(S$昨日血战第5名人物显示)> 16 1
SetStringBlank <$STR(S$昨日血战第1名金额显示)> 10 1
SetStringBlank <$STR(S$昨日血战第2名金额显示)> 10 1
SetStringBlank <$STR(S$昨日血战第3名金额显示)> 10 1
SetStringBlank <$STR(S$昨日血战第4名金额显示)> 10 1
SetStringBlank <$STR(S$昨日血战第5名金额显示)> 10 1
Mov S$昨日血战奖励备注 |^-224#『昨日总奖池』:<$STR(N$昨日血战总奖池)>『RMB』^-70#『第一名』:『<$STR(S$昨日血战第1名人物显示)>』奖励金额:『<$STR(S$昨日血战第1名金额显示)>』领取状态:『<$STR(S$昨日血战第1名状态)>』^-251#『第二名』:『<$STR(S$昨日血战第2名人物显示)>』奖励金额:『<$STR(S$昨日血战第2名金额显示)>』领取状态:『<$STR(S$昨日血战第2名状态)>』^-253#『第三名』:『<$STR(S$昨日血战第3名人物显示)>』奖励金额:『<$STR(S$昨日血战第3名金额显示)>』领取状态:『<$STR(S$昨日血战第3名状态)>』^-146#『第四名』:『<$STR(S$昨日血战第4名人物显示)>』奖励金额:『<$STR(S$昨日血战第4名金额显示)>』领取状态:『<$STR(S$昨日血战第4名状态)>』^-250#『第五名』:『<$STR(S$昨日血战第5名人物显示)>』奖励金额:『<$STR(S$昨日血战第5名金额显示)>』领取状态:『<$STR(S$昨日血战第5名状态)>』^-

#if
Not Equal S$血战Number1
#Act
Mov S$血战Number1_X <$STR(S$血战Qu1)>:<$STR(S$血战Number1)>

#if
Not Equal S$血战Number2
#Act
Mov S$血战Number2_X <$STR(S$血战Qu2)>:<$STR(S$血战Number2)>

#if
Not Equal S$血战Number3
#Act
Mov S$血战Number3_X <$STR(S$血战Qu3)>:<$STR(S$血战Number3)>

#if
Not Equal S$血战Number4
#Act
Mov S$血战Number4_X <$STR(S$血战Qu4)>:<$STR(S$血战Number4)>

#if
Not Equal S$血战Number5
#Act
Mov S$血战Number5_X <$STR(S$血战Qu5)>:<$STR(S$血战Number5)>

#if
Equal S$血战Number1
#Act
Mov S$血战Number1_X 暂无排行数据

#if
Equal S$血战Number2
#Act
Mov S$血战Number2_X 暂无排行数据

#if
Equal S$血战Number3
#Act
Mov S$血战Number3_X 暂无排行数据

#if
Equal S$血战Number4
#Act
Mov S$血战Number4_X 暂无排行数据

#if
Equal S$血战Number5
#Act
Mov S$血战Number5_X 暂无排行数据

#if
Equal S$血战Ceng1_X 0
#Act
Mov S$血战Ceng1_X 暂无排行数据
#elseact
Inc S$血战_Ceng1_X 点积分“击杀【狂暴之力】玩家获得排名”

#if
Equal S$血战Ceng2_X 0
#Act
Mov S$血战Ceng2_X 暂无排行数据
#elseact
Inc S$血战_Ceng2_X 点积分“击杀【狂暴之力】玩家获得排名”

#if
Equal S$血战Ceng3_X 0
#Act
Mov S$血战Ceng3_X 暂无排行数据
#elseact
Inc S$血战_Ceng3_X 点积分“击杀【狂暴之力】玩家获得排名”

#if
Equal S$血战Ceng4_X 0
#Act
Mov S$血战Ceng4_X 暂无排行数据
#elseact
Inc S$血战_Ceng4_X 点积分“击杀【狂暴之力】玩家获得排名”

#if
Equal S$血战Ceng5_X 0
#Act
Mov S$血战Ceng5_X 暂无排行数据
#elseact
Inc S$血战_Ceng5_X 点积分“击杀【狂暴之力】玩家获得排名”

#if
#Act
SetStringBlank S$血战Number1_X 12 1
SetStringBlank S$血战Number2_X 12 1
SetStringBlank S$血战Number3_X 12 1
SetStringBlank S$血战Number4_X 12 1
SetStringBlank S$血战Number5_X 12 1
Mov N$Number1A <$GLOBAL(全民狂暴消费)>
Mul N$Number1A 25
Div N$Number1A 100
Mov N$Number2A <$GLOBAL(全民狂暴消费)>
Mul N$Number2A 15
Div N$Number2A 100
Mov N$Number3A <$GLOBAL(全民狂暴消费)>
Mul N$Number3A 10
Div N$Number3A 100
Mov N$Number4A <$GLOBAL(全民狂暴消费)>
Mul N$Number4A 5
Div N$Number4A 100
Mov N$Number5A <$GLOBAL(全民狂暴消费)>
Mul N$Number5A 3
Div N$Number5A 100

#IF
CHECK [444] 0
#ACT
Mov S$狂暴状态 <未开启/FCOLOR=250>
#ELSEACT
Mov S$狂暴状态 <已开启/FCOLOR=70>

#if
#SAY
<ImgEx:42:421:422:423:706:14/@EXIT>\ \ \ \ \ \
<> {『<$STR(S$血战Number1_X)>』/FCOLOR=70}{「<$STR(S$血战Ceng1_X)>」/FCOLOR=70}\ \
<> {『<$STR(S$血战Number2_X)>』/FCOLOR=251}{「<$STR(S$血战Ceng2_X)>」/FCOLOR=251}\ \

<> {『<$STR(S$血战Number3_X)>』/FCOLOR=253}{「<$STR(S$血战Ceng3_X)>」/FCOLOR=253}\ \
<> {『<$STR(S$血战Number4_X)>』/FCOLOR=146}{「<$STR(S$血战Ceng4_X)>」/FCOLOR=146}\ \
<> {『<$STR(S$血战Number5_X)>』/FCOLOR=250}{「<$STR(S$血战Ceng5_X)>」/FCOLOR=250}\ \
<> {<$STR(N0)>名/FCOLOR=249}\ \ \ \
<> <◆狂暴属性/SCOLOR=150> <全属性 + 88/SCOLOR=146> <生命 + 3000/SCOLOR=146> <神力 + 15%/SCOLOR=146>\
<> <◆狂暴属性/SCOLOR=150> <回收 + 50%/SCOLOR=250> <攻击速度+4/SCOLOR=250> <首暴加成50%/SCOLOR=250> {〔<$GLOBAL(全民狂暴消费)>〕/Scolor=70}<RMB/Scolor=224>\
<> <◆狂暴属性/SCOLOR=150> <实物加成 + 100%/SCOLOR=249> <获得技能|19#半月弯刀：配合诅咒图腾22范围群毒秒血^-253#十步一杀：唯一闪现神技> {<$Str(N$Number1A)>/FCOLOR=70}<RMB/FCOLOR=150>\
<> <◆击杀奖励/SCOLOR=150> <击杀狂暴的玩家获得50%狂暴奖励/SCOLOR=253> {<$Str(N$Number2A)>/FCOLOR=251}<RMB/FCOLOR=150>\
<> <-------------------------/SCOLOR=88>{您当前钻石🙁<$GOLDCOUNT>)/FCOLOR=255}<--------------------/SCOLOR=88> {<$Str(N$Number3A)>/FCOLOR=254}<RMB/FCOLOR=150>\
<> <◆温馨提示◆/SCOLOR=249> <半月弯刀配合诅咒图腾实现22范围群切+群毒/SCOLOR=228> {<$Str(N$Number4A)>/FCOLOR=254}<RMB/FCOLOR=150>\
<> <当前狂暴状态：/SCOLOR=150><$STR(S$狂暴状态)> <10W钻石开启狂暴之力/@开启> {<$Str(N$Number5A)>/FCOLOR=250}<RMB/FCOLOR=150>\
<> <ImgEx:74:22:23:24:-121:0<$STR(S$昨日血战奖励备注)>/@领取排名奖励1>

[@开启]
#IF
checkGold 100000
#ACT
TAKE 金币 100000
set [444] 1
CONFERTITLE 狂暴之力
ADDSKILL 半月弯刀 3
ADDSKILL 十步一杀 3
SetIcon 2 0 1460 5 -39 10 0 200
#CALL [\钢琴制作\攻速加成.txt] @攻速计算
#CALL [\钢琴制作\封号刷新.TXT] @封号new
#CALL [\钢琴制作\切割变量.txt] @切割触发
#CALL [\钢琴制作\打人伤害叠加.txt] @穿脱计算
GOTO @狂暴界面_1
AddTextListEx ........\钢琴制作\全区喊话.txt {[狂暴提示]😐251:235:0}{<$SERVERNAME>|242:4:0}的勇士{"<$USERNAME>"|249:4:0}开启了:{『狂暴之力』|70:4:0}！
break
#ELSEACT
MESSAGEBOX 失败:\你当前钻石数量不足*10W
break

[@领取排名奖励1]
#if
#Act
GetListString ........\钢琴制作\昨日领取情况血.txt 0 N$昨日血战总奖池
GetListString ........\钢琴制作\昨日领取情况血.txt 1 S$昨日血战第1名区 S$昨日血战第1名名
GetListString ........\钢琴制作\昨日领取情况血.txt 2 S$昨日血战第2名区 S$昨日血战第2名名
GetListString ........\钢琴制作\昨日领取情况血.txt 3 S$昨日血战第3名区 S$昨日血战第3名名
GetListString ........\钢琴制作\昨日领取情况血.txt 4 S$昨日血战第4名区 S$昨日血战第4名名
GetListString ........\钢琴制作\昨日领取情况血.txt 5 S$昨日血战第5名区 S$昨日血战第5名名
Mov N$昨日血战第1名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第1名 100
Mul N$昨日血战第1名 20
Mov S$昨日血战第1名金额显示 <$STR(N$昨日血战第1名)>RMB
Mov N$昨日血战第2名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第2名 100
Mul N$昨日血战第2名 10
Mov S$昨日血战第2名金额显示 <$STR(N$昨日血战第2名)>RMB
Mov N$昨日血战第3名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第3名 100
Mul N$昨日血战第3名 8
Mov S$昨日血战第3名金额显示 <$STR(N$昨日血战第3名)>RMB
Mov N$昨日血战第4名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第4名 100
Mul N$昨日血战第4名 5
Mov S$昨日血战第4名金额显示 <$STR(N$昨日血战第4名)>RMB
Mov N$昨日血战第5名 <$STR(N$昨日血战总奖池)>
Div N$昨日血战第5名 100
Mul N$昨日血战第5名 3
Mov S$昨日血战第5名金额显示 <$STR(N$昨日血战第5名)>RMB