[提问] 谁能给个双击道具洗满档的脚本啊？

ysjoy1991

小妖

Rank: 1

UID: 46624
精华: 0
积分: 1
威望: 0 度

阁楼大中小发表于 2024-6-6 00:41 显示全部帖子

NL.RegItemString(nil,"FullAttribItemInit","LUA_useFullAttrib");
妖城在线论坛1 T7 }# c9 @8 W/ L: ?; c6 z9 Q$ m
function Myinit( index)
      print("宠物属性满档NPC_index = " .. index);
      return 1;
end妖城在线论坛; D% ^; J7 n# y, e4 l. e% A

--宠物属性
function FullAttrib_callback(_MeIndex,_PlayerIndex,_seqno,_select,_data)3 K5 y* O% Z  a# }

      local itemindex = Char.GetItemIndex( _PlayerIndex, _seqno);
0 ]0 i' z6 P( g; X) D
      if(tonumber(_data) == -3) then
         return;
      end
bbs.mocwww.com0 }: {) t7 \! M
      if(itemindex < 0) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 d$ O+ x9 s* N% q
         NLG.SystemMessage(_PlayerIndex,"[系统]道具使用参数错误")
         return;
      end
      local itemid = Item.GetData(itemindex,%道具_序%);
妖城在线论坛  N- F2 \9 h; ^$ v
      local selectitem = tonumber(_data) - 1;
      print(tonumber(_data));
      if(selectitem == nil or selectitem > 4 or selectitem < 0) then
         NLG.SystemMessage(_PlayerIndex,"[系统]您所选择的位置不正常!");
         return;
      end
妖城在线论坛, ~, c% A' j- P6 J; s' j% f
      local _PetIndex = Char.GetPet(_PlayerIndex,selectitem);
      if (VaildChar(_PetIndex) == false) then
         NLG.SystemMessage(_PlayerIndex,"[系统]请确定您对应的宠物栏有宠物!");
         return;
      end
      if(Char.GetData(_PetIndex,%对象_等级%) ~= 1) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 j" W2 @: s9 z7 _, l
         NLG.SystemMessage(_PlayerIndex,"[系统]无法对非1级宠物进行洗档!");
         return;妖城在线论坛& C0 A1 a# N! {( W" I! [
      end# V" E! i- A) _8 N
      if Char.GetData(_PetIndex,%宠物_获取时等级%) ~= 1 then  g: r6 {* `( X: V) P* n  Q
         NLG.SystemMessage(_PlayerIndex,"[系统] 野生宠物无法洗档。")
         return;
      end
      local arr_rank1 = Pet.GetArtRank(_PetIndex,%宠档_体成%);
      local arr_rank11 = Pet.FullArtRank(_PetIndex,%宠档_体成%);
      local arr_rank2 = Pet.GetArtRank(_PetIndex,%宠档_力成%);" i, X6 j: u+ h7 ^+ b1 A
      local arr_rank21 = Pet.FullArtRank(_PetIndex,%宠档_力成%);
      local arr_rank3 = Pet.GetArtRank(_PetIndex,%宠档_强成%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 ]! _4 p0 _- p) g
      local arr_rank31 = Pet.FullArtRank(_PetIndex,%宠档_强成%);
      local arr_rank4 = Pet.GetArtRank(_PetIndex,%宠档_敏成%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 ~" U8 d3 D5 V3 p# E, _' b. {' e1 I. ~
      local arr_rank41 = Pet.FullArtRank(_PetIndex,%宠档_敏成%);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% v# h& X0 t, Z8 s
      local arr_rank5 = Pet.GetArtRank(_PetIndex,%宠档_魔成%);
      local arr_rank51 = Pet.FullArtRank(_PetIndex,%宠档_魔成%);
      local a1 = math.abs(arr_rank1 - arr_rank11);bbs.mocwww.com' o7 C0 O$ F$ V1 h0 D# w" d+ X
      local a2 = math.abs(arr_rank2 - arr_rank21);
      local a3 = math.abs(arr_rank3 - arr_rank31);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 Y) D3 r2 N: G
      local a4 = math.abs(arr_rank4 - arr_rank41);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 r9 `5 G& x" g3 @1 e! X( V* n: ?9 ~
      local a5 = math.abs(arr_rank5 - arr_rank51);妖城在线论坛6 d" T3 ?7 |/ \* A; Z! a! H
      local a6 = a1 + a2+ a3+ a4+ a5;

      if a6 == 0 thenbbs.mocwww.com' ^: ^  w% B  r0 T3 ^+ h5 f' d$ x1 O
         NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 已经是满档!");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 r) F4 I! R- v# F2 c) Y* D
         return;
      end
Pet.SetArtRank(_PetIndex,%宠档_体成%,Pet.FullArtRank(_PetIndex,%宠档_体成%));魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 C0 L1 j  w5 ^" l$ I+ ]) T6 v# Z
Pet.SetArtRank(_PetIndex,%宠档_力成%,Pet.FullArtRank(_PetIndex,%宠档_力成%));—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 y$ D1 ~6 q0 d0 ]" u- V2 V1 u
Pet.SetArtRank(_PetIndex,%宠档_强成%,Pet.FullArtRank(_PetIndex,%宠档_强成%));
Pet.SetArtRank(_PetIndex,%宠档_敏成%,Pet.FullArtRank(_PetIndex,%宠档_敏成%));—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ v$ b8 e/ v, f/ `. o- y1 m
Pet.SetArtRank(_PetIndex,%宠档_魔成%,Pet.FullArtRank(_PetIndex,%宠档_魔成%));妖城在线论坛2 G# k3 a+ @3 i1 [) d- O, b
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. T* N& A6 k, w3 V+ y

      if(Char.DelItem(_PlayerIndex,itemid,1) < 0) then
         NLG.SystemMessage(_PlayerIndex,"[系统]未知原因导致物品删除失败!");bbs.mocwww.com/ O6 R0 h" `' U" {1 o
         return;
      end

      Pet.ReBirth(_PlayerIndex, _PetIndex);
      Pet.UpPet(_PlayerIndex,_PetIndex);
      NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 洗档完毕!");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ n  O) b  [1 b- @  [. b
      return;
end
bbs.mocwww.com5 p: H% w' k! L3 W% u
function FullAttrib(_meIndex,_toIndex,_itemslot)
      if (NPC_FullAttrib == nil) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ Y  b5 f1 v0 V! H6 N
         NPC_FullAttrib = NL.CreateNpc(nil, "Myinit");
         Char.SetData(NPC_FullAttrib,%对象_形象%,110308);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" R% h+ t3 y8 X2 a
         Char.SetData(NPC_FullAttrib,%对象_原形%,110308);
         Char.SetData(NPC_FullAttrib,%对象_地图%,777);
         Char.SetData(NPC_FullAttrib,%对象_X%,14);
         Char.SetData(NPC_FullAttrib,%对象_Y%,14);魔力私服,最新魔力宝贝私服技术交流/ P: S* U* Q* K  g) ]
         Char.SetData(NPC_FullAttrib,%对象_方向%,4);
         Char.SetData(NPC_FullAttrib,%对象_名字%,"宠物属性满档");
         NLG.UpChar(NPC_FullAttrib);
         Char.SetWindowTalkedEvent(nil,"FullAttrib_callback",NPC_FullAttrib);
      end+ N/ [9 m9 _7 a6 e. s6 P

      local str_ChangeWindow = "3|\\n\\n          请选择您要满档的宠物名称  \\n\\n";bbs.mocwww.com3 p7 s( K3 B* M; A, q, h
      for i=0,4 do妖城在线论坛6 v# U1 w5 {, l' q
         local pet = Char.GetPet(_meIndex,i);魔力私服,最新魔力宝贝私服技术交流/ I9 p- [$ G  i  h: P- E; L
         if(VaildChar(pet)==false)then
            str_ChangeWindow = str_ChangeWindow .. "空\\n";
         else
                     str_ChangeWindow = str_ChangeWindow .. ""..Char.GetData(pet,%对象_名字%).."\\n";
         end
      end
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% b& P* J  r/ M8 T
      NLG.ShowWindowTalked( _meIndex,NPC_FullAttrib,2,%按钮_关闭%, _itemslot, str_ChangeWindow);
      return;
end
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ T+ d3 K' U3 X" f+ H2 x
function FullAttribItemInit(_meIndex,_toIndex,_itemslot)' a6 y: R" `! K+ a3 J* p
local ItemIndex = Char.GetItemIndex(_meIndex,_itemslot);
if(ItemIndex >= 0) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- }8 c5 f  {4 k; \' K
      if(Item.GetData(ItemIndex,%道具_USEFUNC%) == "LUA_useFullAttrib") then
         FullAttrib(_meIndex,_toIndex,_itemslot);
         return 1;
      end妖城在线论坛0 C% `" t1 o; G' G' W) q
end
return 0;
end

TOP

‹‹ 上一主题 | 下一主题 ››