LEG引擎沙城捐献-自动认区

;--- 注意事项：
;--- 1.当天开放的第一个正式区默认为今日1区，以此类推！ 测试区不计算
;--- 2.测试区可捐献 捐献数量不统计！正式区才统计

;--- #IF
;--- check [167] 1
;--- #ACT
;--- 加载属性

;请注意检查自己的测试区的形式



[@main]
#IF
CHECKVAR GLOBAL 测试回收开区 > 0
#ACT
MOV M58 0
#ELSEACT
MOV M58 1

#IF
EQUAL A55
#ACT
MOV A55 <$DATETIME>
DEC A55 12 500
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-0.ini 999
dellinelist ..\..\..\..\捐献数据\<$STR(A55)>-0.ini 999
#IF
CHECKLEVELEX > 0
#ACT
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-0.ini S16
MOV M20 <$STR(S16)>
#IF
Small M20 1
#ACT
MOV M20 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-0.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-1.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-2.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-3.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-4.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-5.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-6.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-X.ini 0
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-0.ini
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-1.ini
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-2.ini
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-3.ini
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-4.ini
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-5.ini
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-6.ini
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-X.ini
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-0.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-1.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-2.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-3.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-4.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-5.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-6.ini 0
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-X.ini 0
;-------------------------------------------------------------------
#IF
EQUAL G56 0
EQUAL M58 1
#ACT
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-0.ini S16
MOV G56 <$STR(S16)>
INC G56 1
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-0.ini
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-0.ini <$STR(G56)>
;-------------------------------------------------------------------
#IF
CHECKLEVELEX > 0
#ACT
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-1.ini S16
MOV M51 <$STR(S16)>
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-2.ini S16
MOV M52 <$STR(S16)>
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-3.ini S16
MOV M53 <$STR(S16)>
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-4.ini S16
MOV M54 <$STR(S16)>
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-5.ini S16
MOV M55 <$STR(S16)>
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-6.ini S16
MOV M56 <$STR(S16)>
MOV M57 0
INC M51 1
INC M57 <$STR(M51)>
DEC M51 1
DEC M57 1
INC M52 1
INC M57 <$STR(M52)>
DEC M52 1
DEC M57 1
INC M53 1
INC M57 <$STR(M53)>
DEC M53 1
DEC M57 1
INC M54 1
INC M57 <$STR(M54)>
DEC M54 1
DEC M57 1
INC M55 1
INC M57 <$STR(M55)>
DEC M55 1
DEC M57 1
INC M56 1
INC M57 <$STR(M56)>
DEC M56 1
DEC M57 1
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-X.ini
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-X.ini <$STR(M57)>
;----------------------------------------------
#IF
CHECKLEVELEX > 0
#ACT
MOV S21 <$STR(A55)>
DEC S21 1 6
MOV S20 <COLOR=clLime
INC S20
INC S20 <$STR(S21)>
INC S20 >
MOV S21 <$STR(S20)>
#SAY
◆◆◆◆<COLOR=clRed 全新公益捐献沙奖励系统，每个号只可捐献一次>◆◆◆◆\
<COLOR=$003131FF 【><$STR(S21)><COLOR=clLime 一区><COLOR=$003131FF 】> <COLOR=$00FF92 已捐献累计到攻沙奖金池的人民币：[> <$STR(M51)> <COLOR=$00FF92 ]元>\
<COLOR=$003131FF 【><$STR(S21)><COLOR=clLime 二区><COLOR=$003131FF 】> <COLOR=$00FFD6 已捐献累计到攻沙奖金池的人民币：[> <$STR(M52)> <COLOR=$00FFD6 ]元>\
<COLOR=$003131FF 【><$STR(S21)><COLOR=clLime 三区><COLOR=$003131FF 】> <COLOR=$00FFF8 已捐献累计到攻沙奖金池的人民币：[> <$STR(M53)> <COLOR=$00FFF8 ]元>\
<COLOR=$003131FF 【><$STR(S21)><COLOR=clLime 四区><COLOR=$003131FF 】> <COLOR=$00D3FF 已捐献累计到攻沙奖金池的人民币：[> <$STR(M54)> <COLOR=$00D3FF ]元>\
<COLOR=$003131FF 公益说明：捐献只需要30金币> <COLOR=$003131FF 激活属性：攻击力0.3倍+攻魔道20点>\
<COLOR=$003131FF 首战首区攻沙奖励1888，每日新区攻沙红包588，老区每天300红包>\
<COLOR=$003131FF 胜利方奖励红包70%，失败方奖励红包30%，保底1888，不够我们补>\
<COLOR=clAqua 当前新区合区后沙巴克总奖励为：>[ <$STR(M57)> ]<COLOR=clAqua 元>    <COLOR=$004AA5EF [><立即捐献/@立即捐献><COLOR=$004AA5EF ]>\

[@立即捐献]
#IF
EQUAL M58 0
#ACT
;MESSAGEBOX ぐ失败：本区当前为〖测试区〗!\　\请正式开区后再捐献
;BREAK

#IF
LARGE G90 1
#ACT
;MESSAGEBOX ぐ失败：开区第三天关闭捐献!
;BREAK

#IF
check [167] 1
#ACT
MESSAGEBOX ぐ失败：你已经捐过了！！
BREAK

#IF
checkgold 30
#elseact
messagebox ぐ失败：你没那么多货币..
BREAK

#IF
EQUAL M58 0
#ACT
SET [167] 1
take 金币 30
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249 30
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249 30
#CALL [\\登陆\属性.txt] @SX
DELAYGOTO 10 @main
BREAK

#IF
EQUAL M58 1
#ACT
SET [167] 1
take 金币 30
ReadRandomLine ..\..\..\..\捐献数据\<$STR(A55)>-<$STR(M56)>.ini S16
MOV M6 <$STR(S16)>
INC M6 30
CLEARNAMELIST ..\..\..\..\捐献数据\<$STR(A55)>-<$STR(M56)>.ini
addlinelist ..\..\..\..\捐献数据\<$STR(A55)>-<$STR(M56)>.ini <$STR(M6)>
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249 30
SENDMSG 0 ぐ公益沙奖捐献：【%s】为公益沙奖池捐助了【　30　】元! 151 249 30
#CALL [\\登陆\属性.txt] @SX
DELAYGOTO 10 @main
BREAK

楼主太厉害了！楼主，I*老*虎*U！我觉得zybbk真是个好地方！

楼主发贴辛苦了，谢谢楼主分享！我觉得zybbk是注册对了！