传奇部落

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

[复制链接]
发表于 2023-7-1 22:53:33 | 显示全部楼层 |阅读模式
QQ截图20230701220231.png
) C, W! X  q2 Z0 y4 ~3 @9 ~/ I& K" a& S4 o3 n# H" S, e; i5 V6 H
* l* a8 q% n: b/ g! \
$ [. j* i. Y% @8 H* D- ?
第一步:在QM[@STARTUP]字段下方加入以下脚本( H0 d$ X+ a2 m! ~' P3 ]+ |) o& H

$ N4 ^5 W: ]$ ^* v) p, Q/ i
* N; ^( N8 G8 y& b! d
) `( g3 U3 G/ U# }
[@STARTUP]- P# J# p4 X9 P* ?/ z' S0 i$ W
#IF
/ ?2 t$ J6 P0 \/ M/ L4 IEQUAL A101
* ]! K- K. O6 n' |: P#ACT9 q, p  L/ `$ N& n8 H: N% z
MOV A101 <$MONTH>0<$DAY>
6 I0 G% T+ D- J# d" y. y$ G8 s5 e0 B# _8 A1 _
% j9 V1 O4 D; s3 ], ^: y4 x
#IF! l  l: l# Y3 d+ n
NOT CHECKTEXTLIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录3 V" i2 p: z/ Y' M+ T' ]
#act# K  X) @  q. ]
ForceDirectories  ..\..\..\..\虞姬传奇捐献\6 C& c: B, v, B" ~
ForceDirectories  ..\..\..\..\虞姬传奇捐献\<$MONTH>0<$DAY>\
/ b: H: A2 A# p- }$ h# r/ ^CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt. T) m1 r1 ~* }$ M- ~9 g* w4 z
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\检测是否已经创建目录.txt 已创建目录 0
8 _( Z+ c0 g8 f7 OCreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
! |1 v% @/ u2 {. ACreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt  b# h' N9 i" A* x
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt8 i( t1 E6 q! _( r! i: \3 U
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt6 z  ^: ~# t8 b" W9 R
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt2 s- F( y! P% ]* x2 _) I
CreateFile ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
. ]  v4 S7 H4 wAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:0 0" P7 L2 q9 B/ |0 g- o. @# F
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:0 00 W5 m, ]0 Y9 z$ _$ q2 t0 G  e
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:0 09 R; ~7 v3 N3 ]" a3 c& Z4 \
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:0 0
* ?& d+ g# s( F8 A8 @$ OAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:0 0# t% B- o2 F$ X, |; `
AddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:0 0! I/ ^4 x. m' t5 v% f" b8 r4 N7 h' Z
9 F: S) ]- E* g: y! f

. H1 M! c* v- M; q6 \4 \! Y# p" L

1 I- f+ a# v6 R# {第二步:直接复制NPC脚本即可,脚本可以直接使用,但属性需要根据脚本自己写,脚本如下
0 Y& e+ N$ M( d, Q. P4 T# }5 R6 ^' w( \2 o

- t% M8 j4 r0 O1 A- S6 m5 A! o$ b/ g3 o$ I& `
[@DS公益捐献]8 R/ D5 e& N! X' N
{; T3 L; i6 k8 D& z
#IF4 j4 I9 f  {7 B' b, I
#ACT
1 [. D9 M  R1 A/ ?9 T# @' Y8 {4 a0 G+ UGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 0 S$今日一区 S$捐献金额0
  C9 k) t& e. `4 _9 fGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 0 S$今日二区 S$捐献金额1
; u. o9 F7 Y: A; e# T) ?! U. WGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 0 S$今日三区 S$捐献金额2
; r* v# ~1 b8 j' r4 EGetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 0 S$今日四区 S$捐献金额30 R: d' X5 Q/ [3 v
GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 0 S$今日五区 S$捐献金额4
; Q# [3 m4 o' I. p/ H/ N2 B$ ]GetListString ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 0 S$今日通宵区 S$捐献金额5
: t7 W$ S) _+ F* w0 i3 U  k; J4 [. x, e4 x; V- P/ x# }
" f( _, l. B8 M1 Z& G& R" Z
MOV N$总金额 0
1 x0 x3 |, G8 \% M# q) W  x/ RINC N$总金额 <$str(S$捐献金额0)>* `5 ~: h5 q- A/ r* x! |$ z* }0 c
INC N$总金额 <$str(S$捐献金额1)>; r1 U% ~4 T0 J: i. R  h
INC N$总金额 <$str(S$捐献金额2)>- q- v& w# H2 M. {* L& v
INC N$总金额 <$str(S$捐献金额3)>
2 F) k" D# M7 Y, sINC N$总金额 <$str(S$捐献金额4)>
' H& p" k% x9 q' t+ |  O) i& c& `INC N$总金额 <$str(S$捐献金额5)>
  T$ \$ A4 _5 _9 d6 p8 S. L# MMOV S$总共捐献值 <$STR(N$总捐献)>
. b0 N) D$ p; ?5 h! U9 ?
6 w' F! O, a; V$ q' N
, [2 D3 p+ u0 T4 }, c4 @
SetStringBlank S$今日一区 15 1/ _, g2 i  s+ ?
SetStringBlank S$今日二区 15 15 l, P( b/ l5 i. h
SetStringBlank S$今日三区 15 1; c7 N: l/ h$ x0 \0 k
SetStringBlank S$今日四区 15 1
( N' W$ A$ Q/ D3 J% GSetStringBlank S$今日五区 15 1
0 H/ O/ B( ~* TSetStringBlank S$今日通宵区 15 1) a4 N9 i, a: m
' S# V/ U# d8 x  B7 L/ G3 l) P

% @4 U7 ~% g3 W' X4 A2 o  |Mov N$剩余金额奖励 <$STR(N$总金额)># n( V- @6 I2 S8 {7 e
Div N$剩余金额奖励 10
- I9 Q8 X( T, k) N" E$ o7 BMul N$剩余金额奖励 6
+ ^2 \7 H  [. y8 u! v' bMov N$胜利方奖励 <$STR(N$剩余金额奖励)>( z* X$ `- E; E. T  w5 u  h
Div N$胜利方奖励 10
# G, u3 ^. X5 U$ t) UMul N$胜利方奖励 73 g6 `2 N9 @/ a- D+ U& x0 w6 s
Mov N$失败方奖励 <$STR(N$剩余金额奖励)>
3 T8 r0 d* [; h8 }. w+ eDiv N$失败方奖励 10
2 M( p- b" O' D2 }5 d, K  }. hMul N$失败方奖励 34 G% p, V" x6 w1 }, i

! }& `7 e- W6 R- M

3 _. U7 O7 ^3 q, zSetStringBlank S$捐献金额0 5 1
$ Z! z; T; B3 W, Z9 l, USetStringBlank S$捐献金额1 5 12 n& m& J7 _) R- K
SetStringBlank S$捐献金额2 5 1; K0 U4 ^  ], I; w  D
SetStringBlank S$捐献金额3 5 1
$ W* N0 X/ Y% l) ESetStringBlank S$捐献金额4 5 12 N5 n; z. P( y6 U& h
SetStringBlank S$捐献金额5 5 16 T1 }+ W5 c1 K

- O" s# ^6 @: ~, [: P; q
. r9 L! w9 v; X1 q$ p! }! J8 f1 K
#IF
% }4 x- \9 x) J3 }#ACT. `+ Q- D! ~8 J9 X' j& R( Y
OPENMERCHANTBIGDLG 16 130 1 4 0 0 1 590 2
7 A; N/ V' A" P6 W" M#say% z- C4 _. ?" m8 x& O
\ \ \/ G0 {" G7 i# C9 U0 {1 M6 a
< >              <公益捐献.非强制.拥有快人一步>          <当前今天所有区总捐献> [<$STR(N$总金额)>] <元> \* ]' ]; g; Z& c4 L7 ?3 j
< >              <Hot~◆》/AUTOCOLOR=253,251,168,191,250,70,245,249,254> <您当前RMB点为/SCOLOR=250>< <$GAMEPOINT> 元/FCOLOR=254> \
  r) ]0 U" T2 {# s7 ^< >              <沙城奖池系统 可获得 [永久属性] 死亡不掉 合区不掉 永久生效!>\  \% J# f$ E& @6 M/ ^1 q* {
< >              <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>\, ]5 F1 k/ P/ r, D5 C/ M8 f9 V
< >              <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>\) S8 \7 h) U' C& m- d! G# k+ z! `, y
< >              <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>\
( n0 U, _1 E9 f. G# F< >              <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>\
; h% u5 M0 m; ~) T6 \< >              <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>\
' L. F( _; p( _" d$ h+ M- a7 o< >              <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>\ \1 q2 u. [* j( [8 O! y/ B$ |
< >         <捐献永久获得:/FCOLOR=151> <吸收伤害加20%,增加3.0倍真实爆率,对所有boss伤害提升3倍伤害刀刀切割/FCOLOR=151>\ \
+ v: Y) V" G1 J\ \                                  <ImgEx:1:879:879:879:67:-5|250#需40RMB/@KQKBZT>\ \  \
# Y/ V  p5 W) B2 G6 |. F- Q* u6 a< >                   <红包金额根据当天的捐献作为基数,金额累积到1万奖励追加到80% /SCOLOR=253>\- [, O8 ~. k9 i- ^; @
< >                   <获胜指挥128红包  失败指挥68红包从奖池中扣除/SCOLOR=253>\
; T+ j  K1 L- R! y" ^< >                   <沙城胜利行会获得奖池70%的金额,失败方奖励为30%的金额,/SCOLOR=253>\
! K! H* v& z# C7 v9 a# Q< >                   <只允许有一个失败方  如有2个或2个以上失败方,失败方以捐献号人多为准/SCOLOR=253>\  \/ X3 a0 m6 [( Q) G- B
< >              <当天所有区捐献总额用来发放合区攻城奖励.扣除40%用作平台手续剩余:/SCOLOR=254>[<$STR(N$剩余金额奖励)>] <元>\
3 J$ H+ _9 Z$ V: N# k+ M< >                    <奖励规则:胜利方获得总额的70%/SCOLOR=254>[<$STR(N$胜利方奖励)>] <元>.<失败方获得总额的30%/SCOLOR=254>[<$STR(N$失败方奖励)>] <元>\ \
, U9 D7 j& y2 h) D4 D3 A, @, m
4 Q8 u6 P2 F8 N& K
, S2 r( ^, h  K/ ?2 P9 k  \
[@ZSDBDT]
8 Q: G! ?0 m: M% U/ g, [6 i$ B#IF
' g) r& e2 j: W7 x+ A6 Z' a0 UCHECKTITLE 公益捐献0 r# g; j/ O" M
#ACT0 |0 ~8 C, i7 o$ l# ?
map 沙城专属5 @. C5 F( |: X% S1 C% z/ d
SendCenterMsg 250 0 捐献玩家『<$USERNAME>』进入公益捐献地图打宝去了,超级神器等着他! 1 3
9 E0 Y! E; k$ p0 Q; K9 sbreak
; M; b6 A1 P. ?% _4 T8 m- I; K#ELSEACT+ [* v; U) B' v- H& u
MESSAGEBOX 进入失败,条件不符!
6 n, j/ G+ x5 j. Z: J8 p4 O* c9 T1 U  X2 D

% q% e  M9 T/ t7 a9 O6 y[@KQKBZT]. @! y+ N2 G$ e- i8 G& O
#IF* J9 T( n& H8 y; z% [
CHECKTITLE 公益捐献% v% M! n3 s3 d; o
#ACT2 N( |: `9 a) d) K; a: x% N& a
MESSAGEBOX 你已经捐献过了,不可重复捐献!4 n5 X2 q7 {" L+ o
break% J! _3 R$ m5 i6 x8 W. s" v
) d2 I2 g% B4 l( p# o

. l# h; w/ U) i8 P- N  n  a+ A#IF
) Y) q2 ^0 j; H7 D  g8 FCHECKGAMEPOINT > 39/ h' {& G3 _. Y
#act) `1 ^2 r: u) W+ ]1 C, C
GAMEPOINT - 40& b: }/ }- A; x
INC G235 406 e9 ?( c7 ^2 H/ O; k
INC G43 14 Q$ h4 Z+ x/ ?' n# P  p' M5 N
CONFERTITLE 公益使者
, c# v: ?& o9 G. q0 MCONFERTITLE 公益捐献
: l. b6 L; [) u( ?" L' P#CALL [\游戏登陆\爆率倍数.txt] @爆率倍数, D* e8 N6 a1 \9 I; D6 [9 P0 {3 W& M
#CALL [\游戏登陆\攻击倍数.txt] @攻击倍数; n1 q) i( d' |+ w
SENDMOVEMSG 0 253 255 400 1 感谢大佬玩家[<$USERNAME>]对本服的捐献赞助!本服每日捐献狂暴将全部加入沙巴克奖池!保底奖励3888,捐献不够管理来凑!>!
8 o  ?: l/ @; `% {/ l6 sgoto @DS公益捐献
9 D. _  H1 m. [* L$ Q$ S. p#ELSEACT
4 \, c( r1 G4 H2 A0 X+ Gmessagebox 当前RMB点不够,无法开启公益捐献!
; j9 T) q. N1 O. xBREAK
' z' V" F5 ^$ N5 @7 \/ ~/ ~/ b
* V& n4 _: A4 q4 ^
* y/ U! t! e6 C2 f: g
#IF$ |& z+ G- T) ^/ B9 Q5 I
CheckContainsText <$SERVERNAME> 01区
  |+ K7 Q0 p) G7 E8 |" E#ACT7 L* U) R. L) N8 o: V, [
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt
, @. N) x3 V+ D, L* lAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日01区.txt 今日一区:<$STR(G235)> 0
: G% K, g2 W$ A' x7 f% n( Pgoto @DS公益捐献% ?9 _. P# Y  a" w/ m
break
* @3 l! p9 P4 g, X8 ^1 O+ }/ \5 {  s
9 k5 i7 N8 ^- |) l8 g" k
#IF7 i. F# p6 ~; b1 a# l$ r# T
CheckContainsText <$SERVERNAME> 02区6 _% S( Q$ J& h( ]/ b* G1 t! {  K. z1 Z
#ACT
  B, P, |/ [2 u% Y# P* z; s% Q: _CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt
" Q4 J. F' M% v& L% M' g- sAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日02区.txt 今日二区:<$STR(G235)> 0
, k6 G& q( G& X2 agoto @DS公益捐献7 Q" Y- s& [% Q
break3 S+ W" u; H) r# a: u! b
0 ?& D! J3 Q; n/ [) p- k4 `
3 L' j5 p  B' v* X3 r. e
#IF* f" H# E6 j- o9 u4 m# {+ x3 T
CheckContainsText <$SERVERNAME> 03区# \+ ]. n# A3 G) y% Z7 ^0 W
#ACT
5 k$ @7 p" n  \4 R! K: h, F$ _( ]CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt
7 Y! w) z! [+ X! a5 AAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日03区.txt 今日三区:<$STR(G235)> 0/ O( T/ i. s% z
goto @DS公益捐献+ l% h+ h# `1 U" i
break
, W9 \8 ]# T1 d# {( T+ a0 A3 V# ~( q, E; w( r8 p2 `
' M1 x$ G9 g9 h3 `
#IF
, R# i; a# P, ^5 ]; N! hCheckContainsText <$SERVERNAME> 04区
+ b  L9 b$ L0 B* \6 I#ACT
2 \' y& W. L/ ]CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt
2 J5 p, q/ U, C0 K) B' M7 P( ^/ WAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日04区.txt 今日四区:<$STR(G235)> 0' V; b: K* I- i0 a! Q' T1 s0 E
goto @DS公益捐献
3 t* E2 k6 S9 v# dbreak0 \  {5 e3 {' `; p
: v, ?7 a- p9 ^& J4 x8 N+ O% L* j

( d6 }  b7 u4 R# g3 E2 L5 Y  M. a6 F#IF
/ I: n9 g" K2 `* MCheckContainsText <$SERVERNAME> 05区/ Q. j+ Y# n7 P( l5 ?" F5 \1 \
#ACT3 O9 d& J+ l* O
CLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt
) M2 h/ X3 k; Y  d! H% m9 aAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日05区.txt 今日五区:<$STR(G235)> 0# |9 y% g/ @7 E! [2 W/ U  Z8 u
goto @DS公益捐献
4 Y( G. j/ D1 q0 ~- t1 y0 g" \break
, g- Q8 f4 g. ~7 L4 ?6 d. X7 a4 L' Q6 {- I* ]9 E

# ^4 N0 I: K) V7 j" d. T4 D#IF7 a2 I* a$ d5 q5 C5 l7 l9 j& o4 {
CheckContainsText <$SERVERNAME> 通宵区
  z  {- p. g8 Q1 U* W8 y#ACT
8 i$ g. L. L# b9 E) y" hCLEARNAMELIST ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt
2 S+ B8 O; g7 k* EAddTextListEx ..\..\..\..\虞姬传奇捐献\<$STR(A101)>\今日通宵区.txt 今日通宵区:<$STR(G235)> 0
3 f$ ~; o& ]/ [4 N5 }! lgoto @DS公益捐献
( g2 y, `) f4 _1 Lbreak& w7 M5 L% S/ u
}
- G; f, }1 d4 K! w; U' C
7 x. _( M6 g3 {$ V: T- A
站长承接传奇一切业务,小问题免费咨询。站长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-18 04:55 , Processed in 皖公网安备:34112402000394号 0.185158 second(s), 26 queries .