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

admin

[@沙城捐献]
{

#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>\
<>    　 <New-⊙◢/SCOLOR=251>  <当前一区已经累计奖池金额为：/AUTOCOLOR=242> <$STR(S$捐献金额0)> <RMB点/AUTOCOLOR=242>\
<>       <New-⊙◢/SCOLOR=251>  <当前二区已经累计奖池金额为：/AUTOCOLOR=242> <$STR(S$捐献金额1)> <RMB点/AUTOCOLOR=242>\
<>    　 <New-⊙◢/SCOLOR=251>  <当前三区已经累计奖池金额为：/AUTOCOLOR=242> <$STR(S$捐献金额2)> <RMB点/AUTOCOLOR=242>\
<>    <------------------------------------------------------------------/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
}

3036 · 发表于 2022-8-13 22:45:26

摇一摇摇一摇摇一摇摇一摇摇一摇

3036 · 发表于 2022-8-13 22:45:43

摇一摇摇一摇摇一摇摇一摇摇一摇

3036 · 发表于 2022-8-13 22:47:57

摇一摇摇一摇摇一摇摇一摇摇一摇

3036 · 发表于 2022-8-14 02:01:22

强烈支持楼主ing……

小莫丶 · 发表于 2022-11-8 03:24:13

强烈支持楼主ing……

小桥流水 · 发表于 2023-1-5 00:11:11

太生气了，无法HOLD啦 >_<......

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

相关帖子

云产品限时秒杀，首年99元

【腾讯云】云产品限时秒杀，爆款1核2G云服务器，首年99元