关灯
开启左侧

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

[复制链接]
admin 发表于 2020-9-13 14:52:16 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
 
;--- 注意事项:
;--- 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

自由论坛(www.zybbk.com)所有资源均为网络分享,回复帖子即出现下载地址  QQ群: 40020916
回复

使用道具 举报

 

精彩评论2

正序浏览
ldpi52 发表于 2020-9-27 19:01:29 | 显示全部楼层
 

楼主太厉害了!楼主,I*老*虎*U!我觉得zybbk真是个好地方!
回复

使用道具 举报

 
wf10000 发表于 2020-10-15 18:32:56 | 显示全部楼层
 
楼主发贴辛苦了,谢谢楼主分享!我觉得zybbk是注册对了!
回复

使用道具 举报

 
懒得打字嘛,点击右侧快捷回复 www.zybbk.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


0关注

0粉丝

316帖子

排行榜

关注我们:手机浏览器扫描

手机访问

手机访问

联系方式:

0000-000-000

站长QQ:1006782340

唯一域名:www.zybbk.com

Email:1006782340#qq.com

Copyright   ©2010-2020  传奇论坛Powered by©Zybbk技术支持:Www.zybbk.Com