wow的lua 研究 二(基于mangos开源)

自定义材料解绑装备 lua

根据装备升级lua脚本修改的。

跟升级装备一样,可自定义两种材料。

还有一个版本的装备升级lua可以自定义4种材料的,也可改成装备解绑。



--[[

简介: ELUNA 物品升级

原作者:5L

修改:烟雨江南

致谢:ayase,愈

]]--

print(">>Script: Item_unbonding loading...OK")

math.randomseed(tonumber(tostring(os.time()):reverse():sub(1,6)))

localITEMID   =60007--合成宝珠

UP ={};

functionItem_Up(event, player, item, target)

player:MoveTo(0,player:GetX()+0.01,player:GetY(),player:GetZ())

U = target:GetEntry();

--------------------------0----1------2-------3-------4--------5-----6------7---------8---

Q = WorldDBQuery("SELECT id1, id2, amount, amount1, amount2, upid, chance, crazing, baoshi FROM item_up WHERE `id` = '"..U.."';");

if(Q ==nil)then

player:SendBroadcastMessage("装备无法解绑。")

player:SendAreaTriggerMessage("装备无法解绑。")

return;

end

UP[U] = {

upid    = Q:GetString(5),--升级后的ID

amount  = Q:GetString(2),--原始装备的数量

chance  = Q:GetString(6),--成功几率

crazing = Q:GetString(7),--失败是否碎裂:0不碎,1碎

id1     = Q:GetString(0),--需要的物品1的ID

amount1 = Q:GetString(3),--需要的物品1的数量

id2     = Q:GetString(1),--需要的物品2的ID

amount2 = Q:GetString(4),--需要的物品2的数量

baoshi  = Q:GetString(8)--幸运宝珠ID

};

player:GossipClearMenu();

player:GossipMenuAddItem(1,"|TInterface\\ICONS\\Tradeskill_Inscription_JadeSerpent.blp:30|t 需要材料:"..GetItemLink(U).."×"..UP[U].amount.."件",0,99);

if(tonumber(UP[U].id1) >0and tonumber(UP[U].amount1) >0)then

player:GossipMenuAddItem(1,"|TInterface\\ICONS\\Tradeskill_Inscription_RedCrane.blp:30|t 需要材料:"..GetItemLink(UP[U].id1).."×"..UP[U].amount1.."件",0,99);

end

if(tonumber(UP[U].id2) >0and tonumber(UP[U].amount2) >0)then

player:GossipMenuAddItem(1,"|TInterface\\ICONS\\Tradeskill_Inscription_BlackOx.blp:30|t 需要材料:"..GetItemLink(UP[U].id2).."×"..UP[U].amount2.."件",0,99);

end

player:GossipMenuAddItem(1,"|TInterface\\ICONS\\Spell_Priest_VowofUnity.blp:30|t 成功几率:"..UP[U].chance.."%",0,99);

if(tonumber(UP[U].crazing) ==0)then

player:GossipMenuAddItem(1,"|TInterface\\ICONS\\INV_Ingot_Trillium.blp:30|t 失败后不会碎裂",0,99);

end

if(tonumber(UP[U].crazing) ==1)then

player:GossipMenuAddItem(1,"|TInterface\\ICONS\\INV_Ingot_Titansteel_red.blp:30|t 失败后道具消失",0,99);

end

player:GossipMenuAddItem(1,"|TInterface\\ICONS\\Spell_Holy_HopeAndGrace.blp:40|t |CFFFF1100确认解绑|R",1,1);

player:GossipSendMenu(1,item);

end

functionItem_Select(event, player, object, sender, intid, code, menu_id)

if(intid ==1)then

localChanceUp = math.random(0,100)

ifplayer:HasItem(U, tonumber(UP[U].amount)) and (tonumber(UP[U].id1) ==0or tonumber(UP[U].amount1) ==0or player:HasItem(tonumber(UP[U].id1), tonumber(UP[U].amount1))) and (tonumber(UP[U].id2) ==0or tonumber(UP[U].amount2) ==0or player:HasItem(tonumber(UP[U].id2), tonumber(UP[U].amount2)))then

iftonumber(UP[U].id1) >0and tonumber(UP[U].amount1) >0then

player:RemoveItem(UP[U].id1, UP[U].amount1);

end

iftonumber(UP[U].id2) >0and tonumber(UP[U].amount2) >0then

player:RemoveItem(UP[U].id2, UP[U].amount2);

end

iftonumber(UP[U].chance) >= ChanceUpthen

ifplayer:HasItem(tonumber(UP[U].baoshi),1)then

player:RemoveItem(tonumber(UP[U].baoshi),1);

end

player:RemoveItem(U,UP[U].amount);

player:AddItem(U,1);

player:SendBroadcastMessage("|CFFFF0000解绑成功!,请直接交易。!|R");

player:SendAreaTriggerMessage("|CFFFF0000解绑成功!请直接交易。!|R");

else

if(tonumber(UP[U].crazing) ==0)then

player:SendBroadcastMessage("|CFFFF0000解绑失败!!|R");

player:SendAreaTriggerMessage("|CFFFF0000解绑失败!!|R");

elseifplayer:HasItem(tonumber(UP[U].baoshi),1)then

player:RemoveItem(tonumber(UP[U].baoshi),1);

player:SendBroadcastMessage("|CFFFF0000解绑失败!破碎的幸运宝珠抵消了灾厄的降临!!|R");

player:SendAreaTriggerMessage("|CFFFF0000解绑失败!破碎的幸运宝珠抵消了灾厄的降临!!|R");

else

player:RemoveItem(U, UP[U].amount);

player:SendBroadcastMessage("|CFFFF0000解绑失败!物品破碎!|R");

player:SendAreaTriggerMessage("|CFFFF0000解绑失败!物品破碎!|R");

end

end

else

player:SendBroadcastMessage("|CFFFF0000装备或材料数量不足|R");

player:SendAreaTriggerMessage("|CFFFF0000装备或材料数量不足|R");

end

player:GossipComplete();

end

if(intid ==99)then

player:SendBroadcastMessage("|CFFFF0000请点击确定按钮!!!|R");

player:SendAreaTriggerMessage("|CFFFF0000请点击确定按钮!!!R");

player:GossipComplete();

end

end

RegisterItemEvent(ITEMID,2, Item_Up);

RegisterItemGossipEvent(ITEMID,2, Item_Select);

你可能感兴趣的:(wow的lua 研究 二(基于mangos开源))