传奇脚本系列-助人为乐脚本

传奇服务端

[@main]
︸︸||︸︸!   ︸︸||︸︸!  ︸︸||︸︸!   ︸︸||︸︸! \
┏════┳════┳════┳════┳════┓\
║<帮人变性/@帮人变性>║<帮人转职/>║<帮人洗红/@帮人洗红>║<隐私偷窥/@偷窥隐私>║<超级喊话/@超级喊话>║\
┣════┻════┻════┻════┻════┫\
║ <游戏因你更精彩>                             <离开/@exit>║\
┗════════════════════════┛\
[@帮人变性]
使用说明：在输入框内输入<人物名字>  \ \
<输入需要变性玩家的姓名/@@InPutString2> 变男\ \
<输入需要变性玩家的姓名/@@InPutString3> 变女\ \
<每次使用100元宝> \ \
<返回服务/@main>                 <关闭对话/@exit>
[@@InPutString2]
#if
CHECKGAMEGOLD > 99
#ACT
DELAYGOTO 1 ~InPutString2
#elseact
messagebox 元宝不足，无法使用！！
Close

[~InPutString2]
#IF
#ACT
GAMEGOLD - 100
GMEXECUTE 改变性别 <$STR(S2)> 男
Close

[@@InPutString3]
#if
CHECKGAMEGOLD > 99
#ACT
DELAYGOTO 1 ~InPutString3
#elseact
messagebox 元宝不足，无法使用！！
Close

[~InPutString3]
#IF
#ACT
GAMEGOLD - 100
GMEXECUTE 改变性别 <$STR(S3)> 女
Close

[@IsInFilterList]
#If
CheckLevelEx > 0
#Act
MessageBox 输入数据中包含了非法字符.请重新编辑
Goto @Main
Break

[@帮人转职]
使用说明：在输入框内输入<要帮人转职的人的名字>\ \
<输入要帮人转职的人的名字/@@InPutString1> 转战士  可以帮自己转\ \
<输入要帮人转职的人的名字/@@InPutString4> 转法师  可以帮自己转\ \
<输入要帮人转职的人的名字/@@InPutString7> 转道士  可以帮自己转\ \
<每次使用100元宝>保留原有职业技能..会员免费.<返回/@main>     <关闭/@exit>
[@@InPutString1]
#if
CHECKGAMEGOLD > 99
#ACT
DELAYGOTO 1 ~InPutString1
#elseact
messagebox 元宝不足，无法使用！！
[~InPutString1]
#IF
#ACT
GAMEGOLD - 100
GMEXECUTE 转职 <$STR(S1)> Warrior
[@@InPutString4]
#if
CHECKGAMEGOLD > 99
#ACT
DELAYGOTO 1 ~InPutString4
#elseact
messagebox 元宝不足，无法使用！！
[~InPutString4]
#IF
#ACT
GAMEGOLD - 100
GMEXECUTE 转职 <$STR(S4)> Wizard
[@@InPutString7]
#if
CHECKGAMEGOLD > 99
#ACT
DELAYGOTO 1 ~InPutString7
#elseact
messagebox 元宝不足，无法使用！！
[~InPutString7]
#IF
#ACT
GAMEGOLD - 100
GMEXECUTE 转职 <$STR(S7)> Taoist
[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符，请重新编辑！

[@帮人洗红]
使用说明：在输入框内输入<要洗红的人物名字>\ \
<输入要洗红的人物名字/@@InPutString8>\ \
<每次使用50元宝>      会员免费\ \
<返回/@main>       <关闭/@exit>
[@@InPutString8]
#if
CHECKGAMEGOLD > 49
#ACT
DELAYGOTO 1 ~InPutString8
#elseact
messagebox 元宝不足，无法使用！！
[~InPutString8]
#IF
#ACT
GAMEGOLD - 50
GMEXECUTE 洗白 <$STR(S8)>

[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符，请重新编辑！

[@偷窥隐私]
使用说明：在输入框内输入<要偷窥私聊信息的人物名字>\ \
<输入要偷窥私聊人物的名字/@@InPutString6>\ \
<每次使用100元宝>      \ \
<返回/@main>       <关闭/@exit>
[@@InPutString6]
#if
CHECKGAMEGOLD > 99
#ACT
DELAYGOTO 1 ~InPutString6
#elseact
messagebox 元宝不足，无法使用！！
[~InPutString6]
#IF
#ACT
GAMEGOLD - 100
GMEXECUTE 查看私聊 <$STR(S6)>

[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符，请重新编辑！

[@超级喊话]
　\
自定义全区喊话：需要300万一次。\
求组公告练级打装备：需要20万一次。\　\
　　　<发放信息/@@SendMsg>　　\　\　\
<返回/@main>\

[@@SendMsg]
#IF
  checkgold 3000000
#act
  take 金币 3000000
  SETSENDMSGFLAG
  SENDMSG 4 『%s』使用300万发放了全区喊话...
  SENDMSG 7 『%s』你发送的全区喊话已经成功帮你发布了...
  SENDMSG 7 『%s』我已经从您个人帐户扣除300万手续费用...
  goto @超级喊话
#ELSEACT
  MessageBox 温馨提示：\　　　　　A.对不起！亲爱的玩家:『<$USERNAME>』.\　　B.请确认你是否有20万块资金！
  close