GOM引擎传奇全服功能脚本，传奇私服服务端设置综合服务教程范例

: 21)

(@storage @getback )

%100

[@MAIN]

#IF

#ACT

OPENMERCHANTBIGDLG 16 1 1 0 0 0 1 395 2

#say

\ \ \ \

　　　　　　　　　　　　　<[综合服务生]/SCOLOR=251>\　\

　　　　　　　 <变性服务/SCOLOR=250> <[需要：50000 元宝]/SCOLOR=254>　<变性转职/@转职变性100> \ \

　　　　　　　 <全服喊话/SCOLOR=250> <[需要：20000酒鬼币]/SCOLOR=254>　<全服喊话/@@InPutString88>\ \

;　　　　　　　 <在线改名/SCOLOR=250> <[需要：  30 RMB点]/SCOLOR=254>　<在线改名/@在线改名>\ \

　　　　　　　 <仓库服务/SCOLOR=250> <[144 格可视化仓库]/SCOLOR=254>　<仓库服务/@storage>\ \

[@InPutString88]

#IF

CheckStringlength <$STR(S88)> < 1

#act

BREAK

#IF

CheckStringlength <$STR(S88)> > 100

#act

MESSAGEBOX 文字限制50字以内!!

BREAK

#IF

CHECKCREDITPOINT > 19999

#act

CREDITPOINT – 20000

SENDMOVEMSG  0 244 255 290 1  玩家[<$USERNAME>]:<$STR(S88)>

#ELSEACT

MESSAGEBOX 酒鬼币不足！

BREAK

[@在线改名]

\ \ \ \

<查询名称是否可以使用/@@InputString1(请输入新的名称：)>\ \

<我要改名(花费50RMB点)/@@InputString2(请输入新的名称：)>\

[@InputString1]

#IF

Equal S1

#ACT

SENDMSG 6 请输入一个正确的名称

Break

#OR

CheckStringlength S1 > 20

CheckStringlength S1 < 4

#ACT

SENDMSG 6 输入名称长度不正确

Break

#IF

#ACT

QUERYHUMNAMEEXIST S1

[@InputString2]

#IF

CHECKGamePoint > 49

#ELSEACT

messagebox 你RMB点不足!

BREAK

#IF

Equal S2

#ACT

SENDMSG 6 请输入一个正确的名称

Break

#OR

CheckStringlength S2 > 20

CheckStringlength S2 < 4

#ACT

SENDMSG 6 输入名称长度不正确

Break

#IF

#ACT

CHANGEHUMNAME S2

[@转职变性100]

#IF

gender man

#SAY

\ \ \ \

　　<╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗/SCOLOR=7>\

　　<┊/SCOLOR=7><是不是做男人没什么意思呀，想不想尝尝做女人的味道呀！/SCOLOR=191>  <┊/SCOLOR=7>\

　　<┊/SCOLOR=7><好了，幸亏上天冥怜有我这个人来帮你，不用担心，手术一眨/SCOLOR=191><┊/SCOLOR=7>\

　　<┊/SCOLOR=7><眼就好了，你丝毫感觉不到疼痛的，那我们现在就开始吧。。/SCOLOR=191><┊/SCOLOR=7>\

　　<┊/SCOLOR=7><手术费50000元宝！　　　　　　　　　　　　　　　　　　 /SCOLOR=191><┊/SCOLOR=7>\

　　<┊┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┊/SCOLOR=7>\

　　<┊/SCOLOR=7> 　　　　　　　  　 　　　　　  　  　 　 　┊<变成女的/@towoman><┊/SCOLOR=7>\

　　<╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝/SCOLOR=7>\

#ELSESAY

　　<╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗/SCOLOR=7>\

　　<┊/SCOLOR=7><是不是做女人没什么意思呀，想不想尝尝做男人的味道呀！/SCOLOR=191>  <┊/SCOLOR=7>\

　　<┊/SCOLOR=7><好了，幸亏上天冥怜有我这个人来帮你，不用担心，手术一眨/SCOLOR=191><┊/SCOLOR=7>\

　　<┊/SCOLOR=7><眼就好了，你丝毫感觉不到疼痛的，那我们现在就开始吧。。/SCOLOR=191><┊/SCOLOR=7>\

　　<┊/SCOLOR=7><手术费50000元宝！　　　　　　　　　　　　　　　　　　 /SCOLOR=191><┊/SCOLOR=7>\

　　<┊┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┊/SCOLOR=7>\

　　<┊/SCOLOR=7> 　　　　　　　  　 　　　　　  　  　 　 　┊<变成男的/@toman><┊/SCOLOR=7>\

　　<╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝/SCOLOR=7>\

[@toman]

#IF

CHECKGAMEGOLD > 49999

#ACT

GAMEGOLD – 50000

CHANGEGENDER 0

sendmsg 0 额滴神啊，玩家{<$USERNAME>}成功变性为男人！

sendmsg 0 额滴神啊，玩家{<$USERNAME>}成功变性为男人！

sendmsg 0 额滴神啊，玩家{<$USERNAME>}成功变性为男人！

#SAY

呵呵，你已经变成一位猛男了。\  

请下线在进来看看！\<返回/@main>

#ELSESAY

钱都没有，想做手术？我这不是慈善机构!!\ <离开/@exit>

[@towoman]

#IF

CHECKGAMEGOLD > 49999

#ACT

GAMEGOLD – 50000

CHANGEGENDER 1

sendmsg 0 额滴神啊，玩家{<$USERNAME>}成功变性为女人！

sendmsg 0 额滴神啊，玩家{<$USERNAME>}成功变性为女人！

sendmsg 0 额滴神啊，玩家{<$USERNAME>}成功变性为女人！

#SAY

呵呵，你已经变成一位淑女了。\  

请下线在进来看看！\<返回/@main>

#ELSESAY

钱都没有，想做手术？我这不是慈善机构!!\ <离开/@exit>

[@storage]

\ \ \  

需要保管什么东西?\ \

<返回/@main>

[@getback]

\ \ \  

请看目录决定找什么东西.\ \ \  

<返回/@main>