战神引擎转职脚本，传奇职业转换脚本

夜游神

[mw_shl_code=delphi,true]program mir2;

Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;



procedure domain;
begin
This_NPC.NpcDialog(This_Player,
        +'|尊敬的勇士欢迎来到转职神殿！\'
        +'|你确定要转职吗?！\'
        +'|注意:转职后所以技能需要重新修炼?！\'
        
        +'|转职要求:需要等级10级,5万元宝，   \'
        +'|<转职完后请小退，然后会回到土城>！\'
        +'|\'
        
        +'|<转职战士/@zhanshi> ^<转职道士/@daoshi> ^<转职法师/@fashi>\'
        
        +'|\'
        );

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.Level >= 10) and (This_Player.YBnum >= 5) 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.deleteskill('烈火剑法');
                This_Player.deleteskill('狮子吼');
                This_Player.deleteskill('逐日剑法');        

  This_Player.ScriptRequestSubYBNum(5);
    This_Player.SetS(1,1,2);//转道士
      ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的道士', 3);
    end else
This_NPC.NpcDialog(This_Player,
        '|你已经是一名伟大的道士了，不用再转职道士 ！\');  
end else
This_NPC.NpcDialog(This_Player,
        '|尊敬的勇士你的等级或者元宝不足 ！\');

end;




procedure _fashi1;
begin
  if (This_Player.Level >= 10) and (This_Player.YBnum >= 5) 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.deleteskill('气功波');
                This_Player.deleteskill('噬血术');            

  This_Player.ScriptRequestSubYBNum(5);
    This_Player.SetS(1,1,1);//转法师
      ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的法师', 3);
end else
This_NPC.NpcDialog(This_Player,
        '|你已经是一名伟大的法师了，不用再转职法师 ！\');      
end else
This_NPC.NpcDialog(This_Player,
        '|尊敬的勇士你的等级或者元宝不足 ！\');

end;



procedure _zhanshi1;
begin
  if (This_Player.Level >= 10) and (This_Player.YBnum >= 5) then
begin
   if( This_Player.Job = 1)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.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.ScriptRequestSubYBNum(5);
    This_Player.SetS(1,1,0);//转战士
      ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的战士', 3);
    end else
This_NPC.NpcDialog(This_Player,
        '|你已经是一名伟大的战士了，不用再转职战士 ！\');  
end else
This_NPC.NpcDialog(This_Player,
        '|尊敬的勇士你的等级或者元宝不足 ！\');

end;


Begin
  domain;  
end.[/mw_shl_code]

Chinese.Doll

积分任务