GOM引擎全服喊话功能脚本的制作教程

[@main]
<--------------------------/SCOLOR=229> <千里传音/SCOLOR=9> <--------------------------/SCOLOR=229>\
\ \
<此信息显示在屏幕正中间，从右向左飘出，全服都能看见！高端大气！/SCOLOR=250>\
" w; f' _& V  Z6 \* T4 x<每次千里传音需要1金币!/SCOLOR=250>\
) Z2 V1 K4 p3 c2 c<Img:685:6:-6:4><Img:685:6:-241:4>\
; t; B6 H( `1 t" m8 j8 b( W<进行喊话/@喊话传音1>  <设置内容1{FCOLOR=70}/@@InPutString41>  <当前喊话内容：/fColor=254><$STR(S41)>\
<Img:685:6:-6:4><Img:685:6:-241:4>\
<进行喊话/@喊话传音2>  <设置内容2{FCOLOR=70}/@@InPutString42>  <当前喊话内容：/fColor=254><$STR(S42)>\
1 [! P# _9 t% ?<Img:685:6:-6:4><Img:685:6:-241:4>\
<进行喊话/@喊话传音3>  <设置内容3{FCOLOR=70}/@@InPutString43>  <当前喊话内容：/fColor=254><$STR(S43)>\
<Img:685:6:-6:4><Img:685:6:-241:4>\

[@喊话传音1]
$ |' w6 A* ]2 k- Z4 C8 ?- U#IF
0 u- u' ?! T; L& a) Z9 [/ f9 X6 AEQUAL S41
#ACT
MESSAGEBOX 请先设置喊话内容！
3 d3 d% n, [  FBREAK

#IF
7 K! V6 g7 q9 w: u6 k) s& u2 @checkgold 1
#ACT
TAKE 金币 1
SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S41)>/FCOLOR=251}
/ k) y+ A# \- B& @  u0 m8 hSENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S41)>|151:0:1}
BREAK
- l, t  ]3 j' Q0 R- P$ ]0 d: W#ELSEACT
MESSAGEBOX 你金币不足1个，无法喊话！
BREAK

[@InPutString41]
#or
CheckContainsText <$STR(S41)> @
. ~* G. U# L/ W* S. i3 K7 V+ VCheckContainsText <$STR(S41)> (
CheckContainsText <$STR(S41)> )
CheckContainsText <$STR(S41)> [
! \+ C% {: ?7 F- ]8 T6 R: QCheckContainsText <$STR(S41)> ]
, M& S% ]( e7 h; j( x  KCheckContainsText <$STR(S41)> {
/ C9 z2 \5 s. b6 a# \. E# rCheckContainsText <$STR(S41)> }
& v; d4 T( R' I6 bCheckContainsText <$STR(S41)> *
CheckContainsText <$STR(S41)> /
CheckContainsText <$STR(S41)> \
CheckContainsText <$STR(S41)> $
CheckContainsText <$STR(S41)> &
7 w  K1 `0 M0 H4 qCheckContainsText <$STR(S41)> 妈
CheckContainsText <$STR(S41)> 逼
CheckContainsText <$STR(S41)> 操
CheckContainsText <$STR(S41)> 服
CheckContainsText <$STR(S41)> 贱
% J- ~: k" m$ ZCheckContainsText <$STR(S41)> 客
CheckContainsText <$STR(S41)> G
CheckContainsText <$STR(S41)> M
CheckContainsText <$STR(S41)> 内
CheckContainsText <$STR(S41)> 比
CheckContainsText <$STR(S41)> 例
' _3 U8 Y, @3 \- \' f4 r6 y2 u5 uCheckContainsText <$STR(S41)> 托
9 b" ?+ C+ @( }" u1 M% v4 ~CheckContainsText <$STR(S41)> 脱
CheckContainsText <$STR(S41)> 拖
CheckContainsText <$STR(S41)> Q
# x. V) {7 c% f6 jCheckContainsText <$STR(S41)> W
CheckContainsText <$STR(S41)> E
CheckContainsText <$STR(S41)> R
# Q# S+ }/ {1 u* B7 S7 p7 eCheckContainsText <$STR(S41)> T
6 N0 o  B' {5 K6 L& f% O  h- W6 RCheckContainsText <$STR(S41)> Y
# u, v3 A/ [$ [8 X& O! `# ACheckContainsText <$STR(S41)> U
CheckContainsText <$STR(S41)> I
& Q; |/ Y0 ?; m+ @& lCheckContainsText <$STR(S41)> O
4 V5 _% g4 |3 w4 J& }3 c9 tCheckContainsText <$STR(S41)> P
CheckContainsText <$STR(S41)> A
( a. _6 n, I6 D# [% J: bCheckContainsText <$STR(S41)> S
CheckContainsText <$STR(S41)> D
1 Z6 O4 F: U5 Q7 s$ f6 g9 N3 ECheckContainsText <$STR(S41)> F
$ r; `1 j/ `# @% Z1 n1 n7 sCheckContainsText <$STR(S41)> G
. z" k2 T- `6 kCheckContainsText <$STR(S41)> H
( ^6 H9 |) n; d& ~2 x3 fCheckContainsText <$STR(S41)> J
CheckContainsText <$STR(S41)> K
CheckContainsText <$STR(S41)> L
CheckContainsText <$STR(S41)> Z
CheckContainsText <$STR(S41)> X
3 V* z6 Y7 N/ @8 _CheckContainsText <$STR(S41)> C
CheckContainsText <$STR(S41)> V
CheckContainsText <$STR(S41)> B
7 a6 V( _& {; r7 v+ z; n8 l& _CheckContainsText <$STR(S41)> N
CheckContainsText <$STR(S41)> M
#act
$ |' {5 V& ]2 Z$ Q7 fMESSAGEBOX 输入内容包含特殊字符，无法提交！！！
break
; V  z! M3 l& A#ELSEACT
9 ~& _& Q+ B7 T) @4 lGOTO @main
7 u5 X1 }/ W* ]& q& DBREAK

9 T0 k# t: D; P+ J# Q* u[@喊话传音2]
0 [) G: K9 a: V  ]' E, f  I#IF
0 z, K' @* \$ uEQUAL S42
6 h' \% V) c% y8 c0 U  V$ b/ s1 a#ACT
1 z; [/ y& M$ Y- _8 u& ^7 r& X9 YMESSAGEBOX 请先设置喊话内容！
BREAK
0 {8 A7 d( g4 J; O2 z" Q
#IF
checkgold 1
#ACT
* e: _. ?" A0 l5 u4 |TAKE 金币 1
SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S42)>/FCOLOR=251}
SENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S42)>|151:0:1}
9 ^2 o1 `6 v) L& V* PBREAK
% A* {" R# N4 B! D$ V, J#ELSEACT
( B' ^1 b! [* UMESSAGEBOX 你金币不足1个，无法喊话！
BREAK
* O+ K, k4 b  G7 v" C- P+ [
  Q( S5 ?( C9 C7 k! _. O: z& J$ c[@InPutString42]
+ O- c, `# C; O5 O#or
CheckContainsText <$STR(S42)> @
- R" o) m3 _& ]" n" ZCheckContainsText <$STR(S42)> (
CheckContainsText <$STR(S42)> )
CheckContainsText <$STR(S42)> [
4 X/ D, q8 l- m$ F% w2 A+ eCheckContainsText <$STR(S42)> ]
5 g8 h7 K9 _( T1 s+ }: DCheckContainsText <$STR(S42)> {
; }4 a/ j3 z# C" }( R  F5 M9 B9 |CheckContainsText <$STR(S42)> }
CheckContainsText <$STR(S42)> *
CheckContainsText <$STR(S42)> /
CheckContainsText <$STR(S42)> \
  N% p' `- v0 ?( ~8 j3 g/ X5 |0 YCheckContainsText <$STR(S42)> $
CheckContainsText <$STR(S42)> &
CheckContainsText <$STR(S42)> 妈
CheckContainsText <$STR(S42)> 逼
CheckContainsText <$STR(S42)> 操
CheckContainsText <$STR(S42)> 服
CheckContainsText <$STR(S42)> 贱
# E3 \1 s- u- w/ ?CheckContainsText <$STR(S42)> 客
CheckContainsText <$STR(S42)> G
CheckContainsText <$STR(S42)> M
CheckContainsText <$STR(S42)> 内
CheckContainsText <$STR(S42)> 比
CheckContainsText <$STR(S42)> 例
% ~" b: q9 \$ ]% p0 RCheckContainsText <$STR(S42)> 托
CheckContainsText <$STR(S42)> 脱
CheckContainsText <$STR(S42)> 拖
+ V' f# G$ k0 V  A; T8 TCheckContainsText <$STR(S42)> Q
8 C$ x0 Q9 D8 fCheckContainsText <$STR(S42)> W
: }' A6 B9 P1 x0 o0 ~CheckContainsText <$STR(S42)> E
$ R& z+ b3 j9 cCheckContainsText <$STR(S42)> R
CheckContainsText <$STR(S42)> T
CheckContainsText <$STR(S42)> Y
CheckContainsText <$STR(S42)> U
: Z( j& G, L+ x4 f  R+ nCheckContainsText <$STR(S42)> I
CheckContainsText <$STR(S42)> O
CheckContainsText <$STR(S42)> P
, l# u7 o$ A2 D+ Q, {9 G  G. QCheckContainsText <$STR(S42)> A
CheckContainsText <$STR(S42)> S
CheckContainsText <$STR(S42)> D
. O6 P$ \2 M( o4 M( HCheckContainsText <$STR(S42)> F
1 a2 L% X, T7 u  j9 n+ ?/ y1 ?CheckContainsText <$STR(S42)> G
CheckContainsText <$STR(S42)> H
CheckContainsText <$STR(S42)> J
. g# p3 \& K( `- L; E: S; zCheckContainsText <$STR(S42)> K
! t9 E, U; D2 e0 G  m( J6 p1 {CheckContainsText <$STR(S42)> L
9 {4 J  H; A4 y3 v; tCheckContainsText <$STR(S42)> Z
' e$ L" t3 C: e. ]! X9 E7 ]% ECheckContainsText <$STR(S42)> X
CheckContainsText <$STR(S42)> C
% s1 w. \  m/ l% d/ ~3 W, jCheckContainsText <$STR(S42)> V
3 E4 l/ D7 x- L$ \* TCheckContainsText <$STR(S42)> B
CheckContainsText <$STR(S42)> N
! s7 ?9 k( V. |CheckContainsText <$STR(S42)> M
#act
MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
break
+ E/ W& u$ O0 _& v#ELSEACT
  h$ W! o, F8 o& Z; W9 hGOTO @main
BREAK

" m' L- n! C6 ?, {% r[@喊话传音3]
2 R# g# s3 ?4 o2 @5 C#IF
  V/ \( S- ]2 p) h6 uEQUAL S43
/ H4 a/ e/ A6 }+ R5 E& Z#ACT
% w/ W- k( t( U! [0 NMESSAGEBOX 请先设置喊话内容！
5 n& u2 ]2 I6 v6 n( a! {' w$ hBREAK

#IF
checkgold 1
#ACT
TAKE 金币 1
SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S43)>/FCOLOR=251}
8 P9 J3 d1 i. F; l+ W: k, }SENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S43)>|151:0:1}
BREAK
#ELSEACT
MESSAGEBOX 你金币不足1个，无法喊话！
# t1 D3 R4 f( F& h% CBREAK
- J0 V( Z2 O7 C5 ~8 t& h
[@InPutString43]
#or
( v6 ?* V. u. a7 Z( hCheckContainsText <$STR(S43)> @
  J. D, T' a9 q. aCheckContainsText <$STR(S43)> (
CheckContainsText <$STR(S43)> )
  _; h5 o4 T5 k+ d' HCheckContainsText <$STR(S43)> [
" S% T7 A9 q7 s9 y6 m3 y" SCheckContainsText <$STR(S43)> ]
6 v& A9 i6 z7 ]4 U) W$ tCheckContainsText <$STR(S43)> {
* W7 q3 n2 C- k! h+ L5 \/ N' ?, N2 vCheckContainsText <$STR(S43)> }
" y' z# c5 y6 B. u9 _# L9 t0 ~. LCheckContainsText <$STR(S43)> *
CheckContainsText <$STR(S43)> /
CheckContainsText <$STR(S43)> \
CheckContainsText <$STR(S43)> $
+ k. W5 P4 \% L: n7 [3 Q% M- mCheckContainsText <$STR(S43)> &
CheckContainsText <$STR(S43)> 妈
1 V6 E" N! L" u- tCheckContainsText <$STR(S43)> 逼
CheckContainsText <$STR(S43)> 操
CheckContainsText <$STR(S43)> 服
6 k3 |2 B! I; JCheckContainsText <$STR(S43)> 贱
5 ]; N' n) w7 n1 {" S! T6 NCheckContainsText <$STR(S43)> 客
CheckContainsText <$STR(S43)> G
CheckContainsText <$STR(S43)> M
: k% P' n: G' q# b6 Z4 g* C- V9 uCheckContainsText <$STR(S43)> 内
CheckContainsText <$STR(S43)> 比
CheckContainsText <$STR(S43)> 例
CheckContainsText <$STR(S43)> 托
CheckContainsText <$STR(S43)> 脱
6 a: H9 h) V% ^0 |( q  M$ ~CheckContainsText <$STR(S43)> 拖
7 G+ p3 M; N& g! D, XCheckContainsText <$STR(S43)> Q
0 V% u. D3 p4 `CheckContainsText <$STR(S43)> W
0 z6 c: _4 h6 a) i: r1 BCheckContainsText <$STR(S43)> E
/ y; c0 D# U6 CCheckContainsText <$STR(S43)> R
; b9 t, P& g- Q' w4 E( y& E0 NCheckContainsText <$STR(S43)> T
6 X3 `% M' [! p9 [; n( M8 jCheckContainsText <$STR(S43)> Y
8 q/ V5 Y, u# ^9 O; hCheckContainsText <$STR(S43)> U
CheckContainsText <$STR(S43)> I
: }0 }( s" ]; v+ tCheckContainsText <$STR(S43)> O
CheckContainsText <$STR(S43)> P
: k1 N1 g9 J9 ?- |CheckContainsText <$STR(S43)> A
0 d1 |6 u% X6 r: VCheckContainsText <$STR(S43)> S
CheckContainsText <$STR(S43)> D
CheckContainsText <$STR(S43)> F
CheckContainsText <$STR(S43)> G
/ i5 X0 Z7 ?" |+ K; y7 [CheckContainsText <$STR(S43)> H
9 E' l! e6 @0 ?7 R3 wCheckContainsText <$STR(S43)> J
CheckContainsText <$STR(S43)> K
! L) k8 G8 T: l4 wCheckContainsText <$STR(S43)> L
CheckContainsText <$STR(S43)> Z
CheckContainsText <$STR(S43)> X
0 [; a8 P9 z; S( ]; Q/ f, {CheckContainsText <$STR(S43)> C
CheckContainsText <$STR(S43)> V
CheckContainsText <$STR(S43)> B
CheckContainsText <$STR(S43)> N
CheckContainsText <$STR(S43)> M
6 ^0 e7 l) m  F/ S: W" i' K#act
MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
8 Z. _- h# S; h2 R" cbreak
( `' E' f# b) h7 A0 _; b1 D#ELSEACT
GOTO @main
$ |; ^, ]8 H, n  S9 TBREAK
- y7 m& G1 ^' ]7 O. G
* r6 ^/ C/ }7 @3 W4 ?