GOM引擎传奇服务端沙城捐献脚本的制作教程
第一步：在QM[@STARTUP]字段下方加入以下脚本
[@STARTUP]
#IF
EQUAL A101
#ACT
MOV A101 <$MONTH>0<$DAY>
#IF
NOT CHECKTEXTLIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录
#act
ForceDirectories..\..\..\..\虞姬传奇捐献\
ForceDirectories..\..\..\..\虞姬传奇捐献\<$MONTH>0<$DAY>\
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录 0
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:0 0
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:0 0
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:0 0
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:0 0
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:0 0
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:0 0
第二步：直接复制NPC脚本即可，脚本可以直接使用，但属性需要根据脚本自己写，脚本如下
[@DS公益捐献]
{
#IF
#ACT
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 0 S$今日一区 S$捐献金额0
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 0 S$今日二区 S$捐献金额1
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 0 S$今日四区 S$捐献金额3
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 0 S$今日五区 S$捐献金额4
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 0 S$今日通宵区 S$捐献金额5
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)>
MOV S$总共捐献值 <$STR(N$总捐献)>
SetStringBlank S$今日一区 15 1
SetStringBlank S$今日二区 15 1
SetStringBlank S$今日三区 15 1
SetStringBlank S$今日四区 15 1
SetStringBlank S$今日五区 15 1
SetStringBlank S$今日通宵区 15 1
Mov N$剩余金额奖励 <$STR(N$总金额)>
Div N$剩余金额奖励 10
Mul N$剩余金额奖励 6
Mov N$胜利方奖励 <$STR(N$剩余金额奖励)>
Div N$胜利方奖励 10
Mul N$胜利方奖励 7
Mov N$失败方奖励 <$STR(N$剩余金额奖励)>
Div N$失败方奖励 10
Mul N$失败方奖励 3
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
#IF
#ACT
OPENMERCHANTBIGDLG 16 130 1 4 0 0 1 590 2
#say
\ \ \
< > <公益捐献.非强制.拥有快人一步> <当前今天所有区总捐献> [<$STR(N$总金额)>] <元> \
< > <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> <您当前RMB点为/SCOLOR=250>< <$GAMEPOINT> 元/FCOLOR=254> \
< > <沙城奖池系统 可获得 [永久属性] 死亡不掉 合区不掉 永久生效！>\\
< > <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> {<$STR(S$今日一区)>/FCOLOR=251} <按列表时间开区/FCOLOR=70> <已累计沙城奖励 [金额] 为/FCOLOR=250>< <$STR(S$捐献金额0)> /FCOLOR=254><元/FCOLOR=58>\
< > <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> {<$STR(S$今日二区)>/FCOLOR=251} <按列表时间开区/FCOLOR=70> <已累计沙城奖励 [金额] 为/FCOLOR=250>< <$STR(S$捐献金额1)> /FCOLOR=254><元/FCOLOR=58>\
< > <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> {<$STR(S$今日三区)>/FCOLOR=251} <按列表时间开区/FCOLOR=70> <已累计沙城奖励 [金额] 为/FCOLOR=250>< <$STR(S$捐献金额2)> /FCOLOR=254><元/FCOLOR=58>\
< > <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> {<$STR(S$今日四区)>/FCOLOR=251} <按列表时间开区/FCOLOR=70> <已累计沙城奖励 [金额] 为/FCOLOR=250>< <$STR(S$捐献金额3)> /FCOLOR=254><元/FCOLOR=58>\
< > <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> {<$STR(S$今日五区)>/FCOLOR=251} <按列表时间开区/FCOLOR=70> <已累计沙城奖励 [金额] 为/FCOLOR=250>< <$STR(S$捐献金额4)> /FCOLOR=254><元/FCOLOR=58>\
< > <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> {<$STR(S$今日通宵区)>/FCOLOR=251} <按列表时间开区/FCOLOR=70> <已累计沙城奖励 [金额] 为/FCOLOR=250>< <$STR(S$捐献金额5)> /FCOLOR=254><元/FCOLOR=58>\ \
< > <捐献永久获得：/FCOLOR=151> <吸收伤害加20%,增加3.0倍真实爆率,对所有boss伤害提升3倍伤害刀刀切割/FCOLOR=151>\ \
\ \ <ImgEx:1:879:879:879:67:-5|250#需４０ＲＭＢ/@KQKBZT>\ \\
< > <红包金额根据当天的捐献作为基数，金额累积到1万奖励追加到80% /SCOLOR=253>\
< > <获胜指挥128红包失败指挥68红包从奖池中扣除/SCOLOR=253>\
< > <沙城胜利行会获得奖池70%的金额，失败方奖励为30%的金额，/SCOLOR=253>\
< > <只允许有一个失败方如有2个或2个以上失败方，失败方以捐献号人多为准/SCOLOR=253>\\
< > <当天所有区捐献总额用来发放合区攻城奖励.扣除40%用作平台手续剩余:/SCOLOR=254>[<$STR(N$剩余金额奖励)>] <元>\
< > <奖励规则：胜利方获得总额的70%/SCOLOR=254>[<$STR(N$胜利方奖励)>] <元>.<失败方获得总额的30%/SCOLOR=254>[<$STR(N$失败方奖励)>] <元>\ \
[@ZSDBDT]
#IF
CHECKTITLE 公益捐献
#ACT
map 沙城专属
SendCenterMsg 250 0 捐献玩家『<$USERNAME>』进入公益捐献地图打宝去了，超级神器等着他！ 1 3
break
#ELSEACT
MESSAGEBOX 进入失败，条件不符！
[@KQKBZT]
#IF
CHECKTITLE 公益捐献
#ACT
MESSAGEBOX 你已经捐献过了，不可重复捐献！
break
#IF
CHECKGAMEPOINT > 39
#act
GAMEPOINT - 40
INC G235 40
INC G43 1
CONFERTITLE 公益使者
CONFERTITLE 公益捐献
#CALL [\游戏登陆\爆率倍数.txt] @爆率倍数
#CALL [\游戏登陆\攻击倍数.txt] @攻击倍数
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！保底奖励3888，捐献不够管理来凑！>！
goto @DS公益捐献
#ELSEACT
messagebox 当前RMB点不够,无法开启公益捐献！
BREAK
#IF
CheckContainsText <$SERVERNAME> 01区
#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:<$STR(G235)> 0
goto @DS公益捐献
break
#IF
CheckContainsText <$SERVERNAME> 02区
#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:<$STR(G235)> 0
goto @DS公益捐献
break
#IF
CheckContainsText <$SERVERNAME> 03区
#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:<$STR(G235)> 0
goto @DS公益捐献
break
#IF
CheckContainsText <$SERVERNAME> 04区
#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:<$STR(G235)> 0
goto @DS公益捐献
break
#IF
CheckContainsText <$SERVERNAME> 05区
#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:<$STR(G235)> 0
goto @DS公益捐献
break
#IF
CheckContainsText <$SERVERNAME> 通宵区
#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:<$STR(G235)> 0
goto @DS公益捐献
break
} 谢谢楼主！ 比较全的传奇脚本分享网站，站长辛苦了。 谢谢楼主！ 谢谢.脚本收到.很好用 这东西我收了！ 很专业的很全面的gm论坛 楼主发贴辛苦了，谢谢楼主分享！感谢楼主提供这么好的论坛！ 这个帖子不回对不起自己！ 谢谢楼主！