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

ysjoy1991

小妖

Rank: 1

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

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

NL.RegItemString(nil,"FullAttribItemInit","LUA_useFullAttrib");
妖城在线论坛) `& a% o0 p5 q2 c) H1 b
function Myinit( index)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 B  S) K: }1 L! J2 m3 E
      print("宠物属性满档NPC_index = " .. index);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表' c0 P. g/ g2 B
      return 1;
end
bbs.mocwww.com9 v4 b8 o' p8 O9 d1 S
--宠物属性' t' x. d3 {1 N8 o8 }+ {
function FullAttrib_callback(_MeIndex,_PlayerIndex,_seqno,_select,_data)/ K+ c& `) a0 v1 i  L
      妖城在线论坛2 ^' q9 M3 _" K) f" O- y
      local itemindex = Char.GetItemIndex( _PlayerIndex, _seqno);

      if(tonumber(_data) == -3) then
         return;
      end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) V# |7 b( @2 p% h$ F
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 P* U5 s( g1 v6 I
      if(itemindex < 0) then
         NLG.SystemMessage(_PlayerIndex,"[系统]道具使用参数错误")
         return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 @8 ~& r  i- @; C5 E* h% l
      end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) w( g6 Z2 r0 y9 E
      local itemid = Item.GetData(itemindex,%道具_序%);
. u# X- L* t, w0 c8 n* q0 y9 B$ }
      local selectitem = tonumber(_data) - 1;妖城在线论坛0 m& A% {2 T, D8 `- R, c8 B
      print(tonumber(_data));魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: l) k! Z3 O: l/ a& l
      if(selectitem == nil or selectitem > 4 or selectitem < 0) then* |' ^9 V  b! Z
         NLG.SystemMessage(_PlayerIndex,"[系统]您所选择的位置不正常!");
         return;
      end  }% w+ H1 A) X8 c1 d& K6 L
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  k7 X; E# W2 ~& V
      local _PetIndex = Char.GetPet(_PlayerIndex,selectitem);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: k' N8 m/ g9 H0 {
      if (VaildChar(_PetIndex) == false) then
         NLG.SystemMessage(_PlayerIndex,"[系统]请确定您对应的宠物栏有宠物!");
         return;—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" D( b( O/ y9 e2 P% c" W
      end
      if(Char.GetData(_PetIndex,%对象_等级%) ~= 1) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 _! L' q: M: J/ S" C+ O- k  K2 p
         NLG.SystemMessage(_PlayerIndex,"[系统]无法对非1级宠物进行洗档!");
         return;
      end
      if Char.GetData(_PetIndex,%宠物_获取时等级%) ~= 1 then
         NLG.SystemMessage(_PlayerIndex,"[系统] 野生宠物无法洗档。")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% M) q% \2 T. N* ?4 K- ^8 X
         return;bbs.mocwww.com' o8 D# X. J. a) q, [
      end
      local arr_rank1 = Pet.GetArtRank(_PetIndex,%宠档_体成%);妖城在线论坛* y0 O5 {1 q4 f. M% ~. Z
      local arr_rank11 = Pet.FullArtRank(_PetIndex,%宠档_体成%);
      local arr_rank2 = Pet.GetArtRank(_PetIndex,%宠档_力成%);bbs.mocwww.com  W$ [& M7 h; e& @5 e* e# |! d8 a
      local arr_rank21 = Pet.FullArtRank(_PetIndex,%宠档_力成%);bbs.mocwww.com1 a5 j6 X/ L7 A& g, G5 |; R3 O
      local arr_rank3 = Pet.GetArtRank(_PetIndex,%宠档_强成%);
      local arr_rank31 = Pet.FullArtRank(_PetIndex,%宠档_强成%);
      local arr_rank4 = Pet.GetArtRank(_PetIndex,%宠档_敏成%);
      local arr_rank41 = Pet.FullArtRank(_PetIndex,%宠档_敏成%);妖城在线论坛& E% i6 x+ I* z1 B1 \
      local arr_rank5 = Pet.GetArtRank(_PetIndex,%宠档_魔成%);
      local arr_rank51 = Pet.FullArtRank(_PetIndex,%宠档_魔成%);妖城在线论坛. W! T/ J+ R, y1 c) y
      local a1 = math.abs(arr_rank1 - arr_rank11);
      local a2 = math.abs(arr_rank2 - arr_rank21);魔力私服,最新魔力宝贝私服技术交流8 l+ A8 @, M& L, e3 I
      local a3 = math.abs(arr_rank3 - arr_rank31);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 ~0 G& I1 N) @1 V, l
      local a4 = math.abs(arr_rank4 - arr_rank41);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, l4 F8 y! R: `% N$ D# R! T7 z
      local a5 = math.abs(arr_rank5 - arr_rank51);
      local a6 = a1 + a2+ a3+ a4+ a5;

      if a6 == 0 thenbbs.mocwww.com4 [8 D) V! f4 N  J& s
         NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 已经是满档!");魔力私服,最新魔力宝贝私服技术交流8 g- ?' @5 S3 T, b
         return;2 e3 a! v5 w9 d5 B. {/ G( q& ?+ Q
      end
Pet.SetArtRank(_PetIndex,%宠档_体成%,Pet.FullArtRank(_PetIndex,%宠档_体成%));
Pet.SetArtRank(_PetIndex,%宠档_力成%,Pet.FullArtRank(_PetIndex,%宠档_力成%));
Pet.SetArtRank(_PetIndex,%宠档_强成%,Pet.FullArtRank(_PetIndex,%宠档_强成%));魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ h7 s; ^  u2 G$ i0 t! G/ T) ^8 {4 c
Pet.SetArtRank(_PetIndex,%宠档_敏成%,Pet.FullArtRank(_PetIndex,%宠档_敏成%));
Pet.SetArtRank(_PetIndex,%宠档_魔成%,Pet.FullArtRank(_PetIndex,%宠档_魔成%));


      if(Char.DelItem(_PlayerIndex,itemid,1) < 0) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' j7 Y1 l* Q0 x" z. z4 M5 }
         NLG.SystemMessage(_PlayerIndex,"[系统]未知原因导致物品删除失败!");
         return;
      end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 z1 X& e8 I% J6 w" L! O. {8 h
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 I- a' z) u- ~
      Pet.ReBirth(_PlayerIndex, _PetIndex);
      Pet.UpPet(_PlayerIndex,_PetIndex);
      NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 洗档完毕!");
      return;
end

function FullAttrib(_meIndex,_toIndex,_itemslot)7 A' M$ N* v: z. {' `
      if (NPC_FullAttrib == nil) then妖城在线论坛/ ]" z# j* z: _
         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);妖城在线论坛! U6 m2 c5 `7 u
         Char.SetData(NPC_FullAttrib,%对象_Y%,14);妖城在线论坛# m1 O" {/ A  ?
         Char.SetData(NPC_FullAttrib,%对象_方向%,4);
         Char.SetData(NPC_FullAttrib,%对象_名字%,"宠物属性满档");
         NLG.UpChar(NPC_FullAttrib);
         Char.SetWindowTalkedEvent(nil,"FullAttrib_callback",NPC_FullAttrib);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) w" D0 B3 l# }9 C$ E
      end魔力私服,最新魔力宝贝私服技术交流: i& h2 S* h3 r! P8 ^! E( [3 Y# ~
      bbs.mocwww.com% a) r  V8 ]. j8 Y" n
      local str_ChangeWindow = "3|\\n\\n          请选择您要满档的宠物名称  \\n\\n";
      for i=0,4 do魔力私服,最新魔力宝贝私服技术交流) E% Z0 r5 Q. f8 n7 W
         local pet = Char.GetPet(_meIndex,i);
         if(VaildChar(pet)==false)then
            str_ChangeWindow = str_ChangeWindow .. "空\\n";魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 j) V0 A% ^% V3 D- O
         elsebbs.mocwww.com& v% ]7 {1 o  x" b
                     str_ChangeWindow = str_ChangeWindow .. ""..Char.GetData(pet,%对象_名字%).."\\n";/ h# v% q' Y! T) t9 R2 `5 C
         endbbs.mocwww.com9 ~# Z( i+ w" I" |
      end
妖城在线论坛4 K9 S2 O  `6 v
      NLG.ShowWindowTalked( _meIndex,NPC_FullAttrib,2,%按钮_关闭%, _itemslot, str_ChangeWindow);
      return;妖城在线论坛) E1 C: k$ `' Q: G% }3 J& K/ B
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 s2 d( P! D$ v
bbs.mocwww.com+ z# R: c, @. {* P5 b
function FullAttribItemInit(_meIndex,_toIndex,_itemslot)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( G/ L0 I- ?( b# i' x
local ItemIndex = Char.GetItemIndex(_meIndex,_itemslot);魔力私服,最新魔力宝贝私服技术交流! Q" y8 {) F4 \5 v# \; }$ }
if(ItemIndex >= 0) then
      if(Item.GetData(ItemIndex,%道具_USEFUNC%) == "LUA_useFullAttrib") then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 G# K' V( o* C3 g4 ^- [) I& ]
         FullAttrib(_meIndex,_toIndex,_itemslot);
         return 1;
      end
end妖城在线论坛7 Q1 ~! ]2 s' O2 ~- w3 q; ?
return 0;
end

TOP

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