用ABLUA写一个宠物锁

直接看代码即可，注释都有，主要功能就是让宠物绑定再身上防止被盗，虽然很鸡肋。

function petlock(itemindex, charaindex, toindex, haveitemindex)
	--循环开始0~4为宠物栏位置1-5
	for i = 0, 4 do
--toindex设定为宠物索引，这里是获取人物身上宠物的全部索引		if toindex == char.getCharPet(charaindex, i) then			--检查身上第(i+1)个位置宠物是否存在			if char.check(toindex) == 1 then				--取宠物的名字
petname = char.getChar(toindex, "名字")
--系统提示，为何要把提示放在前面是因为宠物上锁是要给名字加*符号，提示是会提示名字的				--如果放在后面，则会把*符号显示出来				char.TalkToCli(charaindex, -1, "成功为" .. char.getChar(toindex, "名字") .. "上锁！", "黄色")
--把带有*符号和名字一起重新写入到名字里				char.setChar(toindex, "名字", "*"..petname)
--更新客户端的字符显示，即更新宠物名字，让客户端显示修改后的名字				char.sendStatusString(charaindex, "K" .. i)
--删除该道具，当然如果你不需要删除可屏蔽这句话				char.DelItem(charaindex, haveitemindex)
--这里返回是必须的，如果不进行返回，系统会直接提示到下面的话				return
end
end
	end	char.TalkToCli(charaindex, -1, "该物品只能给宠物使用！", "红色")end
function main()
	item.addLUAListFunction( "ITEM_PETLOCK", "petlock", "")end