[讨论] 初级魔力lua解析

wangjun1127

妖精

Rank: 2 Rank: 2

UID: 24188
精华: 0
积分: 124
威望: 0 度

阁楼大中小发表于 2019-5-30 19:56 显示全部帖子

求助大神指点一下，GA能用的宠物技能学习卷放到CGMSV上就老提示宠物技能栏已满呢？？妖城在线论坛; |# H( S# X. {) b

魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表) A  w3 k( ], T
if _Select==2 or _Seqno==99999 then# ^( Y# t: y) W% c- G! d1 `
return魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 p+ Z; n9 Q5 H) C- g# c* F
end
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 Q; V2 y9 M+ x, V
if _Seqno==10 then4 B8 y) a8 ]9 Y4 I( x/ {
--Get Session
SelectPetSlot[_PlayerIndex] = _Data-1
local tItemSlot = SelectItemSlot[_PlayerIndex]
local tPetSlot = SelectPetSlot[_PlayerIndex]—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. B! Y: D" t% X: H+ ^5 L+ }
--Get Pet Data
local tPetIndex = Char.GetPet(_PlayerIndex, tPetSlot)
if tPetIndex<0 then魔力私服,最新魔力宝贝私服技术交流0 \) i4 t1 x# u) o& A9 Z' N
return 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# A. `0 d# P3 {; e. a3 B/ l
end
local tPetName = Char.GetData(tPetIndex, %对象_名字%)
local tPetID = Char.GetData(tPetIndex, 68)
local tPetLv = Char.GetData(tPetIndex, %对象_等级%)
local tPetGetLv = Char.GetData(tPetIndex, %宠物_获取时等级%)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- Y) g+ X9 T& a# v+ \$ e/ k
local tPetTechSlotMax = Char.GetData(tPetIndex, %宠物_技能栏%)bbs.mocwww.com# B5 D4 r5 j% ~) `: K. D
--Get Item Data
local tItemIndex = Char.GetItemIndex(_PlayerIndex, tItemSlot)
if tItemIndex<0 then魔力私服,最新魔力宝贝私服技术交流; ?/ t; w3 Y" E; ?) a; X
return 0bbs.mocwww.com2 c( v6 S5 k& @3 H% v4 L
end
local tItemName = Item.GetData(tItemIndex, %道具_名字%)
local tItemID = Item.GetData(tItemIndex, %道具_ID%)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ s/ |1 x, I7 ?8 Z  T
local tTechType = Item.GetData(tItemIndex, %道具_特殊类型%) or 0
local tTechID = Item.GetData(tItemIndex, %道具_子参一%) or 0
local tPreTechID = Item.GetData(tItemIndex, %道具_子参二%) or 0
print("\n=================调试信息====================")
print("tItemID=" .. tItemID)
print("tItemName=" .. tItemName)
print("tTechType=" .. tTechType)
print("tTechID=" .. tTechID)
print("tPreTechID=" .. tPreTechID)
print("NorPreTechID=" .. NorPreTechID)
print("TechSlot=" .. #PetTechNpc_GetTechList(tPetIndex) .. "/" .. tPetTechSlotMax)& @- b. Q6 x+ K- @- L. I
print("InTable=" .. PetTechNpc_GetTechPos(tPetIndex, tPreTechID))妖城在线论坛5 C6 c8 G: v, @! _
--Check Type
if tTechType==1 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  R5 \* Z& O8 G: S; F
if PetTechNpc_CheckInTable(SPetListA, tPetID)~=true then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")
return 0
end
elseif tTechType==2 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% z& B2 s6 z& N* G& w1 C. Z' @( Z
if PetTechNpc_CheckInTable(SPetListB, tPetID)~=true then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")bbs.mocwww.com3 p* z& E  \8 @& ]0 F
return 0
end1 x" |  l( z% p& z9 o3 r" F7 F1 m
elseif tTechType==3 then
if tPetGetLv>1 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：非野生")魔力私服,最新魔力宝贝私服技术交流# h# U" r1 E) J3 V! `
return 0
end魔力私服,最新魔力宝贝私服技术交流( C# w* V3 M% F9 L3 U
elseif tTechType==4 then魔力私服,最新魔力宝贝私服技术交流" C$ d% g  |0 s; a
if tPetLv<PetMaxLevel then1 ^+ i  [" O) X' i# Z8 ~) q
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：满级")
return 0
end
end
--Check NorPreTechID
if tPreTechID==NorPreTechID and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax and PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 thenbbs.mocwww.com: Q" Q5 N+ p) `1 \- R
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：请先学习【高阶技能栏】技能")
return 0
end
--Check PreTechbbs.mocwww.com% e, i# K8 L) ~& a7 s% z  w
if tPreTechID>0 and tPreTechID~=NorPreTechID then
if PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 t+ |* C3 B3 A4 C
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：前置技能")3 t8 A) ]% h) I
return 0bbs.mocwww.com0 E3 R" Z# O7 V1 E. ^8 d* K' t
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: C& P5 L9 C! h7 a
end
--Check Slot
if tPreTechID<=0 and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax then魔力私服,最新魔力宝贝私服技术交流4 W9 K% }9 c" q2 G
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：技能栏已满")
return 0魔力私服,最新魔力宝贝私服技术交流3 N( X6 D8 h, a+ t& q
end
--Del PreTech魔力私服,最新魔力宝贝私服技术交流! V8 q+ R6 n, i; l5 u
if tPreTechID>0 then
local tPreTechPos = PetTechNpc_GetTechPos(tPetIndex, tPreTechID)
Pet.DelSkill(tPetIndex, tPreTechPos)魔力私服,最新魔力宝贝私服技术交流3 s6 D2 r2 L3 T' T) p
end
--Add Tech
local rt = Pet.AddSkill(tPetIndex, tTechID)妖城在线论坛' Q1 t+ }% \* |) E: [9 Q  g' s
if rt~=1 then
NLG.SystemMessage(_PlayerIndex, "[错误] 未知原因错误")魔力私服,最新魔力宝贝私服技术交流) t/ N( J3 Z1 H6 D
return 0妖城在线论坛. N2 h# l) i; I' K( O! c
end
--Del Item
Char.DelItem(_PlayerIndex, tItemID, 1)
--Up Pet魔力私服,最新魔力宝贝私服技术交流8 B6 a/ K4 D9 y5 B0 Z2 p
Pet.UpPet(_PlayerIndex, tPetIndex)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 O3 H, w" x1 I+ c
NLG.SystemMessage(_PlayerIndex, "你的宠物" .. tPetName .. "学会了新技能。")bbs.mocwww.com. n0 c8 [" N8 V' O  a) T
return 1
end
end
魔力私服,最新魔力宝贝私服技术交流+ q4 N( v. D. A: {* V$ _
--使用道具魔力私服,最新魔力宝贝私服技术交流' [: Q) b5 K+ o* Q! V
NL.RegItemString(nil, "PetTechNpc_ItemUse", "LUA_usePetTech");bbs.mocwww.com1 {/ \4 L) N' |% h3 U) p
function PetTechNpc_ItemUse(_PlayerIndex, _ToPlayerIndex, _Slot)
SelectItemSlot[_PlayerIndex] = _Slot1 K! k" U# c  j: I9 O% A) C2 X
PetTechNpc_Talked( tbl_LuaNpcIndex["PetTechNpc"], _PlayerIndex, 1)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 ?; y* L4 T" n+ G' ~1 t4 {# u
return 1—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 R, p7 S0 A( p: r; O
end

TOP

wangjun1127

妖精

Rank: 2 Rank: 2

UID: 24188
精华: 0
积分: 124
威望: 0 度

沙发大中小发表于 2019-6-9 07:04 显示全部帖子

提示lua道具被重复注册怎么处理啊？？？？

TOP

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