神匠补天.lua

架设关键部分开始了。点击开始——程序

function SetPZ(Pos) 
 
  if API:GetEquipItemlevel(client,Pos)<70 then

    level=API:GetEquipItemPZ(client,Pos);     
     
    if level >2 and level <9 then
      if level<=3 then
         ca=2;
      else
         ca=level; 
      end;  

       API:SetUserVar(client,"Pos1",Pos);
       API:SetUserVar(client,"Cout1",ca);
       API:SetUserVar(client,"#ITEMID1",API:GetEquipItemAttribute(client,Pos,0));    
       CmdNPC:Face(67);
       CmdNPC:Say("你这个装备升品质需要"..ca.."龙珠");
       CmdNPC:Link("我要升级",41);
       CmdNPC:Link("我没那么多龙珠",255); 
       CmdNPC:Finish();
      
    elseif level == 9 then
       CmdNPC:Face(67);
       CmdNPC:Say("你的装备已经最高品质?");
       CmdNPC:Link("我看看",255);
       CmdNPC:Finish(); 
    else
       CmdNPC:Face(67);
       CmdNPC:Say("你哪个位置有装备吗?");
       CmdNPC:Link("我看看",255);
       CmdNPC:Finish();
    end; 
       
  elseif API:GetEquipItemlevel(client,Pos)>=70 then

    level=API:GetEquipItemPZ(client,Pos);
    MYlevel=API:GetEquipItemlevel(client,Pos);
 
    if level >2 and level <9 then    
      if level<=3 then
         ca=3;
      else
        ca=level+((MYlevel-(MYlevel%10))/10); 
      end; 
       API:SetUserVar(client,"Pos1",Pos);
       API:SetUserVar(client,"Cout1",ca);  
       API:SetUserVar(client,"#ITEMID1",API:GetEquipItemAttribute(client,Pos,0));          
       CmdNPC:Face(67);
       CmdNPC:Say("你这个装备升品质需要"..ca.."龙珠");
       CmdNPC:Link("我要升级",41);
       CmdNPC:Link("我没那么多龙珠",255); 
       CmdNPC:Finish();
       
    elseif level == 9 then
       CmdNPC:Face(67);
       CmdNPC:Say("你的装备已经最高品质?");
       CmdNPC:Link("我看看",255);
       CmdNPC:Finish(); 
    else
       CmdNPC:Face(67);
       CmdNPC:Say("你哪个位置有装备吗?");
       CmdNPC:Link("我看看",255);
       CmdNPC:Finish();
    end; 

  end;

end;



function SetLv(Pos) 
 
  if API:GetEquipItemlevel(client,Pos)<70 and API:SelectEquipItemNext(client,Pos) then

     level=API:GetEquipItemlevel(client,Pos)
      
     if API:GetEquipItem(client,Pos) then      

        ca=((level-(level%10))/10)+2     

        API:SetUserVar(client,"Pos2",Pos);
        API:SetUserVar(client,"Cout2",ca);    
        API:SetUserVar(client,"#ITEMID2",API:GetEquipItemAttribute(client,Pos,0));         
        CmdNPC:Face(67);
        CmdNPC:Say("你这个装备升品质需要"..ca.."流星");
        CmdNPC:Link("我要升级",51);
        CmdNPC:Link("我没那么多流星",255); 
        CmdNPC:Finish();
     else
        CmdNPC:Face(67);
        CmdNPC:Say("你哪个位置有装备吗?");
        CmdNPC:Link("我看看",255);
        CmdNPC:Finish();
     end;

       
   elseif API:GetEquipItemlevel(client,Pos)>=70 and API:GetEquipItemlevel(client,Pos)<120 and API:SelectEquipItemNext(client,Pos) then

     level=API:GetEquipItemlevel(client,Pos)
      
      if API:GetEquipItem(client,Pos) then      

        ca=((level-(level%10))/10)+3     

        API:SetUserVar(client,"Pos2",Pos);
        API:SetUserVar(client,"Cout2",ca);    
        API:SetUserVar(client,"#ITEMID2",API:GetEquipItemAttribute(client,Pos,0));       
        CmdNPC:Face(67);
        CmdNPC:Say("你这个装备升品质需要"..ca.."流星");
        CmdNPC:Link("我要升级",51);
        CmdNPC:Link("我没那么多流星",255); 
        CmdNPC:Finish();
     else
        CmdNPC:Face(67);
        CmdNPC:Say("你哪个位置有装备吗?");
        CmdNPC:Link("我看看",255);
        CmdNPC:Finish();
     end;

  else
        CmdNPC:Face(67);
        CmdNPC:Say("不好意识你的装备已经到我所不能极的地方，我以无能为力~!");
        CmdNPC:Link("我看看",255);
        CmdNPC:Finish(); 
  end;

end;

if NPCcon==0 then
   CmdNPC:Face(67); 
   CmdNPC:Say("踏风那孩子虽然已经成器了，但是可惜的是手艺仍然未达到炉火纯青的地步.");
   CmdNPC:Say("做为他的师父，老夫原本已经归隐乡里，但是终究不忍心看到那些希望而来,失望而去的客人，因此决定出山.");
   CmdNPC:Say("老夫收的材料稍多，那是因为需要从中萃取出精华，确保装备成功，你呢是来找我帮什么忙?"); 
   CmdNPC:Link("升品质",11);
   CmdNPC:Link("升等级",12);
   CmdNPC:Link("不需要",255);
   CmdNPC:Finish();
end;

if NPCcon==11 then
   CmdNPC:Face(67);
   CmdNPC:Say("哦，你要老夫帮你升级那种装备品质?");
   CmdNPC:Link("升头盔,耳环",21);
   CmdNPC:Link("升项链",22);
   CmdNPC:Link("升盔甲",23);
   CmdNPC:Link("升武器",24);
   CmdNPC:Link("升戒指",25);
   CmdNPC:Link("升鞋子",26);
   CmdNPC:Link("升盾牌",27);
   CmdNPC:Link("我只是问问",255);
   CmdNPC:Finish();
end;


if NPCcon==12 then
   CmdNPC:Face(67);
   CmdNPC:Say("哦，你要老夫帮你升级那种装备等级?");
   CmdNPC:Link("升头盔,耳环",31);
   CmdNPC:Link("升项链",32);
   CmdNPC:Link("升盔甲",33);
   CmdNPC:Link("升武器",34);
   CmdNPC:Link("升戒指",35);
   CmdNPC:Link("升鞋子",36);
   CmdNPC:Link("升盾牌",37);
   CmdNPC:Link("我只是问问",255);
   CmdNPC:Finish();
end;



if NPCcon==21 then 
     SetPZ(0);
end;

if NPCcon==22 then 
     SetPZ(1);
end;

if NPCcon==23 then 
     SetPZ(2);
end;

if NPCcon==24 then 
     SetPZ(3);
end;

if NPCcon==25 then 
     SetPZ(5);
end;

if NPCcon==26 then 
     SetPZ(6);
end;

if NPCcon==27 then 
     SetPZ(4);
end;







if NPCcon==41 then
   Cout1=API:GetUserVar(client,"Cout1");
   Pos1=API:GetUserVar(client,"Pos1");
   id=API:GetUserVar(client,"#ITEMID1");
 if id==API:GetEquipItemAttribute(client,Pos1,0) then
   if Pos1>-1 and Cout1>0 then
      if API:RemoveItem_ID(client,1088000,Cout1) then
         if API:SetEquipItemPZ(client,Pos1,1) then
            API:CharSpawn(client);
         else
            API:SendMess(client,"不好意识出现异常表示抱歉");
            API:Additems(client,1088000,Cout1);
         end;
      else
        CmdNPC:Face(67);
        CmdNPC:Say("你没"..Cout1.."个龙珠吧");
        CmdNPC:Link("我看看",255);
        CmdNPC:Finish();
      end; 
   else
      API:SendConsole(Pos1);
      API:SendConsole(Cout1); 
   end;
 else
    CmdNPC:Face(67);
    CmdNPC:Say("我不和骗子做生意快滚");
    CmdNPC:Link("我滚了",255);
    CmdNPC:Finish();
  end;
end;








if NPCcon==31 then 
     SetLv(0);
end;

if NPCcon==32 then 
     SetLv(1);
end;

if NPCcon==33 then 
     SetLv(2);
end;

if NPCcon==34 then 
     SetLv(3);
end;

if NPCcon==35 then 
     SetLv(5);
end;

if NPCcon==36 then 
     SetLv(6);
end;

if NPCcon==37 then 
     SetLv(4);
end;





if NPCcon==51 then
   Cout2=API:GetUserVar(client,"Cout2");
   Pos2=API:GetUserVar(client,"Pos2");
   id=API:GetUserVar(client,"#ITEMID2");

  if id==API:GetEquipItemAttribute(client,Pos2,0) then
   if Pos2>-1 and Cout2>0 then
      if API:RemoveItem_ID(client,1088001,Cout2) then
         if API:SetEquipItemLv(client,Pos2) then
            API:CharSpawn(client);
         else
            API:SendMess(client,"不好意识出现异常表示抱歉");
            API:Additems(client,1088001,Cout2);
         end;
      else
        CmdNPC:Face(67);
        CmdNPC:Say("你没"..Cout2.."个流星吧");
        CmdNPC:Link("我看看",255);
        CmdNPC:Finish();
      end; 
   else
      API:SendConsole(Pos2);
      API:SendConsole(Cout2); 
   end;
 else
    CmdNPC:Face(67);
    CmdNPC:Say("我不和骗子做生意快滚");
    CmdNPC:Link("我滚了",255);
    CmdNPC:Finish();
 end;
end;