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

[@main]
% J' L7 n. j3 s) n5 p<--------------------------/SCOLOR=229> <千里传音/SCOLOR=9> <--------------------------/SCOLOR=229>\
\ \
<此信息显示在屏幕正中间，从右向左飘出，全服都能看见！高端大气！/SCOLOR=250>\
<每次千里传音需要1金币!/SCOLOR=250>\
<Img:685:6:-6:4><Img:685:6:-241:4>\
* V* ]2 a* |2 `; ~% l1 Y+ J<进行喊话/@喊话传音1>  <设置内容1{FCOLOR=70}/@@InPutString41>  <当前喊话内容：/fColor=254><$STR(S41)>\
# ]) D& ?: h" }7 u<Img:685:6:-6:4><Img:685:6:-241:4>\
# `7 U0 l8 K- D, W$ w6 `" V<进行喊话/@喊话传音2>  <设置内容2{FCOLOR=70}/@@InPutString42>  <当前喊话内容：/fColor=254><$STR(S42)>\
" r8 \/ t% `6 n3 S5 N<Img:685:6:-6:4><Img:685:6:-241:4>\
9 N8 ~7 `/ ~4 e* P$ r. Y<进行喊话/@喊话传音3>  <设置内容3{FCOLOR=70}/@@InPutString43>  <当前喊话内容：/fColor=254><$STR(S43)>\
( t+ `  x% y- R: b% _  ?<Img:685:6:-6:4><Img:685:6:-241:4>\
' Y! t5 V. b$ h& R7 S/ F% I: y
. p  _/ k  \, K[@喊话传音1]
$ Q$ c7 g6 v& |4 Q( ?#IF
EQUAL S41
#ACT
  }  |# Z: n! p0 gMESSAGEBOX 请先设置喊话内容！
BREAK

#IF
" [; y( i" _, I3 y2 Hcheckgold 1
9 G+ [' a2 J! W#ACT
# X, E$ M% w3 n0 ^4 k. Y& VTAKE 金币 1
SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S41)>/FCOLOR=251}
SENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S41)>|151:0:1}
9 E' o  ]# H! `0 i* l8 K0 {BREAK
+ b: t8 t; v- K( T2 L2 L#ELSEACT
9 f$ Y1 L5 z$ j7 }9 D9 c) gMESSAGEBOX 你金币不足1个，无法喊话！
BREAK
5 t4 U. F$ N. I- s/ n- |6 E4 i
[@InPutString41]
) P6 w0 z( I# y) N. n#or
CheckContainsText <$STR(S41)> @
CheckContainsText <$STR(S41)> (
CheckContainsText <$STR(S41)> )
CheckContainsText <$STR(S41)> [
CheckContainsText <$STR(S41)> ]
CheckContainsText <$STR(S41)> {
CheckContainsText <$STR(S41)> }
CheckContainsText <$STR(S41)> *
5 Z( O* l2 P0 {4 t: L' SCheckContainsText <$STR(S41)> /
CheckContainsText <$STR(S41)> \
CheckContainsText <$STR(S41)> $
CheckContainsText <$STR(S41)> &
CheckContainsText <$STR(S41)> 妈
6 f- I! L% w2 ~# Z3 FCheckContainsText <$STR(S41)> 逼
* `  F, X7 I2 p1 O3 e# f% ~/ q7 kCheckContainsText <$STR(S41)> 操
  I3 v2 a6 U" }+ NCheckContainsText <$STR(S41)> 服
4 {5 h% B! ]4 [7 N0 Y$ S* h! wCheckContainsText <$STR(S41)> 贱
3 A4 v5 k/ c/ n' Y3 q$ GCheckContainsText <$STR(S41)> 客
8 h3 O1 W! q7 FCheckContainsText <$STR(S41)> G
, S% k1 ~8 r# W  BCheckContainsText <$STR(S41)> M
CheckContainsText <$STR(S41)> 内
CheckContainsText <$STR(S41)> 比
CheckContainsText <$STR(S41)> 例
CheckContainsText <$STR(S41)> 托
CheckContainsText <$STR(S41)> 脱
. a* L! e' l+ q, R+ \CheckContainsText <$STR(S41)> 拖
CheckContainsText <$STR(S41)> Q
CheckContainsText <$STR(S41)> W
% {# _) R2 Y' g& s1 L" V5 YCheckContainsText <$STR(S41)> E
CheckContainsText <$STR(S41)> R
CheckContainsText <$STR(S41)> T
CheckContainsText <$STR(S41)> Y
8 x  g" ?( `) l- V0 uCheckContainsText <$STR(S41)> U
3 e) G1 k% z- f9 ?$ [CheckContainsText <$STR(S41)> I
& w0 p. f3 q/ n' vCheckContainsText <$STR(S41)> O
CheckContainsText <$STR(S41)> P
CheckContainsText <$STR(S41)> A
- q, f! U7 ?9 w2 g% j  }' hCheckContainsText <$STR(S41)> S
! j: U+ m1 G8 ?7 [+ H! ]+ [) D* ^$ SCheckContainsText <$STR(S41)> D
2 J* x& P" S, d6 kCheckContainsText <$STR(S41)> F
' y% Y0 X$ G3 NCheckContainsText <$STR(S41)> G
CheckContainsText <$STR(S41)> H
CheckContainsText <$STR(S41)> J
CheckContainsText <$STR(S41)> K
6 x$ I: n) z" D% z. P* F$ |1 MCheckContainsText <$STR(S41)> L
CheckContainsText <$STR(S41)> Z
9 }. F; p( m" S& N; |CheckContainsText <$STR(S41)> X
CheckContainsText <$STR(S41)> C
. [, x& I6 r  Y& B! `CheckContainsText <$STR(S41)> V
CheckContainsText <$STR(S41)> B
; F( h( D' j( W2 E! J% sCheckContainsText <$STR(S41)> N
0 q6 S; z1 `" ~7 b5 v8 i' L* K5 Y7 rCheckContainsText <$STR(S41)> M
#act
* w, y7 x" @* ~% N7 Y  {MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
+ M2 G) K$ g% A' Ubreak
7 H2 n* n1 w1 A% D2 b0 J; l6 R' v#ELSEACT
, g6 U+ k0 i- v+ l, J1 p8 _2 C7 {GOTO @main
BREAK
0 @. p, w" I8 H8 \
[@喊话传音2]
#IF
EQUAL S42
#ACT
MESSAGEBOX 请先设置喊话内容！
BREAK
  u& f8 [4 a/ r2 E) B
#IF
! z) l7 @- J$ g2 dcheckgold 1
: f7 R9 G) _2 m9 e' R#ACT
* A5 @, U2 B& J5 ^& a8 JTAKE 金币 1
SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S42)>/FCOLOR=251}
/ X- r6 p9 O6 Z: t* PSENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S42)>|151:0:1}
( V8 q' t6 ?) i! P& n  ]7 E3 m) xBREAK
#ELSEACT
8 M( K+ }: b& A$ X1 |/ ~# N0 UMESSAGEBOX 你金币不足1个，无法喊话！
BREAK

[@InPutString42]
6 x3 `0 d, l; L: q: f7 V# t+ V9 J#or
CheckContainsText <$STR(S42)> @
; a4 I6 ~- S' KCheckContainsText <$STR(S42)> (
CheckContainsText <$STR(S42)> )
, m8 f: s. L( H8 `, TCheckContainsText <$STR(S42)> [
* o) c' R* ^9 X7 t2 z( cCheckContainsText <$STR(S42)> ]
/ C; d4 l4 x# I& w$ XCheckContainsText <$STR(S42)> {
+ y2 e* B6 e! bCheckContainsText <$STR(S42)> }
, `& P: }6 n2 [$ {CheckContainsText <$STR(S42)> *
4 L* x  ^: _5 s! ?$ V- dCheckContainsText <$STR(S42)> /
/ d) |( c4 j$ b, O+ v* i* ECheckContainsText <$STR(S42)> \
CheckContainsText <$STR(S42)> $
; O$ Z- @7 y% OCheckContainsText <$STR(S42)> &
CheckContainsText <$STR(S42)> 妈
$ @4 \! n1 y" H+ I  k7 Y3 ^CheckContainsText <$STR(S42)> 逼
0 R5 b; m" F  z9 VCheckContainsText <$STR(S42)> 操
3 V& j2 a- X3 |* PCheckContainsText <$STR(S42)> 服
( K4 ?( h3 b: VCheckContainsText <$STR(S42)> 贱
7 R1 d2 w" E* Y6 M9 GCheckContainsText <$STR(S42)> 客
8 k3 C- B5 U, L/ B! z& iCheckContainsText <$STR(S42)> G
/ k# I% o8 N  g1 j: j/ Q# BCheckContainsText <$STR(S42)> M
: i3 O6 }5 s! Q7 PCheckContainsText <$STR(S42)> 内
3 V6 V. l, \2 c7 b( h0 BCheckContainsText <$STR(S42)> 比
CheckContainsText <$STR(S42)> 例
% t5 D9 M, \0 e1 BCheckContainsText <$STR(S42)> 托
CheckContainsText <$STR(S42)> 脱
( v+ _3 }" h5 }) W4 xCheckContainsText <$STR(S42)> 拖
CheckContainsText <$STR(S42)> Q
CheckContainsText <$STR(S42)> W
CheckContainsText <$STR(S42)> E
CheckContainsText <$STR(S42)> R
6 w6 _, k# h+ r4 bCheckContainsText <$STR(S42)> T
CheckContainsText <$STR(S42)> Y
8 z. c8 @! z: x- U) F, vCheckContainsText <$STR(S42)> U
CheckContainsText <$STR(S42)> I
9 ^' V0 S: }; S# k5 DCheckContainsText <$STR(S42)> O
# J1 J6 E* Z2 [, l+ |% hCheckContainsText <$STR(S42)> P
7 J8 X. P& z& V! U. F4 P' l& }CheckContainsText <$STR(S42)> A
. S5 L' r4 ^; w+ ]4 K8 e8 g2 `CheckContainsText <$STR(S42)> S
/ F& B# p2 j' A# P9 ^: \CheckContainsText <$STR(S42)> D
3 @8 d  B# p6 r% X1 ?0 tCheckContainsText <$STR(S42)> F
CheckContainsText <$STR(S42)> G
CheckContainsText <$STR(S42)> H
9 h5 u3 w/ W: s" b6 i2 QCheckContainsText <$STR(S42)> J
+ I* M# C, u, x4 ^. bCheckContainsText <$STR(S42)> K
CheckContainsText <$STR(S42)> L
" @" L6 q. D. u' `* HCheckContainsText <$STR(S42)> Z
- N, l3 n. W, nCheckContainsText <$STR(S42)> X
9 m( k1 P/ O! |4 ~% N' PCheckContainsText <$STR(S42)> C
CheckContainsText <$STR(S42)> V
! c1 D9 [9 u  r. q, _CheckContainsText <$STR(S42)> B
CheckContainsText <$STR(S42)> N
CheckContainsText <$STR(S42)> M
#act
. V. w$ O7 e6 V$ c6 [" hMESSAGEBOX 输入内容包含特殊字符，无法提交！！！
break
9 U( W) o9 c" F, O! a5 J#ELSEACT
$ Y  W4 }. I4 |8 s& }& xGOTO @main
BREAK

" \3 H" R, ?5 H2 j[@喊话传音3]
#IF
EQUAL S43
#ACT
MESSAGEBOX 请先设置喊话内容！
BREAK

#IF
checkgold 1
" j& X' V, X9 G1 I, ^. H& z#ACT
TAKE 金币 1
/ I" R/ D% u0 I( k3 s, ASENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S43)>/FCOLOR=251}
SENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S43)>|151:0:1}
BREAK
8 f' i$ w/ z3 y$ S$ v! z#ELSEACT
MESSAGEBOX 你金币不足1个，无法喊话！
BREAK
: }* q+ N7 P4 p. I8 s% z7 s9 U
[@InPutString43]
) C0 X$ D7 b9 [) o! x#or
: s4 d! K. m$ q: x/ S- p8 m) q1 uCheckContainsText <$STR(S43)> @
CheckContainsText <$STR(S43)> (
CheckContainsText <$STR(S43)> )
4 E4 F2 O( s6 f$ r& fCheckContainsText <$STR(S43)> [
, ]% k+ W' b0 n' |CheckContainsText <$STR(S43)> ]
5 S$ N5 @' Q( Q! eCheckContainsText <$STR(S43)> {
CheckContainsText <$STR(S43)> }
& O5 r( u4 O0 b6 _CheckContainsText <$STR(S43)> *
CheckContainsText <$STR(S43)> /
CheckContainsText <$STR(S43)> \
# N6 n0 ~. k) R, l7 J( y9 QCheckContainsText <$STR(S43)> $
CheckContainsText <$STR(S43)> &
* ]- d8 e. ^7 u. dCheckContainsText <$STR(S43)> 妈
CheckContainsText <$STR(S43)> 逼
( ]6 e4 G, ^0 M/ u) `1 S& v9 zCheckContainsText <$STR(S43)> 操
# E* W: p8 S/ f) ^CheckContainsText <$STR(S43)> 服
5 T1 ^) a/ u* t; ]6 D6 JCheckContainsText <$STR(S43)> 贱
CheckContainsText <$STR(S43)> 客
CheckContainsText <$STR(S43)> G
8 d$ P  q) y, aCheckContainsText <$STR(S43)> M
CheckContainsText <$STR(S43)> 内
CheckContainsText <$STR(S43)> 比
CheckContainsText <$STR(S43)> 例
3 s8 n3 |( U, @CheckContainsText <$STR(S43)> 托
CheckContainsText <$STR(S43)> 脱
CheckContainsText <$STR(S43)> 拖
CheckContainsText <$STR(S43)> Q
  h2 b! }4 ?+ I8 NCheckContainsText <$STR(S43)> W
/ Q! g3 N; ?: M1 r6 N# d* ICheckContainsText <$STR(S43)> E
: @/ t+ x! z5 F4 K. F9 o/ K( @CheckContainsText <$STR(S43)> R
CheckContainsText <$STR(S43)> T
5 ^& U4 O4 f1 s. r+ A+ @CheckContainsText <$STR(S43)> Y
5 Q' k$ \6 U( o! PCheckContainsText <$STR(S43)> U
5 g8 o7 C8 k; j* @1 R; xCheckContainsText <$STR(S43)> I
CheckContainsText <$STR(S43)> O
CheckContainsText <$STR(S43)> P
CheckContainsText <$STR(S43)> A
CheckContainsText <$STR(S43)> S
+ h; F, p4 M/ e, Z1 W) ~CheckContainsText <$STR(S43)> D
CheckContainsText <$STR(S43)> F
CheckContainsText <$STR(S43)> G
* X4 }$ T9 V: jCheckContainsText <$STR(S43)> H
CheckContainsText <$STR(S43)> J
CheckContainsText <$STR(S43)> K
CheckContainsText <$STR(S43)> L
CheckContainsText <$STR(S43)> Z
CheckContainsText <$STR(S43)> X
5 d7 M3 d( x; tCheckContainsText <$STR(S43)> C
CheckContainsText <$STR(S43)> V
CheckContainsText <$STR(S43)> B
; g2 U& R4 ^% M* I& vCheckContainsText <$STR(S43)> N
CheckContainsText <$STR(S43)> M
#act
MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
break
( c& u; F7 f+ k) t0 e#ELSEACT
7 e0 {5 z1 X" U. DGOTO @main
! ]0 x5 s9 U6 ZBREAK