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

2 W# A$ z" k$ w2 H% t  j' D2 r
2 \* l$ D' H, m, q  {. q4 N
第一步：在QM[@STARTUP]字段下方加入以下脚本
* ?& I: C' I  a) f5 i+ c& B


5 N5 P8 u, W: p" [+ W. _# i, n+ M[@STARTUP]
#IF
EQUAL A101
4 z- w1 @1 j# Y4 z#ACT
1 I6 O# N) L- D( k5 ~" SMOV A101 <$MONTH>0<$DAY>
  [) ^( E2 s4 p0 o* x$ R

#IF
6 L2 Q! n* w- t3 n+ p$ vNOT CHECKTEXTLIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录
#act
( h5 V  L7 f* u$ V+ I6 n/ D% pForceDirectories  ..\..\..\..\虞姬传奇捐献\
' S3 |+ n6 l6 i: g" t) t8 GForceDirectories  ..\..\..\..\虞姬传奇捐献\<$MONTH>0<$DAY>\
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录 0
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
9 V+ n+ [  _; a* y% U& eCreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
$ s; q$ q3 _* H) ]$ SCreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt
8 q% f. R4 x: T- zCreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt
. p5 n9 y8 a/ P4 |CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:0 0
# ~' y% E  S$ d1 W' u1 MAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:0 0
' Q+ L6 y$ [8 y# Z8 CAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:0 0
* ~7 H2 i3 v! a0 L: m' j9 M1 M4 EAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:0 0
9 F; W1 \& ~& |; F  E: @AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:0 0
1 {0 P7 X3 I7 m" l( mAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:0 0
3 D( U* V: ]! R4 X4 K+ W


0 m( H7 n& Z* v* O  I& v: G' n第二步：直接复制NPC脚本即可，脚本可以直接使用，但属性需要根据脚本自己写，脚本如下
) F+ _% Y: p" L: W" q5 m5 L2 c) h


0 L: O! G; `; M* G7 }[@DS公益捐献]
{
#IF
3 \' [9 ]% o, |" t, Q5 c#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
4 @! c' t4 D, w9 F& L) X2 w- s) DGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 0 S$今日四区 S$捐献金额3
4 Z7 U1 r, d1 W& FGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 0 S$今日五区 S$捐献金额4
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 0 S$今日通宵区 S$捐献金额5
: {: @8 r1 v$ ?: c) B

MOV N$总金额 0
3 a8 \6 z6 K$ i) eINC N$总金额 <$str(S$捐献金额0)>
INC N$总金额 <$str(S$捐献金额1)>
; R& a! e3 L  \, nINC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
* q1 g5 ]7 F  J- l& C1 b0 cINC N$总金额 <$str(S$捐献金额4)>
INC N$总金额 <$str(S$捐献金额5)>
; j( j+ Z) s7 v) y$ X! H! iMOV S$总共捐献值 <$STR(N$总捐献)>


SetStringBlank S$今日一区 15 1
SetStringBlank S$今日二区 15 1
SetStringBlank S$今日三区 15 1
SetStringBlank S$今日四区 15 1
SetStringBlank S$今日五区 15 1
; x4 v5 @( o% E: n9 k+ uSetStringBlank S$今日通宵区 15 1


/ U5 s7 e6 P7 Q- V/ l& qMov N$剩余金额奖励 <$STR(N$总金额)>
5 ?2 M6 k+ x9 `! C, `- m: D3 C9 ODiv N$剩余金额奖励 10
7 w3 |' K% `& j4 `" LMul N$剩余金额奖励 6
Mov N$胜利方奖励 <$STR(N$剩余金额奖励)>
, V# ?1 E+ |9 S+ A0 tDiv N$胜利方奖励 10
- v# l5 M* d: `5 e: E7 n* S( TMul N$胜利方奖励 7
: w9 B, o  s# [) t4 [/ T9 d( e% X' MMov N$失败方奖励 <$STR(N$剩余金额奖励)>
Div N$失败方奖励 10
Mul N$失败方奖励 3

% T) I; K5 l: z) P: F
SetStringBlank S$捐献金额0 5 1
SetStringBlank S$捐献金额1 5 1
. N# j4 ~3 N  ~. i# v8 E8 QSetStringBlank S$捐献金额2 5 1
7 M( B* m( _9 T7 D! B! M; G0 wSetStringBlank S$捐献金额3 5 1
* ^2 r0 u- z! T% A7 t. ^SetStringBlank S$捐献金额4 5 1
SetStringBlank S$捐献金额5 5 1


#IF
#ACT
8 O+ Q7 C" ~( K+ p! U7 N& COPENMERCHANTBIGDLG 16 130 1 4 0 0 1 590 2
#say
\ \ \
; i, _1 P; ?: }- {! i: B< >              <公益捐献.非强制.拥有快人一步>          <当前今天所有区总捐献> [<$STR(N$总金额)>] <元> \
, h* t0 Q) m% g9 V< >              <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> <您当前RMB点为/SCOLOR=250>< <$GAMEPOINT> 元/FCOLOR=254> \
< >              <沙城奖池系统 可获得 [永久属性] 死亡不掉 合区不掉 永久生效！>\  \
' }! s4 y/ m* H! X/ F, `( u& B< >              <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>\
* `& k1 f$ j8 j$ b9 l< >              <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>\
& a8 j8 d! f2 n$ E6 H3 p+ C! v< >              <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>\ \
7 l7 f0 }/ H7 [6 U% Z\ \                                  <ImgEx:1:879:879:879:67:-5|250#需４０ＲＭＢ/@KQKBZT>\ \  \
& u# D/ k  L3 B. p3 e# U< >                   <红包金额根据当天的捐献作为基数，金额累积到1万奖励追加到80% /SCOLOR=253>\
6 V/ U6 l! |. _3 }+ p< >                   <获胜指挥128红包  失败指挥68红包从奖池中扣除/SCOLOR=253>\
, y; D; _/ c# I3 e. O$ }< >                   <沙城胜利行会获得奖池70%的金额，失败方奖励为30%的金额，/SCOLOR=253>\
< >                   <只允许有一个失败方  如有2个或2个以上失败方，失败方以捐献号人多为准/SCOLOR=253>\  \
< >              <当天所有区捐献总额用来发放合区攻城奖励.扣除40%用作平台手续剩余:/SCOLOR=254>[<$STR(N$剩余金额奖励)>] <元>\
< >                    <奖励规则：胜利方获得总额的70%/SCOLOR=254>[<$STR(N$胜利方奖励)>] <元>.<失败方获得总额的30%/SCOLOR=254>[<$STR(N$失败方奖励)>] <元>\ \

! l5 G+ @& A, s# }6 q7 ?% x
[@ZSDBDT]
#IF
CHECKTITLE 公益捐献
8 Q: u2 {, I( O; P- C' E( g9 m#ACT
map 沙城专属
SendCenterMsg 250 0 捐献玩家『<$USERNAME>』进入公益捐献地图打宝去了，超级神器等着他！ 1 3
- S+ e- F& G9 q. c6 mbreak
#ELSEACT
3 E5 e3 j# ?5 R4 n) E( S' Q" _1 KMESSAGEBOX 进入失败，条件不符！
: X$ O  T/ p. D% |: r4 ~

/ e9 D' X1 S( G6 t# J) I[@KQKBZT]
#IF
CHECKTITLE 公益捐献
#ACT
MESSAGEBOX 你已经捐献过了，不可重复捐献！
$ Q" ~: f- k8 R, m! N$ X, t. H* Q4 Nbreak
1 Q8 O4 n  F& {2 p$ |/ ^

& C/ t3 p# ]# h; }; Q0 L5 H+ h#IF
CHECKGAMEPOINT > 39
#act
" s5 F3 ]: a' i4 n7 PGAMEPOINT - 40
INC G235 40
1 r$ n7 C  l' X0 Z0 `  ]. R4 fINC G43 1
CONFERTITLE 公益使者
; C! ~8 f2 X2 o8 s& g- Q( x" JCONFERTITLE 公益捐献
# o" ?* t/ G& D) U#CALL [\游戏登陆\爆率倍数.txt] @爆率倍数
6 h; ?1 ]/ r4 s9 O; q9 q0 \" b  ]#CALL [\游戏登陆\攻击倍数.txt] @攻击倍数
, ?- O! w  x) u- g/ kSENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！保底奖励3888，捐献不够管理来凑！>！
goto @DS公益捐献
#ELSEACT
messagebox 当前RMB点不够,无法开启公益捐献！
$ l) t9 \) x! y8 E; pBREAK
4 m* O7 `. ?/ N+ K9 N! C8 B
9 Q* X8 z; e+ X0 d6 e9 o# r2 t: _
) y6 Z) P+ r- I' ]#IF
6 L( `2 A/ E  _2 O- c! cCheckContainsText <$SERVERNAME> 01区
: w9 f. Y2 Z0 I1 I* \4 }3 b#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:<$STR(G235)> 0
goto @DS公益捐献
, K# M4 j+ l) F+ q' p( _, bbreak

* Y! {! \. E( ]. h# M% P
#IF
CheckContainsText <$SERVERNAME> 02区
' X, B% d# A+ ~$ X1 ?6 n#ACT
( y; A3 ~6 C/ z& K' c+ jCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:<$STR(G235)> 0
goto @DS公益捐献
break
# i: n& @. @+ [# D1 F. f4 M

#IF
CheckContainsText <$SERVERNAME> 03区
. {, ~0 B8 T" w* S. P#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:<$STR(G235)> 0
3 w( g7 Z$ v" G; Q9 k' wgoto @DS公益捐献
break

1 K# s; Z$ G" l- c' b. E
#IF
CheckContainsText <$SERVERNAME> 04区
  m; G4 S& p/ E#ACT
7 K: H3 `. _! n) H' f2 sCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:<$STR(G235)> 0
; h" \5 ^; A- I& d! p0 Ogoto @DS公益捐献
break


#IF
3 f' o6 N% W. \CheckContainsText <$SERVERNAME> 05区
#ACT
& V! m6 h  K  V  TCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:<$STR(G235)> 0
goto @DS公益捐献
break

/ e) v) m# ]- G  y8 o* c7 a9 F5 _
#IF
CheckContainsText <$SERVERNAME> 通宵区
#ACT
: B9 M+ z* N- p6 I. VCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:<$STR(G235)> 0
goto @DS公益捐献
$ @" V) ?8 Y) A8 b# Qbreak
}

111111111111111111

士大夫是十分士大夫

M2各种报错