[@main]
#IF
#ACT
;=========================================
;====================【以下为沙捐分区数据】
;=========================================
GetRandomText ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\一区.txt N$一区金额 0
GetRandomText ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\二区.txt N$二区金额 0
GetRandomText ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\三区.txt N$三区金额 0
GetRandomText ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\四区.txt N$四区金额 0
Mov N$日区总额 0
Mov 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$三区金额 N$三区金额
Mov S$四区金额 <$STR(N$四区金额)>
SetStringBlank <$STR(S$一区金额)> 6 0
SetStringBlank <$STR(S$二区金额)> 6 0
SetStringBlank <$STR(S$三区金额)> 6 0
SetStringBlank <$STR(S$四区金额)> 6 0
mov N$沙奖金 0
mov N$沙奖金 <$STR(N$日区总额)>
MUL N$沙奖金 80
DIV N$沙奖金 100
Mov N$胜利方 <$STR(N$沙奖金)>
Mul N$胜利方 60
Div N$胜利方 100
Mov N$失败方 <$STR(N$沙奖金)>
Mul N$失败方 40
Div N$失败方 100
Mov S$总奖池 <$str(N$日区总额)>
Mov S$沙奖金 <$str(N$沙奖金)>
Mov S$胜利方 <$str(N$胜利方)>
Mov S$失败方 <$str(N$失败方)>
SetStringBlank <$str(S$总奖池)> 5 0
SetStringBlank <$str(S$沙奖金)> 5 0
SetStringBlank <$str(S$胜利方)> 5 0
SetStringBlank <$str(S$失败方)> 5 0
;=========================================
;====================【以下为捐献排名数据】
;=========================================
#IF
#Act
MOV S$名称1 <$str(A15)>
MOV S$名称2 <$str(A16)>
MOV S$名称3 <$str(A17)>
mov S$金额1 <$str(G15)>
mov S$金额2 <$str(G16)>
mov S$金额3 <$str(G17)>
#IF
#ACT
SETSTRINGBLANK S$名称1 16 1
SETSTRINGBLANK S$名称2 16 1
SETSTRINGBLANK S$名称3 16 1
setstringblank S$金额1 5
setstringblank S$金额2 5
setstringblank S$金额3 5
Goto @捐献界面
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@捐献界面]
#IF
#Act
CloseBigDialogBox
OpenmerChantBigdlg 37 289 1 4 5 -20 1 380 2 1
#Say
\ \ \ \
<> <首次沙捐300旷世币，之后进行封神台捐献，每次捐献需要100旷世币/FCOLOR=70> {你当前拥有旷世币数：【 <$GAMEDIAMOND> 】 /SCOLOR=147} \
<><----------------------------------------------------------------------------------------------/AUTOCOLOR=13>\
< ><今日01区/AUTOCOLOR=239> {累计金额：/FCOLOR=95} {[<$STR(S$一区金额)>] 旷世币/FCOLOR=250}\
< ><今日02区/AUTOCOLOR=239> {累计金额：/FCOLOR=95} {[<$STR(S$二区金额)>] 旷世币/FCOLOR=250}\
< ><今日03区/AUTOCOLOR=239> {累计金额：/FCOLOR=95} {[<$STR(S$三区金额)>] 旷世币/FCOLOR=250}\
< ><今日04区/AUTOCOLOR=239> {累计金额：/FCOLOR=95} {[<$STR(S$四区金额)>] 旷世币/FCOLOR=250}\ \
<> <[获得属性]：/FCOLOR=239><刀刀冰冻+刀刀切割+九级技能+见习卐武者称号/FCOLOR=254>\ \
<><今日区沙城奖池总金额：/AUTOCOLOR=239>{【<$STR(S$总奖池)>】旷世币/FCOLOR=251} <可获得捐献小子/FCOLOR=253> <鼠标移动查看富豪属性|249#攻击50， HP+05万，全元素+1% 杀怪爆率+10%/FCOLOR=250>\
<><----------------------------------------------------------------------------------------------/AUTOCOLOR=13>\
<> <捐献富豪第一/FCOLOR=249> <【/FCOLOR=239> { <$str(S$名称1)>|249#捐献满榜:<$STR(G490)>名<$STR(A490)>/FCOLOR=70} <】/FCOLOR=239> <当前捐献金额/FCOLOR=239><【/FCOLOR=239> {<$str(S$金额1)>/FCOLOR=70} <】/FCOLOR=239> <→→→/FCOLOR=22> <鼠标移动查看富豪属性|249#攻击500，HP+66万，全元素+10% 杀怪爆率+100%+[红名BUFF]/FCOLOR=250>\
<> <捐献富豪第二/FCOLOR=251> <【/FCOLOR=239> { <$str(S$名称2)>/FCOLOR=70} <】/FCOLOR=239> <当前捐献金额/FCOLOR=239><【/FCOLOR=239> {<$str(S$金额2)>/FCOLOR=70} <】/FCOLOR=239> <→→→/FCOLOR=22> <鼠标移动查看富豪属性|249#攻击500，HP+66万，全元素+10% 杀怪爆率+100%//FCOLOR=250>\
<> <捐献富豪第三/FCOLOR=253> <【/FCOLOR=239> { <$str(S$名称3)>/FCOLOR=70} <】/FCOLOR=239> <当前捐献金额/FCOLOR=239><【/FCOLOR=239> {<$str(S$金额3)>/FCOLOR=70} <】/FCOLOR=239> <→→→/FCOLOR=22> <鼠标移动查看富豪属性|249#攻击100，HP+10万，全元素+3% 杀怪爆率+30%/FCOLOR=250>\
<><----------------------------------------------------------------------------------------------/AUTOCOLOR=13>\
<> <[捐献说明]：捐献金额/FCOLOR=239><80％/FCOLOR=253><加入奖池，/FCOLOR=239> <捐献达到5000旷世币封顶，所获得属性相同/FCOLOR=253>\
<><----------------------------------------------------------------------------------------------/AUTOCOLOR=13>\
<> <沙城奖池：/SCOLOR=243><胜利方获得奖池60%金额,失败方获得40%金额！/SCOLOR=239> {→沙城奖励说明←|
253#新区沙奖说明^
147#【捐献说明】:等待添加！^-^
147#获胜得奖池60%,失败方40%！！！^
147#新区沙城奖励为一次性发放全部奖励，请建立好微信群^
147#等待添加！^
249#【拿沙要求】；等待添加！！！^-^
147#不扣除任何管理费用，全部当沙巴克奖励红包/FCOLOR=250}\ \
<> <攻沙结束：当前胜利方奖金/SCOLOR=254> {【<$STR(S$胜利方)>】/FCOLOR=255} <旷世币/SCOLOR=249> {【<$STR(S$失败方)>】/FCOLOR=255} <旷世币/SCOLOR=249> \
<><----------------------------------------------------------------------------------------------/AUTOCOLOR=13>\
<> <温馨提示：请理性消费，量力而行，拒绝上头！！！请理性消费，量力而行，拒绝上头！！！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<> <[捐献条件]：/FCOLOR=239><300旷世币激活属性/FCOLOR=249><【/FCOLOR=22> <开启沙城捐献/@开始SJ> <】/FCOLOR=22> <【/FCOLOR=22><开启捐献/@@InPutInteger17><】/FCOLOR=22>\
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@InPutInteger17]
#IF
small N17 300
#ACT
MESsAGEBOX [提示]：\ \ 捐献最低金额：300旷世...
BREAK
#IF
equal U21 0
#ACT
MESSAGEBOX 请先进行沙城捐献在来!
break
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
MessageBox [提示]：捐献失败！\ \ 测试区不可以捐献...
Break
#IF
CHECKGAMEDIAMOND < <$str(N17)>
#ACT
MESsAGEBOX 当前旷世数量不足【<$str(N17)>】...
break
#IF
#ACT
MOV P30 <$HUMAN(捐献)>
INC P30 <$str(N17)>
#if
LARGE P30 5000
#ACT
MESSAGEBOX 你已经达到捐献上限,本服捐献上限为5000旷世币
break
#IF
#ACT
MOV T8 给予属性者
GAMEDIAMOND - <$str(N17)>
LOADVAR HUMAN 捐献 ..\QuestDiary\杀神制作\数据.txt
calcvar HUMAN 捐献 + <$str(N17)>
saveVAR HUMAN 捐献 ..\QuestDiary\杀神制作\数据.txt
AddTextListEx ..\QuestDiary\杀神制作\第五名单.txt <$USERNAME>
MOV N$计入 <$str(N17)>
MUL N$计入 10
DIV N$计入 10
INC G130 <$str(N$计入)>
INC G499 <$str(N$计入)>
SendMsg 7 感谢玩家[<$USERNAME>]对本服富豪榜捐献[<$str(N17)>]旷世币！
SendMsg 7 感谢玩家[<$USERNAME>]对本服富豪榜捐献[<$str(N17)>]旷世币！
SendMsg 7 感谢玩家[<$USERNAME>]对本服富豪榜捐献[<$str(N17)>]旷世币！
goto @计入沙奖池
Goto @main
messagebox [提示]：\ \ 捐献成功!
#IF
#act
SortHumVarToListEx 捐献 ..\questdiary\杀神制作\数据.txt 1 ..\questdiary\杀神制作\排序.txt 1
getliststring ..\questdiary\杀神制作\排序.txt 0 A15 G15
getliststring ..\questdiary\杀神制作\排序.txt 1 A16 G16
getliststring ..\questdiary\杀神制作\排序.txt 2 A17 G17
GMEXECUTE 开始提问 @重新分配
Goto @main
#elseact
Goto @main
break
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@开始SJ]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX 测试区无法捐献!
break
#IF
equal U21 5
#ACT
MESSAGEBOX 您已经捐献过了，且永久增加属性!
break
#IF
CHECKGAMEDIAMOND < 300
#ACT
MESSAGEBOX 当前旷世币不够！
break
#IF
CHECKGAMEDIAMOND > 299
#ACT
GAMEDIAMOND - 300
GiveFengHao 见习卐武者 1
Give 刀刀切割[永久] 1
Give 刀刀冰冻[永久] 1
Give 九重刺杀
Give 九重烈火
Give 九重逐日
Give 九重开天
AddsKill 野蛮冲撞 3
AddsKill 施毒术 3
MOV U21 5
INC G499 300
goto @计入沙奖池
GOTO @main
break
;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
[@计入沙奖池]
#if
checkvar human 捐献 > 4999
#act
INC G490 1
INC A490 ^250#<$USERNAME>
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
Break
#IF
CheckContainsText <$SERVERNAME> 01区
#ACT
CLEARNAMELIST ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\一区.txt
AddTextListEx ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\一区.txt <$STR(G499)> 0
#IF
CheckContainsText <$SERVERNAME> 02区
#ACT
CLEARNAMELIST ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\二区.txt
AddTextListEx ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\二区.txt <$STR(G499)> 0
#IF
CheckContainsText <$SERVERNAME> 03区
#ACT
CLEARNAMELIST ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\三区.txt
AddTextListEx ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\三区.txt <$STR(G499)> 0
#IF
CheckContainsText <$SERVERNAME> 04区
#ACT
CLEARNAMELIST ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\四区.txt
AddTextListEx ..\..\..\..\杀神制作沙城捐献\捐献文本\<$STR(A21)>\四区.txt <$STR(G499)> 0
