沙城捐献提示RMB不足

ssg888

沙城捐献提示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 [30] 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 [30] 1
#act
messagebox 你已经捐献,无需重复捐献。
break

#IF
NOT CHECK [32] 1
#ACT
MESSAGEBOX 对不起，你还尚未购买[30元顶赞礼包]。
BREAK




#IF
CHECK [30] 0
CHECKGAMEPOINT > 299
CheckContainsText <$SERVERNAME> 01区
#ACT
GAMEPOINT - 300
INC G19 300
SET [30] 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 [30] 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 [30] 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 [30] 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 [30] 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 [30] 1
#ACT
MESSAGEBOX 对不起，你已经捐献过了。
BREAK


#IF
NOT CHECK [32] 1
#ACT
MESSAGEBOX 对不起，你还尚未购买[30元顶赞礼包]。
BREAK


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

#IF
CHECK [30] 0
CHECKGAMEPOINT > 99
#ACT
GAMEPOINT - 100
SET [30] 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







}

只叹丿不为初见乀

单机无法捐献怎么办？？

国庆灯具

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

益西多杰

谢谢,已经在网上查到了

妞给爷笑个

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

眠眠不觉量

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

chenxinwei

这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com

御风

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！