设为首页收藏本站我的广告
切换到宽版

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
石器时代LA官方»石器LA论坛 › 石器时代技术 › 石器LUA区 › 新增宠物定制功能 8.0端新增宠物定制功
返回列表 发新帖
查看: 197|回复: 0

[吉仔LNS] 新增宠物定制功能 8.0端新增宠物定制功

[复制链接]
shiqila

1万

主题

491

回帖

3万

积分

管理员

积分
35624
石币
24773
发表于 2024-9-13 10:46:55 | 显示全部楼层 |阅读模式
ReSetPetPoint.lua

  1. function ReSetPetPoint_Init( _MeIndex )
  2.     Char.SetData(_MeIndex, %对象_形象%, 101157)
  3.         Char.SetData(_MeIndex, %对象_原形%, 101157)
  4.         Char.SetData(_MeIndex, %对象_地图%, 1998)
  5.         Char.SetData(_MeIndex, %对象_X%, 8)
  6.         Char.SetData(_MeIndex, %对象_Y%, 4)
  7.         Char.SetData(_MeIndex, %对象_方向%, %右下%)
  8.         Char.SetData(_MeIndex, %对象_原名%, "宠物工具")

  10.         if (Char.SetTalkedEvent(nil, "ReSetPetPoint_Talked", _MeIndex) < 0) then
  11.                 print("ReSetPetPoint_Talked 註冊事件失敗。")
  12.                 return false
  13.         end

  15.         if (Char.SetWindowTalkedEvent(nil, "ReSetPetPoint_WindowTalked", _MeIndex) < 0) then
  16.                 print("ReSetPetPoint_WindowTalked 註冊事件失敗。")
  17.                 return false
  18.         end
  19.         return true
  20. end

  22. function ReSetPetPoint_Talked( _MeIndex, _TalkIndex, _Msg, _Color, _Channel)
  23.   if NLG.CheckInFront(_TalkIndex, _MeIndex, 1) == false then
  24.     return
  25.   end
  26.      NLG.ShowWindowTalked(_TalkIndex, 1, 3, 1,
  27.                         "               「宠物工具」"..
  28.                         "\n"..
  29.                         "\n1、宠物工具可以自定义您所需要的宠物点数"..
  30.                         "\n2、设置成功以后您的宠物自动变成2转160级"..
  31.                         "\n3、宠物实际血攻防敏需按照后面的计算公式"..
  32.                         "\n4、宠物位置(1~5)"..
  33.                         "\n"..
  34.                         "\n请输入要设置的宠物位置",
  35.                                 _MeIndex)

  37. end

  39. function ReSetPetPoint_WindowTalked( _MeIndex, _TalkIndex, _Seqno, _Select, _Data)
  40.     if(_Select == 2) then
  41.         return
  42.     end
  43.     if(_Seqno == 1) then
  44.         petset_pos = tonumber(_Data) - 1
  45.         Char.SetData(_TalkIndex,%对象_CN5%,petset_pos)
  46.     else
  47.         petset_pos = Char.GetData(_TalkIndex,%对象_CN5%)
  48.     end

  50.     local petindex = Char.GetPetIndex(_TalkIndex,petset_pos)

  52.     if _Seqno ==1 then
  53.                

  55.             --设置转数
  56.         Char.SetData(petindex , %对象_转数%, 2)
  57.             --设置等级
  58.         Char.SetData( petindex, %对象_等级%, 160)

  60.         Char.SetData(petindex, %对象_反击%, 10)

  62.         Char.SetData(petindex, %对象_暴击%, 10)

  64.         Char.SetData(petindex,%对象_地%,0)
  65.                 Char.SetData(petindex,%对象_水%,0)
  66.                 Char.SetData(petindex,%对象_火%,0)
  67.                 Char.SetData(petindex,%对象_风%,0)

  69.         NLG.ShowWindowTalked(_TalkIndex, 1, 3, 2,
  70.                                 "\n每点体力："..
  71.                                 "\n增加  4  点耐久力"..
  72.                                 "\n增加 0.1 点攻击力"..
  73.                                 "\n增加 0.1 点防御力"..
  74.                                 "\n增加  0  点敏捷力",
  75.                                          _MeIndex)
  76.     elseif _Seqno == 2 then
  77.                 if _Data ~= nil and _Data ~= "" then
  78.                     Char.SetData( petindex, %对象_体力%, Char.GetData(petindex,%对象_体力%) + tonumber(_Data)*100)
  79.                    end
  80.         NLG.ShowWindowTalked(_TalkIndex, 1, 3, 3,
  81.                                 "\n每点攻击力："..
  82.                                 "\n增加  1  点耐久力"..
  83.                                 "\n增加  1  点攻击力"..
  84.                                 "\n增加 0.1 点防御力"..
  85.                                 "\n增加  0  点敏捷力",
  86.                                         _MeIndex)

  88.     elseif _Seqno == 3 then
  89.             if _Data ~= nil and _Data ~= "" then
  90.                     Char.SetData( petindex, %对象_腕力%, Char.GetData(petindex,%对象_腕力%) + tonumber(_Data)*100)
  91.             end
  92.         NLG.ShowWindowTalked(_TalkIndex, 1, 3, 4,
  93.                                 "\n每点防御力："..
  94.                                 "\n增加  1  点耐久力"..
  95.                                 "\n增加 0.1 点攻击力"..
  96.                                 "\n增加  1  点防御力"..
  97.                                 "\n增加  0  点敏捷力",
  98.                                         _MeIndex)

  100.     elseif _Seqno == 4 then
  101.             if _Data ~= nil and _Data ~= "" then
  102.                     Char.SetData( petindex, %对象_耐力%, Char.GetData(petindex,%对象_耐力%) + tonumber(_Data)*100)
  103.             end
  104.         NLG.ShowWindowTalked(_TalkIndex, 1, 3, 5,
  105.                                 "\n每点敏捷："..
  106.                                 "\n增加  1   点耐久力"..
  107.                                 "\n增加 0.05 点攻击力"..
  108.                                 "\n增加 0.05 点防御力"..
  109.                                 "\n增加  1   点敏捷力",
  110.                                          _MeIndex)

  112.     elseif _Seqno == 5 then
  113.             if _Data ~= nil and _Data ~= "" then
  114.                            Char.SetData( petindex, %对象_速度%, Char.GetData(petindex,%对象_速度%) + tonumber(_Data)*100)
  115.                    end
  116.             NLG.ShowWindowTalked(_TalkIndex, 1, 3, 6,
  117.                                 "\n地属性1-10：",
  118.                                          _MeIndex)
  119.            elseif _Seqno == 6 then
  120.                    if _Data ~= nil and _Data ~= "" then
  121.                             Char.SetData( petindex, %对象_地%, Char.GetData(petindex,%对象_地%) + tonumber(_Data)*10)
  122.                    end
  123.             NLG.ShowWindowTalked(_TalkIndex, 1, 3, 7,
  124.                                 "\n水属性1-10：",
  125.                                          _MeIndex)
  126.            elseif _Seqno == 7 then
  127.                    if _Data ~= nil and _Data ~= "" then
  128.                     Char.SetData( petindex, %对象_水%, Char.GetData(petindex,%对象_水%) + tonumber(_Data)*10)
  129.                    end
  130.             NLG.ShowWindowTalked(_TalkIndex, 1, 3, 8,
  131.                                 "\n火属性1-10：",
  132.                                          _MeIndex)
  133.         elseif _Seqno == 8 then
  134.                 if _Data ~= nil and _Data ~= "" then
  135.                     Char.SetData( petindex, %对象_火%, Char.GetData(petindex,%对象_火%) + tonumber(_Data)*10)
  136.             end
  137.             NLG.ShowWindowTalked(_TalkIndex, 1, 3, 9,
  138.                                 "\n风属性1-10：",
  139.                                          _MeIndex)
  140.         elseif _Seqno == 9 then
  141.                 if _Data ~= nil and _Data ~= "" then
  142.                     Char.SetData( petindex, %对象_风%, Char.GetData(petindex,%对象_风%) + tonumber(_Data)*10)
  143.             end
  144.             NLG.ShowWindowTalked(_TalkIndex, 1, 3, 10,
  145.                                 "\n名称：",
  146.                                          _MeIndex)
  147.         elseif _Seqno == 10 then
  148.                 if _Data ~= nil and _Data ~= "" then
  149.                     Char.SetData( petindex, %对象_原名%, _Data)
  150.                     Char.SetData( petindex, %对象_名称%, _Data)
  151.             end
  152.             NLG.ShowWindowTalked(_TalkIndex, 1, 3, 11,
  153.                                 "\n形象：",
  154.                                          _MeIndex)
  155.         elseif _Seqno == 11 then
  156.                 if _Data ~= nil and _Data ~= "" then
  157.                     Char.SetData( petindex, %对象_形象%, tonumber(_Data))
  158.                     Char.SetData( petindex, %对象_原形%, tonumber(_Data))
  159.             end

  161.             Char.SetData(petindex,%对象_进化等级%,0)
  162.             NLG.UpPet(_TalkIndex,petset_pos)
  163.     end

  165.    
  166. end
复制代码



ReSetPetPoint_init.lua

  1. function ReSetPetPoint_Reload()
  2.         if (ReSetPetPoint_index == nil) then                                        --这句检查NPC是否已经创建，防止重复创建
  3.                 ReSetPetPoint_index = NL.CreateNpc("./data/npc/lua/ReSetPetPoint/ReSetPetPoint.lua", "ReSetPetPoint_Init");
  4.                 NLG.UpChar(ReSetPetPoint_index);
  5.         else
  6.                 NL.DelNpc(ReSetPetPoint_index);
  7.                 NLG.UpChar(ReSetPetPoint_index);
  8.                 ReSetPetPoint_index = nil;
  9.         end
  10. end

  12. ReSetPetPoint_Reload();
复制代码

宠物diy功能添加及使用教程.jpg
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|石器时代LA官方

GMT+8, 2024-10-3 21:44 , Processed in 0.161686 second(s), 25 queries .

快速回复 返回顶部 返回列表