|
发表于 2020-11-27 10:34:00
|
显示全部楼层
捐献脚本,一点就提示已合区无法捐献,怎么弄呢
()
%100
[@main]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX 测试区无法,捐献!
BREAK
#IF
large G0 2
#ACT
MESSAGEBOX 现在已经合区,捐献系统已关闭。
BREAK
#IF
equal A0
#ACT
goto @初始化区服
#IF
#ACT
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日一区.txt 0 N$一区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日二区.txt 0 N$二区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日三区.txt 0 N$三区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日四区.txt 0 N$四区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日五区.txt 0 N$五区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日六区.txt 0 N$六区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日七区.txt 0 N$七区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日八区.txt 0 N$八区
GetListString ..\..\..\..\跨服系统\<$STR(A0)>\今日九区.txt 0 N$九区
MOV S$是否捐献 <未激活/SCOLOR=249>
#if
CHECKTITLE 沙城捐献
#ACT
MOV S$是否捐献 <已激活/SCOLOR=250>
#IF
#ACT
OPENMERCHANTBIGDLG 36 90 1 4 -30 -100 1 750 20
MOV N$总计金额 0
INC N$总计金额 <$STR(N$一区)>
INC N$总计金额 <$STR(N$二区)>
INC N$总计金额 <$STR(N$三区)>
INC N$总计金额 <$STR(N$四区)>
INC N$总计金额 <$STR(N$五区)>
INC N$总计金额 <$STR(N$六区)>
INC N$总计金额 <$STR(N$七区)>
INC N$总计金额 <$STR(N$八区)>
INC N$总计金额 <$STR(N$九区)>
MOV S$一区显示 <$STR(N$一区)>
MOV S$二区显示 <$STR(N$二区)>
MOV S$三区显示 <$STR(N$三区)>
MOV S$四区显示 <$STR(N$四区)>
MOV S$五区显示 <$STR(N$五区)>
MOV S$六区显示 <$STR(N$六区)>
MOV S$七区显示 <$STR(N$七区)>
MOV S$六区显示 <$STR(N$八区)>
MOV S$七区显示 <$STR(N$九区)>
MOV S$总计1显示 <$STR(N$总计金额)>
MOV N$总计发放 <$STR(N$总计金额)>
DIV N$总计发放 2
MOV S$总计显示 <$STR(N$总计发放)>
SetStringBlank <$STR(S$一区显示)> 4 1
SetStringBlank <$STR(S$二区显示)> 4 1
SetStringBlank <$STR(S$三区显示)> 4 1
SetStringBlank <$STR(S$四区显示)> 4 1
SetStringBlank <$STR(S$五区显示)> 4 1
SetStringBlank <$STR(S$六区显示)> 4 1
SetStringBlank <$STR(S$七区显示)> 4 1
SetStringBlank <$STR(S$八区显示)> 4 1
SetStringBlank <$STR(S$九区显示)> 4 1
SetStringBlank <$STR(S$总计显示)> 4 1
SetStringBlank <$STR(S$总计1显示)> 4 1
#IF
#ACT
MOV N$胜利分配 <$STR(N$总计发放)>
DIV N$胜利分配 10
MUL N$胜利分配 6
MOV N$失败分配 <$STR(N$总计发放)>
DIV N$失败分配 10
MUL N$失败分配 3
MOV N$运营分配 <$STR(N$总计发放)>
DIV N$运营分配 10
MUL N$运营分配 1
MOV S$胜利分配显示 <$STR(N$胜利分配)>
MOV S$失败分配显示 <$STR(N$失败分配)>
MOV S$运营分配显示 <$STR(N$运营分配)>
SetStringBlank <$STR(S$胜利分配显示)> 4 1
SetStringBlank <$STR(S$失败分配显示)> 4 1
SetStringBlank <$STR(S$运营分配显示)> 4 1
#IF
#ACT
OPENMERCHANTBIGDLG 105 962 1 4 0 -80 1 515 50
#say
<> <PlayImg:36:1697:15:100:0:-80:0>\ \ \
<> <沙城公益捐献:【永久属性】只限每人一次,捐献奖金70%,总金额扣除30%作为平台费用./AUTOCOLOR=151,215,146,180,191,249> \
<> <①.捐献说明:本次捐献为公益捐献,作为沙城争霸奖励.需20RMB获得属性及装备./SCOLOR=251> \
<> <②.捐献属性:永久提升叠加4.0真实爆率.(限一次提升)./SCOLOR=253> \
<> <③.捐献物品:人形刀刀切割10%(恶魔猎手1个)/SCOLOR=249> \
<> <④.捐献物品:禁术·[治愈术] [神隐术] 禁术·[护体神盾] 魔法盾PK必备(唯一出处)/SCOLOR=249> \
<> <⑤.捐献属性:爆击+10% 攻击伤害加+10% 忽视防御+10%/SCOLOR=249> \
<> <----------------------------------------------------------/SCOLOR=70> \ \
<Hot~◆><今日1区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$一区)>元】/FCOLOR=242} <今日6区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$六区)>元】/FCOLOR=242}\
<Hot~◆><今日2区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$二区)>元】/FCOLOR=242} <今日7区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$七区)>元】/FCOLOR=242}\
<Hot~◆><今日3区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$三区)>元】/FCOLOR=242} <今日8区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$八区)>元】/FCOLOR=242}\
<Hot~◆><今日4区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$四区)>元】/FCOLOR=242} <今日9区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$九区)>元】/FCOLOR=242}\
<Hot~◆><今日5区/FCOLOR=253> <已累积沙城捐献/FCOLOR=250> {【<$STR(N$五区)>元】/FCOLOR=242}\ \
<Hot~◆><今日新区共累计沙城捐献/FCOLOR=253> {【<$STR(S$总计1显示)>元】 /FCOLOR=242} \
<> <【点我捐献√获得永久属性加成】/@1> RMB点为<$GAMEPOINT> \ \
<> <攻沙注意事项:/SCOLOR=250><请行会合理收人,不要一边倒!保持平衡!/SCOLOR=70> \
[@初始化区服]
#IF
#ACT
MOV A0 <$SERVERNAME>
#IF
CheckContainsText <$SERVERNAME> 一区
#ACT
DEC A0 一区
#IF
CheckContainsText <$SERVERNAME> 二区
#ACT
DEC A0 二区
#IF
CheckContainsText <$SERVERNAME> 三区
#ACT
DEC A0 三区
#IF
CheckContainsText <$SERVERNAME> 四区
#ACT
DEC A0 四区
#IF
CheckContainsText <$SERVERNAME> 五区
#ACT
DEC A0 五区
#IF
CheckContainsText <$SERVERNAME> 六区
#ACT
DEC A0 六区
#IF
CheckContainsText <$SERVERNAME> 七区
#ACT
DEC A0 七区
#IF
CheckContainsText <$SERVERNAME> 八区
#ACT
DEC A0 八区
#IF
CheckContainsText <$SERVERNAME> 九区
#ACT
DEC A0 九区
#if
#act
ForceDirectories ..\..\..\..\跨服系统\<$STR(A0)>\
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日一区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日二区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日三区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日四区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日五区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日六区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日七区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日八区.txt
CREATEFILE ..\..\..\..\跨服系统\<$STR(A0)>\今日九区.txt
BREAK
[@1]
#IF
CHECKTEXTLIST ..\QuestDiary\qq36742300\合区检测.txt 测试
#ACT
MESSAGEBOX 当前还是测试区无法捐献!
break
#IF
CHECKTEXTLIST ..\QuestDiary\qq36742300\合区检测.txt 合区
#ACT
MESSAGEBOX 当前区已经合区了,捐献通道已关闭,务必合区前开通!
break
#OR
CheckContainsText <$SERVERNAME> 一区
CheckContainsText <$SERVERNAME> 二区
CheckContainsText <$SERVERNAME> 三区
CheckContainsText <$SERVERNAME> 四区
CheckContainsText <$SERVERNAME> 五区
CheckContainsText <$SERVERNAME> 六区
CheckContainsText <$SERVERNAME> 七区
CheckContainsText <$SERVERNAME> 八区
CheckContainsText <$SERVERNAME> 九区
#ELSEACT
MESSAGEBOX 当前区已经合区_无法再捐献!
BREAK
#IF
CHECKTITLE 沙城捐献
#ACT
MESSAGEBOX 你已经领取过一次了!
BREAK
#IF
CHECKGAMEPOINT > 19
EQUAL U35 0
#ACT
GAMEPOINT - 20
INC U35 1
CONFERTITLE 沙城捐献
ADDSKILL 法术·[魔法盾] 3
give ★★★「恶魔·猎手」★★★ 1
give 禁术·[治愈术] 1
give 禁术·[神隐术] 1
give 禁术·[护体神盾] 1
#CALL [\游戏登陆\按钮检测.txt] @开始按钮检测
SENDMOVEMSG 0 250 0 220 1 {●●●沙城喜讯●●●:/FCOLOR=249}感谢勇士『{·<$USERNAME>·/FCOLOR=251}』通过沙城奖励捐献了{20元/FCOLOR=70},{获得永久4.0倍爆率.刀刀切割人形10%.魔法盾./FCOLOR=253},沙城奖励又添新高!
SENDMOVEMSG 0 250 0 250 1 {●●●沙城喜讯●●●:/FCOLOR=249}感谢勇士『{·<$USERNAME>·/FCOLOR=251}』通过沙城奖励捐献了{20元/FCOLOR=70},{获得永久4.0倍爆率.刀刀切割人形10%.魔法盾./FCOLOR=253},沙城奖励又添新高!
SENDMOVEMSG 0 250 0 280 1 {●●●沙城喜讯●●●:/FCOLOR=249}感谢勇士『{·<$USERNAME>·/FCOLOR=251}』通过沙城奖励捐献了{20元/FCOLOR=70},{获得永久4.0倍爆率.刀刀切割人形10%.魔法盾./FCOLOR=253},沙城奖励又添新高!
GOTO @写入
#ELSEACT
messagebox 你的RMB点不足20点!点
break
[@写入]
#IF
CheckContainsText <$SERVERNAME> 一区
#ACT
MOV S$区名 今日一区
#IF
CheckContainsText <$SERVERNAME> 二区
#ACT
MOV S$区名 今日二区
#IF
CheckContainsText <$SERVERNAME> 三区
#ACT
MOV S$区名 今日三区
#IF
CheckContainsText <$SERVERNAME> 四区
#ACT
MOV S$区名 今日四区
#IF
CheckContainsText <$SERVERNAME> 五区
#ACT
MOV S$区名 今日五区
#IF
CheckContainsText <$SERVERNAME> 六区
#ACT
MOV S$区名 今日六区
#IF
CheckContainsText <$SERVERNAME> 七区
#ACT
MOV S$区名 今日七区
#IF
CheckContainsText <$SERVERNAME> 八区
#ACT
MOV S$区名 今日八区
#IF
CheckContainsText <$SERVERNAME> 九区
#ACT
MOV S$区名 今日九区
#IF
equal S$区名 今日一区
#ACT
INC N$一区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$一区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日二区
#ACT
INC N$二区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$二区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日三区
#ACT
INC N$三区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$三区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日四区
#ACT
INC N$四区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$四区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日五区
#ACT
INC N$五区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$五区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日六区
#ACT
INC N$六区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$六区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日七区
#ACT
INC N$七区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$七区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日八区
#ACT
INC N$八区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$八区 0
GOTO @MAIN
BREAK
#IF
equal S$区名 今日九区
#ACT
INC N$九区 20
AddTextListEx ..\..\..\..\跨服系统\<$STR(A0)>\<$STR(S$区名)>.txt N$九区 0
GOTO @MAIN
BREAK
|
|