admin 发表于 2021-3-15 20:04:24

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><><即可获得奖励！/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 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 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 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 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 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 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 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 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










}

shi5023 发表于 2021-7-21 21:47:03

强烈支持楼主ing……

9967615 发表于 2023-5-22 14:34:56

这脚本很给力！

XX147123 发表于 2023-5-24 13:56:12

666666666666666

az5517210 发表于 2023-9-7 15:02:34

顶顶顶顶顶顶顶顶顶顶

az5517210 发表于 2023-9-7 15:03:09

强烈支持楼主ing……
页: [1]
查看完整版本: GOM引擎沙城捐献脚本下载-传奇通区捐献脚本