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

[@main]
<--------------------------/SCOLOR=229> <千里传音/SCOLOR=9> <--------------------------/SCOLOR=229>\
\ \
<此信息显示在屏幕正中间，从右向左飘出，全服都能看见！高端大气！/SCOLOR=250>\
' C1 T- m6 s2 }( U$ M& T& V/ j<每次千里传音需要1金币!/SCOLOR=250>\
<Img:685:6:-6:4><Img:685:6:-241:4>\
<进行喊话/@喊话传音1>  <设置内容1{FCOLOR=70}/@@InPutString41>  <当前喊话内容：/fColor=254><$STR(S41)>\
<Img:685:6:-6:4><Img:685:6:-241:4>\
, t8 Z" g. K1 _2 Y$ R<进行喊话/@喊话传音2>  <设置内容2{FCOLOR=70}/@@InPutString42>  <当前喊话内容：/fColor=254><$STR(S42)>\
<Img:685:6:-6:4><Img:685:6:-241:4>\
7 \+ N8 ?/ `' W1 J<进行喊话/@喊话传音3>  <设置内容3{FCOLOR=70}/@@InPutString43>  <当前喊话内容：/fColor=254><$STR(S43)>\
& ]5 s  R- j- ~9 Q<Img:685:6:-6:4><Img:685:6:-241:4>\
% q  b, C, o; x+ A9 v$ r9 C7 `
[@喊话传音1]
#IF
EQUAL S41
#ACT
2 r( I+ N# k1 s7 f, o. R  IMESSAGEBOX 请先设置喊话内容！
BREAK
) k$ T7 A- j/ W# d! V# T1 B& t
#IF
checkgold 1
#ACT
TAKE 金币 1
SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S41)>/FCOLOR=251}
# @; K6 T) e+ m' k4 K4 j* [. P) RSENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S41)>|151:0:1}
BREAK
#ELSEACT
MESSAGEBOX 你金币不足1个，无法喊话！
BREAK

[@InPutString41]
- Q* F+ @! ^* |#or
$ D) S1 L) i" \3 q: _CheckContainsText <$STR(S41)> @
CheckContainsText <$STR(S41)> (
, W- r4 R( v, Y: S) qCheckContainsText <$STR(S41)> )
$ a# P5 r% s) {) D9 D% |% _CheckContainsText <$STR(S41)> [
CheckContainsText <$STR(S41)> ]
: a9 d0 X3 B6 v, |% w3 D; V5 LCheckContainsText <$STR(S41)> {
5 R" f) D7 a7 V3 M5 OCheckContainsText <$STR(S41)> }
9 d9 y& O7 ]5 oCheckContainsText <$STR(S41)> *
8 H7 q1 `% s' A# l, ]CheckContainsText <$STR(S41)> /
+ A+ G: d1 |* b/ j6 h7 PCheckContainsText <$STR(S41)> \
CheckContainsText <$STR(S41)> $
CheckContainsText <$STR(S41)> &
9 T; S5 a: }, ]CheckContainsText <$STR(S41)> 妈
CheckContainsText <$STR(S41)> 逼
CheckContainsText <$STR(S41)> 操
CheckContainsText <$STR(S41)> 服
CheckContainsText <$STR(S41)> 贱
, k* z+ T. s3 Z$ P) _( v& k6 ^CheckContainsText <$STR(S41)> 客
CheckContainsText <$STR(S41)> G
CheckContainsText <$STR(S41)> M
CheckContainsText <$STR(S41)> 内
/ g/ o; F: u3 F& QCheckContainsText <$STR(S41)> 比
+ Y) ~8 O7 l% i4 r6 u- R3 Y; ]CheckContainsText <$STR(S41)> 例
CheckContainsText <$STR(S41)> 托
1 E# V$ R( [3 H2 u5 YCheckContainsText <$STR(S41)> 脱
& q' y" X" Y7 B, s& w* V/ h+ YCheckContainsText <$STR(S41)> 拖
7 [1 M  X1 _3 Q- V" XCheckContainsText <$STR(S41)> Q
. R) r: j7 s- B0 |* }CheckContainsText <$STR(S41)> W
2 [2 k; u% D% F# N' JCheckContainsText <$STR(S41)> E
CheckContainsText <$STR(S41)> R
CheckContainsText <$STR(S41)> T
; K. b' W/ p" V' u& m9 J% ECheckContainsText <$STR(S41)> Y
CheckContainsText <$STR(S41)> U
CheckContainsText <$STR(S41)> I
CheckContainsText <$STR(S41)> O
CheckContainsText <$STR(S41)> P
' X0 k/ o" t' w% Q; B* CCheckContainsText <$STR(S41)> A
CheckContainsText <$STR(S41)> S
/ e6 z5 e- p' Y* u- cCheckContainsText <$STR(S41)> D
CheckContainsText <$STR(S41)> F
0 u2 x2 O* e( T8 z$ z, nCheckContainsText <$STR(S41)> G
CheckContainsText <$STR(S41)> H
! \: P' V% F7 Z7 m& @: }8 `+ Z& dCheckContainsText <$STR(S41)> J
CheckContainsText <$STR(S41)> K
CheckContainsText <$STR(S41)> L
4 V0 k2 g. e1 x! XCheckContainsText <$STR(S41)> Z
CheckContainsText <$STR(S41)> X
1 }; d1 q! w: ]# Z0 \5 jCheckContainsText <$STR(S41)> C
" j3 O1 _) g! B8 }CheckContainsText <$STR(S41)> V
CheckContainsText <$STR(S41)> B
, V0 |) V8 ?: x7 `$ u! B5 C0 NCheckContainsText <$STR(S41)> N
CheckContainsText <$STR(S41)> M
( ^2 a, j, v  X#act
MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
9 n4 J$ C" s) x2 Z3 ]break
#ELSEACT
GOTO @main
BREAK
. O2 _8 _4 ]6 H1 A" \( N4 Q( n6 I
! j" @8 D) K; v6 O4 O4 E+ x+ A[@喊话传音2]
#IF
3 q! M( S1 W9 W0 f+ P" R0 U+ |EQUAL S42
#ACT
1 ~$ F. U+ _: F2 {, s  @MESSAGEBOX 请先设置喊话内容！
+ x8 |, x# K+ B6 }0 u9 V6 x. D3 j7 s/ t0 e3 sBREAK

9 v1 ^$ V( j7 b" d#IF
1 t( M$ O- N1 ?3 z. U8 hcheckgold 1
( l. }2 v8 ~& n, s#ACT
" z9 g1 r" F2 ]4 `/ \" iTAKE 金币 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}
BREAK
8 `, i/ P* ^8 K2 Q' b#ELSEACT
. Z. q" E" E+ w( {MESSAGEBOX 你金币不足1个，无法喊话！
2 `2 Y' \: Q  }- a6 \% C$ MBREAK
  ^$ V6 o5 ?+ D
[@InPutString42]
#or
: L- `- {8 g; T/ DCheckContainsText <$STR(S42)> @
CheckContainsText <$STR(S42)> (
CheckContainsText <$STR(S42)> )
) v$ ^5 g4 X; `  BCheckContainsText <$STR(S42)> [
CheckContainsText <$STR(S42)> ]
; c/ R) O% C' r7 c% k* ZCheckContainsText <$STR(S42)> {
CheckContainsText <$STR(S42)> }
  Q  U. O) T4 Z$ U; ^  n+ eCheckContainsText <$STR(S42)> *
CheckContainsText <$STR(S42)> /
CheckContainsText <$STR(S42)> \
CheckContainsText <$STR(S42)> $
- }2 t& D2 B3 NCheckContainsText <$STR(S42)> &
; E, u4 m. G5 TCheckContainsText <$STR(S42)> 妈
CheckContainsText <$STR(S42)> 逼
CheckContainsText <$STR(S42)> 操
' z* T! z( k4 k: s7 QCheckContainsText <$STR(S42)> 服
CheckContainsText <$STR(S42)> 贱
CheckContainsText <$STR(S42)> 客
CheckContainsText <$STR(S42)> G
CheckContainsText <$STR(S42)> M
' J- I+ }8 G, A+ b  u2 s( w- OCheckContainsText <$STR(S42)> 内
6 }& I8 ]) B- n2 l* Q3 V# u6 j/ F# wCheckContainsText <$STR(S42)> 比
CheckContainsText <$STR(S42)> 例
" i2 Y; q' S$ O; q  yCheckContainsText <$STR(S42)> 托
CheckContainsText <$STR(S42)> 脱
' [8 w; M$ K1 S9 I. d( \CheckContainsText <$STR(S42)> 拖
CheckContainsText <$STR(S42)> Q
2 k! `% S6 \6 b" `" Y* }( n# NCheckContainsText <$STR(S42)> W
1 ~% V1 S! g! qCheckContainsText <$STR(S42)> E
CheckContainsText <$STR(S42)> R
. w( m' b' x8 B' D/ n8 P9 T; eCheckContainsText <$STR(S42)> T
4 N' |, r9 O/ P( ?; _. a, |: ECheckContainsText <$STR(S42)> Y
6 B5 ^* Y1 W, `/ J1 ECheckContainsText <$STR(S42)> U
5 P+ Q+ U$ h( K1 U& \2 p& NCheckContainsText <$STR(S42)> I
CheckContainsText <$STR(S42)> O
0 Y; s3 Z  ?0 a1 }CheckContainsText <$STR(S42)> P
CheckContainsText <$STR(S42)> A
CheckContainsText <$STR(S42)> S
CheckContainsText <$STR(S42)> D
5 P' _4 G7 X. rCheckContainsText <$STR(S42)> F
, s& H! h( e$ D) f1 mCheckContainsText <$STR(S42)> G
CheckContainsText <$STR(S42)> H
CheckContainsText <$STR(S42)> J
& }# K; o6 Z1 V7 }6 O& \/ E6 ]+ nCheckContainsText <$STR(S42)> K
" [3 _, U; B* T+ Z$ OCheckContainsText <$STR(S42)> L
1 V% C' f- Z, X& E; o: N) tCheckContainsText <$STR(S42)> Z
CheckContainsText <$STR(S42)> X
CheckContainsText <$STR(S42)> C
* k8 c6 O) `6 ^2 h# r; s* I; cCheckContainsText <$STR(S42)> V
* a+ I! ]- g$ w* }' ^% ]& \! qCheckContainsText <$STR(S42)> B
CheckContainsText <$STR(S42)> N
& G) M3 K& [6 m  E- l% h  n$ zCheckContainsText <$STR(S42)> M
4 ]* F; {: e  i8 Z# A* m#act
MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
& d- o" B- Y1 P8 V$ g; \. ]; Vbreak
% i6 Y5 O; \$ w3 n5 x#ELSEACT
GOTO @main
8 y% P1 M7 i9 M4 B) mBREAK
6 k$ j$ P; A& U% j+ J7 H% ^
[@喊话传音3]
1 D3 _) ]$ S, L3 q0 |#IF
% ?" R6 ]" ^1 o% Z! ?EQUAL S43
#ACT
MESSAGEBOX 请先设置喊话内容！
7 C1 b& [) E& M  \BREAK

#IF
checkgold 1
#ACT
TAKE 金币 1
SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S43)>/FCOLOR=251}
  F- s6 s) T- O4 v# xSENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S43)>|151:0:1}
BREAK
#ELSEACT
MESSAGEBOX 你金币不足1个，无法喊话！
BREAK
7 J. r! Q0 e: V
& Z9 l) w# V# M4 O- t[@InPutString43]
#or
CheckContainsText <$STR(S43)> @
$ \5 y9 Z! J$ e+ w9 P1 LCheckContainsText <$STR(S43)> (
CheckContainsText <$STR(S43)> )
CheckContainsText <$STR(S43)> [
CheckContainsText <$STR(S43)> ]
CheckContainsText <$STR(S43)> {
CheckContainsText <$STR(S43)> }
# @1 H7 e: _% gCheckContainsText <$STR(S43)> *
CheckContainsText <$STR(S43)> /
; n4 j7 U0 \+ \, F, BCheckContainsText <$STR(S43)> \
. U& N0 y2 N! L$ y1 o$ S6 ZCheckContainsText <$STR(S43)> $
CheckContainsText <$STR(S43)> &
CheckContainsText <$STR(S43)> 妈
$ I  n# O* @1 [# f/ I6 lCheckContainsText <$STR(S43)> 逼
# Q& q8 B. i  J6 c0 kCheckContainsText <$STR(S43)> 操
6 s# F# h) p, F" m# |1 b" q/ JCheckContainsText <$STR(S43)> 服
7 l1 \, n* P$ aCheckContainsText <$STR(S43)> 贱
+ Y5 ]  Z% N0 E0 F' pCheckContainsText <$STR(S43)> 客
2 Y' d0 o! j7 \* u9 ZCheckContainsText <$STR(S43)> G
  A5 C3 B6 I# j6 @) ^8 UCheckContainsText <$STR(S43)> M
CheckContainsText <$STR(S43)> 内
7 @, O, a9 j4 ?CheckContainsText <$STR(S43)> 比
CheckContainsText <$STR(S43)> 例
8 {' `" @4 ?! g+ a" m( `' i) Y' hCheckContainsText <$STR(S43)> 托
( R7 T/ s$ R* g) g7 K$ D3 ^CheckContainsText <$STR(S43)> 脱
CheckContainsText <$STR(S43)> 拖
2 |2 S( f$ h; b) c' N4 d. ZCheckContainsText <$STR(S43)> Q
CheckContainsText <$STR(S43)> W
7 ?% D6 u) g; Q1 ~& Z6 W" H) b) wCheckContainsText <$STR(S43)> E
, {. N" T6 o8 o1 ]( L: ZCheckContainsText <$STR(S43)> R
* M7 W6 {3 R5 F5 P3 s5 KCheckContainsText <$STR(S43)> T
CheckContainsText <$STR(S43)> Y
CheckContainsText <$STR(S43)> U
, V, N. }7 i4 z  E! O# n9 NCheckContainsText <$STR(S43)> I
5 D$ n5 {6 b( `- K) mCheckContainsText <$STR(S43)> O
0 m0 \2 X9 |7 mCheckContainsText <$STR(S43)> P
) I! v7 Z6 g, _2 P2 R5 N  ]CheckContainsText <$STR(S43)> A
& B7 m4 M" _+ ]4 wCheckContainsText <$STR(S43)> S
2 ~7 a% |% K6 [' ZCheckContainsText <$STR(S43)> D
; r7 d: b. N& a( T  f6 b0 CCheckContainsText <$STR(S43)> F
4 }% w; C: m( `3 x3 F, Z& PCheckContainsText <$STR(S43)> G
CheckContainsText <$STR(S43)> H
# t9 r) n( g0 R& }8 c& qCheckContainsText <$STR(S43)> J
CheckContainsText <$STR(S43)> K
CheckContainsText <$STR(S43)> L
$ J  M, j" K, I( }CheckContainsText <$STR(S43)> Z
2 V0 S% O( P# X  N8 `9 J# vCheckContainsText <$STR(S43)> X
CheckContainsText <$STR(S43)> C
/ Q; U' m2 {1 Q- h" d: z: rCheckContainsText <$STR(S43)> V
7 P3 G  m! H2 k8 ~( f8 \CheckContainsText <$STR(S43)> B
3 T. c5 ^) T% A/ NCheckContainsText <$STR(S43)> N
. d/ Y$ ^' k( K" K: k5 ~# T* dCheckContainsText <$STR(S43)> M
. I. M/ D6 e# p+ P" j#act
MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
break
- n: d- ~+ P6 }, k  a3 G* h$ o7 Q- s% q#ELSEACT
GOTO @main
5 v7 h5 }3 c) z5 i$ ^BREAK
% y, ^( C. v" }4 m