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

ysjoy1991

小妖

Rank: 1

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

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

NL.RegItemString(nil,"FullAttribItemInit","LUA_useFullAttrib");

function Myinit( index)妖城在线论坛% V5 j& G$ F5 H5 L/ I
      print("宠物属性满档NPC_index = " .. index);妖城在线论坛3 ]3 V; v# ^# N0 @# g
      return 1;魔力私服,最新魔力宝贝私服技术交流0 E& D& P: L& c. W
end
bbs.mocwww.com* j$ D# L+ l6 H% r- _
--宠物属性bbs.mocwww.com" j" v# H5 }" q6 J3 T9 j
function FullAttrib_callback(_MeIndex,_PlayerIndex,_seqno,_select,_data)魔力私服,最新魔力宝贝私服技术交流2 f) `8 N* j& y: U2 n0 ]
      —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ }! q+ F  D/ A
      local itemindex = Char.GetItemIndex( _PlayerIndex, _seqno);
妖城在线论坛3 _+ u+ p; U0 r- r" h
      if(tonumber(_data) == -3) then
         return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' }- t7 X) K# K  Z( u7 E2 I' O
      end

      if(itemindex < 0) thenbbs.mocwww.com8 h& K6 q0 p9 ~& i, q( v4 L8 ]5 z* d
         NLG.SystemMessage(_PlayerIndex,"[系统]道具使用参数错误")
         return;
      end妖城在线论坛8 C$ v1 a3 f; N+ Y
      local itemid = Item.GetData(itemindex,%道具_序%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& S  {  r  \5 c- v# @, ~/ k  f

      local selectitem = tonumber(_data) - 1;
      print(tonumber(_data));
      if(selectitem == nil or selectitem > 4 or selectitem < 0) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) N- w7 z% [( P: O  J
         NLG.SystemMessage(_PlayerIndex,"[系统]您所选择的位置不正常!");bbs.mocwww.com! E" H3 M* \% X4 p* j4 ?
         return;
      end妖城在线论坛  _5 [: i" r  `, @

      local _PetIndex = Char.GetPet(_PlayerIndex,selectitem);
      if (VaildChar(_PetIndex) == false) then
         NLG.SystemMessage(_PlayerIndex,"[系统]请确定您对应的宠物栏有宠物!");
         return;
      end
      if(Char.GetData(_PetIndex,%对象_等级%) ~= 1) then
         NLG.SystemMessage(_PlayerIndex,"[系统]无法对非1级宠物进行洗档!");魔力私服,最新魔力宝贝私服技术交流% y' w) w: P* `0 X6 E
         return;
      end魔力私服,最新魔力宝贝私服技术交流9 g% z: l3 y, \. P! u
      if Char.GetData(_PetIndex,%宠物_获取时等级%) ~= 1 then
         NLG.SystemMessage(_PlayerIndex,"[系统] 野生宠物无法洗档。")妖城在线论坛" f/ N/ |! G2 S9 ~7 A" m5 ^3 w
         return;4 v3 }" `- A7 v
      end
      local arr_rank1 = Pet.GetArtRank(_PetIndex,%宠档_体成%);# p. |1 _3 c' W& `$ b( g
      local arr_rank11 = Pet.FullArtRank(_PetIndex,%宠档_体成%);
      local arr_rank2 = Pet.GetArtRank(_PetIndex,%宠档_力成%);
      local arr_rank21 = Pet.FullArtRank(_PetIndex,%宠档_力成%);魔力私服,最新魔力宝贝私服技术交流- _, ]3 ?& x8 F( |, |
      local arr_rank3 = Pet.GetArtRank(_PetIndex,%宠档_强成%);
      local arr_rank31 = Pet.FullArtRank(_PetIndex,%宠档_强成%);
      local arr_rank4 = Pet.GetArtRank(_PetIndex,%宠档_敏成%);
      local arr_rank41 = Pet.FullArtRank(_PetIndex,%宠档_敏成%);魔力私服,最新魔力宝贝私服技术交流" Q9 e" U. U5 U9 Z
      local arr_rank5 = Pet.GetArtRank(_PetIndex,%宠档_魔成%);
      local arr_rank51 = Pet.FullArtRank(_PetIndex,%宠档_魔成%);妖城在线论坛- i( e6 f. u: O: R8 v! j
      local a1 = math.abs(arr_rank1 - arr_rank11);
      local a2 = math.abs(arr_rank2 - arr_rank21);
      local a3 = math.abs(arr_rank3 - arr_rank31);魔力私服,最新魔力宝贝私服技术交流! h! T- B4 l8 |
      local a4 = math.abs(arr_rank4 - arr_rank41);妖城在线论坛; B  g' a0 L4 ]. j
      local a5 = math.abs(arr_rank5 - arr_rank51);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# k5 E* r3 H% j* V( Q, M
      local a6 = a1 + a2+ a3+ a4+ a5;

      if a6 == 0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( P# ]2 L) d7 {4 s; |3 ?
         NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 已经是满档!");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 F5 M4 A: t" B' j) o+ Y5 h  C
         return;bbs.mocwww.com* ]& U+ [5 o% L/ e8 @
      end妖城在线论坛3 W+ i( Z1 S  t2 T$ u
Pet.SetArtRank(_PetIndex,%宠档_体成%,Pet.FullArtRank(_PetIndex,%宠档_体成%));妖城在线论坛3 C; F) b, U( s2 ?
Pet.SetArtRank(_PetIndex,%宠档_力成%,Pet.FullArtRank(_PetIndex,%宠档_力成%));
Pet.SetArtRank(_PetIndex,%宠档_强成%,Pet.FullArtRank(_PetIndex,%宠档_强成%));
Pet.SetArtRank(_PetIndex,%宠档_敏成%,Pet.FullArtRank(_PetIndex,%宠档_敏成%));妖城在线论坛; a. v# F, N* ~
Pet.SetArtRank(_PetIndex,%宠档_魔成%,Pet.FullArtRank(_PetIndex,%宠档_魔成%));


      if(Char.DelItem(_PlayerIndex,itemid,1) < 0) then; O  Z" S5 N4 H8 t1 x& o1 s  Y
         NLG.SystemMessage(_PlayerIndex,"[系统]未知原因导致物品删除失败!");
         return;# \. e& [2 z/ F9 Y
      endbbs.mocwww.com0 U8 k, N( X" n- X- D$ V

      Pet.ReBirth(_PlayerIndex, _PetIndex);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- y: w* R* Z8 U6 |
      Pet.UpPet(_PlayerIndex,_PetIndex);魔力私服,最新魔力宝贝私服技术交流, H( r& h: j! Z' L
      NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 洗档完毕!");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 r0 g0 t$ X( ]5 c9 k" v9 Y! f
      return;
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 w: A1 @5 i7 G& b7 C

function FullAttrib(_meIndex,_toIndex,_itemslot)
      if (NPC_FullAttrib == nil) thenbbs.mocwww.com' g, D/ x( `1 A0 G
         NPC_FullAttrib = NL.CreateNpc(nil, "Myinit");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 o" e/ Q2 c: ^' g; ]
         Char.SetData(NPC_FullAttrib,%对象_形象%,110308);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( ?. M$ K/ S* R; C+ G( R
         Char.SetData(NPC_FullAttrib,%对象_原形%,110308);
         Char.SetData(NPC_FullAttrib,%对象_地图%,777);
         Char.SetData(NPC_FullAttrib,%对象_X%,14);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- B) l& \) j' ^& f: ?
         Char.SetData(NPC_FullAttrib,%对象_Y%,14);
         Char.SetData(NPC_FullAttrib,%对象_方向%,4);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 v% k7 ~7 d7 Z( ~( p' B
         Char.SetData(NPC_FullAttrib,%对象_名字%,"宠物属性满档");
         NLG.UpChar(NPC_FullAttrib);
         Char.SetWindowTalkedEvent(nil,"FullAttrib_callback",NPC_FullAttrib);
      end

      local str_ChangeWindow = "3|\\n\\n          请选择您要满档的宠物名称  \\n\\n";妖城在线论坛3 s( g' J# L7 U0 U
      for i=0,4 do
         local pet = Char.GetPet(_meIndex,i);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 x" [5 D, P. K) N
         if(VaildChar(pet)==false)then
            str_ChangeWindow = str_ChangeWindow .. "空\\n";
         else
                     str_ChangeWindow = str_ChangeWindow .. ""..Char.GetData(pet,%对象_名字%).."\\n";
         end. w# c" c2 Z1 x/ P
      end

      NLG.ShowWindowTalked( _meIndex,NPC_FullAttrib,2,%按钮_关闭%, _itemslot, str_ChangeWindow);妖城在线论坛. L8 X# P) z% s9 x6 k
      return;bbs.mocwww.com2 X: Q$ f. @1 t# d
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! R* U+ `, i% K/ a9 S

function FullAttribItemInit(_meIndex,_toIndex,_itemslot)魔力私服,最新魔力宝贝私服技术交流' O( K/ B8 f' q: |; i
local ItemIndex = Char.GetItemIndex(_meIndex,_itemslot);bbs.mocwww.com# {7 u4 V$ {& w  U
if(ItemIndex >= 0) then
      if(Item.GetData(ItemIndex,%道具_USEFUNC%) == "LUA_useFullAttrib") then
         FullAttrib(_meIndex,_toIndex,_itemslot);
         return 1;bbs.mocwww.com6 {' j1 w  P$ H, c, w) C
      end妖城在线论坛& y' X% g, ^$ s, e9 f7 i& e8 a
end
return 0;魔力私服,最新魔力宝贝私服技术交流: N+ D# Y, a3 G0 w
end

TOP

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