[讨论] 初级魔力lua解析

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

求助大神指点一下，GA能用的宠物技能学习卷放到CGMSV上就老提示宠物技能栏已满呢？？
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. W) R. z) ]+ j% ^! g: J; n' c

if _Select==2 or _Seqno==99999 then
return
end, q2 ?' ]) @2 V9 a" F

if _Seqno==10 then
--Get Session- c* N. p# r- }# {4 o/ X9 B  Z
SelectPetSlot[_PlayerIndex] = _Data-1% @/ W( ~$ E& j! j# z, ~
local tItemSlot = SelectItemSlot[_PlayerIndex]—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート) K% z5 d0 R8 a  E
local tPetSlot = SelectPetSlot[_PlayerIndex]
--Get Pet Data
local tPetIndex = Char.GetPet(_PlayerIndex, tPetSlot)4 ]8 A4 X2 M. I" K
if tPetIndex<0 then
return 0bbs.mocwww.com+ H2 G: }5 Q" M6 Q3 D
end+ j2 i1 v: }1 C: y# m; g
local tPetName = Char.GetData(tPetIndex, %对象_名字%)bbs.mocwww.com4 M7 r0 Q1 ?" U) h
local tPetID = Char.GetData(tPetIndex, 68)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 M& X- ^6 y3 n# W: d
local tPetLv = Char.GetData(tPetIndex, %对象_等级%)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% k+ o& u9 I/ H) d: B
local tPetGetLv = Char.GetData(tPetIndex, %宠物_获取时等级%)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 b: Y+ d" z/ Y* B2 J
local tPetTechSlotMax = Char.GetData(tPetIndex, %宠物_技能栏%)
--Get Item Data
local tItemIndex = Char.GetItemIndex(_PlayerIndex, tItemSlot)4 b2 e6 Q- e! v9 Q7 R+ W5 {+ ^) j
if tItemIndex<0 then
return 0魔力私服,最新魔力宝贝私服技术交流  Z" U! I% @% B* P
end魔力私服,最新魔力宝贝私服技术交流. H4 g# H1 D; E; Q
local tItemName = Item.GetData(tItemIndex, %道具_名字%)9 u0 i/ c( i$ m# z# [7 [" l& ?- X
local tItemID = Item.GetData(tItemIndex, %道具_ID%)
local tTechType = Item.GetData(tItemIndex, %道具_特殊类型%) or 0
local tTechID = Item.GetData(tItemIndex, %道具_子参一%) or 0魔力私服,最新魔力宝贝私服技术交流3 O" i; `+ m  h) F3 l/ u  l# M" \
local tPreTechID = Item.GetData(tItemIndex, %道具_子参二%) or 0
print("\n=================调试信息====================")
print("tItemID=" .. tItemID)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 h0 z' L, C& N9 z) i
print("tItemName=" .. tItemName)
print("tTechType=" .. tTechType)
print("tTechID=" .. tTechID)
print("tPreTechID=" .. tPreTechID), n5 w% W/ g* N; `( W
print("NorPreTechID=" .. NorPreTechID)
print("TechSlot=" .. #PetTechNpc_GetTechList(tPetIndex) .. "/" .. tPetTechSlotMax)
print("InTable=" .. PetTechNpc_GetTechPos(tPetIndex, tPreTechID))
--Check Type
if tTechType==1 then妖城在线论坛5 v# u, R# _* D% P+ F
if PetTechNpc_CheckInTable(SPetListA, tPetID)~=true then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3 q( Q4 r- K* b2 U) G4 w
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")bbs.mocwww.com8 A+ Z+ E, K( M, h
return 0魔力私服,最新魔力宝贝私服技术交流" [& ]5 m! q! H! x
end
elseif tTechType==2 then
if PetTechNpc_CheckInTable(SPetListB, tPetID)~=true then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")bbs.mocwww.com+ e6 i9 J2 E/ Z9 M+ x. |
return 0bbs.mocwww.com3 }/ M4 J( M6 ~, j2 ^/ O
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, G' |9 }% @& c5 u4 ]* X
elseif tTechType==3 then
if tPetGetLv>1 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：非野生")
return 0
end
elseif tTechType==4 then魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表; g0 i$ l& m* a% @0 _
if tPetLv<PetMaxLevel thenbbs.mocwww.com8 ?- N' x7 K6 p9 j2 R7 y7 X
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：满级")2 w, o3 o3 ?8 x7 a
return 0
endbbs.mocwww.com8 B8 j% f' s( a2 K5 Y
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! m' I8 E" d! O; e
--Check NorPreTechID魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ f7 F+ A+ I& o0 z3 L
if tPreTechID==NorPreTechID and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax and PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：请先学习【高阶技能栏】技能")
return 0
end
--Check PreTech魔力私服,最新魔力宝贝私服技术交流: {& }1 @( ^/ L6 p( Y& a' L
if tPreTechID>0 and tPreTechID~=NorPreTechID then
if PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：前置技能")* t3 V. U+ A2 ^$ |& J/ A, B
return 0
end魔力私服,最新魔力宝贝私服技术交流% c; n% K# I5 d
end魔力私服,最新魔力宝贝私服技术交流- J+ t' c# _7 H0 b7 q
--Check Slot
if tPreTechID<=0 and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート7 h3 L* c5 G: n* \! b/ N
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：技能栏已满")bbs.mocwww.com6 q2 v% t5 H' G  E' H* z: b
return 0
end魔力私服,最新魔力宝贝私服技术交流, _* _4 A) H# ~- t4 U: m
--Del PreTech魔力私服,最新魔力宝贝私服技术交流5 d& f# T" l. v% i9 i8 ]
if tPreTechID>0 then# p6 C5 d0 B3 g4 c2 y
local tPreTechPos = PetTechNpc_GetTechPos(tPetIndex, tPreTechID)
Pet.DelSkill(tPetIndex, tPreTechPos)
end
--Add Tech
local rt = Pet.AddSkill(tPetIndex, tTechID)
if rt~=1 then
NLG.SystemMessage(_PlayerIndex, "[错误] 未知原因错误")
return 0
end妖城在线论坛% `; J. T) Z% B+ }# @% A# p( Z7 t, A
--Del Item
Char.DelItem(_PlayerIndex, tItemID, 1)
--Up Petbbs.mocwww.com5 \4 h; B# q4 G8 t( {7 S$ \
Pet.UpPet(_PlayerIndex, tPetIndex)魔力私服,最新魔力宝贝私服技术交流! G1 |  V/ t0 D) t5 c, D
NLG.SystemMessage(_PlayerIndex, "你的宠物" .. tPetName .. "学会了新技能。")
return 1
end魔力私服,最新魔力宝贝私服技术交流, A9 i( B) I3 j6 O
end0 G: G; x9 B2 l$ F5 k
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表0 F2 B( p' s1 c7 C8 s- \. B
--使用道具
NL.RegItemString(nil, "PetTechNpc_ItemUse", "LUA_usePetTech");bbs.mocwww.com8 \  R& g0 I( Z1 c; k0 f! H  u0 D
function PetTechNpc_ItemUse(_PlayerIndex, _ToPlayerIndex, _Slot)bbs.mocwww.com1 C* u# z6 `: i* c. ~
SelectItemSlot[_PlayerIndex] = _Slot魔力私服,最新魔力宝贝私服技术交流) ^8 B: b$ ~* Q5 Z
PetTechNpc_Talked( tbl_LuaNpcIndex["PetTechNpc"], _PlayerIndex, 1)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, v- I8 }$ V9 }2 ~
return 1
end

TOP

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

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

TOP

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