传奇部落

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

[复制链接]
发表于 2023-7-1 22:53:33 | 显示全部楼层 |阅读模式
QQ截图20230701220231.png
# J1 `7 O  w+ B6 I8 v: O7 D0 F* ]9 W- Y
1 l% A) a" `5 {; Q. X- B: d4 Q, O
1 Y6 z! `' u3 O8 q# r
第一步:在QM[@STARTUP]字段下方加入以下脚本4 N; ^# ]# h, D: W
- l2 v) w; p  |! B/ I
! t% v/ d) u: A- V; E( p
6 t3 F+ W0 h' _* c
[@STARTUP]) i$ ]3 ]9 i0 R2 v
#IF7 `$ }+ X- K2 J% {9 K( R8 Y
EQUAL A1016 _# q2 j8 u( e( r; d
#ACT7 W3 g) X/ S1 x/ e/ y
MOV A101 <$MONTH>0<$DAY>
5 M1 d$ K0 j: V, R) p, p+ p
8 m5 H6 n: j8 ]* ^8 c' n

+ X. T& ^# g# E- U#IF
6 W. V; v7 A6 d4 d5 \9 M. }$ f; E# VNOT CHECKTEXTLIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录4 H4 J! W9 W2 s. q6 Y% Q
#act% f) A& C9 R1 d& e. j
ForceDirectories  ..\..\..\..\虞姬传奇捐献\
) X1 Y$ h% K1 v* O& s- GForceDirectories  ..\..\..\..\虞姬传奇捐献\<$MONTH>0<$DAY>\+ q3 J& g  q" o0 U1 |, Q8 t9 [
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt  q- p5 E1 t* q
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录 08 S4 G) v8 [9 k5 w$ X/ r
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt( R1 P# q" G) b" ^6 h' r# v
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
2 m: T* N" u4 h% R2 I, |CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt5 G- M) M" _* b# V" m" w0 x0 p
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt0 N! _# Q& z+ ~: H- ?& y. r  ]
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
2 B, t: o/ p' F' ]: c2 S7 yCreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
1 f+ h! J# ?3 I1 ~3 h9 Z  VAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:0 0
1 T& k# l: p4 R) D2 ]/ E( X" FAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:0 0
1 F, `# H* j1 g1 s4 n. WAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:0 0
9 ]/ \) g' b# W; V! BAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:0 0
& ^1 D2 ^7 d. ^1 {* xAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:0 0
* q; h! C7 \4 S( p4 P3 nAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:0 03 ]( C$ i% D7 o3 L- k6 p6 G

& Y! ^; g/ C  A& ?" x
$ U/ ]$ h* D" ~  k8 V
: R- S) A3 u0 J) U) l
第二步:直接复制NPC脚本即可,脚本可以直接使用,但属性需要根据脚本自己写,脚本如下, b) k! t; i! A, ^/ R( c
; B8 A; b' c5 m( g! r5 N6 V- K
$ L, l4 h2 H. K; a% Q% B1 t7 s- R
6 ^3 M- ]" {7 [5 Y3 F
[@DS公益捐献]' C- ]$ f0 P# w+ ]/ a
{
  _6 Z/ H( M" W  k3 j  k#IF
: S/ ]& Z7 A1 s: m5 |#ACT: d/ T1 p% J  S" W+ \
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 0 S$今日一区 S$捐献金额0
1 V+ i+ t. C& g% A, ]. q# wGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 0 S$今日二区 S$捐献金额10 ~9 q* A  x; c5 g
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 0 S$今日三区 S$捐献金额2
; A8 \0 A0 J, J* q+ A# N7 MGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 0 S$今日四区 S$捐献金额3, a( i: I' X; D, p( ?
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 0 S$今日五区 S$捐献金额4& r( J% p8 j* x+ l, b
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 0 S$今日通宵区 S$捐献金额5
* O5 T; Y7 T; b8 _4 p2 a: X- D
! Z8 p1 @/ b$ @9 Z) ~* \3 M

9 Z1 K: G$ s2 I% }0 d( v: f0 RMOV N$总金额 0
) F' [, j4 |* `: Z0 B' KINC N$总金额 <$str(S$捐献金额0)>3 k+ O( m1 E, s2 r
INC N$总金额 <$str(S$捐献金额1)>
! e# F" m1 ]& }INC N$总金额 <$str(S$捐献金额2)>7 p4 ~$ Y/ e! k# o4 B
INC N$总金额 <$str(S$捐献金额3)>
2 V" T+ [% T/ S0 h' K6 |! {% L. ]1 EINC N$总金额 <$str(S$捐献金额4)>
1 s! ~" \5 y. cINC N$总金额 <$str(S$捐献金额5)>; E! b, H2 P+ g4 u' z
MOV S$总共捐献值 <$STR(N$总捐献)>* N6 l- Q. p; G  A9 @$ @+ J5 O) ~

) J9 T( w& `/ C- l8 O3 z6 I4 e1 A
) {/ P- t( E( s. @
SetStringBlank S$今日一区 15 1
( N& }0 Q; v0 r7 PSetStringBlank S$今日二区 15 1
" c9 X8 m8 f" \- G5 ~SetStringBlank S$今日三区 15 1
4 g! P! o/ o- r0 ]! SSetStringBlank S$今日四区 15 1
" `* t( \3 ?& A0 Q' O. qSetStringBlank S$今日五区 15 1
* R1 W9 J: E: j/ q, h1 Q- ~" ASetStringBlank S$今日通宵区 15 1
, x: b( _: h" @3 |
- y# `- [( `# s+ m* V) r. d
. }# F& W3 ^$ A& c# g  q, }
Mov N$剩余金额奖励 <$STR(N$总金额)>2 z7 C$ L0 @! B
Div N$剩余金额奖励 10
- W2 G3 G6 [, ?" |5 ?( J4 W& WMul N$剩余金额奖励 6
# G: Q. a3 E; _/ H8 E+ E, F# V; kMov N$胜利方奖励 <$STR(N$剩余金额奖励)>' P$ g& [4 N$ @' n$ X
Div N$胜利方奖励 10
$ G, D( I- B) G% C$ K; BMul N$胜利方奖励 7
3 }/ W+ s3 I! J! V9 UMov N$失败方奖励 <$STR(N$剩余金额奖励)>
" a# }& _6 }: a0 E7 R0 |Div N$失败方奖励 10# p* g$ H/ q2 j' k1 L/ M
Mul N$失败方奖励 38 y4 L* l0 C4 J2 N  E$ o
, v1 q, ]- R9 M' r
, k. j: m% @: C+ r" f' O. o* l
SetStringBlank S$捐献金额0 5 1
8 l3 `  g4 n; S) HSetStringBlank S$捐献金额1 5 1' a* E/ P' o2 i$ g, \
SetStringBlank S$捐献金额2 5 15 }. f' H! Q, K! `* s" I1 F
SetStringBlank S$捐献金额3 5 1/ X  o; g3 o- c% H: y- k
SetStringBlank S$捐献金额4 5 1
- w9 `- h3 Y' d4 H! YSetStringBlank S$捐献金额5 5 1% c) L2 ~: F5 |$ k) P" y2 K2 {) u  T! N
  U* h7 M0 M, a& e( ?1 z
& h1 @* k& s* ]7 G& m9 b  I% v  C
#IF
) k0 L  B. |( j3 v. @#ACT
% D$ a( ^- R$ rOPENMERCHANTBIGDLG 16 130 1 4 0 0 1 590 2! r& h  ~7 T& i! o+ e! P
#say2 V4 k# r- d5 c! K5 h, [  E6 s  J: k
\ \ \
$ ^# h7 `$ Y! ^: v; W- e6 F7 @< >              <公益捐献.非强制.拥有快人一步>          <当前今天所有区总捐献> [<$STR(N$总金额)>] <元> \
8 m' a" y2 H9 D# [8 T< >              <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> <您当前RMB点为/SCOLOR=250>< <$GAMEPOINT> 元/FCOLOR=254> \7 v! u" `: _  R  k) U( p
< >              <沙城奖池系统 可获得 [永久属性] 死亡不掉 合区不掉 永久生效!>\  \, M6 Q( [. W  _. D' m
< >              <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>\8 H+ x* e5 P* K3 |1 T, h7 |) k2 q
< >              <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>\
; @9 v0 W6 S. ?( w1 y3 Y) m1 X< >              <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>\4 O  Z- m+ g7 u! g9 b" d" p& P
< >              <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>\1 q8 o- D, ^" n0 u* p& Q0 y: K
< >              <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>\2 B( }4 x  k% C; ?) k, 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>\ \" v( R" I4 m+ L3 J9 O% }/ ]( w
< >         <捐献永久获得:/FCOLOR=151> <吸收伤害加20%,增加3.0倍真实爆率,对所有boss伤害提升3倍伤害刀刀切割/FCOLOR=151>\ \
2 {+ p  |# Z3 O) u. G1 `\ \                                  <ImgEx:1:879:879:879:67:-5|250#需40RMB/@KQKBZT>\ \  \
2 [; [# g% {  R3 K" Y! d! C% w< >                   <红包金额根据当天的捐献作为基数,金额累积到1万奖励追加到80% /SCOLOR=253>\; S' Y0 R5 [0 E
< >                   <获胜指挥128红包  失败指挥68红包从奖池中扣除/SCOLOR=253>\
$ ~/ J# Q: R- i) t4 W< >                   <沙城胜利行会获得奖池70%的金额,失败方奖励为30%的金额,/SCOLOR=253>\" N  h( u, D$ k( D# K
< >                   <只允许有一个失败方  如有2个或2个以上失败方,失败方以捐献号人多为准/SCOLOR=253>\  \% p% x. h6 H  p3 c0 b/ C% j" L
< >              <当天所有区捐献总额用来发放合区攻城奖励.扣除40%用作平台手续剩余:/SCOLOR=254>[<$STR(N$剩余金额奖励)>] <元>\ ( C( q# q* ^" N3 P- R6 |$ \' j
< >                    <奖励规则:胜利方获得总额的70%/SCOLOR=254>[<$STR(N$胜利方奖励)>] <元>.<失败方获得总额的30%/SCOLOR=254>[<$STR(N$失败方奖励)>] <元>\ \: {4 e' B% s  L4 W0 [
0 |4 ^( ?* f! \, u+ i+ [+ N6 T5 M, n
) F# r! h9 t! J% H& }/ J
[@ZSDBDT]
$ d4 x4 {) }) v  B- I  C; k' l* N#IF: ?( h; M7 J! V6 \; c  \, L8 t. W
CHECKTITLE 公益捐献, Z0 E( H9 L1 h' M/ ?
#ACT" [- o1 S* b( l) R, J
map 沙城专属
; r, Z# C7 [/ z+ j2 N7 G& n6 d, X2 `: \SendCenterMsg 250 0 捐献玩家『<$USERNAME>』进入公益捐献地图打宝去了,超级神器等着他! 1 30 h6 \/ N" }6 d8 r% e9 }
break& P% {0 ?# E: G/ C& p) W. R$ u
#ELSEACT  k8 y1 F' u  g
MESSAGEBOX 进入失败,条件不符!* A2 m7 B3 g2 p: H- Y. S
; q7 z: v% V1 }9 ]* [

  y3 ~: m! r! g- B: |[@KQKBZT]
) \3 e& ?# z* d, j& F: t, p( j#IF! y% G8 @$ G6 ^7 \; h
CHECKTITLE 公益捐献& f3 h" a$ Q8 |% u
#ACT
' R; `  `$ @4 K  Y% H% V1 HMESSAGEBOX 你已经捐献过了,不可重复捐献!
* J/ z' T/ S0 o% Tbreak
0 J/ o- h; j5 c1 F; c) v( |; r0 Q% z* j9 w' r! O- b# `

. p8 ]# Z* L9 j7 _  c#IF
8 }0 @/ \- ^) e6 p, h7 r% M; p/ `CHECKGAMEPOINT > 398 c( }+ y2 Y6 x
#act% R& {: l% d! S: g  u
GAMEPOINT - 40
# K/ t  X( X! {INC G235 40
/ ^7 S- c4 p9 I+ M+ uINC G43 1- E4 W: b9 y, m5 r: n) K- u: \
CONFERTITLE 公益使者
/ {4 q9 n0 s3 S; U- R& SCONFERTITLE 公益捐献4 G  f- w2 p8 W: ~: _
#CALL [\游戏登陆\爆率倍数.txt] @爆率倍数
- q) p& y9 C% }' [- R) U#CALL [\游戏登陆\攻击倍数.txt] @攻击倍数4 Q+ f/ N2 z0 E9 e* @
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助!本服每日捐献狂暴将全部加入沙巴克奖池!保底奖励3888,捐献不够管理来凑!>!
" L( a! x+ e; u0 A3 d) lgoto @DS公益捐献
1 w; n5 B6 c% l0 c: s+ Z' s! Z#ELSEACT
' Z. ~: M+ b* K7 ?! u% l; Amessagebox 当前RMB点不够,无法开启公益捐献!% y# e1 P5 S% S1 K
BREAK
# o; s  r; `8 }; w* H; o. N9 f4 S- d# R. I( T9 O+ `6 y
# D" A# e4 `$ G
#IF+ D$ S- A& @  |0 ~: Z; z
CheckContainsText <$SERVERNAME> 01区" S5 u3 v+ O% k% M: L6 f& j8 _3 N
#ACT
- D2 O* ^$ H9 L, m# NCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
7 ]7 p% O  _1 [' C5 xAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:<$STR(G235)> 0
- a! v# D8 c0 N: i+ V% O! r7 L  dgoto @DS公益捐献
8 b$ f* v- P5 s/ Y# |" f8 q6 T3 Jbreak  _  m. _0 N1 C* `3 K

/ m* B" T! X4 E: X: k' Y0 C7 y
' ~: }  {5 e6 t% b4 ]& M
#IF- B# i" w* x' u4 K; f$ G
CheckContainsText <$SERVERNAME> 02区
0 j3 H- e- F6 u! L#ACT
3 m. h$ m% O7 d2 f+ B0 z, eCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
" J7 p! n5 F3 |/ g- R+ }* CAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:<$STR(G235)> 0  }% j& p& F7 L+ W$ g2 u  \2 B  G
goto @DS公益捐献
% e" Z& |& X+ T" b( [break; F! ^2 S9 v0 s0 P

: Q$ r( _, u# Q. M/ b0 k) V4 R4 ^

  U+ P6 }# _3 @/ w% ?% P#IF* N3 T, D) e5 O! r! O' v
CheckContainsText <$SERVERNAME> 03区: C0 ^( j) p9 I
#ACT& \8 q" G7 d/ r3 R) |1 `( e
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt9 m2 E* }8 k8 K& K* Y
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:<$STR(G235)> 0
& ], j; B; ?, g& V. n! {goto @DS公益捐献7 w5 K  q7 n, K8 d+ I
break
1 I; Y* w5 c5 q5 o& m3 Z9 N, q7 N
2 A$ J- z: I% C7 E6 h0 y, y
) A' }) l. C5 p* d& z4 ?7 A1 s
#IF; U0 h1 A, _* [: x" ^" N- Y
CheckContainsText <$SERVERNAME> 04区
7 y% e  G. d- V" |; f& |#ACT0 I; P3 H2 _, y( W/ E
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt, j; [& V2 J& k$ ~
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:<$STR(G235)> 0% F2 ~1 A  M7 i+ @
goto @DS公益捐献5 p: R' G' ^& b% z8 c  w8 c0 P: u
break
3 g9 ^) ^* I4 p6 ]3 x+ k5 N, a; r! s
! E, s& {1 \9 e% `* H7 |; ]

  w; u( l. `- ^5 ]* s- R#IF: k% W" U: d/ g  b; a3 ]
CheckContainsText <$SERVERNAME> 05区6 F1 O, s! ]1 H
#ACT
! }3 ~9 C# D$ w( F% UCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt, R0 n2 d# g6 t
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:<$STR(G235)> 0# {) A; E8 P' D) s
goto @DS公益捐献7 D' K* u6 ]  V+ J+ M  U
break
  D/ b+ F  p9 R; O: R3 z
; {4 s8 n! o, O  u+ g4 N" s: X

4 g1 l. C% k+ Q) m. ]#IF- e  y9 W- \1 ]( F
CheckContainsText <$SERVERNAME> 通宵区
' V, N; Z4 N& k* x0 b; I, F#ACT2 s) f+ x* I# \  x& [: @9 o9 K
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
. \- j5 r8 o; r  k$ ~AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:<$STR(G235)> 08 B  t* j  ~/ r- B6 ]( _, H  r
goto @DS公益捐献4 Z2 A- d9 x0 i, _
break/ J' x; f, H  T( H4 A* g
}
$ g! L( J. F# x3 B2 C3 z# F  S% p' }9 \0 q- i7 X$ M
站长承接传奇一切业务,小问题免费咨询。站长QQ137919001
回复

使用道具 举报

发表于 2025-3-15 19:51:51 | 显示全部楼层
111111111111111111
回复

使用道具 举报

发表于 2025-6-15 05:09:58 | 显示全部楼层
士大夫是十分士大夫
回复

使用道具 举报

发表于 2026-1-21 06:37:28 | 显示全部楼层
M2各种报错
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|小黑屋|网站地图|皖ICP备18020244号-7|传奇部落

GMT+8, 2026-9-10 19:57 , Processed in 皖公网安备:34112402000394号 0.191903 second(s), 26 queries .