2024-05-07
传奇GOM引擎沙城捐献脚本，爆率增加人物倍攻增加物抗魔坑专属称号，捐献为功宜捐献作为沙城给予，只需要30游戏点即可获得属性，人物爆率增加:1000%,人物倍攻增加:40%，物抗.魔坑+5%塔配某称号双减免捐献专属称号:无需佩戴属性叠加。
[@main]
#IF
#act
OPENMERCHANTBIGDLG 36 94 1 4 -20 -80 1 580 45
GetListString ........n598018通区捐献<$STR(A8)>今日01区.txt 0 S$今日首区 S$捐献金额0
GetListString ........n598018通区捐献<$STR(A8)>今日02区.txt 0 S$今日二区 S$捐献金额1
GetListString ........n598018通区捐献<$STR(A8)>今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ........n598018通区捐献<$STR(A8)>今日04区.txt 0 S$今日四区 S$捐献金额3
GetListString ........n598018通区捐献<$STR(A8)>今日05区.txt 0 S$今日五区 S$捐献金额4
GetListString ........n598018通区捐献<$STR(A8)>今日06区.txt 0 S$今日六区 S$捐献金额5
GetListString ........n598018通区捐献<$STR(A8)>今日07区.txt 0 S$今日七区 S$捐献金额6
GetListString ........n598018通区捐献<$STR(A8)>今日08区.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)>
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
#SAY
<>
{<$GAMEGLORY> 元/SCOLOR=254} <爽翻天沙城奖池系统，每人限一次！合区后关闭激活页面！/SCOLOR=241>
<>
<激活说明:本次捐献为功宜捐献作为沙城给予，只需要30游戏点即可获得属性！/SCOLOR=253>
<>
<人物爆率增加:1000%,人物倍攻增加:40%，物抗.魔坑+5%塔配某称号双减免捐献专属称号:无需佩戴属性叠加/SCOLOR=70>
<>
<人物爆率增加:1000%,人物倍攻增加:40%，物抗.魔坑+5%塔配某称号双减免捐献专属称号:无需佩戴属性叠加/SCOLOR=70>
<>
{<$STR(S$今日首区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额0)>/FCOLOR=254} <元/FCOLOR=58>
<>
{<$STR(S$今日二区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额1)>/FCOLOR=254} <元/FCOLOR=58>
<>
{<$STR(S$今日三区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额2)>/FCOLOR=254} <元/FCOLOR=58>
<>
{<$STR(S$今日四区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额3)>/FCOLOR=254} <元/FCOLOR=58>
<>
{<$STR(S$今日五区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>
<>
{<$STR(S$今日六区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>
<>
{<$STR(S$今日七区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>
<>
{<$STR(S$今日八区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>
<> 刷新抱BOSS<[进入功宜捐献地图]/@进入> <[捐献获得长期属性加成]/@开始捐献>
{<$STR(N$总金额)>/SCOLOR=254} <元/SCOLOR=58>
<>
<>
<>
[@进入]
#IF
CHECK [7] 1
#ACT
mapmove gycx 98 99
SENDMSG 0 251 241 {[功宜捐献地图]：|151:0:1}◆尊贵功宜捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『功宜捐献地图』|250:0:1}开始打宝，此地图刷新抱BOSS！！！
SENDMSG 0 251 241 {[功宜捐献地图]：|151:0:1}◆尊贵功宜捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『功宜捐献地图』|250:0:1}开始打宝，此地图刷新抱BOSS！！！
SENDMSG 0 251 241 {[功宜捐献地图]：|151:0:1}◆尊贵功宜捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『功宜捐献地图』|250:0:1}开始打宝，此地图刷新抱BOSS！！！
SENDMSG 0 251 241 {[功宜捐献地图]：|151:0:1}◆尊贵功宜捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『功宜捐献地图』|250:0:1}开始打宝，此地图刷新抱BOSS！！！
SENDMSG 0 251 241 {[功宜捐献地图]：|151:0:1}◆尊贵功宜捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『功宜捐献地图』|250:0:1}开始打宝，此地图刷新抱BOSS！！！
break
#elseact
messagebox 对不起!!!功宜捐献地图不是每个人都可以进的！!!必需捐献后才可以进入！
[@开始捐献]
;#IF
;CHECKTEXTLIST ..QuestDiary数据文件合区检测.txt 测试
;#ACT
;MESSAGEBOX 当前还是测试区无法捐献！
;break
;#IF
;CHECKTEXTLIST ..QuestDiary数据文件合区检测.txt 总区
;#ACT
;MESSAGEBOX 当前区已经合区了，捐献通道已关闭，务必合区前开通!
;break
#IF
Check [7] 1
#ACT
MESSAGEBOX 您已经捐献过了，且长期增加属性!
break
#IF
not CHECKGAMEGLORY > 29
#ACT
MESSAGEBOX 当前游戏币不够！
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 01区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日01区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日01区.txt 今日首区:<$STR(G8)> 0
GOTO @main
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 02区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日02区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日02区.txt 今日二区:<$STR(G8)> 0
GOTO @main
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 03区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日03区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日03区.txt 今日三区:<$STR(G8)> 0
GOTO @main
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 04区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日04区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日04区.txt 今日四区:<$STR(G8)> 0
GOTO @main
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 05区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日05区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日05区.txt 今日五区:<$STR(G8)> 0
GOTO @main
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 06区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日06区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日06区.txt 今日六区:<$STR(G8)> 0
GOTO @main
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 07区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日07区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日07区.txt 今日七区:<$STR(G8)> 0
GOTO @main
break
#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 08区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [封号系统属性更改.txt] @属性更改
SendMsg 6 恭喜你！捐献成功，获得长期属性加成！！！
CLEARNAMELIST ........n598018通区捐献<$STR(A8)>今日08区.txt
AddTextListEx ........n598018通区捐献<$STR(A8)>今日08区.txt 今日八区:<$STR(G8)> 0
GOTO @main
break
上一篇:
传奇脚本幸运击杀随机触发脚本
下一篇:
传奇行会竞价脚本提取来自西风烈服务端
