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

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
石器时代LA官方»石器LA论坛 › 石器时代技术 › 石器LUA区 › 宠物换肤
返回列表 发新帖
查看: 1633|回复: 4

[Ab Lua] 宠物换肤

[复制链接]
匿名
匿名  发表于 2023-2-22 15:06:36 |阅读模式
  1. function ShowHead(meindex, talkerindex)
  2.         if npc.isFaceToFace(meindex, talkerindex) == 1 then
  3.                 token = "3                『" .. char.getChar(meindex, "名字") .. "』\n"
  4.                                                 .."\n          请问您需要些什么服务呢？？"
  5.                                                 .."\n               〖更换宠物外形〗"
  6.                                                 .."\n               〖恢复宠物外形〗"
  7.                 lssproto.windows(talkerindex, "选择框", "取消", 1, char.getWorkInt( meindex, "对象"), token)
  8.         end
  9. end

  11. function Talked(meindex, talkerindex , szMes, color )
  12.         if npc.isFaceToFace(meindex, talkerindex) == 1 then
  13.                 ShowHead(meindex, talkerindex)
  14.         end
  15. end

  17. function WindowTalked ( meindex, talkerindex, seqno, select, data)
  18.         if seqno == 1 then
  19.                 if select == 2 or select == 8 then
  20.                         return
  21.                 end
  22.                 local num = other.atoi(data)
  23.                 if num == 1 then
  24.                         local str
  25.                         if paymod == 1 then
  26.                                 str = "\n需要消耗〖" ..TM_JINBI.."金币〗\n按确定开始变身！"
  27.                         elseif paymod == 2 then
  28.                                 str = "\n需要消耗〖" ..TM_Fame.."声望〗与〖" ..TM_Vigor.."活力〗\n按确定开始变身！"
  29.                         end
  30.                         token = "\n宠物可互换外形，互换后不增加宠物属性"
  31.                         .."\n    ★★被提取外形的宠物会被删除★★"
  32.                         .."\n      ★★骑宠转换后不可骑乘★★"
  33.                         .."\n    ★★可骑乘的宠物不可提取外形★★"
  34.                         ..str
  35.                         lssproto.windows(talkerindex, "对话框", "确定|取消", 2, char.getWorkInt( meindex, "对象"), token)
  36.                 elseif num == 2 then
  37.                         if paymod == 1 then
  38.                                 token = "\n" .. "\n恢复宠物外形\n需要消耗〖" ..TM_JINBI.."金币〗\n按确定开始变身！"
  39.                         elseif paymod == 2 then
  40.                                 token = "\n" .. "\n恢复宠物外形\n需要消耗〖" ..TM_Fame.."声望〗与〖" ..TM_Vigor.."活力〗\n按确定开始变身！"
  41.                         end
  42.                         lssproto.windows(talkerindex, "对话框", "确定", 7, char.getWorkInt( meindex, "对象"), token)
  43.                 end
  44.         elseif seqno == 2 then
  45.                 if select == 1 or select == 4 then
  46.                         if paymod == 1 then
  47.                                 local TM_MYJB = sasql.getVipPoint(talkerindex)
  48.                                 if TM_MYJB<TM_JINBI then
  49.                                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗你的金币都不够，还想更换宠物外形？！", "随机色")
  50.                                         return
  51.                                 end                       
  52.                         elseif paymod == 2 then
  53.                                 local TM_MySW = char.getInt(talkerindex, "声望")
  54.                                 local TM_MyHL = char.getInt(talkerindex, "活力")
  55.                        
  56.                                 if TM_MySW < TM_Fame*100 then
  57.                                         char.TalkToCli(talkerindex, meindex, "〖温馨提示〗你的声望都不够，还想更换宠物外形？多挂机少说话~", "随机色")
  58.                                         return
  59.                                 end
  60.                        
  61.                                 if TM_MyHL < TM_Vigor then
  62.                                         char.TalkToCli(talkerindex, meindex, "〖温馨提示〗你的活力都不够，这次是帮不到你了，多在线点时间，活力自然就多了。", "随机色")
  63.                                         return
  64.                                 end
  65.                         end
  66.                         token = "\n"
  67.                                         .. "\n请选择需要换皮肤的宠物"
  68.                         lssproto.windows(talkerindex, "对话框", "确定", 3, char.getWorkInt( meindex, "对象"), token)
  69.                 end
  70.         elseif seqno == 3 then
  71.                 lssproto.windows(talkerindex, "宠物框", "取消", 4, char.getWorkInt( meindex, "对象"), "")
  72.         elseif seqno == 4 then
  73.                 pethaveid1 = other.atoi(data)
  74.                 if pethaveid1 < 1 or pethaveid1 > 5 then
  75.                         return
  76.                 end
  77.                 TM_PetIndex1 = char.getCharPet(talkerindex,pethaveid1-1)
  78.                 pet1 = TM_PetIndex1
  79.                 petpic1 = char.getInt(TM_PetIndex1,"图像号")
  80.                 yuanpetpic1 = char.getInt(TM_PetIndex1,"整数存储1")
  81.                 if yuanpetpic1 == pet1pic1 then
  82.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗此宠物曾经已经更换过外形，请恢复原本的样子再来吧！", "随机色")
  83.                         return
  84.                 elseif yuanpetpic1 ~= 0 then
  85.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗此宠物已经更换过外形，请恢复原本的样子再来吧！", "随机色")
  86.                         return
  87.                 end
  88.                 for i=1, #_PET do
  89.                         if _PET[i] == petpic1 then
  90.                                 char.TalkToCli(talkerindex, -1, "〖温馨提示〗此宠物无法变更外形！", "随机色")
  91.                                 return
  92.                         end
  93.                 end
  94.                
  95.                 token = "\n"
  96.                                         .. "\n         请选择用哪只宠物的外形"
  97.                                         .. "\n    ★★被提取外形的宠物会被删除★★"
  98.                                         .. "\n     ★★请慎重考虑好再点确定★★"
  99.                         lssproto.windows(talkerindex, "对话框", "确定", 5, char.getWorkInt( meindex, "对象"), token)
  100.         elseif seqno == 5 then
  101.                 lssproto.windows(talkerindex, "宠物框", "取消", 6, char.getWorkInt( meindex, "对象"), "")
  102.         elseif seqno == 6 then
  103.                 pethaveid2 = other.atoi(data)
  104.                 if pethaveid2 < 1 or pethaveid2 > 5 then
  105.                         return
  106.                 end
  107.                 TM_PetIndex2 = char.getCharPet(talkerindex,pethaveid2-1)
  108.                 pet2 = TM_PetIndex2
  109.                 petpic2 = char.getInt(TM_PetIndex2,"图像号")
  110.                
  111.                 if pet1 == pet2 then
  112.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗同一只宠物无法更换外形", "随机色")
  113.                         return       
  114.                 elseif petpic2 == petpic1 then
  115.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗两只一样外形的宠物无法更换外形", "随机色")
  116.                         return
  117.                 elseif char.getInt(TM_PetIndex2,"整数存储1") ~= 0 then
  118.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗更换过外形的宠物无法提取形象，请先恢复宠物外形", "随机色")
  119.                         return
  120.                 end
  121.                 for i=1 , #_RIDE do
  122.                         if _RIDE[i] == petpic2 then
  123.                                 char.TalkToCli(talkerindex, -1, "〖温馨提示〗更换外形失败，骑宠无法提取外形。", "随机色")
  124.                                 return
  125.                         end
  126.                 end
  127.                 if paymod == 1 then
  128.                         local TM_MYJB = sasql.getVipPoint(talkerindex)
  129.                         if TM_MYJB<TM_JINBI then
  130.                                 char.TalkToCli(talkerindex, -1, "〖温馨提示〗你的金币都不够，还想更换宠物外形？！", "随机色")
  131.                                 return
  132.                         end
  133.                         sasql.setVipPoint(talkerindex,TM_MYJB-TM_JINBI)
  134.                 elseif paymod == 2 then
  135.                         local TM_MySW = char.getInt(talkerindex, "声望")
  136.                         local TM_MyHL = char.getInt(talkerindex, "活力")       
  137.                         if TM_MySW < TM_Fame*100 then
  138.                                 char.TalkToCli(talkerindex, meindex, "〖温馨提示〗你的声望都不够，还想换宠物外形？多挂机少说话~", "随机色")
  139.                                 return
  140.                         end
  141.                         if TM_MyHL < TM_Vigor then
  142.                                 char.TalkToCli(talkerindex, meindex, "〖温馨提示〗你的活力都不够，这次是帮不到你了，多在线点时间，活力自然就多了。", "随机色")
  143.                                 return
  144.                         end
  145.                         char.setInt(talkerindex, "声望", char.getInt(talkerindex, "声望") - TM_Fame*100)
  146.                         char.setInt(talkerindex, "活力", char.getInt(talkerindex, "活力") - TM_Vigor)
  147.                 end
  148.                 --char.TalkToCli(talkerindex, -1, "更换前pet1图像号"..char.getInt(pet1,"图像号"), "随机色")
  149.                 --char.TalkToCli(talkerindex, -1, "更换前pet2图像号".. char.getInt(pet2,"图像号"), "随机色")
  150.                 --char.TalkToCli(talkerindex, -1, "更换前pet1原图像号"..char.getInt(pet1,"原图像号"), "随机色")
  151.                 --char.TalkToCli(talkerindex, -1, "更换前pet2原图像号"..char.getInt(pet2,"原图像号"), "随机色")
  152.                 char.setInt(pet1,"图像号",petpic2)
  153.                 char.setInt(pet2,"图像号",petpic1)
  154.                 char.setInt(pet1,"原图像号",petpic2)
  155.                 char.setInt(pet2,"原图像号",petpic1)
  156.                 char.setInt(TM_PetIndex1,"整数存储1",petpic1)
  157.                 char.setInt(TM_PetIndex2,"整数存储1",petpic2)
  158.                 --char.TalkToCli(talkerindex, -1, "更换后整数存储1="..char.getInt(TM_PetIndex1,"整数存储1"), "随机色")
  159.                 --char.TalkToCli(talkerindex, -1, "更换后pet1图像号"..char.getInt(pet1,"图像号"), "随机色")
  160.                 --char.TalkToCli(talkerindex, -1, "更换后pet2图像号"..char.getInt(pet2,"图像号"), "随机色")
  161.                 --char.TalkToCli(talkerindex, -1, "更换后pet1原图像号"..char.getInt(pet1,"原图像号"), "随机色")
  162.                 --char.TalkToCli(talkerindex, -1, "更换后pet2原图像号"..char.getInt(pet2,"原图像号"), "随机色")
  163.                 char.sendStatusString(talkerindex, "K" .. pethaveid1 - 1)
  164.                 char.sendStatusString(talkerindex, "K" .. pethaveid2 - 1)
  165.                 if deletepet == 1 then
  166.                         char.DelPet(talkerindex, pet2)--删除被提取外形的宠物
  167.                 end
  168.                 if paymod == 1 then
  169.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗变身消耗了您 "..TM_JINBI.." 金币！" , "随机色")
  170.                 elseif paymod == 2 then
  171.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗变身消耗了您 "..TM_Fame.." 声望！" , "随机色")
  172.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗变身消耗了您 "..TM_Vigor.." 活力！" , "随机色")
  173.                 end
  174.                 char.TalkToCli(talkerindex, -1, "〖温馨提示〗恭喜您的宠物成功改变外形。" , "随机色")
  175.         elseif seqno == 7 then
  176.                 lssproto.windows(talkerindex, "宠物框", "取消", 8, char.getWorkInt( meindex, "对象"), "")
  177.         elseif seqno == 8 then
  178.                
  179.                 pethaveid1 = other.atoi(data)
  180.                 if pethaveid1 < 1 or pethaveid1 > 5 then
  181.                         return
  182.                 end

  184.                 if paymod == 1 then
  185.                         local TM_MYJB = sasql.getVipPoint(talkerindex)
  186.                         if TM_MYJB<TM_JINBI then
  187.                                 char.TalkToCli(talkerindex, -1, "〖温馨提示〗你的金币都不够，还想更换宠物外形？！", "随机色")
  188.                                 return
  189.                         end
  190.                         sasql.setVipPoint(talkerindex,TM_MYJB-TM_JINBI)
  191.                 elseif paymod == 2 then
  192.                         local TM_MySW = char.getInt(talkerindex, "声望")
  193.                         local TM_MyHL = char.getInt(talkerindex, "活力")
  194.                        
  195.                         if TM_MySW < TM_Fame*100 then
  196.                                 char.TalkToCli(talkerindex, meindex, "〖温馨提示〗你的声望都不够，还想换宠物外形？多挂机少说话~", "随机色")
  197.                                 return
  198.                         end
  199.                        
  200.                         if TM_MyHL < TM_Vigor then
  201.                                 char.TalkToCli(talkerindex, meindex, "〖温馨提示〗你的活力都不够，这次是帮不到你了，多在线点时间，活力自然就多了。", "随机色")
  202.                                 return
  203.                         end       
  204.                         char.setInt(talkerindex, "声望", char.getInt(talkerindex, "声望") - TM_Fame*100)
  205.                         char.setInt(talkerindex, "活力", char.getInt(talkerindex, "活力") - TM_Vigor)
  206.                 end

  208.                 TM_PetIndex1 = char.getCharPet(talkerindex,pethaveid1-1)
  209.                 pet1 = TM_PetIndex1
  210.                 petpic1 = char.getInt(TM_PetIndex1,"图像号")
  211.                 yuanpetpic1 = char.getInt(TM_PetIndex1,"整数存储1")
  212.                 if yuanpetpic1 == 0 then
  213.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗宠物已经是原本的形象，无需恢复", "随机色")
  214.                         return
  215.                 end
  216.                 char.setInt(pet1,"图像号",yuanpetpic1)
  217.                 char.setInt(pet1,"原图像号",yuanpetpic1)
  218.                 char.setInt(TM_PetIndex1,"整数存储1",0)
  219.                 char.sendStatusString(talkerindex, "K" .. pethaveid1 - 1)
  220.                 if paymod == 1 then
  221.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗变身消耗了您 "..TM_JINBI.." 金币！" , "随机色")
  222.                 elseif paymod == 2 then
  223.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗变身消耗了您 "..TM_Fame.." 声望！" , "随机色")
  224.                         char.TalkToCli(talkerindex, -1, "〖温馨提示〗变身消耗了您 "..TM_Vigor.." 活力！" , "随机色")
  225.                 end
  226.                 char.TalkToCli(talkerindex, -1, "〖温馨提示〗恭喜您的宠物外形成功恢复。" , "随机色")
  227.         elseif seqno == 9 then
  228.                 return
  229.         end
  230.        
  231. end


  234. function Create(name, metamo, floor, x, y, dir)
  235.         npcindex = npc.CreateNpc(name, metamo, floor, x, y, dir)
  236.         char.setFunctionPointer(npcindex, "对话事件", "Talked", "")
  237.         char.setFunctionPointer(npcindex, "窗口事件", "WindowTalked", "")
  238. end

  240. function data()
  241.         pet1 = 0
  242.         pet2 = 0
  243.         petpic1 = 0
  244.         petpic2 = 0
  245.         yuanpetpic1 = 0
  246.         yuanpetpic2 = 0
  247.         pethaveid1 = 0
  248.         pethaveid2 = 0
  249.         TM_PetIndex1 = 0
  250.         TM_PetIndex2 = 0
  251.         paymod = 1 --付款方式1为金币2为声望活力
  252.         TM_JINBI = 50 --需要金币
  253.         TM_Fame = 1 --需要声望
  254.         TM_Vigor = 1 --需要活力
  255.         deletepet = 1 --是否删除被提取外形的宠物1为是0为不删除
  256.         _PET = {101427,101424,101425,101426}--不能更换形象的宠物
  257.         _RIDE = {100327,100328,100329,100330}--不能提取形象的宠物
  258. end

  260. function main()
  261.         Create("宠物换肤大师", 100780, 2000, 61, 33, 4)
  262.         data()
  263. end
复制代码


回复

使用道具 举报

shuafen25

10

主题

35

回帖

62

积分

注册会员

积分
62
石币
17
发表于 2023-3-14 12:02:06 | 显示全部楼层
好东西，必须顶
回复

使用道具 举报

peppeoni

5

主题

439

回帖

812

积分

高级会员

积分
812
石币
368
发表于 2023-3-17 02:43:36 | 显示全部楼层
原來是這樣 收下了
回复

使用道具 举报

shuafen25

10

主题

35

回帖

62

积分

注册会员

积分
62
石币
17
发表于 2023-3-30 12:57:35 | 显示全部楼层
顶一个顶一个
回复

使用道具 举报

liongliong

0

主题

28

回帖

33

积分

新手上路

积分
33
石币
5
发表于 2023-10-6 11:26:00 | 显示全部楼层
谢谢大佬 感觉这个很厉害啊
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-11-29 08:41 , Processed in 1.646257 second(s), 22 queries .

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