program mir2;  
var
 huoqiang,liehuo,bingpaoxiao,liouxing,shidu,shixue,mofadun,chisha,leidian,linghun,shensheng,youling,youhuo,yinsheng,gongsha,banyue,zhuri,zhiyu : integer;
  
procedure _DoExit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
  
procedure _Exit;  
begin  
  This_Npc.CloseDialog(This_Player);  
end;  
  
  
  
  
procedure domain;  
begin 
	
     
    This_NPC.NpcDialog(This_Player,  
    +'|你可以在这里兑换技能和升级技能,技能最高可达10级。\'
	+'|5000个技能书+金砖兑换一本技能，700技能书升级一次技能。\'
	+'|必须点击恢复技能可以把技能升级满，。\'
    +'|   \' 
    +'|{cmd}<升级技能/@jn1>     ^<升级高级技能/@jn>       ^<兑换书籍/@ds>\'
	+'| {cmd}<恢复技能/@jihuo>  \'
    );  
 
end; 
  procedure _jihuo; 
begin
	if This_Player.GetV(96,1) < 3 then This_Player.SetV(96,1,3);
	if This_Player.GetV(96,2) < 3 then This_Player.SetV(96,2,3);
	if This_Player.GetV(96,3) < 3 then This_Player.SetV(96,3,3);
	if This_Player.GetV(96,4) < 3 then This_Player.SetV(96,4,3);
	if This_Player.GetV(96,5) < 3 then This_Player.SetV(96,5,3);
	if This_Player.GetV(96,6) < 3 then This_Player.SetV(96,6,3);
	if This_Player.GetV(96,7) < 3 then This_Player.SetV(96,7,3);
	if This_Player.GetV(96,8) < 3 then This_Player.SetV(96,8,3);
	if This_Player.GetV(96,9) < 3 then This_Player.SetV(96,9,3);
	if This_Player.GetV(96,10) < 3 then This_Player.SetV(96,10,3);
	if This_Player.GetV(96,11) < 3 then This_Player.SetV(96,11,3);
	if This_Player.GetV(96,12) < 3 then This_Player.SetV(96,12,3);
	if This_Player.GetV(96,13) < 3 then This_Player.SetV(96,13,3);
	if This_Player.GetV(96,14) < 3 then This_Player.SetV(96,14,3);
	if This_Player.GetV(96,15) < 3 then This_Player.SetV(96,15,3);
	if This_Player.GetV(96,16) < 3 then This_Player.SetV(96,16,3);
	if This_Player.GetV(96,17) < 3 then This_Player.SetV(96,17,3);
	if This_Player.GetV(96,18) < 3 then This_Player.SetV(96,18,3);
	liehuo :=This_Player.getV(96,1);
	bingpaoxiao :=This_Player.getV(96,2);
	zhuri :=This_Player.getV(96,3);
	liouxing :=This_Player.getV(96,4);
	shidu :=This_Player.getV(96,5);
	shixue :=This_Player.getV(96,6);
	mofadun :=This_Player.getV(96,7);
	leidian :=This_Player.getV(96,8);
	linghun :=This_Player.getV(96,9);
	shensheng :=This_Player.getV(96,10);
	youling :=This_Player.getV(96,11);
	yinsheng :=This_Player.getV(96,12);
	gongsha :=This_Player.getV(96,13);
	banyue :=This_Player.getV(96,14);
	chisha :=This_Player.getV(96,15);
	youhuo :=This_Player.getV(96,16);
	zhiyu :=This_Player.getV(96,17);
	huoqiang :=This_Player.getV(96,18);
	
	 This_Player.ChgSkillLv('烈火剑法',liehuo,0);
	 This_Player.ChgSkillLv('冰咆哮',bingpaoxiao,0);
	 This_Player.ChgSkillLv('逐日剑法',zhuri,0);
	 This_Player.ChgSkillLv('流星火雨',liouxing,0);
	 This_Player.ChgSkillLv('施毒术',shidu,0);
	 This_Player.ChgSkillLv('噬血术',shixue,0);
	 This_Player.ChgSkillLv('魔法盾',mofadun,0);
	 This_Player.ChgSkillLv('雷电术',leidian,0);
	 This_Player.ChgSkillLv('刺杀剑术',chisha,0);
	 This_Player.ChgSkillLv('灵魂火符',linghun,0);
	 This_Player.ChgSkillLv('神圣战甲术',shensheng,0);
	 This_Player.ChgSkillLv('幽灵盾',youling,0);
	 This_Player.ChgSkillLv('治愈术',zhiyu,0);
	 This_Player.ChgSkillLv('诱惑之光',youhuo,0);
	 This_Player.ChgSkillLv('影身术',yinsheng,0);
	 This_Player.ChgSkillLv('攻杀剑术',gongsha,0);
	 This_Player.ChgSkillLv('半月弯刀',banyue,0);
	 This_Player.ChgSkillLv('火墙',huoqiang,0);
end; 
 procedure _jn1; 
begin
    This_NPC.NpcDialog(This_Player,  
	+'|升级技能只能升级到5鸡。\'
    +'|   \' 
    +'|{cmd}<魔法盾/@mfd> ^<雷电术/@lds> ^<刺杀剑术/@cs>\'
	+'|{cmd}<灵魂火符/@lhhf> ^<神圣战甲术/@zjs> ^<幽灵盾/@yld>\'
	+'|{cmd}<治愈术/@zys> ^<诱惑之光/@yh>^<影身术/@yss>\'
	+'|{cmd}<攻杀剑术/@zss> ^<半月弯刀/@by>^<火墙/@hq>\'
    ); 
 end;
 
  procedure _hq; 
begin
	if This_Player.GetV(96,18) < 3 then This_Player.SetV(96,18,3);
	huoqiang :=This_Player.getV(96,18);
	begin
	if huoqiang < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,18,huoqiang +1);
	 This_Player.ChgSkillLv('火墙',huoqiang,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end;
 
           procedure _by; 
begin
	if This_Player.GetV(96,14) < 3 then This_Player.SetV(96,14,3);
	banyue :=This_Player.getV(96,14);
	begin
	if banyue < 4 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,14,banyue +1);
	 This_Player.ChgSkillLv('半月弯刀',banyue,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
          procedure _zss; 
begin
	if This_Player.GetV(96,13) < 3 then This_Player.SetV(96,13,3);
	gongsha :=This_Player.getV(96,13);
	begin
	if gongsha < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,13,gongsha +1);
	 This_Player.ChgSkillLv('攻杀剑术',gongsha,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
         procedure _yss; 
begin
	if This_Player.GetV(96,12) < 3 then This_Player.SetV(96,12,3);
	yinsheng :=This_Player.getV(96,12);
	begin
	if yinsheng < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,12,yinsheng +1);
	 This_Player.ChgSkillLv('影身术',yinsheng,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
        procedure _yh; 
begin
	if This_Player.GetV(96,16) < 3 then This_Player.SetV(96,16,3);
	youhuo :=This_Player.getV(96,16);
	begin
	if youhuo < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,16,youhuo +1);
	 This_Player.ChgSkillLv('诱惑之光',youhuo,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
       procedure _zys; 
begin
	if This_Player.GetV(96,17) < 3 then This_Player.SetV(96,17,3);
	zhiyu :=This_Player.getV(96,17);
	begin
	if zhiyu < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,17,zhiyu +1);
	 This_Player.ChgSkillLv('治愈术',zhiyu,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
      procedure _yld; 
begin
	if This_Player.GetV(96,11) < 3 then This_Player.SetV(96,11,3);
	youling :=This_Player.getV(96,11);
	begin
	if youling < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,11,youling +1);
	 This_Player.ChgSkillLv('幽灵盾',youling,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
     procedure _zjs; 
begin
	if This_Player.GetV(96,10) < 3 then This_Player.SetV(96,10,3);
	shensheng :=This_Player.getV(96,10);
	begin
	if shensheng < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,10,shensheng +1);
	 This_Player.ChgSkillLv('神圣战甲术',shensheng,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
     procedure _lhhf; 
begin
	if This_Player.GetV(96,9) < 3 then This_Player.SetV(96,9,3);
	linghun :=This_Player.getV(96,9);
	begin
	if linghun < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,9,linghun +1);
	 This_Player.ChgSkillLv('灵魂火符',linghun,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
 
      procedure _cs; 
begin
	if This_Player.GetV(96,15) < 3 then This_Player.SetV(96,15,3);
	chisha :=This_Player.getV(96,15);
	begin
	if chisha < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,15,chisha +1);
	 This_Player.ChgSkillLv('刺杀剑术',chisha,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
 
     procedure _lds; 
begin
	if This_Player.GetV(96,8) < 3 then This_Player.SetV(96,8,3);
	leidian :=This_Player.getV(96,8);
	begin
	if leidian < 4 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,8,leidian +1);
	 This_Player.ChgSkillLv('雷电术',leidian,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
    procedure _mfd; 
begin
	if This_Player.GetV(96,7) < 3 then This_Player.SetV(96,7,3);
	mofadun :=This_Player.getV(96,7);
	begin
	if mofadun < 5 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,7,mofadun +1);
	 This_Player.ChgSkillLv('魔法盾',mofadun,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
//-------兑换技能-----
 procedure _ds; 
begin
    This_NPC.NpcDialog(This_Player,  
	+'|兑换技能。\'
    +'|   \' 
    +'|{cmd}<兑换逐日剑法/@zr1>  ^<兑换狮子吼/@sz1>\'
	+'|{cmd}<兑换流星火雨/@lxhy1>  ^<兑换灭天火/@mth1>\'
	+'|{cmd}<兑换噬血术/@sxs1>  ^<兑换无极真气/@wjzq1>\'
    ); 
 end;	
 
 
 
 procedure _wjzq1;
begin
	if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then 
	
	begin
	This_Player.Take('书页',5000);
	This_Player.Take('金砖',1);
	This_Player.Give('无极真气',1);
	ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 +  25);
	end
	else
	This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
 
    procedure _sxs1;
begin
	if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then 
	
	begin
	This_Player.Take('书页',5000);
	This_Player.Take('金砖',1);
	This_Player.Give('噬血术',1);
	ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 +  25);
	end
	else
	This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
 
   procedure _mth1;
begin
	if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then 
	
	begin
	This_Player.Take('书页',5000);
	This_Player.Take('金砖',1);
	This_Player.Give('灭天火',1);
	ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 +  25);
	end
	else
	This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
 
 
  procedure _lxhy1;
begin
	if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then 
	
	begin
	This_Player.Take('书页',5000);
	This_Player.Take('金砖',1);
	This_Player.Give('流星火雨',1);
	ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 +  25);
	end
	else
	This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
 
 
 procedure _sz1;
begin
	if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then 
	
	begin
	This_Player.Take('书页',5000);
	This_Player.Take('金砖',1);
	This_Player.Give('狮子吼',1);
	ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 +  25);
	end
	else
	This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
 
procedure _zr1;
begin
	if (This_Player.GetBagItemCount ('书页') >=5000 )and (This_Player.GetBagItemCount ('金砖') >=1 ) then 
	
	begin
	This_Player.Take('书页',5000);
	This_Player.Take('金砖',1);
	This_Player.Give('逐日剑法',1);
	ServerSay('玩家<' + This_Player.Name + '>兑换了47级技能书!', 7*256 +  25);
	end
	else
	This_NPC.NpcDialog(This_Player,'你东西不够，凑齐了再找我吧');
end;
procedure _jn;
begin
    This_NPC.NpcDialog(This_Player,  
	+'|所有技能只能提升到10级。\'
    +'|   \' 
    +'|{cmd}<烈火剑法/@liehuo>            ^<逐日剑法/@zhuri>\'
	+'|{cmd}<冰咆哮/@bpx>            ^<流星火雨/@lxhy>\'
	+'|{cmd}<施毒术/@sds>            ^<噬血术/@sxs>\'
    ); 
 end;
 
 
 
    procedure _sxs; 
begin
	if This_Player.GetV(96,6) < 3 then This_Player.SetV(96,6,3);
	shixue :=This_Player.getV(96,6);
	begin
	if shixue < 10 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,6,shixue +1);
	 This_Player.ChgSkillLv('噬血术',shixue,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
	
end; 
 
 
 
 
   procedure _sds; 
begin
	if This_Player.GetV(96,5) < 3 then This_Player.SetV(96,5,3);
	shidu :=This_Player.getV(96,5);
	begin
	if shidu < 10 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,5,shidu +1);
	 This_Player.ChgSkillLv('施毒术',shidu,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
 
  procedure _lxhy; 
begin
	if This_Player.GetV(96,4) < 3 then This_Player.SetV(96,4,3);
	liouxing :=This_Player.getV(96,4);
	begin
	if liouxing < 10 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,4,liouxing+1);
	 This_Player.ChgSkillLv('流星火雨',liouxing,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end; 
 
 
 
  procedure _zhuri; 
begin
	if This_Player.GetV(96,3) < 3 then This_Player.SetV(96,3,3);
	zhuri :=This_Player.getV(96,3);
	begin
	if zhuri < 10 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,3,zhuri+1);
	 This_Player.ChgSkillLv('逐日剑法',zhuri,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end;
 
 
 procedure _bpx; 
begin
	if This_Player.GetV(96,2) < 3 then This_Player.SetV(96,2,3);
	bingpaoxiao :=This_Player.getV(96,2);
	begin
	if bingpaoxiao < 10 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,2,bingpaoxiao+1);
	 This_Player.ChgSkillLv('冰咆哮',bingpaoxiao,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end;
 
procedure _liehuo; 
begin
	if This_Player.GetV(96,1) < 3 then This_Player.SetV(96,1,3);
	liehuo :=This_Player.getV(96,1);
	begin
	if liehuo < 10 then
	begin
	if This_Player.GetBagItemCount ('书页') >= 700 then 
	begin
	This_Player.Take('书页',700);
	This_Player.setV(96,1,liehuo+1);
	 This_Player.ChgSkillLv('烈火剑法',liehuo,0);
	 ServerSay('玩家<' + This_Player.Name + '>技能提升到了一级!', 7*256 +  25);
	end
	else
	
	 This_NPC.NpcDialog(This_Player,'你没有700个书页');
	end
	else
	This_NPC.NpcDialog(This_Player,'技能已满！');
	end;
end;
 
begin  	
 domain; 
  
end.