新BLUE引擎沙城捐献脚本

[@main]
#IF
EQUAL A40
#ACT
MOV A40 <$MONTH>-<$DAY>


#IF
CHECKLEVELEX > 0
#ACT
INI_RELOAD ..\..\..\..\沙城捐献\<$str(A40)>.ini HardDisk
INI_READ_INTEGER ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日01区 P1
INI_READ_INTEGER ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日02区 P2
INI_READ_INTEGER ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日03区 P3
INI_READ_INTEGER ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日04区 P4
INI_READ_INTEGER ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日05区 P5
INI_READ_INTEGER ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙总奖励 总奖金额 M1
MOV M总金额 <$STR(M1)>
MOV M01区金额 <$STR(P1)>
MOV M02区金额 <$STR(P2)>
MOV M03区金额 <$STR(P3)>
MOV M04区金额 <$STR(P4)>
MOV M05区金额 <$STR(P5)>
SetMerchantDlgImgName d6.png
#Say
<>        <COLOR=$000000FB 〝><COLOR=$000000FB ☆> <COLOR=$000000DC 2 0 2 6 ·><COLOR=$00004ACE 天><COLOR=$000077FF 刃><COLOR=$004AA5EF 合><COLOR=$0000A5DE 击><COLOR=$0000E7F7 ·授权品牌><COLOR=$0039DEF7 ·独家特色·><COLOR=$00004ACE 装><COLOR=$000077FF 备><COLOR=$004AA5EF 全><COLOR=$0000A5DE 爆><COLOR=$000000FB ·☆><COLOR=$000000FB 〞>\
<COLOR=clOlive ---------------------------------------------------------------------------->\
<>  <COLOR=clAqua ★★★><COLOR=$002AB4F0 沙城捐献><COLOR=clRed ·><COLOR=$002AB4F0 今日01区><COLOR=clAqua ★★★> <COLOR=$00FFAADD 当前沙城捐献金额：>[<$STR(M01区金额)>]<COLOR=$00FFAADD 元宝>\
<>  <COLOR=clAqua ★★★><COLOR=$002AB4F0 沙城捐献><COLOR=clRed ·><COLOR=$002AB4F0 今日02区><COLOR=clAqua ★★★> <COLOR=$00FFAADD 当前沙城捐献金额：>[<$Str(M02区金额)>]<COLOR=$00FFAADD 元宝>\
<>  <COLOR=clAqua ★★★><COLOR=$002AB4F0 沙城捐献><COLOR=clRed ·><COLOR=$002AB4F0 今日03区><COLOR=clAqua ★★★> <COLOR=$00FFAADD 当前沙城捐献金额：>[<$Str(M03区金额)>]<COLOR=$00FFAADD 元宝>\
<>  <COLOR=clAqua ★★★><COLOR=$002AB4F0 沙城捐献><COLOR=clRed ·><COLOR=$002AB4F0 今日04区><COLOR=clAqua ★★★> <COLOR=$00FFAADD 当前沙城捐献金额：>[<$Str(M04区金额)>]<COLOR=$00FFAADD 元宝>\
<>  <COLOR=clAqua ★★★><COLOR=$002AB4F0 沙城捐献><COLOR=clRed ·><COLOR=$002AB4F0 今日05区><COLOR=clAqua ★★★> <COLOR=$00FFAADD 当前沙城捐献金额：>[<$Str(M05区金额)>]<COLOR=$00FFAADD 元宝>\
<COLOR=clOlive ---------------------------------------------------------------------------->\\
<COLOR=clRed [当前累计捐献]：><$STR(M总金额) \
<COLOR=clOlive ---------------------------------------------------------------------------->\
<>                        <【沙城捐献 200元宝】/@捐献> \
<>     <COLOR=clAqua   获得属性：刀刀切割+200，攻魔道+10,自动挂机！>\
<COLOR=clOlive ---------------------------------------------------------------------------->\
<COLOR=clFuchsia 沙城奖励：首沙胜利方60%，失败方40% （管理费扣除30%）>\
<COLOR=clOlive ---------------------------------------------------------------------------->\
<COLOR=clRed 测试捐献：测试区可以捐献,数量不统计,正式区才统计.并获得以上属性>\
<COLOR=clRed 沙奖发放：扣除30%管理费用.胜利方获得60%奖励.失败方获得40%奖励>\
<COLOR=clRed 拿沙结束行会掌门找官方管理领取沙城奖励>\
<COLOR=clAqua 官方QQ:523113486>\

[@捐献]
#if
check [5] 1
#Act
MessageBox \　\　\　　　　　「提示」：您当前角色已经捐献，无法继续捐献
Close
Break


#IF
CHECKGAMEGOLD ? 200
#ACT
#ELSEact
MessageBox \　\　\　　　　　「提示」：您背包没有200元宝，无法捐献
Break


#IF
CheckContainsText <$SERVERNAME> 测试
CHECKGAMEGOLD ? 200
#ACT
GAMEGOLD - 200
SET [5] 1
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
GOTO @Main
break

#IF
CheckContainsText <$SERVERNAME> 05区
CHECKGAMEGOLD ? 200
#ACT
GAMEGOLD - 200
SET [5] 1
INI_RELOAD ..\..\..\..\沙城捐献\<$str(A40)>.ini HardDisk
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日05区 + 200
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙总奖励 总奖金额 + 200
INI_SAVE ..\..\..\..\沙城捐献\<$str(A40)>.ini
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
GOTO @Main
break

#IF
CheckContainsText <$SERVERNAME> 04区
CHECKGAMEGOLD ? 200
#ACT
GAMEGOLD - 200
SET [5] 1
INI_RELOAD ..\..\..\..\沙城捐献\<$str(A40)>.ini HardDisk
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日04区 + 200
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙总奖励 总奖金额 + 200
INI_SAVE ..\..\..\..\沙城捐献\<$str(A40)>.ini
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
GOTO @Main
break

#IF
CheckContainsText <$SERVERNAME> 03区
CHECKGAMEGOLD ? 200
#ACT
GAMEGOLD - 200
SET [5] 1
INI_RELOAD ..\..\..\..\沙城捐献\<$str(A40)>.ini HardDisk
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日03区 + 200
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙总奖励 总奖金额 + 200
INI_SAVE ..\..\..\..\沙城捐献\<$str(A40)>.ini
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
GOTO @Main
break

#IF
CheckContainsText <$SERVERNAME> 02区
CHECKGAMEGOLD ? 200
#ACT
GAMEGOLD - 200
SET [5] 1
INI_RELOAD ..\..\..\..\沙城捐献\<$str(A40)>.ini HardDisk
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日02区 + 200
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙总奖励 总奖金额 + 200
INI_SAVE ..\..\..\..\沙城捐献\<$str(A40)>.ini
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
GOTO @Main
break

#IF
CheckContainsText <$SERVERNAME> 01区
CHECKGAMEGOLD ? 200
#ACT
GAMEGOLD - 200
SET [5] 1
INI_RELOAD ..\..\..\..\沙城捐献\<$str(A40)>.ini HardDisk
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙城捐献 今日01区 + 200
INI_WRITE_INTEGER_EX ..\..\..\..\沙城捐献\<$str(A40)>.ini 沙总奖励 总奖金额 + 200
INI_SAVE ..\..\..\..\沙城捐献\<$str(A40)>.ini
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　200　】元宝! 151 249 10
GOTO @Main
break