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

- ?! n1 H7 g- }
第一步：在QM[@STARTUP]字段下方加入以下脚本
4 Z, G7 k' f$ @

$ q6 u# w2 |" Z6 |% U1 B- t
8 R: S# K. W4 E7 P; S, U! n[@STARTUP]
; E3 q- J) r1 S7 S1 y8 e2 s- ?! v#IF
EQUAL A101
#ACT
MOV A101 <$MONTH>0<$DAY>
( b- L, @7 E" P8 F0 F) J

' R- M; Q3 E" u) x/ t2 k#IF
  \6 G% X8 e8 ~6 t( T- s3 x8 sNOT CHECKTEXTLIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录
#act
5 C/ z8 A* F( ^: A/ qForceDirectories  ..\..\..\..\虞姬传奇捐献\
ForceDirectories  ..\..\..\..\虞姬传奇捐献\<$MONTH>0<$DAY>\
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt
2 l0 J2 `2 B! W$ C6 O& o6 u) K9 RAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录 0
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
  A, k+ f( G: l: {; ]CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
8 c/ }. m' h8 h6 O! W! ECreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:0 0
: N( |" o' c+ z+ ^) KAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:0 0
# V3 S% l! \0 E. B/ E; {# K7 kAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:0 0
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:0 0
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:0 0
+ t% i+ y8 h& |3 K1 sAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:0 0
7 j  P! X1 C9 T
# F6 K( ?. x- L: f* ^+ W; I
5 E. Y# B1 F5 K+ {
第二步：直接复制NPC脚本即可，脚本可以直接使用，但属性需要根据脚本自己写，脚本如下

" N: O: A+ b8 R5 {* _" k- ?

[@DS公益捐献]
{
#IF
#ACT
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 0 S$今日一区 S$捐献金额0
" @5 K( e. |  J# L& x) e" {GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 0 S$今日二区 S$捐献金额1
5 T% u3 `' c7 p/ c5 EGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 0 S$今日四区 S$捐献金额3
( S' x$ X# ~& N( T# O/ bGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 0 S$今日五区 S$捐献金额4
5 W: `. W; ~0 l! bGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 0 S$今日通宵区 S$捐献金额5


* ~3 E9 U1 n5 a9 z. gMOV N$总金额 0
INC N$总金额 <$str(S$捐献金额0)>
9 |2 l+ i$ U2 k- Z  CINC N$总金额 <$str(S$捐献金额1)>
& v& o, J* C8 w' u4 ^/ |) ZINC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
+ w4 s4 k! X% Q" JINC N$总金额 <$str(S$捐献金额4)>
, J$ T9 f# i& T! r+ `INC N$总金额 <$str(S$捐献金额5)>
" l8 A# e& w% kMOV S$总共捐献值 <$STR(N$总捐献)>


) {- a0 w7 Z6 Q# A+ P1 KSetStringBlank S$今日一区 15 1
- {4 U( @9 n, ]1 HSetStringBlank S$今日二区 15 1
" u0 A" g. r, t9 m1 \- x8 N- d: lSetStringBlank S$今日三区 15 1
( t, D& r: J3 qSetStringBlank S$今日四区 15 1
SetStringBlank S$今日五区 15 1
5 l1 _1 B1 F3 k6 {" a. Q/ W+ J" X/ C! eSetStringBlank S$今日通宵区 15 1


Mov N$剩余金额奖励 <$STR(N$总金额)>
Div N$剩余金额奖励 10
6 {: l7 E. C$ J; H+ ?' G+ Q! xMul N$剩余金额奖励 6
$ }4 ~: \: v- z+ x& C' s6 cMov N$胜利方奖励 <$STR(N$剩余金额奖励)>
: o# P3 X9 R/ tDiv N$胜利方奖励 10
Mul N$胜利方奖励 7
Mov N$失败方奖励 <$STR(N$剩余金额奖励)>
) X( M9 [) ~3 V# i+ XDiv N$失败方奖励 10
" n, f0 S# M: Q: E& Z/ _1 oMul N$失败方奖励 3
) O9 F: j5 ^9 r

SetStringBlank S$捐献金额0 5 1
SetStringBlank S$捐献金额1 5 1
SetStringBlank S$捐献金额2 5 1
0 v7 q" J  H! {2 T% u  @SetStringBlank S$捐献金额3 5 1
SetStringBlank S$捐献金额4 5 1
+ w; q  l( c* L5 w' RSetStringBlank S$捐献金额5 5 1
# |9 ^9 w3 ?8 e/ e" f4 I, h$ Z+ R
- `* R3 D1 f2 z. U# y
#IF
$ Y# v9 Z6 m7 ^! ~' o#ACT
. `* S2 m* [3 \$ p* u& POPENMERCHANTBIGDLG 16 130 1 4 0 0 1 590 2
#say
9 W+ h" [- e- ^7 t7 ?* y7 ~- c\ \ \
< >              <公益捐献.非强制.拥有快人一步>          <当前今天所有区总捐献> [<$STR(N$总金额)>] <元> \
* V1 {% _4 S% b5 G: _< >              <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> <您当前RMB点为/SCOLOR=250>< <$GAMEPOINT> 元/FCOLOR=254> \
< >              <沙城奖池系统 可获得 [永久属性] 死亡不掉 合区不掉 永久生效！>\  \
* Q! S3 ]; _8 E- z< >              <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>\
, o% N( v( t7 _% f! W< >              <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>\
( s- M3 w5 y' Z+ [< >              <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>\
% K, w# u- h; F) W+ j< >              <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>\
+ w0 \' t: ]5 y& D; C< >              <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>\
$ \6 f  s. x& b4 {3 Y< >                   <沙城胜利行会获得奖池70%的金额，失败方奖励为30%的金额，/SCOLOR=253>\
9 d; G# Y: C$ s) u4 ^& j- k< >                   <只允许有一个失败方  如有2个或2个以上失败方，失败方以捐献号人多为准/SCOLOR=253>\  \
< >              <当天所有区捐献总额用来发放合区攻城奖励.扣除40%用作平台手续剩余:/SCOLOR=254>[<$STR(N$剩余金额奖励)>] <元>\
< >                    <奖励规则：胜利方获得总额的70%/SCOLOR=254>[<$STR(N$胜利方奖励)>] <元>.<失败方获得总额的30%/SCOLOR=254>[<$STR(N$失败方奖励)>] <元>\ \

% U1 ]: L+ \8 y" O. D0 y
- I! j+ o& ]# r% J$ x[@ZSDBDT]
#IF
CHECKTITLE 公益捐献
* v1 N) S3 Z' ^* Y3 P#ACT
& a0 Z$ q1 H; Gmap 沙城专属
* v. [7 Q1 I* @6 `) [4 }) USendCenterMsg 250 0 捐献玩家『<$USERNAME>』进入公益捐献地图打宝去了，超级神器等着他！ 1 3
break
#ELSEACT
6 m! Z* b3 J- l, N" V- k) Y5 cMESSAGEBOX 进入失败，条件不符！

( a. @( z) e0 ^* c# F5 t
, @% k  O6 z1 o( x[@KQKBZT]
#IF
( T' |5 A( D, }; H$ ~CHECKTITLE 公益捐献
" s& }+ K+ U$ f  B1 W8 p#ACT
+ G3 V3 W/ f$ H/ s/ y3 r% `MESSAGEBOX 你已经捐献过了，不可重复捐献！
break


#IF
* i. b* q# y- P4 DCHECKGAMEPOINT > 39
3 _( x- v& U% V5 ^#act
" L& r  s- h  f. X4 |3 gGAMEPOINT - 40
INC G235 40
! Z) c' \4 L- X6 O) yINC G43 1
7 [& a0 Y8 t' _& W* [7 |CONFERTITLE 公益使者
CONFERTITLE 公益捐献
5 T  U: _. @: X2 g#CALL [\游戏登陆\爆率倍数.txt] @爆率倍数
#CALL [\游戏登陆\攻击倍数.txt] @攻击倍数
4 B: S! O8 Z  g. KSENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助！本服每日捐献狂暴将全部加入沙巴克奖池！保底奖励3888，捐献不够管理来凑！>！
+ c+ j$ j7 G6 q0 |goto @DS公益捐献
( h% G3 h3 a5 D, s2 t# r#ELSEACT
messagebox 当前RMB点不够,无法开启公益捐献！
BREAK

) R+ k& x" J9 S6 S
#IF
/ d9 E: [' j- \  zCheckContainsText <$SERVERNAME> 01区
% Q5 i3 L% m; S) d( v+ ~#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:<$STR(G235)> 0
goto @DS公益捐献
break

1 e7 _, X- U7 ], `5 ]; _5 \
#IF
CheckContainsText <$SERVERNAME> 02区
# M+ p) f$ g" L: E; W0 d/ c- y#ACT
9 O! r9 n8 l$ t) Q4 oCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:<$STR(G235)> 0
goto @DS公益捐献
break

- r* s- m. J" Y) T0 k* b9 d
#IF
CheckContainsText <$SERVERNAME> 03区
! d8 z3 s$ g" r# y8 q$ o#ACT
' s1 K9 Y* l3 e1 h* F9 WCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt
6 }/ d& u$ e- ?" U' u2 u8 F" xAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:<$STR(G235)> 0
% K/ s6 v8 Y, ]9 N) C: kgoto @DS公益捐献
break
; o  |. s8 O, M% H
. M; @6 d# _  d4 V0 M  c
( U$ P- r, W" g8 V0 K1 \- T#IF
$ M& P# k+ w/ m( T& RCheckContainsText <$SERVERNAME> 04区
#ACT
+ y: ?. T* V4 _CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:<$STR(G235)> 0
. e+ M: y# F, K, |! Lgoto @DS公益捐献
4 M+ t9 \2 z; d7 @' mbreak
$ O! ]5 P% i2 c- a% F

#IF
# z- T* J- b8 C1 {1 S# m: D! L5 o2 H8 LCheckContainsText <$SERVERNAME> 05区
#ACT
( }0 ^9 w3 z' TCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:<$STR(G235)> 0
goto @DS公益捐献
break
! B0 r' P/ O' I' W: Q# E" i
. T. }% B5 Z6 U" P/ P
#IF
CheckContainsText <$SERVERNAME> 通宵区
#ACT
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:<$STR(G235)> 0
goto @DS公益捐献
break
8 L8 W! t5 w9 K5 ~6 C}
" Z. h' A9 t6 }# g  j
# G% v8 x; y9 t6 ]9 B

111111111111111111

士大夫是十分士大夫

M2各种报错