[讨论] 初级魔力lua解析

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

求助大神指点一下，GA能用的宠物技能学习卷放到CGMSV上就老提示宠物技能栏已满呢？？
/ g+ p- ~% N2 n

bbs.mocwww.com4 n3 _+ S  |) X4 B2 r
if _Select==2 or _Seqno==99999 then
return
end魔力私服,最新魔力宝贝私服技术交流, F0 [6 c6 C& i( U5 d$ F5 z1 Z# S9 b

if _Seqno==10 then
--Get Session魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% d) M- e7 c. V: C# O3 `9 b
SelectPetSlot[_PlayerIndex] = _Data-1妖城在线论坛7 w. F* Z) p5 p) F, x' d
local tItemSlot = SelectItemSlot[_PlayerIndex]
local tPetSlot = SelectPetSlot[_PlayerIndex]bbs.mocwww.com: J; w/ W: o$ V0 s9 `0 ?
--Get Pet Data
local tPetIndex = Char.GetPet(_PlayerIndex, tPetSlot)魔力私服,最新魔力宝贝私服技术交流+ t8 C6 O% H+ ]3 K( v& [' S
if tPetIndex<0 then
return 0魔力私服,最新魔力宝贝私服技术交流" }1 r6 x0 h1 g! Y- Z# G
end
local tPetName = Char.GetData(tPetIndex, %对象_名字%)
local tPetID = Char.GetData(tPetIndex, 68)bbs.mocwww.com' N" l8 b$ a! R# K* ~7 U
local tPetLv = Char.GetData(tPetIndex, %对象_等级%)
local tPetGetLv = Char.GetData(tPetIndex, %宠物_获取时等级%)
local tPetTechSlotMax = Char.GetData(tPetIndex, %宠物_技能栏%)
--Get Item Data  q2 n+ N5 O& w% A7 ^1 ~9 Q% [. Q: ~
local tItemIndex = Char.GetItemIndex(_PlayerIndex, tItemSlot)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! V, J% E' W  v" N# ~% c
if tItemIndex<0 then魔力私服,最新魔力宝贝私服技术交流! r. Y$ Y) t2 h- V
return 0bbs.mocwww.com% Z# J+ \0 x, C/ T1 ?
end
local tItemName = Item.GetData(tItemIndex, %道具_名字%)
local tItemID = Item.GetData(tItemIndex, %道具_ID%)
local tTechType = Item.GetData(tItemIndex, %道具_特殊类型%) or 0
local tTechID = Item.GetData(tItemIndex, %道具_子参一%) or 0
local tPreTechID = Item.GetData(tItemIndex, %道具_子参二%) or 0魔力私服,最新魔力宝贝私服技术交流+ T) g: ?5 v% b$ R3 O1 q
print("\n=================调试信息====================")
print("tItemID=" .. tItemID)1 a" z/ |* u, L+ u
print("tItemName=" .. tItemName)! J  f% ~' v( X' o( e' J0 m( `% Z* ?
print("tTechType=" .. tTechType)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ Y# g# D& s: q3 Y4 S8 ~# ]& {8 J
print("tTechID=" .. tTechID)( C7 I5 m3 H+ ]7 @- `3 ^/ W
print("tPreTechID=" .. tPreTechID)
print("NorPreTechID=" .. NorPreTechID)
print("TechSlot=" .. #PetTechNpc_GetTechList(tPetIndex) .. "/" .. tPetTechSlotMax)
print("InTable=" .. PetTechNpc_GetTechPos(tPetIndex, tPreTechID))—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート* {3 o( O7 o0 V: o& U( g, S
--Check Type, U' G' B. B6 [' |0 o# k, k) i
if tTechType==1 thenbbs.mocwww.com4 T- q! V' t1 r% F6 t1 ?
if PetTechNpc_CheckInTable(SPetListA, tPetID)~=true thenbbs.mocwww.com: y" }4 r% c! f" l: A8 w' O5 D+ `
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")
return 0魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 X# n2 Y0 a: P: x: P" s9 Q2 ]
end" C( I: D; s: o1 V; ~9 H" G
elseif tTechType==2 then
if PetTechNpc_CheckInTable(SPetListB, tPetID)~=true thenbbs.mocwww.com3 u! s- u: h* @9 u9 `( v
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")
return 0魔力私服,最新魔力宝贝私服技术交流- s. G6 o! P" ]! ^% m: X% Q5 N& t
end) B' n. {0 q& {5 W$ ]4 }* v. A: e
elseif tTechType==3 then魔力私服,最新魔力宝贝私服技术交流- W- D( S9 I5 F# _& I2 T
if tPetGetLv>1 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 x1 s  a$ L& r# \
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：非野生")bbs.mocwww.com4 ?3 \) q6 @- n7 R0 x7 ~2 [- q
return 0
endbbs.mocwww.com, R3 c$ e8 V) B6 T$ P  ^
elseif tTechType==4 then7 Y3 I" M/ X/ N1 i( b3 \
if tPetLv<PetMaxLevel then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：满级")
return 0bbs.mocwww.com( x% V) \8 X  b+ x
end
end
--Check NorPreTechIDbbs.mocwww.com- ^8 o; a' H7 @2 t& ^6 V
if tPreTechID==NorPreTechID and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax and PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：请先学习【高阶技能栏】技能")
return 0& g$ P- C# R3 {! ?* M2 |
end妖城在线论坛; A8 w' I2 q- h! J+ B; V2 w
--Check PreTech
if tPreTechID>0 and tPreTechID~=NorPreTechID then
if PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：前置技能")妖城在线论坛; H( P/ P2 g6 W
return 0
end魔力私服,最新魔力宝贝私服技术交流4 E3 A6 G1 J! W) W; q! {
end
--Check Slot+ n0 T1 z* b; J; P8 q( X5 t8 T
if tPreTechID<=0 and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：技能栏已满")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: E4 q+ ~( }/ B7 n/ W- s
return 0
end
--Del PreTech
if tPreTechID>0 then
local tPreTechPos = PetTechNpc_GetTechPos(tPetIndex, tPreTechID)
Pet.DelSkill(tPetIndex, tPreTechPos)
end
--Add Tech—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' Z3 S! Z' [  l6 {% P- V& g
local rt = Pet.AddSkill(tPetIndex, tTechID)
if rt~=1 then# c- K& `% N  q1 }9 q9 G- ^' a
NLG.SystemMessage(_PlayerIndex, "[错误] 未知原因错误")魔力私服,最新魔力宝贝私服技术交流4 G4 u- n! s/ _+ A+ m/ L& S
return 0
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: x; ]8 o1 l2 U! o2 b3 K
--Del Item
Char.DelItem(_PlayerIndex, tItemID, 1)bbs.mocwww.com9 v- K' m) v" n& X* M. G8 @
--Up Pet
Pet.UpPet(_PlayerIndex, tPetIndex)bbs.mocwww.com8 S7 P5 b+ y; w6 K- I
NLG.SystemMessage(_PlayerIndex, "你的宠物" .. tPetName .. "学会了新技能。")
return 1
end
end

--使用道具
NL.RegItemString(nil, "PetTechNpc_ItemUse", "LUA_usePetTech");
function PetTechNpc_ItemUse(_PlayerIndex, _ToPlayerIndex, _Slot)
SelectItemSlot[_PlayerIndex] = _Slot魔力私服,最新魔力宝贝私服技术交流: k: I' ~8 }5 S( s. ?( g7 W
PetTechNpc_Talked( tbl_LuaNpcIndex["PetTechNpc"], _PlayerIndex, 1)魔力私服,最新魔力宝贝私服技术交流' W7 o6 N9 Q: g8 U% F9 f, {
return 1—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% c& _" ]% v( {; L. q
end

TOP

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

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

TOP

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