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

(@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>