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

石器时代LA官方

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

积分

注册会员

Rank: 2

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

使用道具 举报

peppeoni

5

主题

439

回帖

812

积分

高级会员

Rank: 4

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

使用道具 举报

shuafen25

10

主题

35

回帖

62

积分

注册会员

Rank: 2

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

使用道具 举报

liongliong

0

主题

28

回帖

33

积分

新手上路

Rank: 1

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-25 22:50 , Processed in 0.119375 second(s), 21 queries .

Copyright © 2001-2023, Tencent Cloud.

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