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

11.png

[@沙城捐献]
{

#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%的几率切割任何一制怪物1%血量/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%的几率切割任何一制怪物1%血量/@捐献>              

<>       <进入捐献专属地图/@铩捐>\ \ \
<>  <累计的总奖励会根据实际情况分配给攻沙的双方行会,解释权归官方所有/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
}



1. 本站所有资源来源于用户上传和网络,仅作为演示数据,如有侵权请邮件联系站长!
2. 本站主题作者QQ:1006782340,唯一购买官网:https://www.87ye.com!
3. 盗版,破解有损他人权益和违法作为,请各位站长支持正版!
4. 本站免费资源,不得用于商业用途,仅提供个人研究,下载后请24小时内删除!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则