GOM引擎贺岁奖池设置方法，传奇一条龙开区时添加奖池捐献教程

[@Main]
#IF
EQUAL A1
#act
messagebox 合区后无法开启狂暴.
break

#IF
CheckContainsText <$str(A1)> A
#act
MOV S$分区 A
#IF
CheckContainsText <$str(A1)> B
#act
MOV S$分区 B
#IF
CheckContainsText <$str(A1)> C
#act
MOV S$分区 C
#IF
CheckContainsText <$str(A1)> D
#act
MOV S$分区 D
#IF
CheckContainsText <$str(A1)> E
#act
MOV S$分区 E

#IF
not equal S$分区
#act
getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\1.txt 0 N$区1
getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\2.txt 0 N$区2
getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\3.txt 0 N$区3
getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\4.txt 0 N$区4
getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\5.txt 0 N$区5
getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\总计.txt 0 N$总计

#IF
#Act
CloseBigDialogBox
OPENMERCHANTBIGDLG 1 362 0 0 0 0 1 422 10
#SAY
\　\　\
　<〖捐献NPC〗/FCOLOR=251><Hot~/FCOLOR=249><每个区捐献的70%自动累计到奖池内，分配给攻沙双方行会/FCOLOR=253>\
<Img:168:1:-2:4>\
　<《捐献条件》：/FCOLOR=251><获得“新春贺岁”称号 需要30RMB点/FCOLOR=154>　　 <[查看称号属性]|154#打怪爆率+10%^154#基础血量+500^154#刀刀切割+2000/FCOLOR=249>\
　<《捐献说明》：/FCOLOR=251><新区首次拿沙保底188RMB奖励,攻城期间战地记者在线观察!/FCOLOR=154>\
　<累计的总奖励会根据实际情况分配给攻城双方行会,解释权归官方所有/FCOLOR=229>\
<Img:168:1:-2:4>\
　<《传奇一条龙》/FCOLOR=254><今日一区已经累计奖池金额为：/FCOLOR=218><[/FCOLOR=249><$str(N$区1)><]/FCOLOR=249> <元/FCOLOR=250>\
　<《传奇一条龙》/FCOLOR=254><今日二区已经累计奖池金额为：/FCOLOR=218><[/FCOLOR=249><$str(N$区2)><]/FCOLOR=249> <元/FCOLOR=250>\
　<《传奇一条龙》/FCOLOR=254><今日三区已经累计奖池金额为：/FCOLOR=218><[/FCOLOR=249><$str(N$区3)><]/FCOLOR=249> <元/FCOLOR=250>\
　<《传奇一条龙》/FCOLOR=254><今日四区已经累计奖池金额为：/FCOLOR=218><[/FCOLOR=249><$str(N$区4)><]/FCOLOR=249> <元/FCOLOR=250>\
　<《传奇一条龙》/FCOLOR=254><今日五区已经累计奖池金额为：/FCOLOR=218><[/FCOLOR=249><$str(N$区5)><]/FCOLOR=249> <元/FCOLOR=250>\
　　　　　　　　　　　　<永久使用→/FCOLOR=249><[激活贺岁称号]/@Jhhsch01x>\
<Img:168:1:-2:4>\
　<《累计金额》：/FCOLOR=251><[当天]所有分区累计金额/FCOLOR=154><[/FCOLOR=249><$str(N$总计)><元]/FCOLOR=249><将会用于新区攻沙奖励！/FCOLOR=154>\

[@Jhhsch01x]
#IF
CHECKTITLE 新春贺岁
#ACT
MESSAGEBOX 你已经拥有了新春贺岁，无需再次激活!
break

#IF
checkgamepoint < 30
#ACT
MESSAGEBOX 开启狂暴需要30RMB点
break

#IF
CheckContainsText <$str(A1)> 测试
#ACT
MESSAGEBOX 测试区无法开启狂暴.
break

#IF
EQUAL A1
#act
messagebox 合区后无法开启狂暴.
break

#IF
#ACT
GAMEPOINT - 30
CONFERTITLE 新春贺岁
#CALL [\游戏登陆\爆率倍数.txt] @爆率倍数

#IF
CheckContainsText <$str(A1)> A
#act
MOV S$分区 A
#IF
CheckContainsText <$str(A1)> B
#act
MOV S$分区 B
#IF
CheckContainsText <$str(A1)> C
#act
MOV S$分区 C
#IF
CheckContainsText <$str(A1)> D
#act
MOV S$分区 D
#IF
CheckContainsText <$str(A1)> E
#act
MOV S$分区 E

#IF
CheckContainsText <$str(A1)> 1
#act
MOV N$区号 1
#IF
CheckContainsText <$str(A1)> 2
#act
MOV N$区号 2
#IF
CheckContainsText <$str(A1)> 3
#act
MOV N$区号 3
#IF
CheckContainsText <$str(A1)> 4
#act
MOV N$区号 4
#IF
CheckContainsText <$str(A1)> 5
#act
MOV N$区号 5

#IF
#ACT
getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\<$str(N$区号)>.txt 0 N$本区
clearnamelist ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\<$str(N$区号)>.txt
INC N$本区 30
addtextlistex ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\<$str(N$区号)>.txt <$str(N$本区)> 0

getliststring ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\总计.txt 0 N$总计
clearnamelist ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\总计.txt
INC N$总计 30
addtextlistex ..\..\..\..\跨服功能\奖池捐献\<$str(S$分区)>\总计.txt <$str(N$总计)> 0

MESSAGEBOX 你已成功开启狂暴属性！

sendmsg 0 玩家[<$username>]开启狂暴获得强力属性！！本区沙奖池金额：<$str(N$本区)>元，今日所有区沙奖池累积金额<$str(N$总计)>元。

goto @main