[讨论] 初级魔力lua解析

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

求助大神指点一下，GA能用的宠物技能学习卷放到CGMSV上就老提示宠物技能栏已满呢？？

: i  D8 ^9 u# b7 K
# s, S7 g3 a/ r' C7 [: I
if _Select==2 or _Seqno==99999 then魔力私服,最新魔力宝贝私服技术交流2 V+ \0 v* e) ~5 ^6 p
return
end魔力私服,最新魔力宝贝私服技术交流% N* N  i/ p" z6 N/ P- I) N

if _Seqno==10 then魔力私服,最新魔力宝贝私服技术交流1 Y. S9 n$ f% L$ G# E) `* d3 o
--Get Session
SelectPetSlot[_PlayerIndex] = _Data-1魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 [; O, o4 S9 L/ ^3 q" S7 w
local tItemSlot = SelectItemSlot[_PlayerIndex]
local tPetSlot = SelectPetSlot[_PlayerIndex]
--Get Pet Data—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 M+ e" u8 m( j8 X2 s5 w3 e4 z
local tPetIndex = Char.GetPet(_PlayerIndex, tPetSlot)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 M" U. b0 r# c1 P$ }
if tPetIndex<0 then
return 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: V) B3 ]1 e. B% t! y3 A. {
end
local tPetName = Char.GetData(tPetIndex, %对象_名字%)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 e; {2 H; W6 E) X. i
local tPetID = Char.GetData(tPetIndex, 68)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート+ y% z4 q! f+ }; q3 G7 a
local tPetLv = Char.GetData(tPetIndex, %对象_等级%)妖城在线论坛/ a1 `" W0 \$ V$ q4 p( X2 M
local tPetGetLv = Char.GetData(tPetIndex, %宠物_获取时等级%)
local tPetTechSlotMax = Char.GetData(tPetIndex, %宠物_技能栏%)bbs.mocwww.com& [# U# o, m: D/ t% L+ L
--Get Item Data魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ R3 |2 w- T7 Z( P& a3 Y
local tItemIndex = Char.GetItemIndex(_PlayerIndex, tItemSlot)
if tItemIndex<0 then
return 0( r/ Z8 P! ~) h: E) l
end
local tItemName = Item.GetData(tItemIndex, %道具_名字%)妖城在线论坛& r/ K  W( |/ z- G9 V# y) @- L
local tItemID = Item.GetData(tItemIndex, %道具_ID%)妖城在线论坛' U7 t' @1 {# G  m- x# t
local tTechType = Item.GetData(tItemIndex, %道具_特殊类型%) or 0
local tTechID = Item.GetData(tItemIndex, %道具_子参一%) or 0
local tPreTechID = Item.GetData(tItemIndex, %道具_子参二%) or 0
print("\n=================调试信息====================")魔力私服,最新魔力宝贝私服技术交流( n$ T, L9 i3 Z3 r% s
print("tItemID=" .. tItemID)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表2 I9 m2 Q& T: W6 A! y+ ]5 f
print("tItemName=" .. tItemName)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ p3 m- ]; Y7 s* u4 I
print("tTechType=" .. tTechType)
print("tTechID=" .. tTechID)魔力私服,最新魔力宝贝私服技术交流1 z( Z' _6 q. Z" V* \0 P
print("tPreTechID=" .. tPreTechID)
print("NorPreTechID=" .. NorPreTechID)
print("TechSlot=" .. #PetTechNpc_GetTechList(tPetIndex) .. "/" .. tPetTechSlotMax)
print("InTable=" .. PetTechNpc_GetTechPos(tPetIndex, tPreTechID))+ L* C9 h( G% r/ e# a
--Check Type
if tTechType==1 then
if PetTechNpc_CheckInTable(SPetListA, tPetID)~=true then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")
return 0
end
elseif tTechType==2 then
if PetTechNpc_CheckInTable(SPetListB, tPetID)~=true then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")
return 0# K6 B6 \) Z3 a3 x- Z3 M1 g4 V% p' j# b
end
elseif tTechType==3 then
if tPetGetLv>1 then8 Q% q( |4 x% @0 S3 x3 G( ]
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：非野生")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  d& A; r' b' l0 y$ X
return 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート; r, y- a: ~( D+ F; {' z, B
end
elseif tTechType==4 thenbbs.mocwww.com' U" G0 |! n. r. u( s3 \
if tPetLv<PetMaxLevel then0 G8 |4 h3 Z6 o5 A6 V6 \
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：满级")魔力私服,最新魔力宝贝私服技术交流$ }. Z" ?+ H' Z  Z3 [- F
return 0, q# O/ F/ w+ d# f
end
end魔力私服,最新魔力宝贝私服技术交流, x8 E- D, d& V( }* j; o: t
--Check NorPreTechID—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ g2 A8 x# X- _* h& `/ ?
if tPreTechID==NorPreTechID and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax and PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：请先学习【高阶技能栏】技能")
return 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート& ?8 q' Q) E; g$ Z
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: p  m8 [; Y' R( K$ c
--Check PreTech
if tPreTechID>0 and tPreTechID~=NorPreTechID then妖城在线论坛. h; Z6 a8 {  }& k0 g+ e$ W
if PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：前置技能")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート3 \6 B$ s3 o9 y# [* J) r$ U4 n6 Z
return 0魔力私服,最新魔力宝贝私服技术交流+ v. d7 u  i. G# |
end魔力私服,最新魔力宝贝私服技术交流/ Z3 g. Y6 n$ }7 Z6 E2 W4 n/ r; z
end
--Check Slot
if tPreTechID<=0 and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax then魔力私服,最新魔力宝贝私服技术交流4 ?; T/ C3 r, U* A, Q9 Y
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：技能栏已满")
return 0bbs.mocwww.com1 o; i* i7 [( H& X: B+ _" j- B* s
end
--Del PreTech
if tPreTechID>0 then
local tPreTechPos = PetTechNpc_GetTechPos(tPetIndex, tPreTechID)bbs.mocwww.com( E) I9 z" G7 S* S
Pet.DelSkill(tPetIndex, tPreTechPos)
end
--Add Tech妖城在线论坛3 f3 Q- [$ d  R8 w7 z4 G6 A' M) t
local rt = Pet.AddSkill(tPetIndex, tTechID)
if rt~=1 then
NLG.SystemMessage(_PlayerIndex, "[错误] 未知原因错误")
return 0
end
--Del Item
Char.DelItem(_PlayerIndex, tItemID, 1)bbs.mocwww.com& O7 m& |$ J, D+ e
--Up Pet妖城在线论坛2 }5 q8 p, T: e: m8 |; P4 H
Pet.UpPet(_PlayerIndex, tPetIndex)
NLG.SystemMessage(_PlayerIndex, "你的宠物" .. tPetName .. "学会了新技能。")4 I, ?! P  j, s5 q# g& t! l
return 1魔力私服,最新魔力宝贝私服技术交流, p: o2 w1 p) m9 e# q" t/ W* e
end
end

--使用道具
NL.RegItemString(nil, "PetTechNpc_ItemUse", "LUA_usePetTech");
function PetTechNpc_ItemUse(_PlayerIndex, _ToPlayerIndex, _Slot)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# n9 l; ?8 [) K. W% g4 W
SelectItemSlot[_PlayerIndex] = _Slot—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 o( z% y7 L  d$ p+ G6 V" p5 U- f
PetTechNpc_Talked( tbl_LuaNpcIndex["PetTechNpc"], _PlayerIndex, 1)魔力私服,最新魔力宝贝私服技术交流5 v* w& p& {# o9 N, [  N3 B
return 1
end

TOP

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

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

TOP

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