打印

[魔力私服分享] 【Lua教程】GE宠物算档器Lua脚本详细解说（原始lua框架）

Duckyの復活

妖精

Rank: 2 Rank: 2

UID: 19877
精华: 4
积分: 386
威望: 0 度

妖城妖帅勋章妖城妖圣勋章宣传大使专用勋章金点子勋章资深元老勋章

阁楼大中小发表于 2014-1-6 08:28 显示全部帖子

【Lua教程】GE宠物算档器Lua脚本详细解说（原始lua框架）

PetCalc.lua

复制内容到剪贴板

代码:

----------------------------------------------------------------------

--名称：宠物算档器

--说明：计算宠物档数，修改宠物档数等等

--

--GMSV Lua QQ群：14583019

--By Duckyの復活 (QQ:462363)

--In 2012.12.28

----------------------------------------------------------------------

 

function PetCalc_Init( _MeIndex )

        Char.SetData(_MeIndex, 1, 101020);

        Char.SetData(_MeIndex, 2, 101020);

        Char.SetData(_MeIndex, 3, 0);

        Char.SetData(_MeIndex, 4, 999);

        Char.SetData(_MeIndex, 5, 9);

        Char.SetData(_MeIndex, 6, 8);

        Char.SetData(_MeIndex, 7, 6);

        Char.SetData(_MeIndex, 2000, "会算档的大地鼠");

 

        if (Char.SetTalkedEvent(nil, "PetCalc_Talked", _MeIndex) < 0) then

                print("PetCalc_Talked 注册事件失败。");

                return false;

        end

         return true;

end

 

function PetCalc_Talked( _MeIndex, _PlayerIndex)

        local buf = PetCalc_ShowCalc(_PlayerIndex);

        NLG.ShowWindowTalked(_PlayerIndex, 0, 1, 0, buf, _MeIndex);

        return ;

end

 

function PetCalc_ShowCalc(_PlayerIndex)

        local buf = "\n 　　　　　　　　　【宠物算档】\n\n";

        buf = buf .. "　　　名称　　体力　力量　强度　敏捷　魔法　档"

        for i = 0, 4 do

                local PetIndex = Char.GetPetIndex(_PlayerIndex, i)

                if(PetIndex >=0) then

                        local buf1 = Char.GetData(PetIndex, %对像_原名%)

                        local buf2 = Pet.GetArtRank(PetIndex, %宠档_体成%) .. "/" .. Pet.FullArtRank(PetIndex, %宠档_体成%)

                        local buf3 = Pet.GetArtRank(PetIndex, %宠档_力成%) .. "/" .. Pet.FullArtRank(PetIndex, %宠档_力成%)

                        local buf4 = Pet.GetArtRank(PetIndex, %宠档_强成%) .. "/" .. Pet.FullArtRank(PetIndex, %宠档_强成%)

                        local buf5 = Pet.GetArtRank(PetIndex, %宠档_速成%) .. "/" .. Pet.FullArtRank(PetIndex, %宠档_速成%)

                        local buf6 = Pet.GetArtRank(PetIndex, %宠档_魔成%) .. "/" .. Pet.FullArtRank(PetIndex, %宠档_魔成%)

                        local buf7 = Pet.GetArtRank(PetIndex, %宠档_体成%) + Pet.GetArtRank(PetIndex, %宠档_力成%) + 

                                Pet.GetArtRank(PetIndex, %宠档_强成%) + Pet.GetArtRank(PetIndex, %宠档_速成%) + 

                                Pet.GetArtRank(PetIndex, %宠档_魔成%) - Pet.FullArtRank(PetIndex, %宠档_体成%) - 

                                Pet.FullArtRank(PetIndex, %宠档_力成%) - Pet.FullArtRank(PetIndex, %宠档_强成%) - 

                                Pet.FullArtRank(PetIndex, %宠档_速成%) -         Pet.FullArtRank(PetIndex, %宠档_魔成%)

                        buf = buf .. string.format("%12.12s",buf1) .. string.format("%6.6s",buf2) .. 

                                string.format("%6.6s",buf3) .. string.format("%6.6s",buf4) .. 

                                string.format("%6.6s",buf5) .. string.format("%6.6s",buf6) .. 

                                string.format("%4.3s",buf7)

                else

                        buf = buf .. string.format("%12.12s","无宠物") .. "\n"

                end

        end

        return buf

end

[ 本帖最后由 Duckyの復活于 2014-1-6 09:53 编辑 ]

已隐退，不搞任何魔力有关的项目，如有其它私服项目请联系！
答应过会把以前的脚本丢妖城，言出必行！

TOP

Duckyの復活

妖精

Rank: 2 Rank: 2

UID: 19877
精华: 4
积分: 386
威望: 0 度

妖城妖帅勋章妖城妖圣勋章宣传大使专用勋章金点子勋章资深元老勋章

沙发大中小发表于 2014-1-6 08:35 显示全部帖子

init.lua

复制内容到剪贴板

代码:

if (M_PetCalc_Ptr == nil) then

        M_PetCalc_Ptr = NL.CreateNpc("./data/lua/test/PetCalc.lua", "PetCalc_Init");

        NLG.UpChar(M_PetCalc_Ptr);

end

[ 本帖最后由 Duckyの復活于 2014-1-6 08:38 编辑 ]

TOP

Duckyの復活

妖精

Rank: 2 Rank: 2

UID: 19877
精华: 4
积分: 386
威望: 0 度

妖城妖帅勋章妖城妖圣勋章宣传大使专用勋章金点子勋章资深元老勋章

板凳大中小发表于 2014-1-6 08:37 显示全部帖子

【脚本解说】4 N" H  B3 n, @2 a# H  i

if (M_PetCalc_Ptr == nil) then  --如果该NPC变量没有任何内容（没被创建），则开始执行以下语句—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 O  {9 t2 K- B2 }. U
      M_PetCalc_Ptr = NL.CreateNpc("./data/lua/test/PetCalc.lua", "PetCalc_Init");  --创建NPC，并设置对应的初始化函数
      NLG.UpChar(M_PetCalc_Ptr);  --更新该NPC—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート$ y' ]; ]5 g, m2 }0 k2 u, X  [
end  --if配套的结束语end
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート8 K+ J" f5 |8 u1 K8 p' r3 E
cgex.so会在启动时自动加载init.lua这个文件，因此，在init.lua里加入上述语句，就能在服务器启动时自动创建NPC。
妖城在线论坛! w) S$ k- Z# L- o2 @1 ?
【分解说明】—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート" _9 `% B9 Y( W2 V; `' T3 l. _
变量：一个具体数值、文本、函数，或者其他实体对象的存储空间。操作变量，就能直接对其实际的对象操作。

M_PetCalc_Ptr：这是一个全局变量，用于保存NPC的指针（每个NPC创建时都会分配一个指针），由于指针是一个不固定的数字，不好记忆，不便于操作，因此我们用了一个变量去存储它、代替它，往后只要看到这个变量，立马就只能这个就是算档NPC的指针了。- O# _% k- a2 ^# r9 c( m9 _9 y

NL.CreateNpc：这是一个cgex的接口函数，意思是NL这个函数库下面的一个叫CreateNpc的接口函数，根据lua.chm白皮书的说明，此函数有2个参数，1为创建NPC时调用的lua文件，2为创建NPC时调用的函数（初始化函数）。魔力私服,最新魔力宝贝私服技术交流3 ^: ]. `2 n9 t

NLG.UpChar：这是刷新NPC的接口函数，通过lua创建、修改的NPC，并不能马上生效，必须通过NLG.UpChar接口，让服务器把新的NPC信息发送给玩家，这样玩家才能看到新的NPC，否则玩家看到的依然是修改前的模样（客户端没更新数据）。

【补充说明】, J+ f2 n* J/ O: L! `) N
变量：bbs.mocwww.com- N+ v" L8 L2 z
很多人对指针变量这一概念不清楚，我在这里详细说明一下。
变量，有点类似于给一个物体（对象）命名，是你为一个实际的东西取的一个便于记忆、便于操作的新名字。bbs.mocwww.com9 S; V" K3 y" P+ Z1 \8 }& c
例如，你有一个朋友叫“张家明”，你给他起了一个外号叫“小明”，那么只要你一说“小明”，那么你的朋友都明白你说的是“张家明”，就算你忘记了那个朋友的全名，只记得他叫“小明”，大家也知道你说的是谁。
同理，你有一个算档NPC，它的指针为107，你设置了一个变量M_PetCalc_Ptr去存储它，那么就算你不知道算档NPC的指针是多少，只要你一说M_PetCalc_Ptr，系统就知道你所指的是算档NPC。
% S' i% B: p7 Y; L. Z
局部变量：魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- p& c' S) n1 X% k% F7 x" c' ^
以刚才的“小明”为例，全中国那么多人的外号都叫“小明”，那你怎么区分？这时就需要区分变量的适用范围。
你就要跟这个小圈子里的朋友约定好，在这个小圈子内“小明”这个外号特指“张家明”，但是离开这个小圈子就不是了。妖城在线论坛$ g& M, [9 A  B0 J
这种就是局部变量，只在特定的范围内有效，并且能在多个地方重复使用。魔力私服,最新魔力宝贝私服技术交流: T7 x0 Y( |! \5 q! Y- D$ g
魔力私服,最新魔力宝贝私服技术交流' g# X9 f0 T0 y: s+ K, {3 r
全局变量：—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 }% W, x; S( O% A6 r
全局变量，在整个服务器里通用（任何地方都能使用），不存在意义分歧的变量。魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! Z! l. l9 V- P4 Q
例如，“中国”这个简称，就是一个全局变量，必定是代表“中华人民共和国”，并且全国人民都知道，没有其他不同的含义，绝对不会混淆，绝对不会有意义分歧。魔力私服,最新魔力宝贝私服技术交流/ Y  o" E. a7 e0 B: |0 p) P  h
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. K2 O2 h1 k- O( t: S. |$ N
[ 本帖最后由 Duckyの復活于 2014-1-6 08:52 编辑 ]

TOP

Duckyの復活

妖精

Rank: 2 Rank: 2

UID: 19877
精华: 4
积分: 386
威望: 0 度

妖城妖帅勋章妖城妖圣勋章宣传大使专用勋章金点子勋章资深元老勋章

地板大中小发表于 2014-1-6 08:38 显示全部帖子

TOP

Duckyの復活

妖精

Rank: 2 Rank: 2

UID: 19877
精华: 4
积分: 386
威望: 0 度

妖城妖帅勋章妖城妖圣勋章宣传大使专用勋章金点子勋章资深元老勋章

地下室 大中小发表于 2014-1-6 08:54 显示全部帖子

function PetCalc_Talked(_MeIndex, _PlayerIndex)—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( {2 I- {/ z( Y2 \
local buf = PetCalc_ShowCalc(_PlayerIndex);    --调用PetCalc_ShowCalc自定义函数，计算出算档结果，并保存在buf变量
NLG.ShowWindowTalked(_PlayerIndex, 0, 1, 0, buf, _MeIndex);       --利用NLG.ShowWindowTalked把算档结果用窗口形式显示给玩家看
return ;
end

【分解说明】—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 |' d: k2 T6 ?$ c, O1 r
PetCalc_Talked：一个自定义函数，由于在init时，被Char.SetTalkedEvent接口绑定为对话事件（TalkEvent），属于被动函数，因此只要有玩家与这个NPC对话，都必定会执行这个函数。魔力私服,最新魔力宝贝私服技术交流, b- ~6 Q# ^! Z
PetCalc_ShowCalc：另一个自定义的函数，没有被事件绑定，属于主动函数，需要手动去调用。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート. F! t# p% F0 y  x& O# ?
NLG.ShowWindowTalked：弹出对话框接口，在参数里可设置对话框类型（如文字框、输入框、贩卖框、购买框、选择框等等）、对话框内容。bbs.mocwww.com" u5 a8 W+ _4 {- i4 B
+ v# G/ T1 Y3 [# `* z8 Q( Q% q
【补充说明】bbs.mocwww.com* K# x; I- R* v9 r
绑定事件函数：此类函数属于被动函数，由各种事件绑定后，被动执行。此类函数的参数格式，必须严格按照白皮书上对应事件CallBack的格式填写。魔力私服,最新魔力宝贝私服技术交流: @5 M. o2 a# x9 x5 D- E; q" N$ u2 W
弹出对话框接口：根据白皮书说明，NLG.ShowWindowTalked共有6个参数，按顺序分别是：玩家指针、对话框类型、按钮类型、对话框序号、对话框内容、Npc指针
对话框类型：魔力共有47种对话框类型，暂时已知的类型有：0-文本对话框，1-输入对话框，2-选择对话框，6-购买对话框，7-贩卖对话框，19-治疗对话框，20-鉴定对话框，
            21-留言板对话框，22-修理对话框，23-银行对话框' e  P' m& [5 H1 K! r" J9 a) O  g
            每种类型都有其自己特殊的data内容格式，格式可通过截取游戏封包并分析data内容方式获得。
按钮类型：魔力共有7种按钮类型，分别是：0-没有，1-确定，2-取消，4-是，8-否，16-上一页，32-下一页
            各种按钮可混合使用，例如想“确定、取消、下一页”按钮一起使用，只需要输入1+2+32. G1 A, A& `) l# c7 {4 N/ U. X

[ 本帖最后由 Duckyの復活于 2014-1-6 09:49 编辑 ]

TOP