[讨论] 初级魔力lua解析

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

求助大神指点一下，GA能用的宠物技能学习卷放到CGMSV上就老提示宠物技能栏已满呢？？
bbs.mocwww.com* G4 W5 \+ v$ ]) ~3 z1 A  ~
bbs.mocwww.com  P5 s+ g  S7 N- }# C5 b# E

if _Select==2 or _Seqno==99999 then
return
end( N3 i) j- j1 I9 B5 [8 \9 O% J
妖城在线论坛" q# i, B# G8 [& R4 g8 x
if _Seqno==10 then
--Get Session
SelectPetSlot[_PlayerIndex] = _Data-1
local tItemSlot = SelectItemSlot[_PlayerIndex]
local tPetSlot = SelectPetSlot[_PlayerIndex]
--Get Pet Data魔力私服,最新魔力宝贝私服技术交流/ h4 ^0 {1 M% o" \- w3 m" p
local tPetIndex = Char.GetPet(_PlayerIndex, tPetSlot)- |6 i: n" _& x) s
if tPetIndex<0 then妖城在线论坛9 X, g3 o" ^. v/ ?6 N2 l
return 0
end魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" O1 L6 a0 C, L; l0 M
local tPetName = Char.GetData(tPetIndex, %对象_名字%)! X7 k) }- c+ u4 C6 @
local tPetID = Char.GetData(tPetIndex, 68)魔力私服,最新魔力宝贝私服技术交流. ?8 N, i& k9 ^* V6 |
local tPetLv = Char.GetData(tPetIndex, %对象_等级%)
local tPetGetLv = Char.GetData(tPetIndex, %宠物_获取时等级%)
local tPetTechSlotMax = Char.GetData(tPetIndex, %宠物_技能栏%)妖城在线论坛- R0 @/ s2 x  h1 @: f8 f: N) `
--Get Item Data妖城在线论坛: M0 [: U6 J' m1 G0 o
local tItemIndex = Char.GetItemIndex(_PlayerIndex, tItemSlot)
if tItemIndex<0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. M5 i. f/ x: E7 q6 H$ T
return 0
end
local tItemName = Item.GetData(tItemIndex, %道具_名字%)
local tItemID = Item.GetData(tItemIndex, %道具_ID%)魔力私服,最新魔力宝贝私服技术交流/ h6 l5 H2 I* g
local tTechType = Item.GetData(tItemIndex, %道具_特殊类型%) or 0
local tTechID = Item.GetData(tItemIndex, %道具_子参一%) or 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート% H4 \! }5 M% [
local tPreTechID = Item.GetData(tItemIndex, %道具_子参二%) or 0魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表/ u6 W( c0 a! Z4 C% F/ j
print("\n=================调试信息====================")
print("tItemID=" .. tItemID)魔力私服,最新魔力宝贝私服技术交流0 A# F  z4 y2 z% m, p  Y0 R
print("tItemName=" .. tItemName)
print("tTechType=" .. tTechType)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表1 }7 m8 s( p- g! m/ i! _- n7 B. }, g$ Z  L
print("tTechID=" .. tTechID)
print("tPreTechID=" .. tPreTechID)
print("NorPreTechID=" .. NorPreTechID)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ ~6 ]8 A6 Q" A/ X3 B$ L, d
print("TechSlot=" .. #PetTechNpc_GetTechList(tPetIndex) .. "/" .. tPetTechSlotMax)
print("InTable=" .. PetTechNpc_GetTechPos(tPetIndex, tPreTechID))
--Check Type魔力私服,最新魔力宝贝私服技术交流; y/ F1 }6 e; E- T& D; Y' n
if tTechType==1 then
if PetTechNpc_CheckInTable(SPetListA, tPetID)~=true then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 {3 H: T9 ?% V
return 0妖城在线论坛9 J( ], ?+ H# d4 j6 g9 b; ?
end妖城在线论坛/ `, L/ E; Z- Z0 S
elseif tTechType==2 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( u0 j5 b: p6 K! G8 Y9 F$ y
if PetTechNpc_CheckInTable(SPetListB, tPetID)~=true then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：特定宠物")魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表: i0 `- A1 _# w- y) Y1 _$ c1 X
return 0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート  V* t1 l- w; t% Y0 k1 c# v. I& L: G
end: h) X3 m( N6 \, v9 D. n2 A
elseif tTechType==3 then7 ?9 N5 k6 d) o6 @6 g7 G
if tPetGetLv>1 then
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：非野生")
return 02 X2 O) P. v4 ^
end
elseif tTechType==4 then魔力私服,最新魔力宝贝私服技术交流  h5 n# V: i: x' r: b5 }1 L
if tPetLv<PetMaxLevel then魔力私服,最新魔力宝贝私服技术交流" }4 A6 I' F1 y2 B. h
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：满级")
return 0
end
end
--Check NorPreTechIDbbs.mocwww.com0 P3 X( }" L2 @% i
if tPreTechID==NorPreTechID and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax and PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 d4 J- U6 O8 [3 F% b
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：请先学习【高阶技能栏】技能")
return 0
end
--Check PreTech
if tPreTechID>0 and tPreTechID~=NorPreTechID then
if PetTechNpc_GetTechPos(tPetIndex, tPreTechID)<0 then—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ M5 D7 A' N* ~; N1 K$ p
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：前置技能")—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート, B: A( k( k% f* P
return 0
end
endbbs.mocwww.com! b, D( y5 _" b# V" z  w7 V: }. {
--Check Slot8 J7 L6 z( K  V4 T2 s& I6 b, e# j
if tPreTechID<=0 and #PetTechNpc_GetTechList(tPetIndex)>=tPetTechSlotMax then, i% {# w- ]) k, R
NLG.SystemMessage(_PlayerIndex, "[错误] 你选择的宠物不满足以下学习条件：技能栏已满")( @4 D* |+ j! D. c
return 0
end
--Del PreTech
if tPreTechID>0 then
local tPreTechPos = PetTechNpc_GetTechPos(tPetIndex, tPreTechID)  i& F( c2 ~$ K; Z
Pet.DelSkill(tPetIndex, tPreTechPos)  y; a0 N$ r& S& z$ c+ U3 k
end妖城在线论坛$ d" t/ w& H6 B3 e
--Add Tech—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. Q. P- ~8 N, h- D  o
local rt = Pet.AddSkill(tPetIndex, tTechID)
if rt~=1 then魔力私服,最新魔力宝贝私服技术交流) T5 q. T" Y6 Y0 \
NLG.SystemMessage(_PlayerIndex, "[错误] 未知原因错误")魔力私服,最新魔力宝贝私服技术交流& y; Y6 V& B0 i. ?
return 04 G2 k" i; D3 P, S. V  ?: s* ^
end—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート' _/ C# E: r4 @; Q
--Del Item
Char.DelItem(_PlayerIndex, tItemID, 1)魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表9 C3 v: F! u7 r+ {. j
--Up Pet—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 h9 q  O* D( a6 o7 [
Pet.UpPet(_PlayerIndex, tPetIndex)魔力私服,最新魔力宝贝私服技术交流( ^* {* h: _2 P, d5 o0 y: M
NLG.SystemMessage(_PlayerIndex, "你的宠物" .. tPetName .. "学会了新技能。")" o0 m! o$ B" P
return 1
end魔力私服,最新魔力宝贝私服技术交流1 \3 H! X3 m( n/ ^9 _4 M# y0 U
end
魔力私服,最新魔力宝贝私服技术交流6 F9 G% x) |* g  \
--使用道具
NL.RegItemString(nil, "PetTechNpc_ItemUse", "LUA_usePetTech");bbs.mocwww.com# u' B9 f2 N% r; P- ~3 U
function PetTechNpc_ItemUse(_PlayerIndex, _ToPlayerIndex, _Slot)妖城在线论坛7 [1 V9 X: P, L; I8 w! M$ k- c. c
SelectItemSlot[_PlayerIndex] = _Slot
PetTechNpc_Talked( tbl_LuaNpcIndex["PetTechNpc"], _PlayerIndex, 1)
return 1
end

TOP

wangjun1127

妖精

Rank: 2 Rank: 2

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

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

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

TOP

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