战神引擎元宝转职变性脚本带自动学习技能

在本站有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>    \');

分享到：

赞(0)