➤切换繁体中文
切换到宽版

cgmsv引擎论坛

 找回密码
 注册/Sign up
搜索
cgmsv引擎论坛»论坛 › 金币区 › 原创发布区 › 合并后的宠物大师,可以算档、随机挡位、满档 用完保证你 ...
返回列表 发新帖
查看: 4511|回复: 4

[LUA] 合并后的宠物大师,可以算档、随机挡位、满档 用完保证你...

[复制链接]
meikaierdu

Rank: 1
发表于 2021-7-7 21:30:42 | 显示全部楼层 |阅读模式 


  1. local msg = "";

  2. local Msg = "";

  3. local pet_index = "";

  4. local selectitem = "";

  5. local m = "";

  6. local X = "";

  7. local biao = {};

  8. table.insert(biao,1, "你好!!年轻人，欢迎使用宠物算档系统，俺可以瞬间计算出你所选择宠物的档位排布哟!!你确定要计算你的宠物档位么?!!.....");

  9. table.insert(biao,2, "我马上要给你的宠物算档了哟.......\\n请在下表选择你的宠物!...");

  10. table.insert(biao,3, "你好!!年轻人，欢迎使用宠物重生系统，俺可以将非1级宠物重置为1级，也可以将1级宠物档位重新排布哟!!!你确定要重生你的宠物么?!!......");

  11. table.insert(biao,4, "你确定要重生你的宠物么?!!!............\\n那么请在下表选择你的宠物!...");

  12. table.insert(biao,5, "你好!!年轻人，欢迎使用宠物满档系统，俺可以瞬间将你的宠物重置为满档!!非1级的宠物重置满档后会变成1级哟，你确定要重置你的宠物为满档么?!!......");

  13. table.insert(biao,6, "请你准备好呀，嗖的一下，你的宠物就可以满档!..\\n请在下表选择你的宠物!...");

  14. table.insert(biao,7, "您确定要进行宠物算档么?!!......");

  15. table.insert(biao,8, "您确定要进行宠物重生么?!!......");

  16. table.insert(biao,9, "您确定要进行宠物满档么?!!......");

  17. 

  18. 

  19. local Biao = {};

  20. table.insert(Biao,1, "一");

  21. table.insert(Biao,2, "二");

  22. table.insert(Biao,3, "三");

  23. table.insert(Biao,4, "四");

  24. table.insert(Biao,5, "五");

  25. 

  26. local biaO = {};

  27. table.insert(biaO,8, "』已经重生了哟!");

  28. table.insert(biaO,9, "』已经满档了哟!");

  29. 

  30. --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  31. 

  32. Delegate.RegInit("PetRebirth_Init");   

  33.                

  34. function PetRebirth_Init()

  35.         PetRebirth_Creat();

  36. end

  37.         

  38. function InitFuncName()

  39.         return true;

  40. end

  41. 

  42. --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  43. 

  44. function PetRebirth_Creat()

  45.         if (PetRebirth_index == nil) then

  46.                 PetRebirth_index = NL.CreateNpc(nil, "InitFuncName");

  47.                 Char.SetData(PetRebirth_index, %对象_形象%, 231088);

  48.                 Char.SetData(PetRebirth_index, %对象_原形%, 231088);

  49.                 Char.SetData(PetRebirth_index, %对象_MAP%, 0);

  50.                 Char.SetData(PetRebirth_index, %对象_地图%, 1000);

  51.                 Char.SetData(PetRebirth_index, %对象_X%, 228);

  52.                 Char.SetData(PetRebirth_index, %对象_Y%, 83);

  53.                 Char.SetData(PetRebirth_index, %对象_方向%, %右下%);

  54.                 Char.SetData(PetRebirth_index, %对象_原名%, "宠物大师");

  55.                 NLG.UpChar(PetRebirth_index);

  56.                 if (Char.SetTalkedEvent(nil, "PetRebirth_Talked", PetRebirth_index) < 0) then

  57.                         print("PetRebirth_Talked 注册事件失败。");

  58.                         return false;

  59.                 end

  60.                 if (Char.SetWindowTalkedEvent(nil, "PetRebirth_WindowTalked", PetRebirth_index) < 0) then

  61.                         print("PetRebirth_WindowTalked 注册事件失败。");

  62.                         return false;

  63.                 end               

  64.         end

  65. end

  66. 

  67. --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  68. 

  69. function PetRebirth_Talked( _MePtr,_TalkPtr)        

  70.         if (NLG.CanTalk(_MePtr,_TalkPtr) == true) then

  71.                 msg = "3\\n    你好!!亲爱的["..Char.GetData(_TalkPtr,%对象_原名%).."]，请选择你要办理的业务吧!!!......"..NLG.c("\\n\\n宠物算档".."\\n\\n宠物重生".."\\n\\n宠物满档");

  72.                 NLG.ShowWindowTalked(_TalkPtr, _MePtr, %窗口_选择框%, %按钮_关闭%,1,msg);

  73.         end

  74. end

  75. 

  76. --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  77. 

  78. function PetRebirth_WindowTalked(_MePtr,_TalkPtr,_Seqno,_Select,_Data)        

  79.                         selectitem = tonumber(_Data)-1;

  80.                         

  81.         

  82.         if (_Select == 2 or _Select == "2") and _Data ~= nil then

  83.                 return;

  84.         elseif _Seqno == 1 and (_Select ~= 2 and _Select ~= "2") and _Data ~= nil then        

  85.                         if selectitem == 0 then

  86.                                 m = 7;

  87.                         elseif selectitem == 2 then

  88.                                 m = 8;

  89.                         elseif selectitem == 4 then

  90.                                 m = 9;                        

  91.                         end

  92.                 mSg = "\\n"..biao[m].."\\n"               

  93.                 Msg = "3\\n"..biao[tonumber(_Data)+1].."\\n\\n";        

  94.                 msg = "\\n    "..biao[tonumber(_Data)];

  95.                 NLG.ShowWindowTalked(_TalkPtr, _MePtr, %窗口_选择框%,%按钮_上下取消%,2,msg);               

  96.         elseif _Seqno == 2 and (_Select == 16 or _Select == "16") and _Data ~= nil then

  97.                 return PetRebirth_Talked( _MePtr,_TalkPtr);

  98.         elseif _Seqno == 2 and (_Select == 32 or _Select == "32") and _Data ~= nil then

  99.                 for i=0,4 do

  100.                         local pet = Char.GetPet(_TalkPtr,i);

  101.                                 if(VaildChar(pet) == false) then

  102.                                         Msg = Msg..  " 空\\n";

  103.                                 else

  104.                                         Msg = Msg.." "..Char.GetData(pet,%对象_原名%).."\\n";

  105.                                 end

  106.                 end

  107.                 NLG.ShowWindowTalked(_TalkPtr, _MePtr,%窗口_选择框%,%按钮_上取消%,3,Msg);

  108. 

  109. 

  110.         elseif _Seqno == 3 and (_Select == 0 or _Select == "0")  and _Data ~= nil then

  111. 

  112.                 X = tonumber(_Data);

  113.                 pet_index = Char.GetPet(_TalkPtr,selectitem);

  114.                 if (selectitem == nil or (selectitem ~= nil and (selectitem > 4 or selectitem < 0))) then

  115.                         NLG.ShowWindowTalked(_TalkPtr, _MePtr,%窗口_选择框%,%按钮_上取消%,4,"\\n您所选择的位置不正常!");        

  116.                 elseif (VaildChar(pet_index) == false) then

  117.                         NLG.ShowWindowTalked(_TalkPtr, _MePtr,%窗口_选择框%,%按钮_上取消%,5,"\\n请确定您对应的宠物栏有宠物!");

  118.                 elseif (selectitem ~= nil and (selectitem >=0 and selectitem <= 4)) then        

  119.                         NLG.ShowWindowTalked(_TalkPtr, _MePtr,%窗口_选择框%,%按钮_是否%,6,mSg);

  120.                 end

  121. 

  122.         elseif _Seqno == 3 and (_Select == 16 or _Select == "16") and _Data ~= nil then

  123.                 return NLG.ShowWindowTalked(_TalkPtr, _MePtr, %窗口_选择框%,%按钮_上下取消%,2,msg);

  124.         elseif (_Seqno == 4 or _Seqno == 5) and (_Select == 16 or _Select == "16") and _Data ~= nil then

  125.                 return NLG.ShowWindowTalked(_TalkPtr, _MePtr,%窗口_选择框%,%按钮_上取消%,3,Msg);

  126.         elseif _Seqno == 6 and (_Select == 8 or _Select == "8") and _Data ~= nil then

  127.                 return;

  128.         elseif _Seqno == 6 and (_Select == 4 or _Select == "4") and _Data ~= nil then

  129.                 if m == 7 and (selectitem >=0 and selectitem <= 4) then        

  130.                         local arr_rank1 = Pet.GetArtRank(pet_index,%宠档_体成%);

  131.                         local arr_rank11 = Pet.FullArtRank(pet_index,%宠档_体成%);

  132.                         local arr_rank2 = Pet.GetArtRank(pet_index,%宠档_力成%);

  133.                         local arr_rank21 = Pet.FullArtRank(pet_index,%宠档_力成%);

  134.                         local arr_rank3 = Pet.GetArtRank(pet_index,%宠档_强成%);

  135.                         local arr_rank31 = Pet.FullArtRank(pet_index,%宠档_强成%);

  136.                         local arr_rank4 = Pet.GetArtRank(pet_index,%宠档_敏成%);

  137.                         local arr_rank41 = Pet.FullArtRank(pet_index,%宠档_敏成%);

  138.                         local arr_rank5 = Pet.GetArtRank(pet_index,%宠档_魔成%);

  139.                         local arr_rank51 = Pet.FullArtRank(pet_index,%宠档_魔成%);

  140.                         local a1 = math.abs(arr_rank1 - arr_rank11);

  141.                         local a2 = math.abs(arr_rank2 - arr_rank21);

  142.                         local a3 = math.abs(arr_rank3 - arr_rank31);

  143.                         local a4 = math.abs(arr_rank4 - arr_rank41);

  144.                         local a5 = math.abs(arr_rank5 - arr_rank51);

  145.                         local a6 = a1 + a2+ a3+ a4+ a5;

  146.                         local a11 = math.abs(arr_rank11);

  147.                         local a21 = math.abs(arr_rank21);

  148.                         local a31 = math.abs(arr_rank31);

  149.                         local a41 = math.abs(arr_rank41);

  150.                         local a51 = math.abs(arr_rank51);

  151.                         local a61 = a11 + a21+ a31+ a41+ a51;

  152.                         local a12 = math.abs(arr_rank1);

  153.                         local a22 = math.abs(arr_rank2);

  154.                         local a32 = math.abs(arr_rank3);

  155.                         local a42 = math.abs(arr_rank4);

  156.                         local a52 = math.abs(arr_rank5);

  157.                         local a62 = a12 + a22+ a32+ a42+ a52;                        

  158.                         if(a6 == 0) then

  159.                                 msg = "\\n宠物名:"..Char.GetData(pet_index,%对象_名字%).."\\n".."\\n\\n恭喜你!!!\\n\\n该宠物总掉档数: 掉["..a6.."]档\\n";

  160.                         else

  161.                                 msg = "\\n宠 物 名:  "..Char.GetData(pet_index,%对象_名字%)..""

  162.                                 .."\\n体力档数:  -"..a1.." 档 ("..a12.."/"..a11..") "

  163.                                 .."\\n力量档数:  -"..a2.." 档 ("..a22.."/"..a21..") "

  164.                                 .."\\n防御档数:  -"..a3.." 档 ("..a32.."/"..a31..")"

  165.                                 .."\\n敏捷档数:  -"..a4.." 档 ("..a42.."/"..a41..")"

  166.                                 .."\\n魔法档数:  -"..a5.." 档 ("..a52.."/"..a51..")"

  167.                                 .."\\n最    高： "..a61.." 档 "

  168.                                 .."\\n当    前： "..a62.." 档 "

  169.                                 .."\\n掉 档 数:  "..a6.." 档\\n";

  170.                         end

  171.                                 NLG.ShowWindowTalked(_TalkPtr, _MePtr,%窗口_选择框%,%按钮_确定%,7,msg);

  172.                 elseif (m == 8 or m==9) and (selectitem >=0 and selectitem <= 4) then

  173.                         if m == 8 then

  174.                                 Pet.SetArtRank(pet_index,%宠档_体成%,Pet.FullArtRank(pet_index,%宠档_体成%) - math.random(0,4));

  175.                                 Pet.SetArtRank(pet_index,%宠档_力成%,Pet.FullArtRank(pet_index,%宠档_力成%) - math.random(0,4));

  176.                                 Pet.SetArtRank(pet_index,%宠档_强成%,Pet.FullArtRank(pet_index,%宠档_强成%) - math.random(0,4));

  177.                                 Pet.SetArtRank(pet_index,%宠档_敏成%,Pet.FullArtRank(pet_index,%宠档_敏成%) - math.random(0,4));

  178.                                 Pet.SetArtRank(pet_index,%宠档_魔成%,Pet.FullArtRank(pet_index,%宠档_魔成%) - math.random(0,4));

  179.                                 Pet.ReBirth(_TalkPtr,pet_index);

  180.                                 Pet.UpPet(_TalkPtr,pet_index);        

  181.                         elseif m == 9 then

  182.                                  Pet.SetArtRank(pet_index,%宠档_体成%,Pet.FullArtRank(pet_index,%宠档_体成%));

  183.                                         Pet.SetArtRank(pet_index,%宠档_力成%,Pet.FullArtRank(pet_index,%宠档_力成%));

  184.                                                Pet.SetArtRank(pet_index,%宠档_强成%,Pet.FullArtRank(pet_index,%宠档_强成%));

  185.                                         Pet.SetArtRank(pet_index,%宠档_敏成%,Pet.FullArtRank(pet_index,%宠档_敏成%));

  186.                                         Pet.SetArtRank(pet_index,%宠档_魔成%,Pet.FullArtRank(pet_index,%宠档_魔成%));

  187.                                         Pet.ReBirth(_TalkPtr, pet_index);

  188.                                 Pet.UpPet(_TalkPtr,pet_index);        

  189.                         end

  190.                         msg = NLG.c("\\n\\n\\n\\n\\n您选择的第"        ..Biao[X]..        "栏宠物『"..Char.GetData(pet_index,%对象_名字%)..biaO[m]);

  191.                         NLG.ShowWindowTalked(_TalkPtr,_MePtr,%窗口_选择框%,%按钮_确定%,8,msg);

  192.                         msg = "[系统]您选择的第"..Biao[X].."栏宠物『"..Char.GetData(pet_index,%对象_名字%)..biaO[m];

  193.                         NLG.SystemMessage(_TalkPtr,msg)

  194.                 end                        

  195.         end

  196. end

  197. --print("Seqno:".._Seqno.."  Select:".._Select.."  Data:".._Data.."  selectitem:"..selectitem.."  m:"..m.."  pet_index:"..pet_index.."  X:"..X.."  BiaoX:"..Biao[tonumber(X)].."  Biaom:"..biaO[tonumber(m)])
复制代码

PetRebirth.rar

2.32 KB, 下载次数: 0, 下载积分: 金币 -1

用完想打我的留个言激励一下呗
回复

举报

liubobucuo

Rank: 1
发表于 2021-7-10 11:42:17 | 显示全部楼层
没金币只能看看了·····
回复

举报

meikaierdu

Rank: 1
 楼主| 发表于 2021-7-10 21:31:53 | 显示全部楼层
liubobucuo 发表于 2021-7-10 11:42
没金币只能看看了·····

不用金币呀 少年 直接复制呀
回复

举报

sda1234

Rank: 1
发表于 2021-7-11 14:38:07 | 显示全部楼层
厉害了，谢谢分享！
回复

举报

海嬷嬷

Rank: 1
发表于 2021-7-13 20:23:19 | 显示全部楼层
nofix 里面有个相同的文件.
实际上不同的内容哇?
回复

举报

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

本版积分规则

手机版|cgmsv引擎论坛

GMT+8, 2024-11-21 21:39 , Processed in 0.188112 second(s), 10 queries , Gzip On, MemCached On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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