在本站有2个用于战神引擎的玩家在线转职和变性的脚本，脚本需要用到盘古插件上的设置，今天更新的这个是支持三职业的，不带英雄转职变性功能，之前小鱼分享的那个，支持英雄和主号，这个版本是用于非合击的，转职的条件非常简单，只需要元宝即可，脚本是明文版，可以根据自己版本的情况，针对性的修改元宝数量。玩家转职以后，可以自动学习新职业的所有技能，当然学习的技能内容也可以在脚本里面编辑。
盘古设置
部分脚本
program mir2;
procedure _exit; // 调用此方法对话框会被关闭
begin
This_Npc.CloseDialog(This_Player); // 执行此代码对话框会被关闭
end;
procedure _doexit; // 调用此方法对话框会被关闭
begin
This_Npc.CloseDialog(This_Player); // 执行此代码对话框会被关闭
end;
procedure _2;
begin
This_NPC.NpcDialog(This_Player,
+'<年轻人，你喜欢做猛男还是欲女呢？/fcolor=253>\'
+'|{cmd}<变身猛男/@21> ^<变身欲女/@22> \'
+'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end;
procedure _21;
begin
This_NPC.NpcDialog(This_Player,
+'|年轻人，你确定要成为一名合格的猛男吗?！\'
+'|<提示：变性需要4w元宝，变性完后请小退。>\'
+'| \'
+'| <确定变身猛男/@23> \ \'
+'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end;
procedure _22;
begin
This_NPC.NpcDialog(This_Player,
+'|年轻人，你确定要成为一名合格的欲女吗?\'
+'|<提示：变性需要4w元宝，变性完后请小退。>\'
+'| \'
+'| <确定变身欲女/@23> \ \'
+'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end;
procedure _23;
begin
if This_Player.YBnum >= 40000 then
begin
This_Player.ScriptRequestSubYBNum(40000);
This_Player.SetS(1,1,3);
This_NPC.NpcDialog(This_Player,'变性成功，请小退一下吧。' +'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end else
This_NPC.NpcDialog(This_Player,'你的元宝不足40000，无法变性。' +'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end;
procedure _daoshi;
begin
This_NPC.NpcDialog(This_Player,
+'|尊敬的勇士你你确定要转职吗?！\'
+'|注意:转职后所以技能需要重新修炼。\'
+'| \'
+'|<确定转职道士/@daoshi1> \ \'
+'|<转职完后请小退，然后会回到土城。>|\ \'
);
end;
procedure _fashi;
begin
This_NPC.NpcDialog(This_Player,
+'|尊敬的勇士你你确定要转职吗?\'
+'|注意:转职后所以技能需要重新修炼。\'
+'| \'
+'|<确定转职法师/@fashi1>\ \'
+'|<转职完后请小退，然后会回到土城。>|\'
);
end;
procedure _zhanshi;
begin
This_NPC.NpcDialog(This_Player,
+'|尊敬的勇士你你确定要转职吗?\'
+'|注意:转职后所以技能需要重新修炼。\'
+'| \'
+'|<确定转职战士/@zhanshi1> \'
+'|<转职完后请小退，然后会回到土城。>|\'
);
end;
procedure _daoshi1;
begin
if (This_Player.YBnum >= 80000) then
begin
if( This_Player.Job = 1) or (This_Player.Job = 0 )then
begin
This_Player.deleteskill('火球术');
This_Player.deleteskill('大火球');
This_Player.deleteskill('抗拒火环');
This_Player.deleteskill('地狱火');
This_Player.deleteskill('疾光电影');
This_Player.deleteskill('雷电术');
This_Player.deleteskill('诱惑之光');
This_Player.deleteskill('火墙');
This_Player.deleteskill('爆裂火焰');
This_Player.deleteskill('地狱雷光');
This_Player.deleteskill('魔法盾');
This_Player.deleteskill('圣言术');
This_Player.deleteskill('冰咆哮');
This_Player.deleteskill('灭天火');
This_Player.deleteskill('流星火雨');
This_Player.deleteskill('基本剑术');
This_Player.deleteskill('攻杀剑术');
This_Player.deleteskill('刺杀剑术');
This_Player.deleteskill('半月弯刀');
This_Player.deleteskill('野蛮冲撞');
This_Player.deleteskill('烈火剑法');
This_Player.deleteskill('开天斩');
This_Player.SetS(1,1,14);//杀死宝宝,可在登录脚本调用!
This_Player.ScriptRequestSubYBNum(80000);
This_Player.SetS(1,1,2);//转道士
ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的道士', 3);
end else
This_NPC.NpcDialog(This_Player,
'|你已经是一名伟大的道士了，不用再转职道士。\'+'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end else
This_NPC.NpcDialog(This_Player,
'|尊敬的勇士你的等级或者元宝不足。\'+'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end;
procedure _fashi1;
begin
if (This_Player.YBnum >= 80000) then
begin
if( This_Player.Job = 0)or (This_Player.Job = 2 )then
begin
This_Player.deleteskill('基本剑术');
This_Player.deleteskill('攻杀剑术');
This_Player.deleteskill('刺杀剑术');
This_Player.deleteskill('半月弯刀');
This_Player.deleteskill('野蛮冲撞');
This_Player.deleteskill('烈火剑法');
This_Player.deleteskill('开天斩');
This_Player.deleteskill('治愈术');
This_Player.deleteskill('精神力战法');
This_Player.deleteskill('施毒术');
This_Player.deleteskill('灵魂火符');
This_Player.deleteskill('幽灵盾');
This_Player.deleteskill('神圣战甲术');
This_Player.deleteskill('困魔咒');
This_Player.deleteskill('召唤骷髅');
This_Player.deleteskill('隐身术');
This_Player.deleteskill('集体隐身术');
This_Player.deleteskill('心灵启示');
This_Player.deleteskill('群体治愈术');
This_Player.deleteskill('召唤神兽');
This_Player.deleteskill('无极真气');
This_Player.deleteskill('噬血术');
This_Player.SetS(1,1,14);//杀死宝宝,可在登录脚本调用!
This_Player.ScriptRequestSubYBNum(80000);
This_Player.SetS(1,1,1);//转法师
ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的法师', 3);
end else
This_NPC.NpcDialog(This_Player,
'|你已经是一名伟大的法师了，不用再转职法师。\'+'|{cmd}<返回/@main> ^<关闭/@DoExit> \');
end else
This_NPC.NpcDialog(This_Player,
'|尊敬的勇士你的等级或者元宝不足。\'+'|{cmd}<返回/@main> ^<关闭/@DoExit> \');