[GOM脚本] 传奇行会创建脚本

背包里有号角即可创建行会，成为行会掌门人。

[@main]

#IF

HAVEGUILD

#act

messagebox 您已经有行会了，无需再次申请！

break

#if

#act

OPENMERCHANTBIGDLG 16 35 1 4 0 -50 1 457 150

#say

　<ImgEx:16:317:318:319:231:166/@exit>\

　　　　　　　　　　　　　英雄不问出处！\

　　　　　　　　　　　　　好汉需要聚处！！\

　\　\　\　\　\　\　\　\　\　\

　　创建行会聚集好友一起闯荡江湖，\

　　加入行会可以让你有资格加入沙城争夺。\　\

　　创建行会需要：沃玛号角1根\

　　您可以通过商城购买，怪物也会掉落\

　　请输入您要创建的行会名称：\　\

　\　\　\　\　\

　　        <输入创建的行会名称/@@InPutString98(请输入3-6个的汉字（请勿输入英文或数字)>\　\

　　        \　\

　　　　　          <离开/@exit>\　\

[@InPutString98]

#OR

CheckContainsText <$STR(S99)> @

CheckContainsText <$STR(S99)> ~

CheckContainsText <$STR(S99)> {

CheckContainsText <$STR(S99)> }

CheckContainsText <$STR(S99)> q

CheckContainsText <$STR(S99)> w

CheckContainsText <$STR(S99)> e

CheckContainsText <$STR(S99)> r

CheckContainsText <$STR(S99)> t

CheckContainsText <$STR(S99)> y

CheckContainsText <$STR(S99)> u

CheckContainsText <$STR(S99)> i

CheckContainsText <$STR(S99)> o

CheckContainsText <$STR(S99)> p

CheckContainsText <$STR(S99)> a

CheckContainsText <$STR(S99)> s

CheckContainsText <$STR(S99)> d

CheckContainsText <$STR(S99)> f

CheckContainsText <$STR(S99)> g

CheckContainsText <$STR(S99)> h

CheckContainsText <$STR(S99)> j

CheckContainsText <$STR(S99)> k

CheckContainsText <$STR(S99)> l

CheckContainsText <$STR(S99)> z

CheckContainsText <$STR(S99)> x

CheckContainsText <$STR(S99)> c

CheckContainsText <$STR(S99)> v

CheckContainsText <$STR(S99)> b

CheckContainsText <$STR(S99)> n

CheckContainsText <$STR(S99)> m

CheckContainsText <$STR(S99)> 0

CheckContainsText <$STR(S99)> 1

CheckContainsText <$STR(S99)> 2

CheckContainsText <$STR(S99)> 3

CheckContainsText <$STR(S99)> 4

CheckContainsText <$STR(S99)> 5

CheckContainsText <$STR(S99)> 6

CheckContainsText <$STR(S99)> 7

CheckContainsText <$STR(S99)> 8

CheckContainsText <$STR(S99)> 9

CheckContainsText <$STR(S99)> @

CheckContainsText <$STR(S99)> /

CheckContainsText <$STR(S99)> *

CheckContainsText <$STR(S99)> <

CheckContainsText <$STR(S99)> >

#ACT

messagebox 输入错误???\\请输入3-6个汉字!!\\请勿输入英文!!

BREAK

#IF

EQUAL S98 

#ACT

MESSAGEBOX 对不起,输入有误,输入不能为空！！

BREAK

#IF

CheckStringlength <$STR(S98)> < 3

#ACT

MESSAGEBOX 对不起,输入有误,输入必须大于4个字节，小于14个字节！

BREAK

#IF

CheckStringlength <$STR(S98)> > 3

CheckStringlength <$STR(S98)> < 13

#ACT

messagebox 您输入的行会名为：<$STR(S98)>\\点击确认生效！！   @确定行会名称

[@确定行会名称]

#IF

Checkitem 沃玛号角 1

CheckStringlength <$STR(S98)> > 3

CheckStringlength <$STR(S98)> < 13

#ACT

take 沃玛号角 1

AddGuild <$STR(S98)> <$USERNAME>

MESSAGEBOX 【行会创建成功！您的行会为[<$STR(S98)>]】

SENDMSG 1 雄心勃勃的【%s】创建了行会[<$STR(S98)>]，有意愿的各路豪杰快去加入吧！

#elseact

messagebox 请输入3-6个汉字!!\\请勿输入英文!!\\请检查您的背包是否有号角！

break