用ABLUA写一个查询宠物成长道具

其实这个NPC版的已经有了，我就改写成道具版的，并优化了显示，请直接看代码，注释都有

function petablility(itemindex, charaindex, toindex, haveitemindex)
    for i=0, 4 do
--判断使用对象为自己的宠物    if toindex == char.getCharPet(charaindex, i) then			--取宠物的能力值
	        LevelUpPoint = char.getInt(toindex, "能力值")
--从能力值里取体力值
	        vital = char.getRightTo8(LevelUpPoint, 1)
--从能力值里取腕力值
	        str = char.getRightTo8(LevelUpPoint, 2)
--从能力值里取耐力值
	        tgh = char.getRightTo8(LevelUpPoint, 3)
--从能力值里取速度
	        dex = char.getRightTo8(LevelUpPoint, 4)	
            --成长区间1+ 对应RankRandTbl的行数
	        petrank = char.getInt(toindex, "成长区间") + 1
--范围判断1-5
	        if petrank < 1 or petrank > 6 then
        petrank = 1
	        end			--初始化血攻防敏
	        hp = 0
	        atk = 0
	        def = 0
	        quick = 0
	        --模拟升级增加的能力值来计算成长率	        for j=1, 140 do
        ability = {0, 0, 0, 0}
        for j=1, 10 do
        rnd = math.random(4)
        ability[rnd] = ability[rnd] + 1
        end	
        ivital = vital
        istr = str
        itgh = tgh
        idex = dex
        ivital = (ivital * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2]) + ability[1] * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2])) / 100
        istr = (istr * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2]) + ability[2] * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2])) / 100
        itgh = (itgh * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2]) + ability[3] * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2])) / 100
        idex = (idex * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2]) + ability[4] * math.random(RankRandTbl[petrank][1], RankRandTbl[petrank][2])) / 100
        ihp = (ivital * 4 + istr + itgh + idex) * 0.01
	            iatk = (istr * 0.01 + itgh * 0.001 + ivital * 0.001 + idex * 0.0005)
        idef = (itgh* 0.01 + istr * 0.001 + ivital * 0.001 + idex * 0.0005)
        iquick = idex * 0.01
  
        hp = hp + ihp
        atk = atk + iatk
        def = def + idef
        quick = quick + iquick
	        end		    --取血成长4位小数点
	        hp = string.format("%.4f", (hp/140))
--取攻成长4位小数点
	        atk = string.format("%.4f",(atk/140))
--取防成长4位小数点
	        def = string.format("%.4f",(def/140))
--取敏成长4点小数点
	        quick = string.format("%.4f",(quick/140))
--攻防敏相加的成长
grow = string.format("%.4f",(atk+def+quick))
	        token = "                  ※宠物成长镜※"
     .."\n" .. char.getChar(toindex, "名字") .. "("..char.getInt(toindex, "转数").."转".. char.getInt(toindex, "等级") .. "级)："
         .. "\n体力成长：" .. hp 
         .. "\n腕力成功：" .. atk 
         .. "\n耐力成功：" .. def 
         .. "\n速度成长：" .. quick 
         .. "\n三围成长：" .. grow		         .. "\n每次计算都会出现不同结果仅供参考。"
	        lssproto.windows(charaindex, "对话框", "确定", -1, char.getWorkInt(toindex, "对象"), token)
--删除物品			char.DelItem(charaindex, haveitemindex)
return
end
	end    char.TalkToCli(charaindex, -1, "只能给宠物使用。", "红色")end
function data()
	--从源码里提取的成长区间范围
    RankRandTbl = {{ 450, 500 }
  ,{ 470, 520 }
  ,{ 490, 540 }
  ,{ 510, 560 }
  ,{ 530, 580 }
  ,{ 550, 600 }
  }end
function main()
	data()
	item.addLUAListFunction( "ITEM_PETABLILITY", "petablility", "")end

效果图：