找回密码
 立即注册
查看: 275|回复: 0

GOM引擎传奇服务端沙城捐献脚本的制作教程

[复制链接]
  • 打卡等级:热心大叔
  • 打卡总天数:308
  • 打卡月天数:6
  • 打卡总奖励:1564
  • 最近打卡:2024-09-22 12:44:36

859

主题

15

回帖

874

积分

管理员

积分
874
发表于 2023-11-8 23:35:03 | 显示全部楼层 |阅读模式
1.png




第一步:在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#需40RMB/@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
}


免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|小黑屋|白黑论坛 |网站地图

GMT+8, 2024-11-24 01:20 , Processed in 0.011108 second(s), 4 queries , Gzip On, Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表