沙城捐献提示RMB不足,有问必答,润芒论坛

yugojiang 发表于 2020-10-5 15:46:08

沙城捐献提示RMB不足

沙城捐献提示RMB不足怎么解决脚本如下

[@沙城捐献1]
{
#IF
#act
OPENMERCHANTBIGDLG 53 3265 1 4 0 -100 0 0 0
OPENMERCHANTBIGDLG 61 1746 1 4 0 0 1 515 0
GetListString ..\..\..\..\通区捐献\<$STR(A11)>\今日01区.txt 0 S$今日首区 S$捐献金额0
GetListString ..\..\..\..\通区捐献\<$STR(A11)>\今日02区.txt 0 S$今日二区 S$捐献金额1
GetListString ..\..\..\..\通区捐献\<$STR(A11)>\今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ..\..\..\..\通区捐献\<$STR(A11)>\今日04区.txt 0 S$今日四区 S$捐献金额3
GetListString ..\..\..\..\通区捐献\<$STR(A11)>\今日05区.txt 0 S$今日五区 S$捐献金额4
MOV N$总金额 0
INC N$总金额 <$str(S$捐献金额0)>
INC N$总金额 <$str(S$捐献金额1)>
INC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
INC N$总金额 <$str(S$捐献金额4)>
SetStringBlank S$今日首区 15 1
SetStringBlank S$今日二区 15 1
SetStringBlank S$今日三区 15 1
SetStringBlank S$今日四区 15 1
SetStringBlank S$今日五区 15 1

SetStringBlank S$捐献金额0 5 1
SetStringBlank S$捐献金额1 5 1
SetStringBlank S$捐献金额2 5 1
SetStringBlank S$捐献金额3 5 1
SetStringBlank S$捐献金额4 5 1

#SAY
;<Img:0:2:400:48/@EXIT>\
\ \ \ \ \\ \

<>    <捐献总额的70%用于合区沙奖励/FCOLOR=254><胜利方70%/FCOLOR=116><失败方30%/FCOLOR=103> <捐献属性24小时内有效./SCOLOR=243>\
<>    <福利一:/SCOLOR=250><1.2倍元宝回收/SCOLOR=249> <福利二:/SCOLOR=250><1.3倍攻击/SCOLOR=253> <福利三:/SCOLOR=250><BOSS切割+1000/SCOLOR=254> <福利四:/SCOLOR=250><麻痹属性/SCOLOR=243>\
<>    <福利五:/SCOLOR=250><刀刀切割BOSS/SCOLOR=249> 0.15%<血量/SCOLOR=249><配合/SCOLOR=243><[天命]神器><最高可达/SCOLOR=243>0.45% \ \

<>             <★/SCOLOR=215> {<$STR(S$今日首区)>/FCOLOR=215}<已经累计沙城奖励[金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额0)>/FCOLOR=254} <元/FCOLOR=58>\
<>             <★/SCOLOR=215> {<$STR(S$今日二区)>/FCOLOR=215}<已经累计沙城奖励[金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额1)>/FCOLOR=254} <元/FCOLOR=58>\
<>             <★/SCOLOR=215> {<$STR(S$今日三区)>/FCOLOR=215}<已经累计沙城奖励[金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额2)>/FCOLOR=254} <元/FCOLOR=58>\
<>             <★/SCOLOR=215> {<$STR(S$今日四区)>/FCOLOR=215}<已经累计沙城奖励[金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额3)>/FCOLOR=254} <元/FCOLOR=58>\
　\　\
<>                <【沙奖首次捐献】|254#价格：需要300RMB点购买！/@刀刀切割1>                   <【二次捐献】|254#价格：需要100RMB点购买！/@合区二次1>\ \

<> <★[当天]沙城池总累计奖金！/SCOLOR=58> {<$STR(N$总金额)>/SCOLOR=254} <元/SCOLOR=58> <沙城奖励胜方70%败方百分之30% 扣除百分之30平台手续费/FCOLOR=250>\

<>       <┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13>\

<>             <合区攻沙前自行分配两个行会且人数不得差距过大./SCOLOR=251> <否则不发放奖励/SCOLOR=249> \

<>             <消极攻城/SCOLOR=245> <无激情/SCOLOR=249> <攻沙中踢人等情况/SCOLOR=254><奖励顺延到下次合区发放/SCOLOR=243>\

[@地图211]
#IF
checkcastlewar 0
#ACT
messagebox \　\正在攻城，无法进入地图！
BREAK

#IF
CHECK 1
#ACT
MAPMOVE ditu07 100 100
sendmsg 0 255 151 {勇士|253:0:1}{<$username>|215:0:1}{不畏艰险，|253:0:1}{闯入了|239:0:1}{%m|154:0:1}{地图，|239:0:1}{大量BOSS等待着他（她）！！|22:161:1}
close
BREAK

[@刀刀切割1]

#IF
CHECK 1
#act
messagebox 你已经捐献,无需重复捐献。
break

#IF
NOT CHECK 1
#ACT
MESSAGEBOX 对不起，你还尚未购买。
BREAK

#IF
CHECK 0
CHECKGAMEPOINT > 299
CheckContainsText <$SERVERNAME> 01区
#ACT
GAMEPOINT - 300
INC G19 300
SET 1
MOV T1 首捐完成
SENDMOVEMSG 0 249 251 350 1 ≮沙城奖池≯：感谢玩家『<$USERNAME>』为沙城奖池捐献300Rmb点
#CALL [\登陆\称号标识.txt] @称号标识
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A11)>\今日01区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A11)>\今日01区.txt 今日首区:<$STR(G19)> 0
GOTO @沙城捐献1
GOTO @记录时间
break

#IF
CHECKGAMEPOINT > 299
CheckContainsText <$SERVERNAME> 02区
#ACT
GAMEPOINT - 300
INC G19 300
SET 1
MOV T1 首捐完成
GOTO @记录时间
SENDMOVEMSG 0 249 251 350 1 ≮沙城奖池≯：感谢玩家『<$USERNAME>』为沙城奖池捐献300Rmb点
#CALL [\登陆\称号标识.txt] @称号标识
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A11)>\今日02区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A11)>\今日02区.txt 今日二区:<$STR(G19)> 0
GOTO @沙城捐献1
break

#IF
CHECKGAMEPOINT > 299
CheckContainsText <$SERVERNAME> 03区
#ACT
GAMEPOINT - 300
INC G19 300
SET 1
MOV T1 首捐完成
GOTO @记录时间
SENDMOVEMSG 0 249 251 350 1 ≮沙城奖池≯：感谢玩家『<$USERNAME>』为沙城奖池捐献300Rmb点
#CALL [\登陆\称号标识.txt] @称号标识
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A11)>\今日03区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A11)>\今日03区.txt 今日三区:<$STR(G19)> 0
GOTO @沙城捐献1
break

#IF
CHECKGAMEPOINT > 299
CheckContainsText <$SERVERNAME> 04区
#ACT
GAMEPOINT - 300
INC G19 300
SET 1
MOV T1 首捐完成
SENDMOVEMSG 0 249 251 350 1 ≮沙城奖池≯：感谢玩家『<$USERNAME>』为沙城奖池捐献300Rmb点
#CALL [\登陆\称号标识.txt] @称号标识
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A11)>\今日04区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A11)>\今日04区.txt 今日四区:<$STR(G19)> 0
GOTO @沙城捐献1
GOTO @记录时间
break

#IF
CHECKGAMEPOINT > 299
CheckContainsText <$SERVERNAME> 05区
#ACT
GAMEPOINT - 300
INC G19 100
SET 1
MOV T1 首捐完成
SENDMOVEMSG 0 249 251 350 1 ≮沙城奖池≯：感谢玩家『<$USERNAME>』为沙城奖池捐献300Rmb点
#CALL [\登陆\称号标识.txt] @称号标识
CLEARNAMELIST ..\..\..\..\通区捐献\<$STR(A11)>\今日05区.txt
AddTextListEx ..\..\..\..\通区捐献\<$STR(A11)>\今日05区.txt 今日五区:<$STR(G19)> 0
GOTO @沙城捐献1
GOTO @记录时间
break
#ELSEACT
messagebox RMB点不足！
break

[@合区二次1]
#IF
CHECK 1
#ACT
MESSAGEBOX 对不起，你已经捐献过了。
BREAK

#IF
NOT CHECK 1
#ACT
MESSAGEBOX 对不起，你还尚未购买。
BREAK

#IF
NOT EQUAL T1 首捐完成
#ACT
MESSAGEBOX 对不起，您还没有进行过首捐。
BREAK

#IF
CHECK 0
CHECKGAMEPOINT > 99
#ACT
GAMEPOINT - 100
SET 1
MOV N$增加奖池 10
MOV T1 首捐完成
SENDMOVEMSG 0 249 251 350 1 ≮沙城奖池≯：感谢玩家『<$USERNAME>』为沙城奖池捐献100Rmb点
#CALL [\登陆\称号标识.txt] @称号标识
GOTO @合区增加奖池
GOTO @记录时间
GOTO @沙城捐献1
#ELSEACT
MESSAGEBOX 对不起，RMB点不足！
BREAK

[@记录时间]
#OR
EQUAL <$MONTH> 1
EQUAL <$MONTH> 3
EQUAL <$MONTH> 5
EQUAL <$MONTH> 7
EQUAL <$MONTH> 8
EQUAL <$MONTH> 10
EQUAL <$MONTH> 12
#ACT
MOV N$月份天数 31

#OR
EQUAL <$MONTH> 4
EQUAL <$MONTH> 6
EQUAL <$MONTH> 9
EQUAL <$MONTH> 11
#ACT
MOV N$月份天数 30

#IF
EQUAL N$月份天数 30
EQUAL <$DAY> 30
#ACT
GOTO @转下月
BREAK

#IF
EQUAL N$月份天数 31
EQUAL <$DAY> 31
#ACT
GOTO @转下月
BREAK

#IF
EQUAL <$MONTH> 2
EQUAL <$DAY> 29
#ACT
GOTO @转下月
BREAK

#IF
EQUAL <$MONTH> 2
EQUAL <$DAY> 28
#ACT
GOTO @转下月
BREAK

#IF
EQUAL <$MONTH> 12
EQUAL N$月份天数 31
EQUAL <$DAY> 31
#ACT
GOTO @转下年
BREAK

#IF
#ACT
GOTO @正常日期
BREAK

[@转下年]
#IF
#ACT
MOV N$年份 <$YEAR>
INC N$年份 1
DEC N$年份 2010

#IF
#ACT
MOV S$月份 01

#IF
#ACT
MOV S$日期 01

#IF
SMALL <$HOUR> 10
#ACT
MOV S$小时 0<$HOUR>
#ELSEACT
MOV S$小时 <$HOUR>

#IF
SMALL <$MINUTE> 10
#ACT
MOV S$分钟 0<$MINUTE>
#ELSEACT
MOV S$分钟 <$MINUTE>

#IF
#ACT
MOV U23 <$STR(N$年份)><$STR(S$月份)><$STR(S$日期)><$STR(S$小时)><$STR(S$分钟)>
MOV T3 <$STR(S$日期)>日<$STR(S$小时)>:<$STR(S$分钟)>
BREAK

[@转下月]
#IF
#ACT
MOV N$年份 <$YEAR>
DEC N$年份 2010

#IF
#ACT
MOV N$月份 <$MONTH>
INC N$月份 1

#IF
SMALL N$月份 10
#ACT
MOV S$月份 0<$STR(N$月份)>
#ELSEACT
MOV S$月份 <$STR(N$月份)>

#IF
#ACT
MOV S$日期 01

#IF
SMALL <$HOUR> 10
#ACT
MOV S$小时 0<$HOUR>
#ELSEACT
MOV S$小时 <$HOUR>

#IF
SMALL <$MINUTE> 10
#ACT
MOV S$分钟 0<$MINUTE>
#ELSEACT
MOV S$分钟 <$MINUTE>

#IF
#ACT
MOV U23 <$STR(N$年份)><$STR(S$月份)><$STR(S$日期)><$STR(S$小时)><$STR(S$分钟)>
MOV T3 <$STR(S$日期)>日<$STR(S$小时)>:<$STR(S$分钟)>
BREAK

[@正常日期]
#IF
#ACT
MOV N$年份 <$YEAR>
DEC N$年份 2010

#IF
SMALL <$MONTH> 10
#ACT
MOV S$月份 0<$MONTH>
#ELSEACT
MOV S$月份 <$MONTH>

#IF
#ACT
MOV N$日期 <$DAY>
INC N$日期 1

#IF
SMALL N$日期 10
#ACT
MOV S$日期 0<$STR(N$日期)>
#ELSEACT
MOV S$日期 <$STR(N$日期)>

#IF
SMALL <$HOUR> 10
#ACT
MOV S$小时 0<$HOUR>
#ELSEACT
MOV S$小时 <$HOUR>

#IF
SMALL <$MINUTE> 10
#ACT
MOV S$分钟 0<$MINUTE>
#ELSEACT
MOV S$分钟 <$MINUTE>

#IF
#ACT
MOV U23 <$STR(N$年份)><$STR(S$月份)><$STR(S$日期)><$STR(S$小时)><$STR(S$分钟)>
MOV T3 <$STR(S$日期)>日<$STR(S$小时)>:<$STR(S$分钟)>
BREAK

}

l6233305 发表于 2020-10-17 13:11:07

单机无法捐献怎么办？？

l8476266 发表于 2020-11-4 12:14:00

l6233305 发表于 2020-10-17 13:11
单机无法捐献怎么办？？

服务器名字改成。。。。01区加上区服就可以了

yugojiang 发表于 2021-1-10 22:47:43

l8476266 发表于 2020-11-4 12:14
服务器名字改成。。。。01区加上区服就可以了

谢谢,已经在网上查到了

Aquaman 发表于 2021-9-12 23:14:11

我也遇到这样的问题了，没解决，然后我把那个端删了，希望楼主看到能给新手一个解决办法。感谢！！！

页: [1]

润芒论坛's Archiver

沙城捐献提示RMB不足