[GOM脚本] 传奇全服喇叭脚本

此全服喇叭信息显示在屏幕正中间，从右向左飘出，全服都能看见。设置好喊话内容，然后进行喊话即可。

[@main]

<--------------------------/SCOLOR=229> <千里传音/SCOLOR=9> <--------------------------/SCOLOR=229>\

 \ \

<此信息显示在屏幕正中间，从右向左飘出，全服都能看见！高端大气！/SCOLOR=250>\

<每次千里传音需要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>\

<进行喊话/@喊话传音2>  <设置内容2{FCOLOR=70}/@@InPutString42>  <当前喊话内容：/fColor=254><$STR(S42)>\

<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]

#IF

EQUAL S41 

#ACT

MESSAGEBOX 请先设置喊话内容！

BREAK

#IF

checkgold 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}

BREAK

#ELSEACT

MESSAGEBOX 你金币不足1个，无法喊话！

BREAK

[@InPutString41]

#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)> *

CheckContainsText <$STR(S41)> /

CheckContainsText <$STR(S41)> \

CheckContainsText <$STR(S41)> $

CheckContainsText <$STR(S41)> &

CheckContainsText <$STR(S41)> 妈

CheckContainsText <$STR(S41)> 逼

CheckContainsText <$STR(S41)> 操

CheckContainsText <$STR(S41)> 服

CheckContainsText <$STR(S41)> 贱

CheckContainsText <$STR(S41)> 客

CheckContainsText <$STR(S41)> G

CheckContainsText <$STR(S41)> M

CheckContainsText <$STR(S41)> 内

CheckContainsText <$STR(S41)> 比

CheckContainsText <$STR(S41)> 例

CheckContainsText <$STR(S41)> 托

CheckContainsText <$STR(S41)> 脱

CheckContainsText <$STR(S41)> 拖

CheckContainsText <$STR(S41)> Q

CheckContainsText <$STR(S41)> W

CheckContainsText <$STR(S41)> E

CheckContainsText <$STR(S41)> R

CheckContainsText <$STR(S41)> T

CheckContainsText <$STR(S41)> Y

CheckContainsText <$STR(S41)> U

CheckContainsText <$STR(S41)> I

CheckContainsText <$STR(S41)> O

CheckContainsText <$STR(S41)> P

CheckContainsText <$STR(S41)> A

CheckContainsText <$STR(S41)> S

CheckContainsText <$STR(S41)> D

CheckContainsText <$STR(S41)> F

CheckContainsText <$STR(S41)> G

CheckContainsText <$STR(S41)> H

CheckContainsText <$STR(S41)> J

CheckContainsText <$STR(S41)> K

CheckContainsText <$STR(S41)> L

CheckContainsText <$STR(S41)> Z

CheckContainsText <$STR(S41)> X

CheckContainsText <$STR(S41)> C

CheckContainsText <$STR(S41)> V

CheckContainsText <$STR(S41)> B

CheckContainsText <$STR(S41)> N

CheckContainsText <$STR(S41)> M

#act

MESSAGEBOX 输入内容包含特殊字符，无法提交！！！

break

#ELSEACT

GOTO @main

BREAK

[@喊话传音2]

#IF

EQUAL S42 

#ACT

MESSAGEBOX 请先设置喊话内容！

BREAK

#IF

checkgold 1

#ACT

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}

BREAK

#ELSEACT

MESSAGEBOX 你金币不足1个，无法喊话！

BREAK

[@InPutString42]

#or

CheckContainsText <$STR(S42)> @

CheckContainsText <$STR(S42)> (

CheckContainsText <$STR(S42)> )

CheckContainsText <$STR(S42)> [

CheckContainsText <$STR(S42)> ]

CheckContainsText <$STR(S42)> {

CheckContainsText <$STR(S42)> }

CheckContainsText <$STR(S42)> *

CheckContainsText <$STR(S42)> /

CheckContainsText <$STR(S42)> \

CheckContainsText <$STR(S42)> $

CheckContainsText <$STR(S42)> &

CheckContainsText <$STR(S42)> 妈

CheckContainsText <$STR(S42)> 逼

CheckContainsText <$STR(S42)> 操

CheckContainsText <$STR(S42)> 服

CheckContainsText <$STR(S42)> 贱

CheckContainsText <$STR(S42)> 客

CheckContainsText <$STR(S42)> G

CheckContainsText <$STR(S42)> M

CheckContainsText <$STR(S42)> 内

CheckContainsText <$STR(S42)> 比

CheckContainsText <$STR(S42)> 例

CheckContainsText <$STR(S42)> 托

CheckContainsText <$STR(S42)> 脱

CheckContainsText <$STR(S42)> 拖

CheckContainsText <$STR(S42)> Q

CheckContainsText <$STR(S42)> W

CheckContainsText <$STR(S42)> E

CheckContainsText <$STR(S42)> R

CheckContainsText <$STR(S42)> T

CheckContainsText <$STR(S42)> Y

CheckContainsText <$STR(S42)> U

CheckContainsText <$STR(S42)> I

CheckContainsText <$STR(S42)> O

CheckContainsText <$STR(S42)> P

CheckContainsText <$STR(S42)> A

CheckContainsText <$STR(S42)> S

CheckContainsText <$STR(S42)> D

CheckContainsText <$STR(S42)> F

CheckContainsText <$STR(S42)> G

CheckContainsText <$STR(S42)> H

CheckContainsText <$STR(S42)> J

CheckContainsText <$STR(S42)> K

CheckContainsText <$STR(S42)> L

CheckContainsText <$STR(S42)> Z

CheckContainsText <$STR(S42)> X

CheckContainsText <$STR(S42)> C

CheckContainsText <$STR(S42)> V

CheckContainsText <$STR(S42)> B

CheckContainsText <$STR(S42)> N

CheckContainsText <$STR(S42)> M

#act

MESSAGEBOX 输入内容包含特殊字符，无法提交！！！

break

#ELSEACT

GOTO @main

BREAK

[@喊话传音3]

#IF

EQUAL S43 

#ACT

MESSAGEBOX 请先设置喊话内容！

BREAK

#IF

checkgold 1

#ACT

TAKE 金币 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个，无法喊话！

BREAK

[@InPutString43]

#or

CheckContainsText <$STR(S43)> @

CheckContainsText <$STR(S43)> (

CheckContainsText <$STR(S43)> )

CheckContainsText <$STR(S43)> [

CheckContainsText <$STR(S43)> ]

CheckContainsText <$STR(S43)> {

CheckContainsText <$STR(S43)> }

CheckContainsText <$STR(S43)> *

CheckContainsText <$STR(S43)> /

CheckContainsText <$STR(S43)> \

CheckContainsText <$STR(S43)> $

CheckContainsText <$STR(S43)> &

CheckContainsText <$STR(S43)> 妈

CheckContainsText <$STR(S43)> 逼

CheckContainsText <$STR(S43)> 操

CheckContainsText <$STR(S43)> 服

CheckContainsText <$STR(S43)> 贱

CheckContainsText <$STR(S43)> 客

CheckContainsText <$STR(S43)> G

CheckContainsText <$STR(S43)> M

CheckContainsText <$STR(S43)> 内

CheckContainsText <$STR(S43)> 比

CheckContainsText <$STR(S43)> 例

CheckContainsText <$STR(S43)> 托

CheckContainsText <$STR(S43)> 脱

CheckContainsText <$STR(S43)> 拖

CheckContainsText <$STR(S43)> Q

CheckContainsText <$STR(S43)> W

CheckContainsText <$STR(S43)> E

CheckContainsText <$STR(S43)> R

CheckContainsText <$STR(S43)> T

CheckContainsText <$STR(S43)> Y

CheckContainsText <$STR(S43)> U

CheckContainsText <$STR(S43)> I

CheckContainsText <$STR(S43)> O

CheckContainsText <$STR(S43)> P

CheckContainsText <$STR(S43)> A

CheckContainsText <$STR(S43)> S

CheckContainsText <$STR(S43)> D

CheckContainsText <$STR(S43)> F

CheckContainsText <$STR(S43)> G

CheckContainsText <$STR(S43)> H

CheckContainsText <$STR(S43)> J

CheckContainsText <$STR(S43)> K

CheckContainsText <$STR(S43)> L

CheckContainsText <$STR(S43)> Z

CheckContainsText <$STR(S43)> X

CheckContainsText <$STR(S43)> C

CheckContainsText <$STR(S43)> V

CheckContainsText <$STR(S43)> B

CheckContainsText <$STR(S43)> N

CheckContainsText <$STR(S43)> M

#act

MESSAGEBOX 输入内容包含特殊字符，无法提交！！！

break

#ELSEACT

GOTO @main

BREAK