传奇服务端Gom引最新转职业脚本变性脚本范例

GM版本库

最新转职业脚本变性(含英雄转职和清理合击技能)


[@变性转职]
{
?????????????欢迎你光临：<$SERVERNAME>\ \
你是否对自己的英雄职业不满意？是的，我想<变更英雄职业/@变更英雄职业>\ \
你是否对现在的职业已经厌烦？ 是的，我想<变更职业/@职业变更>\ \
你是否想尝试做异性的滋味？ 是的，我想<变更性别/@性别变更>\ \
　　　　　　　　　　　　　　　　　　　　　 <版权所有/@1>3dm2引擎\

[@性别变更]
#IF
gender man
#SAY
是不是做猛男没什么意思呀，想不想尝尝做淑女的滋味呀！！！\ \
『<尝尝/@towoman>』\ \
〖<返回/@main>〗 〖<关闭/@exit>〗
#ELSESAY
是不是做淑女挺累的，想不想尝尝做猛男的滋味呀！！！\ \
『<尝尝/@toman>』\ \
〖<返回/@main>〗 〖<关闭/@exit>〗

[@toman]
#IF
CHECKGAMEGOLD > 19
#ACT
GAMEGOLD - 20
CHANGEGENDER 0
#SAY
呵呵，你已经变成一位猛男了。\ \
<返回/@main>
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足20颗。

[@towoman]
#IF
CHECKGAMEGOLD > 19
#ACT
GAMEGOLD - 20
CHANGEGENDER 1
#SAY
呵呵，你已经变成一位淑女了。\ \
〖<返回/@main>〗 〖<关闭/@exit>〗
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足20颗。


[@职业变更]
#IF
CHECKJOB warrior
#SAY
是不是战士不好玩呀，换换别的职业试试吧！\ \
『<玩玩法师/@法师>』\
『<玩玩道士/@道士>』\ \
〖<返回/@changjob>〗〖<关闭/@exit>〗
#ACT
break
#IF
CHECKJOB wizard
#SAY
是不是法师不好玩呀，换换别的职业试试吧！\ \
『<玩玩战士/@战士>』\
『<玩玩道士/@道士>』\ \
〖<返回/@changjob>〗〖<关闭/@exit>〗
#ACT
break
#IF
CHECKJOB taoist
#SAY
是不是道士不好玩呀，换换别的职业试试吧！\ \
『<玩玩战士/@战士>』\
『<玩玩法师/@法师>』\ \
〖<返回/@changjob>〗〖<关闭/@exit>〗
#ACT
break

[@战士]
#IF
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
CLEARSKILL
CHANGEJOB warrior
ADDSKILL 基本剑术
ADDSKILL 攻杀剑术
ADDSKILL 刺杀剑术
ADDSKILL 半月弯刀
ADDSKILL 野蛮冲撞
ADDSKILL 烈火剑法
ADDSKILL 狮子吼
SKILLLEVEL 基本剑术 + 3
SKILLLEVEL 攻杀剑术 + 3
SKILLLEVEL 刺杀剑术 + 3
SKILLLEVEL 半月弯刀 + 3
SKILLLEVEL 野蛮冲撞 + 3
SKILLLEVEL 烈火剑法 + 3
SKILLLEVEL 狮子吼 + 3
SENDMSG 0 恭喜:玩家「<$USERNAME>」成功转职。
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足50颗。
BREAK

[@法师]
#IF
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
CLEARSKILL
CHANGEJOB WIZARD
ADDSKILL 火球术
ADDSKILL 大火球
ADDSKILL 抗拒火环
ADDSKILL 地狱火
ADDSKILL 雷电术
ADDSKILL 疾光电影
ADDSKILL 诱惑之光
ADDSKILL 瞬息移动
ADDSKILL 火墙
ADDSKILL 爆裂火焰
ADDSKILL 地狱雷光
ADDSKILL 魔法盾
ADDSKILL 圣言术
ADDSKILL 冰咆哮
ADDSKILL 寒冰掌
ADDSKILL 灭天火
SKILLLEVEL 火球术 + 3
SKILLLEVEL 大火球 + 3
SKILLLEVEL 抗拒火环 + 3
SKILLLEVEL 地狱火 + 3
SKILLLEVEL 雷电术 + 3
SKILLLEVEL 疾光电影 + 3
SKILLLEVEL 诱惑之光 + 3
SKILLLEVEL 瞬息移动 + 3
SKILLLEVEL 火墙 + 3
SKILLLEVEL 爆裂火焰 + 3
SKILLLEVEL 地狱雷光 + 3
SKILLLEVEL 魔法盾 + 3
SKILLLEVEL 圣言术 + 3
SKILLLEVEL 冰咆哮 + 3
SKILLLEVEL 寒冰掌 + 3
SKILLLEVEL 灭天火 + 3
SENDMSG 0 恭喜:玩家「<$USERNAME>」成功转职。
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足50颗。
BREAK

[@道士]
#IF
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
CLEARSKILL
CHANGEJOB taoist
ADDSKILL 治愈术
ADDSKILL 精神力战法
ADDSKILL 施毒术
ADDSKILL 灵魂火符
ADDSKILL 幽灵盾
ADDSKILL 神圣战甲术
ADDSKILL 困魔咒
ADDSKILL 召唤骷髅
ADDSKILL 隐身术
ADDSKILL 集体隐身术
ADDSKILL 心灵启示
ADDSKILL 群体治疗术
ADDSKILL 召唤神兽
ADDSKILL 气功波
ADDSKILL 无极真气
SKILLLEVEL 治愈术 + 3
SKILLLEVEL 精神力战法 + 3
SKILLLEVEL 施毒术 + 3
SKILLLEVEL 灵魂火符 + 3
SKILLLEVEL 幽灵盾 + 3
SKILLLEVEL 神圣战甲术 + 3
SKILLLEVEL 困魔咒 + 3
SKILLLEVEL 召唤骷髅 + 3
SKILLLEVEL 隐身术 + 3
SKILLLEVEL 集体隐身术 + 3
SKILLLEVEL 心灵启示 + 3
SKILLLEVEL 群体治疗术 + 3
SKILLLEVEL 召唤神兽 + 3
SKILLLEVEL 气功波 + 3
SKILLLEVEL 无极真气 + 3
SENDMSG 0 恭喜:玩家「<$USERNAME>」成功转职。
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足50颗。
BREAK

[@变更英雄职业]
想把你的英雄变更为其它职业的英雄？\
只要你交纳50颗元宝，我即可将你的英雄成功转职。\
但是合击技能将会被删除，只给予新职业的部分技能、\
是否同意将英雄转职呢？\

<我同意将英雄转职业/@同意英雄转职>\

[@同意英雄转职]
#IF
HAVEHERO
#ELSEACT
MESSAGEBOX 对不起，您没有英雄！
BREAK

#IF
H.CHECKONLINE
#ELSEACT
MESSAGEBOX 对不起，您的英雄不在线！
BREAK

#IF
CHECKGAMEGOLD > 49
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足50颗。
BREAK

#IF
H.CHECKJOB warrior
#SAY
是不是战士英雄不好玩呀，换换别的英雄试试吧！\ \
『<玩玩法师英雄/@法师英雄>』\
『<玩玩道士英雄/@道士英雄>』\ \
〖<返回/@changjob>〗〖<关闭/@exit>〗
#ACT
break
#IF
H.CHECKJOB wizard
#SAY
是不是法师英雄不好玩呀，换换别的英雄试试吧！\ \
『<玩玩战士英雄/@战士英雄>』\
『<玩玩道士英雄/@道士英雄>』\ \
〖<返回/@changjob>〗〖<关闭/@exit>〗
#ACT
break
#IF
H.CHECKJOB taoist
#SAY
是不是道士英雄不好玩呀，换换别的英雄试试吧！\ \
『<玩玩战士英雄/@战士英雄>』\
『<玩玩法师英雄/@法师英雄>』\ \
〖<返回/@changjob>〗〖<关闭/@exit>〗
#ACT
break

[@战士英雄]
#IF
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
H.CLEARSKILL
H.CHANGEJOB warrior
H.ADDSKILL 英雄基本剑术 1
H.ADDSKILL 英雄攻杀剑术 1
H.ADDSKILL 英雄刺杀剑术 1
H.ADDSKILL 英雄半月弯刀 1
H.ADDSKILL 英雄野蛮冲撞 1
H.ADDSKILL 英雄烈火剑法 1
H.ADDSKILL 英雄狮子吼 1
SENDMSG 0 恭喜:玩家「<$USERNAME>」成功将英雄转职。
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足50颗。
BREAK

[@法师英雄]
#IF
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
H.CLEARSKILL
H.CHANGEJOB WIZARD
H.ADDSKILL 英雄火球术 1
H.ADDSKILL 英雄大火球 1
H.ADDSKILL 英雄抗拒火环 1
H.ADDSKILL 英雄地狱火 1
H.ADDSKILL 英雄疾光电影 1
H.ADDSKILL 英雄雷电术 1
H.ADDSKILL 英雄诱惑之光 1
H.ADDSKILL 英雄瞬息移动 1
H.ADDSKILL 英雄火墙 1
H.ADDSKILL 英雄爆裂火焰 1
H.ADDSKILL 英雄地狱雷光 1
H.ADDSKILL 英雄魔法盾 1
H.ADDSKILL 英雄圣言术 1
H.ADDSKILL 英雄冰咆哮 1
H.ADDSKILL 英雄灭天火 1
H.ADDSKILL 英雄寒冰掌 1
SENDMSG 0 恭喜:玩家「<$USERNAME>」成功将英雄转职。
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足50颗。
BREAK

[@道士英雄]
#IF
CHECKGAMEGOLD > 49
#ACT
GAMEGOLD - 50
H.CLEARSKILL
H.CHANGEJOB taoist
H.ADDSKILL 英雄神圣战术 1
H.ADDSKILL 英雄群疗术 1
H.ADDSKILL 英雄集体隐身 1
H.ADDSKILL 英雄精神战法 1
H.ADDSKILL 英雄施毒术 1
H.ADDSKILL 英雄召唤骷髅 1
H.ADDSKILL 英雄召唤神兽 1
H.ADDSKILL 英雄灵魂火符 1
H.ADDSKILL 英雄隐身术 1
H.ADDSKILL 英雄幽灵盾 1
H.ADDSKILL 英雄治愈术 1
H.ADDSKILL 英雄困魔咒 1
H.ADDSKILL 英雄心灵启示 1
H.ADDSKILL 英雄气功波 1
H.ADDSKILL 英雄无极真气 1
SENDMSG 0 恭喜:玩家「<$USERNAME>」成功将英雄转职。
#ELSEACT
MESSAGEBOX 对不起，您的元宝已经不足50颗。
BREAK
}
QFunction-0.txt里的配置脚本

[@HeroLogon]
#if
$HERO.CHECKNAMELIST ..\QuestDiary\数据文件\英雄名单.txt
#act
$HERO.DELSKILL 破魂斩
$HERO.DELSKILL 劈星斩
$HERO.DELSKILL 雷霆一击
$HERO.DELSKILL 噬魂沼泽
$HERO.DELSKILL 末日审判
$HERO.DELSKILL 火龙气焰
$HERO.delnamelist ..\QuestDiary\数据文件\英雄名单.txt
#IF
$HERO.ISNEWHUMAN
$HERO.gender man
CHECKHEROJOB WIZARD
#ACT
CHANGEHEROLEVEL = 35
$HERO.ADDSKILL 英雄先天元力
$HERO.ADDSKILL 英雄酒气护体
$HERO.give 恶魔长袍(男) 1
$HERO.give 骨玉权杖 1
$HERO.TakeOnitem 骨玉权杖 1
$HERO.TakeOnitem 恶魔长袍(男) 0
$HERO.give 超级金创药 4
$HERO.give 超级魔法药 3
SENDMSG 4 恭喜<$USERNAME>您的英雄领取了装备
break
#IF
$HERO.ISNEWHUMAN
$HERO.gender WOMAN
CHECKHEROJOB WIZARD
#ACT
CHANGEHEROLEVEL = 35
$HERO.ADDSKILL 英雄先天元力
$HERO.ADDSKILL 英雄酒气护体
$HERO.give 恶魔长袍(女) 1
$HERO.give 骨玉权杖 1
$HERO.TakeOnitem 骨玉权杖 1
$HERO.TakeOnitem 恶魔长袍(女) 0
$HERO.give 超级金创药 4
$HERO.give 超级魔法药 3
SENDMSG 4 恭喜<$USERNAME>您的英雄领取了装备
break
#IF
$HERO.ISNEWHUMAN
$HERO.gender man
CHECKHEROJOB WARRIOR
#ACT
CHANGEHEROLEVEL = 35
$HERO.ADDSKILL 英雄先天元力
$HERO.ADDSKILL 英雄酒气护体
$HERO.give 战神盔甲(男) 1
$HERO.give 裁决之杖 1
$HERO.TakeOnitem 战神盔甲(男) 0
$HERO.TakeOnitem 裁决之杖 1
$HERO.give 超级金创药 4
$HERO.give 超级魔法药 3
SENDMSG 4 恭喜<$USERNAME>您的英雄领取了装备
break
#IF
$HERO.ISNEWHUMAN
$HERO.gender WOMAN
CHECKHEROJOB WARRIOR
#ACT
CHANGEHEROLEVEL = 35
$HERO.ADDSKILL 英雄先天元力
$HERO.ADDSKILL 英雄酒气护体
$HERO.give 战神盔甲(女) 1
$HERO.give 裁决之杖 1
$HERO.TakeOnitem 战神盔甲(女) 0
$HERO.TakeOnitem 裁决之杖 1
$HERO.give 超级金创药 4
$HERO.give 超级魔法药 3
SENDMSG 4 恭喜<$USERNAME>您的英雄领取了装备
break
#IF
$HERO.ISNEWHUMAN
$HERO.gender man
CHECKHEROJOB TAOIST
#ACT
CHANGEHEROLEVEL = 35
$HERO.ADDSKILL 英雄先天元力
$HERO.ADDSKILL 英雄酒气护体
$HERO.give 幽灵战衣(男) 1
$HERO.give 龙纹剑 1
$HERO.TakeOnitem 幽灵战衣(男) 0
$HERO.TakeOnitem 龙纹剑 1
$HERO.give 超级金创药 4
$HERO.give 超级魔法药 3
SENDMSG 4 恭喜<$USERNAME>您的英雄领取了装备
break
#IF
$HERO.ISNEWHUMAN
$HERO.gender WOMAN
CHECKHEROJOB TAOIST
#ACT
CHANGEHEROLEVEL = 35
$HERO.ADDSKILL 英雄先天元力
$HERO.ADDSKILL 英雄酒气护体
$HERO.give 幽灵战衣(女) 1
$HERO.give 龙纹剑 1
$HERO.TakeOnitem 幽灵战衣(女) 0
$HERO.TakeOnitem 龙纹剑 1
$HERO.give 超级金创药 4
$HERO.give 超级魔法药 3
SENDMSG 4 恭喜<$USERNAME>您的英雄领取了装备
break