GOM引擎沙城捐献脚本下载-传奇通区捐献脚本

admin

今天给大家分享一个GOM引擎沙城捐献脚本下载-传奇通区捐献脚本，大家可以拿来参考！

然后修改成符合您版本特色的脚本，不要直接拿过去用，说不定和你的版本不配套呢？

还是需要根据自己的版本具体情况来优化的！

[@沙城捐献]
{

#OR

#act
OPENMERCHANTBIGDLG 1 764 0 0 0 0 1 424 9
GetListString ........通区捐献<$STR(A99)>当前01区.txt 0 S$当前一区 S$捐献金额0
GetListString ........通区捐献<$STR(A99)>当前02区.txt 0 S$当前二区 S$捐献金额1
GetListString ........通区捐献<$STR(A99)>当前03区.txt 0 S$当前三区 S$捐献金额2
GetListString ........通区捐献<$STR(A99)>当前04区.txt 0 S$当前四区 S$捐献金额3
GetListString ........通区捐献<$STR(A99)>当前05区.txt 0 S$当前五区 S$捐献金额4
GetListString ........通区捐献<$STR(A99)>当前06区.txt 0 S$当前六区 S$捐献金额5
GetListString ........通区捐献<$STR(A99)>当前战区.txt 0 S$当前战区 S$捐献金额6
GetListString ........通区捐献<$STR(A99)>当前合区.txt 0 S$当前合区 S$捐献金额7
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)>
INC N$总金额 <$str(S$捐献金额5)>
INC N$总金额 <$str(S$捐献金额6)>
INC N$总金额 <$str(S$捐献金额7)>
DIV N$显示总金额 <$str(N$总金额)> 10
MUL N$显示总金额 6
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
SetStringBlank S$捐献金额5 5 1
SetStringBlank S$捐献金额6 5 1
SetStringBlank S$捐献金额7 5 1

#SAY
  
<>  <[新春贺岁]~/SCOLOR=251> <每个区捐献的60％自动累计到奖池内,分配给攻沙双方行会/SCOLOR=244>
<>   <欢迎使用[新春贺岁]系统，一次性捐款/AUTOCOLOR=218><[30RMB点]><即可获得奖励！/AUTOCOLOR=218><[查看称号奖励]|253#　[称号奖励属性介绍]
^249#①：怪爆率+20%
^249#②：基础血量+5000
^249#③：刀刀切割+8000
^249#④：1.10倍人物真实攻击
^249#⑤：切割倍数提升1倍
^249#⑥：90%的几率切割任何一制怪物１%血量/FCOLOR=249>\ 　　
<>  <奖励金额/SCOLOR=251> <捐献总额的60%/SCOLOR=254>{（<$STR(N$显示总金额)>RMB点）/FCOLOR=215}<将会用于新区攻城奖励！/SCOLOR=254>\
<>     <------------------------------------------------------------------/AUTOCOLOR=11>
<>      　   <当前一区已经累计奖池金额为：/AUTOCOLOR=242> <$STR(S$捐献金额0)>
<>           <当前二区已经累计奖池金额为：/AUTOCOLOR=242> <$STR(S$捐献金额1)>
<>      　   <当前三区已经累计奖池金额为：/AUTOCOLOR=242> <$STR(S$捐献金额2)>
<>     <------------------------------------------------------------------/AUTOCOLOR=11>
<>      　 <永久使用→><[激活捐献称号]|253#　[称号奖励属性介绍]
^249#①：怪爆率+20%
^249#②：基础血量+5000
^249#③：刀刀切割+8000
^249#④：1.10倍人物真实攻击
^249#⑤：切割倍数提升1倍
^249#⑥：90%的几率切割任何一制怪物１%血量/@捐献>              

<>       <进入捐献专属地图/@铩捐>  
<>  <累计的总奖励会根据实际情况分配给攻沙的双方行会,解释权归官方所有/AUTOCOLOR=254>

#IF
CheckContainsText <$SERVERNAME> 号区
#act
OPENMERCHANTBIGDLG 1 764 0 0 0 0 1 424 9
GetListString ........通区捐献<$STR(A99)>当前01区.txt 0 S$当前一区 S$捐献金额0
GetListString ........通区捐献<$STR(A99)>当前02区.txt 0 S$当前二区 S$捐献金额1
GetListString ........通区捐献<$STR(A99)>当前03区.txt 0 S$当前三区 S$捐献金额2
GetListString ........通区捐献<$STR(A99)>当前04区.txt 0 S$当前四区 S$捐献金额3
GetListString ........通区捐献<$STR(A99)>当前05区.txt 0 S$当前五区 S$捐献金额4
GetListString ........通区捐献<$STR(A99)>当前06区.txt 0 S$当前六区 S$捐献金额5
GetListString ........通区捐献<$STR(A99)>当前战区.txt 0 S$当前战区 S$捐献金额6
GetListString ........通区捐献<$STR(A99)>当前合区.txt 0 S$当前合区 S$捐献金额7
MOV N$总金额 0
INC N$总金额 <$str(S$捐献金额7)>
SetStringBlank S$当前一区 15 1
SetStringBlank S$当前二区 15 1
SetStringBlank S$当前三区 15 1
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
SetStringBlank S$捐献金额5 5 1
SetStringBlank S$捐献金额6 5 1
SetStringBlank S$捐献金额7 5 1


[@铩捐]
#IF
CHECKTITLE 新春贺岁
#ACT
Map Jxdt01x
SENDMSG 0 253 251 勇士{「<$USERNAME>」|254:0:1}闯入了{『沙捐专属地图』|250:0:1}开始传奇之旅!
#elseact
MESSAGEBOX 你还没有激活“新春贺岁”称号!
break


[@捐献]
#IF
CHECKTITLE 新春贺岁
#ACT
MESSAGEBOX 你已经激活了“新春贺岁”称号无需重复激活!
break

#IF
not CHECKGAMEPOINT > 29
#ACT
MESSAGEBOX 当前RMB点不够！
break

#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 号区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前合区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前合区.txt 当前合区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break

#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 1区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前01区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前01区.txt 当前一区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break


#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 2区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前02区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前02区.txt 当前二区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break

#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 3区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前03区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前03区.txt 当前三区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break

#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 4区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前04区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前04区.txt 当前四区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break

#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 5区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前05区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前05区.txt 当前五区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break


#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 06区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前06区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前06区.txt 当前六区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break


#IF
CHECKGAMEPOINT > 29
CheckContainsText <$SERVERNAME> 战区
#ACT
GAMEPOINT - 30
INC G100 30
CONFERTITLE 新春贺岁
SET [40] 1
#CALL [游戏登陆顶戴花翎.txt] @顶戴花翎
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！当前奖池总金额为：<$STR(N$显示总金额)>！
CLEARNAMELIST ........通区捐献<$STR(A99)>当前战区.txt
AddTextListEx ........通区捐献<$STR(A99)>当前战区.txt 当前战区:<$STR(G100)> 0
AddTextListEx ..QuestDiary捐献文件捐献数据.txt <$USERNAME> 0
GOTO @main
break
}

371514614

好东西啊，值得收藏

liuyuan8763899

既然你诚信诚意的推荐了，那我就勉为其难的看看吧！淘传奇gm基地不走平凡路。

q335100

其实我一直觉得楼主的品味不错！呵呵！淘传奇gm基地太棒了！