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

ysjoy1991

小妖

Rank: 1

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

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

NL.RegItemString(nil,"FullAttribItemInit","LUA_useFullAttrib");
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 o' i; J- \$ Z  c5 k2 R  {7 p9 ~
function Myinit( index)
      print("宠物属性满档NPC_index = " .. index);
      return 1;
end妖城在线论坛3 O& W! C' ^$ b" z) D& Y

--宠物属性
function FullAttrib_callback(_MeIndex,_PlayerIndex,_seqno,_select,_data)

      local itemindex = Char.GetItemIndex( _PlayerIndex, _seqno);bbs.mocwww.com2 ?  ]* h  W5 w! q0 J6 L
妖城在线论坛$ J# B- p! q" Y3 T7 W
      if(tonumber(_data) == -3) then
         return;妖城在线论坛; Y! G/ D( K6 f1 W& W' A4 b. t5 o
      end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& c- |/ \% v& F  m  q+ C+ a- B

      if(itemindex < 0) then
         NLG.SystemMessage(_PlayerIndex,"[系统]道具使用参数错误")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ J9 b2 @5 K6 b6 ?
         return;
      end
      local itemid = Item.GetData(itemindex,%道具_序%);+ A. T% [- ~$ I9 P/ q
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- U0 T: R5 T& N1 |/ g; D
      local selectitem = tonumber(_data) - 1;
      print(tonumber(_data));bbs.mocwww.com( a( R: ?- S1 e7 o. ]2 g' U- T
      if(selectitem == nil or selectitem > 4 or selectitem < 0) then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" l8 t" N% ]+ K6 O) e
         NLG.SystemMessage(_PlayerIndex,"[系统]您所选择的位置不正常!");
         return;bbs.mocwww.com- ~+ u. r& P' Q9 B4 ?! O
      endbbs.mocwww.com, b: T, C( v, ?/ e. A
魔力私服,最新魔力宝贝私服技术交流6 o( J, q& T' z+ F1 l, J
      local _PetIndex = Char.GetPet(_PlayerIndex,selectitem);
      if (VaildChar(_PetIndex) == false) then
         NLG.SystemMessage(_PlayerIndex,"[系统]请确定您对应的宠物栏有宠物!");—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& I& n$ G' v2 K& \
         return;
      end
      if(Char.GetData(_PetIndex,%对象_等级%) ~= 1) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 D/ Q, q* {5 C5 N" A$ @' ~) D
         NLG.SystemMessage(_PlayerIndex,"[系统]无法对非1级宠物进行洗档!");
         return;
      end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& C! N7 A* L5 J. w+ a: B3 s
      if Char.GetData(_PetIndex,%宠物_获取时等级%) ~= 1 then
         NLG.SystemMessage(_PlayerIndex,"[系统] 野生宠物无法洗档。")
         return;
      endbbs.mocwww.com: d1 \6 ?6 y3 ~0 j/ G0 }2 }. E' @
      local arr_rank1 = Pet.GetArtRank(_PetIndex,%宠档_体成%);
      local arr_rank11 = Pet.FullArtRank(_PetIndex,%宠档_体成%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" {3 ~! U, d. g
      local arr_rank2 = Pet.GetArtRank(_PetIndex,%宠档_力成%);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ k5 N! @) d+ e4 g- A+ z7 g
      local arr_rank21 = Pet.FullArtRank(_PetIndex,%宠档_力成%);
      local arr_rank3 = Pet.GetArtRank(_PetIndex,%宠档_强成%);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 {9 X2 @% J. w& y2 w9 ?: ]  k4 I
      local arr_rank31 = Pet.FullArtRank(_PetIndex,%宠档_强成%);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート9 A  _2 q' c" M' n8 N% n
      local arr_rank4 = Pet.GetArtRank(_PetIndex,%宠档_敏成%);妖城在线论坛8 [4 s& n9 m% f% f# N' D* L1 @
      local arr_rank41 = Pet.FullArtRank(_PetIndex,%宠档_敏成%);魔力私服,最新魔力宝贝私服技术交流" r6 y3 k! G# ?: R& c
      local arr_rank5 = Pet.GetArtRank(_PetIndex,%宠档_魔成%);
      local arr_rank51 = Pet.FullArtRank(_PetIndex,%宠档_魔成%);
      local a1 = math.abs(arr_rank1 - arr_rank11);
      local a2 = math.abs(arr_rank2 - arr_rank21);魔力私服,最新魔力宝贝私服技术交流- ?, N4 g. u9 b; u' z1 H
      local a3 = math.abs(arr_rank3 - arr_rank31);
      local a4 = math.abs(arr_rank4 - arr_rank41);5 E5 w7 x9 Y  D- T
      local a5 = math.abs(arr_rank5 - arr_rank51);
      local a6 = a1 + a2+ a3+ a4+ a5;
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, F/ `2 g8 e6 s2 ]
      if a6 == 0 then
         NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 已经是满档!");
         return;
      end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) j5 O6 C6 Q2 X( O4 k3 w
Pet.SetArtRank(_PetIndex,%宠档_体成%,Pet.FullArtRank(_PetIndex,%宠档_体成%));bbs.mocwww.com" a# X+ w. d7 s7 W  H0 Y
Pet.SetArtRank(_PetIndex,%宠档_力成%,Pet.FullArtRank(_PetIndex,%宠档_力成%));魔力私服,最新魔力宝贝私服技术交流& f. `! m! J. Z5 `4 V7 }6 Q
Pet.SetArtRank(_PetIndex,%宠档_强成%,Pet.FullArtRank(_PetIndex,%宠档_强成%));
Pet.SetArtRank(_PetIndex,%宠档_敏成%,Pet.FullArtRank(_PetIndex,%宠档_敏成%));
Pet.SetArtRank(_PetIndex,%宠档_魔成%,Pet.FullArtRank(_PetIndex,%宠档_魔成%));魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 \1 z. ]; O; ]2 [" c
, e" g% c  x" L8 ^/ B" |1 M

      if(Char.DelItem(_PlayerIndex,itemid,1) < 0) then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 k+ p) H* p- V4 C
         NLG.SystemMessage(_PlayerIndex,"[系统]未知原因导致物品删除失败!");
         return;妖城在线论坛! o" H1 x9 [! L7 G1 v4 n
      end
# _: y) m, T3 g3 ]' r  B
      Pet.ReBirth(_PlayerIndex, _PetIndex);
      Pet.UpPet(_PlayerIndex,_PetIndex);
      NLG.SystemMessage(_PlayerIndex,"[系统]您的宠物 "..Char.GetData(_PetIndex,%对象_名字%).." 洗档完毕!");妖城在线论坛7 F% k. Y& s  L. I; m( ?3 G' v
      return;魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ z* u0 w" T6 U# u+ Z
end
妖城在线论坛: c7 `4 s* @% G& R1 S8 Y+ P
function FullAttrib(_meIndex,_toIndex,_itemslot)
      if (NPC_FullAttrib == nil) thenbbs.mocwww.com1 z, I. f1 |2 C3 b
         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);妖城在线论坛8 w3 T  @2 P8 [- L. q& ?  m4 ^
         Char.SetData(NPC_FullAttrib,%对象_Y%,14);
         Char.SetData(NPC_FullAttrib,%对象_方向%,4);bbs.mocwww.com0 J. P9 l) \" ~2 O  Z) D
         Char.SetData(NPC_FullAttrib,%对象_名字%,"宠物属性满档");妖城在线论坛. n! i' E4 z5 g! n' L" ^# ^6 x
         NLG.UpChar(NPC_FullAttrib);
         Char.SetWindowTalkedEvent(nil,"FullAttrib_callback",NPC_FullAttrib);
      end妖城在线论坛, P: M/ N. M$ Y) n# S% t

      local str_ChangeWindow = "3|\\n\\n          请选择您要满档的宠物名称  \\n\\n";
      for i=0,4 dobbs.mocwww.com+ \) j  H5 @2 h( Q: y& ~$ F0 m
         local pet = Char.GetPet(_meIndex,i);
         if(VaildChar(pet)==false)then
            str_ChangeWindow = str_ChangeWindow .. "空\\n";
         else
                     str_ChangeWindow = str_ChangeWindow .. ""..Char.GetData(pet,%对象_名字%).."\\n";
         endbbs.mocwww.com# n7 W% R% }' C% F
      end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  O. ]. J8 P' t5 g% R2 {+ o: D" v

      NLG.ShowWindowTalked( _meIndex,NPC_FullAttrib,2,%按钮_关闭%, _itemslot, str_ChangeWindow);魔力私服,最新魔力宝贝私服技术交流7 \) I4 C- G/ p' \# @4 o
      return;bbs.mocwww.com( L0 H. R6 n0 ~4 x4 Y7 {8 b
end

function FullAttribItemInit(_meIndex,_toIndex,_itemslot)
local ItemIndex = Char.GetItemIndex(_meIndex,_itemslot);—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  ~, p# N4 @9 O: l) F6 a! E
if(ItemIndex >= 0) then
      if(Item.GetData(ItemIndex,%道具_USEFUNC%) == "LUA_useFullAttrib") then
         FullAttrib(_meIndex,_toIndex,_itemslot);魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! F0 g+ y7 M- c- y' O7 I% ^6 o
         return 1;
      end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表5 F  ^; S: ~/ E! _$ |3 X9 Y
end2 x5 I& F8 V& s1 Q7 g' U
return 0;
end

TOP

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