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

ysjoy1991

小妖

Rank: 1

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

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

NL.RegItemString(nil,"FullAttribItemInit","LUA_useFullAttrib");bbs.mocwww.com" r6 m) ^. ]1 W0 k7 {1 y3 e" u

function Myinit( index)
      print("宠物属性满档NPC_index = " .. index);8 e- e3 |; {1 U" Z3 R6 v
      return 1;
end

--宠物属性* B1 ?6 r: i- s  K: l- j
function FullAttrib_callback(_MeIndex,_PlayerIndex,_seqno,_select,_data)

      local itemindex = Char.GetItemIndex( _PlayerIndex, _seqno);妖城在线论坛& i" t4 ^+ j6 {* ^
魔力私服,最新魔力宝贝私服技术交流( B. T- N# J: y9 a
      if(tonumber(_data) == -3) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 G# d, s5 _' [, }4 n+ H* f
         return;
      end

      if(itemindex < 0) then
         NLG.SystemMessage(_PlayerIndex,"[系统]道具使用参数错误")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! |# T" T( D! n/ U& w+ ~* n
         return;9 @& _6 V1 G) ^. s- h0 N9 v& L
      end
      local itemid = Item.GetData(itemindex,%道具_序%);
- \% |$ J) W( A+ r' S% _- b. z
      local selectitem = tonumber(_data) - 1;
      print(tonumber(_data));
      if(selectitem == nil or selectitem > 4 or selectitem < 0) then
         NLG.SystemMessage(_PlayerIndex,"[系统]您所选择的位置不正常!");
         return;bbs.mocwww.com/ n5 Z( b7 V( S0 ?
      end1 V: k$ G+ N# _) j2 f% P) _

      local _PetIndex = Char.GetPet(_PlayerIndex,selectitem);妖城在线论坛/ e, Y& K  B8 ~% b( a# Y  G# x( t
      if (VaildChar(_PetIndex) == false) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 C4 u- E+ N3 u$ {) F. r
         NLG.SystemMessage(_PlayerIndex,"[系统]请确定您对应的宠物栏有宠物!");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 Y: c9 C8 B- S) V0 L
         return;
      end
      if(Char.GetData(_PetIndex,%对象_等级%) ~= 1) then
         NLG.SystemMessage(_PlayerIndex,"[系统]无法对非1级宠物进行洗档!");
         return;妖城在线论坛; {5 |4 N' V2 h! T5 K% C
      end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 t; {5 t# N2 s- k+ K0 w" e  I
      if Char.GetData(_PetIndex,%宠物_获取时等级%) ~= 1 then
         NLG.SystemMessage(_PlayerIndex,"[系统] 野生宠物无法洗档。")
         return;
      end
      local arr_rank1 = Pet.GetArtRank(_PetIndex,%宠档_体成%);
      local arr_rank11 = Pet.FullArtRank(_PetIndex,%宠档_体成%);
      local arr_rank2 = Pet.GetArtRank(_PetIndex,%宠档_力成%);魔力私服,最新魔力宝贝私服技术交流9 _: D, r$ g' O5 i
      local arr_rank21 = Pet.FullArtRank(_PetIndex,%宠档_力成%);bbs.mocwww.com6 v7 h6 A7 c* n. X  s. b& e7 D& C5 y( t3 M
      local arr_rank3 = Pet.GetArtRank(_PetIndex,%宠档_强成%);
      local arr_rank31 = Pet.FullArtRank(_PetIndex,%宠档_强成%);& Q4 W4 o4 @! P1 J5 e
      local arr_rank4 = Pet.GetArtRank(_PetIndex,%宠档_敏成%);
      local arr_rank41 = Pet.FullArtRank(_PetIndex,%宠档_敏成%);
      local arr_rank5 = Pet.GetArtRank(_PetIndex,%宠档_魔成%);魔力私服,最新魔力宝贝私服技术交流! }  O% Y' \" p. ^" j! H
      local arr_rank51 = Pet.FullArtRank(_PetIndex,%宠档_魔成%);
      local a1 = math.abs(arr_rank1 - arr_rank11);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( Y& |' J0 m, e2 W8 H3 i& x
      local a2 = math.abs(arr_rank2 - arr_rank21);
      local a3 = math.abs(arr_rank3 - arr_rank31);bbs.mocwww.com3 m3 \9 Z% F; s$ F& H
      local a4 = math.abs(arr_rank4 - arr_rank41);妖城在线论坛0 Y, g1 g! M/ O, }3 ], @
      local a5 = math.abs(arr_rank5 - arr_rank51);妖城在线论坛$ M% @. N1 y6 }. o5 B9 W
      local a6 = a1 + a2+ a3+ a4+ a5;
魔力私服,最新魔力宝贝私服技术交流1 A0 O/ t0 A# B% w( O. _
      if a6 == 0 then
         NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 已经是满档!");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# L3 b9 }) J  M4 g3 i! L, N8 E# j
         return;bbs.mocwww.com$ n0 @/ j% Y# E- H7 v
      endbbs.mocwww.com) @1 Q+ A. C8 C8 F+ r1 D1 F" P
Pet.SetArtRank(_PetIndex,%宠档_体成%,Pet.FullArtRank(_PetIndex,%宠档_体成%));
Pet.SetArtRank(_PetIndex,%宠档_力成%,Pet.FullArtRank(_PetIndex,%宠档_力成%));bbs.mocwww.com8 m& l8 |# k/ y) H- U& t$ _. Z
Pet.SetArtRank(_PetIndex,%宠档_强成%,Pet.FullArtRank(_PetIndex,%宠档_强成%));
Pet.SetArtRank(_PetIndex,%宠档_敏成%,Pet.FullArtRank(_PetIndex,%宠档_敏成%));bbs.mocwww.com! T# v: n, o- S. k; I5 e- u  n$ ~  R
Pet.SetArtRank(_PetIndex,%宠档_魔成%,Pet.FullArtRank(_PetIndex,%宠档_魔成%));魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  D+ b3 b# y* x. F. ]0 h3 I

            妖城在线论坛4 t  _# x, d" ^  [
      if(Char.DelItem(_PlayerIndex,itemid,1) < 0) then妖城在线论坛2 s- J, K! a8 ~& x% n
         NLG.SystemMessage(_PlayerIndex,"[系统]未知原因导致物品删除失败!");
         return;
      end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 k7 I; M. m0 S( V( N# _# P
妖城在线论坛+ g( K# W" A+ d1 W" G+ I
      Pet.ReBirth(_PlayerIndex, _PetIndex);. s  V/ L# Z# o* `# }/ m
      Pet.UpPet(_PlayerIndex,_PetIndex);
      NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 洗档完毕!");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% Q& G: ?0 g3 \$ f" @. K# r
      return;) ^5 N" |3 w6 N, C) O
end
bbs.mocwww.com7 Y# V. l6 G- D7 H1 n( z
function FullAttrib(_meIndex,_toIndex,_itemslot)魔力私服,最新魔力宝贝私服技术交流* |! g' M# x& f% s  _  e/ ?# o
      if (NPC_FullAttrib == nil) then
         NPC_FullAttrib = NL.CreateNpc(nil, "Myinit");
         Char.SetData(NPC_FullAttrib,%对象_形象%,110308);
         Char.SetData(NPC_FullAttrib,%对象_原形%,110308);
         Char.SetData(NPC_FullAttrib,%对象_地图%,777);
         Char.SetData(NPC_FullAttrib,%对象_X%,14);
         Char.SetData(NPC_FullAttrib,%对象_Y%,14);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" {/ P8 g! F4 d
         Char.SetData(NPC_FullAttrib,%对象_方向%,4);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  ]" r. l9 U2 O& ^, m
         Char.SetData(NPC_FullAttrib,%对象_名字%,"宠物属性满档");魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 v0 t. o5 |& n. }& n
         NLG.UpChar(NPC_FullAttrib);
         Char.SetWindowTalkedEvent(nil,"FullAttrib_callback",NPC_FullAttrib);
      end

      local str_ChangeWindow = "3|\\n\\n          请选择您要满档的宠物名称  \\n\\n";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, V) u+ ]# @0 u- y1 A( [; G
      for i=0,4 do
         local pet = Char.GetPet(_meIndex,i);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 N: b9 ]5 l4 O! F) I
         if(VaildChar(pet)==false)then
            str_ChangeWindow = str_ChangeWindow .. "空\\n";
         else妖城在线论坛) E4 Q  `4 c" N+ |0 O3 U
                     str_ChangeWindow = str_ChangeWindow .. ""..Char.GetData(pet,%对象_名字%).."\\n";—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ C( p4 v/ j7 [! M7 F- F
         end魔力私服,最新魔力宝贝私服技术交流& T" Q: ~8 C' N% G1 S
      endbbs.mocwww.com1 m1 P1 j7 D  A; N- y
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' ~: U1 ~6 R0 ^: x+ {: N' S
      NLG.ShowWindowTalked( _meIndex,NPC_FullAttrib,2,%按钮_关闭%, _itemslot, str_ChangeWindow);妖城在线论坛5 U" e7 J- h5 Q% k, x
      return;妖城在线论坛* N! P6 Z& ^2 \; j" M$ y. d
end
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ o6 E1 g4 W& V8 h2 _
function FullAttribItemInit(_meIndex,_toIndex,_itemslot)
local ItemIndex = Char.GetItemIndex(_meIndex,_itemslot);
if(ItemIndex >= 0) then
      if(Item.GetData(ItemIndex,%道具_USEFUNC%) == "LUA_useFullAttrib") thenbbs.mocwww.com! ]  k: {; T; ~$ x) E
         FullAttrib(_meIndex,_toIndex,_itemslot);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 f1 \' d6 M+ K% l3 I9 B# j6 d
         return 1;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  }' i$ W- r. L7 {
      end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; D$ r* C7 F9 `2 m
end
return 0;
end

TOP

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