在传奇GOM引擎中，沙城捐献脚本提供了一个独特的机制，允许玩家通过捐献来增强自己的角色属性。通过捐献30游戏点，玩家可以获得显著的属性提升，包括人物爆率增加1000%和人物倍攻增加40%。此外，物抗和魔坑属性也将增加5%，并搭配一个专属称号，该称号无需佩戴即可实现属性叠加。
脚本的主要功能包括：
打开沙城捐献界面，显示各区的捐献金额。
计算并显示总捐献金额。
处理玩家的捐献请求，扣除相应的游戏点，并给予属性加成。
更新捐献记录，确保数据的准确性。
脚本：
传奇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}<已经累计沙城给予 [金额]⊙�S/SCOLOR=215> {<$STR(S$捐献金额0)>/FCOLOR=254} <元/FCOLOR=58>
<> {<$STR(S$今日二区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙�S/SCOLOR=215> {<$STR(S$捐献金额1)>/FCOLOR=254} <元/FCOLOR=58>
<> {<$STR(S$今日三区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙�S/SCOLOR=215> {<$STR(S$捐献金额2)>/FCOLOR=254} <元/FCOLOR=58>
<> {<$STR(S$今日四区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙�S/SCOLOR=215> {<$STR(S$捐献金额3)>/FCOLOR=254} <元/FCOLOR=58>
<> {<$STR(S$今日五区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙�S/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>
<> {<$STR(S$今日六区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙�S/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>
<> {<$STR(S$今日七区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙�S/SCOLOR=215> {<$STR(S$捐献金额4)>/FCOLOR=254} <元/FCOLOR=58>
<> {<$STR(S$今日八区)>/FCOLOR=215}<已经累计沙城给予 [金额]⊙�S/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
