发帖
查看: 214|回复: 0

GOM通区捐献脚本

[复制链接]
QQ截图20210513142636.jpg
游客,如果您要查看本帖隐藏内容请回复



[@main]
#if
#Act
MOV A100 <$YEAR><$MONTH><$DAY>
MOV N$区1 0
MOV N$区2 0
MOV N$区3 0
MOV N$区4 0
Getliststring ..\..\..\..\通区文本\沙城捐献\<$str(a100)>\1区.txt 0 N$区1
Getliststring ..\..\..\..\通区文本\沙城捐献\<$str(a100)>\2区.txt 0 N$区2
Getliststring ..\..\..\..\通区文本\沙城捐献\<$str(a100)>\3区.txt 0 N$区3
Getliststring ..\..\..\..\通区文本\沙城捐献\<$str(a100)>\4区.txt 0 N$区4
MOV <$str(N$总计)> <$str(N$区1)>
INC <$str(N$总计)> <$str(N$区2)>
INC <$str(N$总计)> <$str(N$区3)>
INC <$str(N$总计)> <$str(N$区4)>
SENDMSG 7 <$str(a100)>
#IF
#Act
OPENMERCHANTBIGDLG 32 30 1 0 0 0 0 0 0
#SAY
<ImgEx:32:36:37:38:371:-8/@Exit>\ \
<>        <当前所有捐献扣除30%手续费之后,全部发放沙巴克奖励!/FCOLOR=253>\
<>                  <(胜利方:60%,失败方:40%)/FCOLOR=250>\
<>                 <拿沙奖励:新区拿沙奖励上不封顶/FCOLOR=253>\
<>             <合区后清空捐献奖池 /FCOLOR=253><★ /FCOLOR=250><捐献累积值公平公开!/FCOLOR=253>\ \
<><=================================================================/FCOLOR=254>\
<><捐献奖励:/FCOLOR=253><爆率+100% 倍攻+1.1倍 切割+2000 护体神盾/FCOLOR=254>\
<><捐献条件:/FCOLOR=253><金币300个,增加属性持续时间48小时/FCOLOR=254>\ \
<><今日一区:捐献总额/FCOLOR=250>    <【/FCOLOR=249><$str(N$区1)><】/FCOLOR=249> <金币/FCOLOR=250>\
<><今日二区:捐献总额/FCOLOR=250>    <【/FCOLOR=249><$str(N$区2)><】/FCOLOR=249> <金币/FCOLOR=250>\
<><今日三区:捐献总额/FCOLOR=250>    <【/FCOLOR=249><$str(N$区3)><】/FCOLOR=249> <金币/FCOLOR=250>\
<><今日四区:捐献总额/FCOLOR=250>    <【/FCOLOR=249><$str(N$区4)><】/FCOLOR=249> <金币/FCOLOR=250>\ \
<><所有区捐献奖池总额:/FCOLOR=253>  <【/FCOLOR=249><$str(N$总计)><】/FCOLOR=249> <金币/FCOLOR=250>             <我要捐款/@我要捐款azq>\ \












[@我要捐款azq]
#if
NOT checkgold  300
#Act
MESSAGEBOX [开启失败]:\ \      1.你当前金币不足300个,无法捐献!
Break


#IF
CheckContainsText <$str(A1)> 测试
#ACT
MESSAGEBOX [操作提示]:\ \      1.测试区无法捐献.....
Break


#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\神墓制作\地图捐献\捐献名单.txt 1 S$1 N$1 N$2 N$3
#ACT
MESSAGEBOX [操作提示]:\ \      1.你已开启了沙城捐献.....\ \      你的捐献到期时间是<$STR(S1)>\ \      请捐献时间到期后再来续费
Break




#if
checkgold  300
#act
take 金币 300
ADDNAMEDATETIMELIST ..\QuestDiary\神墓制作\地图捐献\捐献名单.txt 0 48 0
MESSAGEBOX 增加48小时0分
CALCVAR HUMAN 个人消费统计 + 30
SAVEVAR HUMAN 个人消费统计 ..\QuestDiary\神墓制作\个人消费\个人消费统计.txt
SortHumVarToListEx 个人消费统计 ..\QuestDiary\神墓制作\个人消费\个人消费统计.txt 1 ..\QuestDiary\神墓制作\个人消费\个人消费排行.txt 1
goto @通区公告
Break
#elseact
MESSAGEBOX 错误\\金币不足!
Break


[@通区公告]


#IF
CheckContainsText <$SERVERNAME> 1区
#Act
MOV S$分区 1区


#IF
CheckContainsText <$SERVERNAME> 2区
#Act
MOV S$分区 2区


#IF
CheckContainsText <$SERVERNAME> 3区
#Act
MOV S$分区 3区


#IF
CheckContainsText <$SERVERNAME> 4区
#Act
MOV S$分区 4区




#IF
#ACT
ADDSKILL 护体神盾
SKILLLEVEL 护体神盾 = 3
Getliststring ..\..\..\..\通区文本\沙城捐献\<$str(a100)>\<$str(S$分区)>.txt 0 N$本区
clearnamelist ..\..\..\..\通区文本\沙城捐献\<$str(a100)>\<$str(S$分区)>.txt
Inc N$本区 300
Addtextlistex ..\..\..\..\通区文本\沙城捐献\<$str(a100)>\<$str(S$分区)>.txt <$str(N$本区)> 0
MESSAGEBOX [操作提示]:\ \      你已捐献成功,属性持续时间增加48小时!
Sendmsg 0 玩家[<$Username>]为沙巴克奖池捐献了300金币!!本区沙奖池金额:<$str(N$本区)>金币。
Goto @Main






回复

使用道具 举报

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

本版积分规则