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

[@main]
# u& g5 \: e; q1 F( Y% Q<--------------------------/SCOLOR=229> <千里传音/SCOLOR=9> <--------------------------/SCOLOR=229>\
\ \
9 |9 B: w- }. o* T8 a<此信息显示在屏幕正中间，从右向左飘出，全服都能看见！高端大气！/SCOLOR=250>\
; M& r! G. T$ v6 \; C) \- z3 ~<每次千里传音需要1金币!/SCOLOR=250>\
3 f! p# u: \4 ~# k<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>\
. ?% E  x( n  o<进行喊话/@喊话传音2>  <设置内容2{FCOLOR=70}/@@InPutString42>  <当前喊话内容：/fColor=254><$STR(S42)>\
( b. z) R  G2 q9 i" i$ N<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>\

9 q' p3 O% g( e; c[@喊话传音1]
#IF
, Y: s' S/ [) SEQUAL S41
0 H0 l7 H0 W8 V0 V3 [0 g/ Q#ACT
MESSAGEBOX 请先设置喊话内容！
BREAK
. k0 }  G! z: u$ d+ E
#IF
. _; ?0 T0 k& M) u* ?8 b# ocheckgold 1
#ACT
TAKE 金币 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}
! @- ~2 g/ c. p8 d$ GBREAK
2 d5 y! `/ y( n4 D. D, J2 V5 Z! K6 G#ELSEACT
0 _* M# J* \5 e% sMESSAGEBOX 你金币不足1个，无法喊话！
BREAK

% G  ?# e" ^9 r9 S: j3 f3 U5 w& ][@InPutString41]
, Q7 \0 r/ `: l2 G#or
$ p9 C' |/ q' s  O4 W5 y( |CheckContainsText <$STR(S41)> @
CheckContainsText <$STR(S41)> (
CheckContainsText <$STR(S41)> )
CheckContainsText <$STR(S41)> [
  F# B' `$ B: jCheckContainsText <$STR(S41)> ]
CheckContainsText <$STR(S41)> {
" w% H! l& o5 Y* M, ~( H4 ]CheckContainsText <$STR(S41)> }
CheckContainsText <$STR(S41)> *
0 N; M4 N9 N9 @' bCheckContainsText <$STR(S41)> /
5 T  m2 {- H4 c( i9 v0 I" a. h* B5 L! vCheckContainsText <$STR(S41)> \
CheckContainsText <$STR(S41)> $
CheckContainsText <$STR(S41)> &
CheckContainsText <$STR(S41)> 妈
2 N4 y1 j' U9 N3 }: ]CheckContainsText <$STR(S41)> 逼
$ T6 z! {" o* DCheckContainsText <$STR(S41)> 操
; M* E+ O4 i; ^) iCheckContainsText <$STR(S41)> 服
6 m  k7 R' g3 E4 x' oCheckContainsText <$STR(S41)> 贱
0 B+ Y. y+ h! j* w  r" W# CCheckContainsText <$STR(S41)> 客
+ a' t* D1 K3 [( bCheckContainsText <$STR(S41)> G
; q6 u0 z8 h5 [' tCheckContainsText <$STR(S41)> M
) D6 ]! _# f( y8 z5 MCheckContainsText <$STR(S41)> 内
CheckContainsText <$STR(S41)> 比
CheckContainsText <$STR(S41)> 例
9 g" `, q  L. B0 A' PCheckContainsText <$STR(S41)> 托
5 C# c: E/ h- gCheckContainsText <$STR(S41)> 脱
2 L" K& \1 k" L7 e% CCheckContainsText <$STR(S41)> 拖
CheckContainsText <$STR(S41)> Q
CheckContainsText <$STR(S41)> W
CheckContainsText <$STR(S41)> E
CheckContainsText <$STR(S41)> R
CheckContainsText <$STR(S41)> T
/ G. n  D) e* u! pCheckContainsText <$STR(S41)> Y
- Y- R; v6 H7 M" E2 GCheckContainsText <$STR(S41)> U
CheckContainsText <$STR(S41)> I
) n. H- J) E2 Q0 Y, D- d( x! n6 nCheckContainsText <$STR(S41)> O
CheckContainsText <$STR(S41)> P
7 S8 c8 R7 V( @* n3 C4 B9 MCheckContainsText <$STR(S41)> A
7 m. r2 v. d- f, d( WCheckContainsText <$STR(S41)> S
CheckContainsText <$STR(S41)> D
9 v/ X0 {1 B$ i+ \- M4 u7 pCheckContainsText <$STR(S41)> F
CheckContainsText <$STR(S41)> G
8 z1 [& H) R5 M% u) h' W% o9 JCheckContainsText <$STR(S41)> H
0 f( V: F& ?) Q7 O; w* ICheckContainsText <$STR(S41)> J
CheckContainsText <$STR(S41)> K
& z6 e, s9 |9 C1 j8 A8 qCheckContainsText <$STR(S41)> L
! S( T- I- R! `, f5 X% i0 {0 QCheckContainsText <$STR(S41)> Z
CheckContainsText <$STR(S41)> X
0 i3 }! h; c6 UCheckContainsText <$STR(S41)> C
/ c3 u* H/ L6 X2 kCheckContainsText <$STR(S41)> V
CheckContainsText <$STR(S41)> B
CheckContainsText <$STR(S41)> N
& ?; G# F; }) ^, S  ZCheckContainsText <$STR(S41)> M
# ^* T' K* G' c  @7 b#act
1 C) I( m1 ~3 F  h/ rMESSAGEBOX 输入内容包含特殊字符，无法提交！！！
break
( f) A1 a' r0 J5 F7 G#ELSEACT
. o4 h* g6 O5 U. K; NGOTO @main
BREAK

; z- G* y, \% Q- e; j. A# _[@喊话传音2]
#IF
/ f  b! M5 ~: t# C2 }; wEQUAL S42
#ACT
6 R/ t9 ^2 \' A& r+ XMESSAGEBOX 请先设置喊话内容！
% N) P  H& r8 ^0 P9 x# A0 T# lBREAK

#IF
$ y$ j2 v; _' j9 X6 f5 m9 w4 scheckgold 1
0 t( r: F; T# E! j# B#ACT
TAKE 金币 1
# |, B: ^  k2 \8 y+ M; ^SENDMOVEMSG 0 253 255 300 1 {【千里传音】/FCOLOR=250}{【<$USERNAME>】：/FCOLOR=70}{<$STR(S42)>/FCOLOR=251}
# H8 J' I0 j5 Z$ p0 @SENDMSG 1 151 235 {【千里传音】|250:0:1}{【<$USERNAME>】：|70:0:1}{<$STR(S42)>|151:0:1}
BREAK
#ELSEACT
MESSAGEBOX 你金币不足1个，无法喊话！
% H/ {1 u3 w5 j2 c  |2 e" oBREAK
- Q& j* z" G; \1 e6 G
6 a6 p# B  G' @/ k: w2 d5 G[@InPutString42]
#or
8 q5 t" o$ B2 ]2 e3 R. U8 G( ^- kCheckContainsText <$STR(S42)> @
CheckContainsText <$STR(S42)> (
1 f+ f2 u, O/ b$ ?CheckContainsText <$STR(S42)> )
4 N3 Z7 Y) W- X/ TCheckContainsText <$STR(S42)> [
CheckContainsText <$STR(S42)> ]
CheckContainsText <$STR(S42)> {
. l- ^4 V- S! B/ z0 eCheckContainsText <$STR(S42)> }
CheckContainsText <$STR(S42)> *
  X* c) N+ i2 p! Z. y& q( |' P$ g2 oCheckContainsText <$STR(S42)> /
+ C; @& D5 b5 {* B* m1 u( C8 cCheckContainsText <$STR(S42)> \
4 |  Z. c% X# l9 ~CheckContainsText <$STR(S42)> $
CheckContainsText <$STR(S42)> &
CheckContainsText <$STR(S42)> 妈
CheckContainsText <$STR(S42)> 逼
CheckContainsText <$STR(S42)> 操
CheckContainsText <$STR(S42)> 服
1 J" D# x3 l) gCheckContainsText <$STR(S42)> 贱
* ]$ x. U3 f0 PCheckContainsText <$STR(S42)> 客
CheckContainsText <$STR(S42)> G
, f. I- Y6 e1 f: gCheckContainsText <$STR(S42)> M
CheckContainsText <$STR(S42)> 内
CheckContainsText <$STR(S42)> 比
CheckContainsText <$STR(S42)> 例
CheckContainsText <$STR(S42)> 托
CheckContainsText <$STR(S42)> 脱
  z/ ~+ l: y" F+ kCheckContainsText <$STR(S42)> 拖
CheckContainsText <$STR(S42)> Q
1 R# V3 h% v$ d  R  ]CheckContainsText <$STR(S42)> W
/ I; R9 t' B$ E8 OCheckContainsText <$STR(S42)> E
CheckContainsText <$STR(S42)> R
1 |. m/ g8 @# d4 H; ?CheckContainsText <$STR(S42)> T
CheckContainsText <$STR(S42)> Y
CheckContainsText <$STR(S42)> U
! j& N6 X# |( k4 i! n& fCheckContainsText <$STR(S42)> I
CheckContainsText <$STR(S42)> O
8 o. ~9 J! {2 L1 ]CheckContainsText <$STR(S42)> P
+ ^: l$ R/ d0 hCheckContainsText <$STR(S42)> A
/ K& ~8 w  ]3 f. f- \% S1 o* xCheckContainsText <$STR(S42)> S
CheckContainsText <$STR(S42)> D
CheckContainsText <$STR(S42)> F
CheckContainsText <$STR(S42)> G
CheckContainsText <$STR(S42)> H
& d; c9 [' f  _5 iCheckContainsText <$STR(S42)> J
+ ~6 U$ x2 r. UCheckContainsText <$STR(S42)> K
CheckContainsText <$STR(S42)> L
1 x, Y- E1 _, p, oCheckContainsText <$STR(S42)> Z
CheckContainsText <$STR(S42)> X
9 _7 X, f) @1 D" E, u. bCheckContainsText <$STR(S42)> C
CheckContainsText <$STR(S42)> V
4 [* M# p) c: |9 f9 uCheckContainsText <$STR(S42)> B
0 q& a! H+ p/ c, j( qCheckContainsText <$STR(S42)> N
CheckContainsText <$STR(S42)> M
#act
: b9 ^" z- d; P3 S. Z) ]MESSAGEBOX 输入内容包含特殊字符，无法提交！！！
" R# _* v2 \9 Jbreak
6 G) I, e1 P# I1 I6 X' _#ELSEACT
( ]1 {1 r6 I0 v" \* QGOTO @main
; F& `5 [& D% o2 t; V6 QBREAK
8 \1 @+ T7 N. X7 ]
$ r9 E# s) R3 r+ p( l1 o[@喊话传音3]
1 Y5 ^) e# ]2 S#IF
$ Z; N& d* m- r, x* m& z4 ]7 N) AEQUAL S43
#ACT
MESSAGEBOX 请先设置喊话内容！
BREAK

#IF
checkgold 1
2 I  v7 u4 j: m9 A! }#ACT
. K# l, _- ~- T, CTAKE 金币 1
SENDMOVEMSG 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
#ELSEACT
MESSAGEBOX 你金币不足1个，无法喊话！
' o% p) F' r  `) I; IBREAK
3 u1 }8 g0 T  `! X$ S) P+ x  X
; w. w# @# w' D6 m' Q( w' ^' Z. \[@InPutString43]
- N' j7 a3 v8 O' R* P: O#or
# j9 o" @/ X) e* A9 Y: k) X' [CheckContainsText <$STR(S43)> @
. |7 r! g) L& w* `% _CheckContainsText <$STR(S43)> (
CheckContainsText <$STR(S43)> )
CheckContainsText <$STR(S43)> [
( p) B2 t9 Q& B" V* y; K- r8 gCheckContainsText <$STR(S43)> ]
CheckContainsText <$STR(S43)> {
% s) v! z# D0 S1 Z9 @CheckContainsText <$STR(S43)> }
# u5 n* o: \) T  R! FCheckContainsText <$STR(S43)> *
3 p( g6 |% Z9 p3 |! F$ c7 d* ?CheckContainsText <$STR(S43)> /
CheckContainsText <$STR(S43)> \
CheckContainsText <$STR(S43)> $
6 L$ |; B0 `" {+ H' NCheckContainsText <$STR(S43)> &
; t' o4 }8 f+ O! B/ |+ `9 w9 }CheckContainsText <$STR(S43)> 妈
* s4 m3 o2 V1 l& cCheckContainsText <$STR(S43)> 逼
  A& ?, C+ Q  r4 Z+ G: dCheckContainsText <$STR(S43)> 操
CheckContainsText <$STR(S43)> 服
CheckContainsText <$STR(S43)> 贱
CheckContainsText <$STR(S43)> 客
7 S9 G9 X4 l- A, v2 h' v; XCheckContainsText <$STR(S43)> G
CheckContainsText <$STR(S43)> M
CheckContainsText <$STR(S43)> 内
% R# p+ z3 [. f# o6 uCheckContainsText <$STR(S43)> 比
CheckContainsText <$STR(S43)> 例
CheckContainsText <$STR(S43)> 托
4 M5 G" Y8 k8 k8 E& K& kCheckContainsText <$STR(S43)> 脱
CheckContainsText <$STR(S43)> 拖
CheckContainsText <$STR(S43)> Q
) p1 h! o; E) ~* S6 P  M5 vCheckContainsText <$STR(S43)> W
CheckContainsText <$STR(S43)> E
: [) J8 h  h( `9 f5 OCheckContainsText <$STR(S43)> R
CheckContainsText <$STR(S43)> T
' [' p$ E/ Z- o6 p4 YCheckContainsText <$STR(S43)> Y
( \$ S" `/ x6 o3 O$ ^# \8 g  U* ZCheckContainsText <$STR(S43)> U
! y& Z. S& [  vCheckContainsText <$STR(S43)> I
CheckContainsText <$STR(S43)> O
' ]' l; U8 l3 u; `5 BCheckContainsText <$STR(S43)> P
CheckContainsText <$STR(S43)> A
# y* @' H* S; f8 G! bCheckContainsText <$STR(S43)> S
5 y4 {4 G" u0 \8 k7 T0 S8 ^CheckContainsText <$STR(S43)> D
CheckContainsText <$STR(S43)> F
CheckContainsText <$STR(S43)> G
( u# [& y1 I" }+ lCheckContainsText <$STR(S43)> H
CheckContainsText <$STR(S43)> J
7 L2 N' ]1 ^$ X- n% }CheckContainsText <$STR(S43)> K
, q7 O% f0 N. x1 A8 Y7 v- bCheckContainsText <$STR(S43)> L
CheckContainsText <$STR(S43)> Z
CheckContainsText <$STR(S43)> X
3 J$ U* d- m5 x0 kCheckContainsText <$STR(S43)> C
CheckContainsText <$STR(S43)> V
CheckContainsText <$STR(S43)> B
CheckContainsText <$STR(S43)> N
CheckContainsText <$STR(S43)> M
5 Y0 d" R; ^% [2 Z* m7 V$ ?#act
6 Q; N5 i' W; i/ CMESSAGEBOX 输入内容包含特殊字符，无法提交！！！
7 Z9 _- G  {2 X( i! K8 r! Obreak
#ELSEACT
GOTO @main
BREAK
# |9 m/ h& v) W' k8 b3 K