文章编辑人员：雪舞
内容测试时间：2023-8-14 15:44:51
测试环境：Windows 10
测试版本：复古 085
原始代码:
local EQUIP_BUTTONS;
local EQUIP_QUALITY = -1;
local MATERIAL_BUTTONS;
local MATERIAL_QUALITY = -1;
local Need_Item = 0
local Need_Money =0
local Need_Item_Count = 0
local Bore_Count=0
local objCared = -1;
local MAX_OBJ_DISTANCE = 3.0;
local g_Object = -1;
function Stiletto_PreLoad()
this:RegisterEvent("UPDATE_STILETTO");
this:RegisterEvent("UI_COMMAND");
this:RegisterEvent("OBJECT_CARED_EVENT");
this:RegisterEvent(" ACKAGE_ITEM_CHANGED");
this:RegisterEvent("RESUME_ENCHASE_GEM");
end
function Stiletto_OnLoad()
EQUIP_BUTTONS = Stiletto_Item
MATERIAL_BUTTONS = Stiletto_Material
end
function Stiletto_OnEvent(event)
--PushDebugMessage(event)
if ( event == "UI_COMMAND" and tonumber(arg0) == 25) then
this:Show();
-- 清空物品槽 zchw
Stiletto_Clear();
local xx = Get_XParam_INT(0);
objCared = DataPool : GetNPCIDByServerID(xx);
AxTrace(0,1,"xx="..xx .. " objCared="..objCared)
if objCared == -1 then
PushDebugMessage("server传过来的数据有问题。");
return;
end
BeginCareObject_Stiletto(objCared)
elseif (event == "OBJECT_CARED_EVENT" and this:IsVisible()) then
if(tonumber(arg0) ~= objCared) then
return;
end
--如果和NPC的距离大于一定距离或者被删除，自动关闭
if(arg1 == "distance" and tonumber(arg2)>MAX_OBJ_DISTANCE or arg1=="destroy") then
--取消关心
Stiletto_Cancel_Clicked()
end
elseif ( event == "ACKAGE_ITEM_CHANGED" and this:IsVisible() ) then
if( arg0~= nil and -1 == tonumber(arg0)) then
return;
end
if (EQUIP_QUALITY == tonumber(arg0) ) then
Stiletto_Clear()
Stiletto_Update(1,tonumber(arg0))
end
if (MATERIAL_QUALITY == tonumber(arg0) ) then
Stiletto_Clear()
Stiletto_Update(2,tonumber(arg0))
end
elseif ( event == "RESUME_STILETTO_EQUIP" ) then
Resume_Equip(1);
elseif( event == "UPDATE_STILETTO") then
AxTrace(0,1,"arg0="..arg0)
if arg0 == nil or arg1 == nil then
return
end
Stiletto_Update(tonumber(arg0),tonumber(arg1));
elseif( event == "RESUME_ENCHASE_GEM" and this:IsVisible() ) then
if(arg0~=nil and tonumber(arg0) == 3) then
Resume_Equip_Stiletto(1);
elseif(arg0~=nil and tonumber(arg0) == 35) then
Resume_Equip_Stiletto(2);
end
end
end
function Stiletto_OnShown()
Stiletto_Clear()
end
function Stiletto_Clear()
if(EQUIP_QUALITY ~= -1) then
EQUIP_BUTTONS : SetActionItem(-1);
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
EQUIP_QUALITY = -1;
end
-- Stiletto_Material_Bak : SetProperty("Image", "set:CommonItem image:ActionBK");
-- Stiletto_Material_Bak : SetToolTip("")
if(MATERIAL_QUALITY ~= -1) then
MATERIAL_BUTTONS : SetActionItem(-1);
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
MATERIAL_QUALITY = -1;
end
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
end
function Stiletto_Update(pos1,pos0)
local pos_packet,pos_ui;
pos_packet = tonumber(pos0);
pos_ui = tonumber(pos1)
local theAction = EnumAction(pos_packet, "packageitem");
if pos_ui == 1 then
if theAction:GetID() ~= 0 then
local Bore_Count1 = 0;
local Need_Item1 = -1;
local Need_Money1 = 0;
local Need_Item_Count1 =0;
--Need_Item,Need_Money,Need_Item_Count,Bore_Count=LifeAbility : Stiletto_Preparation(pos_packet);
Need_Item1,Need_Money1,Need_Item_Count1,Bore_Count1=LifeAbility : Stiletto_Preparation(pos_packet, 1); --1表示取第一组消耗值
if Bore_Count1 > 2 then --add:lby 20080521
PushDebugMessage("此处只能打前3个孔")
return
end
if Need_Item1 < -1 then
PushDebugMessage("此物品無法增加凹槽")
return
end
Need_Item = Need_Item1
Need_Money = Need_Money1
Need_Item_Count = Need_Item_Count1
Bore_Count = Bore_Count1
--让之前的东西变亮
if EQUIP_QUALITY ~= -1 then
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
end
EQUIP_BUTTONS:SetActionItem(theAction:GetID());
EQUIP_QUALITY = pos_packet;
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,1);
else
EQUIP_BUTTONS:SetActionItem(-1);
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
EQUIP_QUALITY = -1;
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
return;
end
Stiletto_Money : SetProperty("MoneyNumber", tostring(Need_Money));
Stiletto_State : SetText("当前凹槽数:"..Bore_Count..";可以增加凹槽数:"..tostring(3-Bore_Count))
elseif pos_ui == 2 then
local Item_Class = PlayerPackage : GetItemSubTableIndex(pos_packet,0)
local Item_Quality = PlayerPackage : GetItemSubTableIndex(pos_packet,1)
local Item_Type = PlayerPackage : GetItemSubTableIndex(pos_packet,2)
local itemindex = PlayerPackage : GetItemTableIndex(pos_packet)
if itemindex == 20109101 or itemindex == 20310111 then --add:lby 20080521点金之间不能放入，寒玉精粹不能放入
PushDebugMessage("该物品無法在此处使用")
return
end
if Item_Class ~= 2 or Item_Quality ~= 1 or Item_Type ~= 9 then
return
end
if theAction:GetID() ~= 0 then
MATERIAL_BUTTONS:SetActionItem(theAction:GetID());
if MATERIAL_QUALITY ~= -1 then
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
end
--让之前的东西变亮
MATERIAL_QUALITY = pos_packet;
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,1);
else
MATERIAL_BUTTONS:SetActionItem(-1);
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
MATERIAL_QUALITY = -1;
return;
end
end
--add here
end
function Stiletto_Buttons_Clicked()
if MATERIAL_QUALITY == -1 then
PushDebugMessage("请放入打孔材料")
return
end
if EQUIP_QUALITY ~= -1 then
if Need_Item == -2 then
PushDebugMessage("此物品無法增加凹槽")
elseif Need_Item == -3 then
PushDebugMessage("凹槽已达到最大数量")
-- elseif DataPool:GetPlayerMission_ItemCountNow(Need_Item) < Need_Item_Count then
-- PushDebugMessage("缺少材料")
elseif Player:GetData("MONEY") + Player:GetData("MONEY_JZ") < Need_Money then
PushDebugMessage("金钱不足")
else
Clear_XSCRIPT();
Set_XSCRIPT_Function_Name("OnStiletto");
Set_XSCRIPT_ScriptID(311200);
Set_XSCRIPT_Parameter(0,EQUIP_QUALITY);
Set_XSCRIPT_Parameter(1,MATERIAL_QUALITY);
Set_XSCRIPT_ParamCount(2);
Send_XSCRIPT();
end
else
PushDebugMessage("请放入一个裝備")
end
end
function Stiletto_Close()
--并设置，让背包里的位置变亮
this:Hide();
Stiletto_Clear();
StopCareObject_Stiletto(objCared)
end
function Stiletto_Cancel_Clicked()
Stiletto_Close();
return;
end
--=========================================================
--开始关心NPC，
--在开始关心之前需要先确定这个界面是不是已经有“关心”的NPC，
--如果有的话，先取消已经有的“关心”
--=========================================================
function BeginCareObject_Stiletto(objCaredId)
g_Object = objCaredId;
this:CareObject(g_Object, 1, "Stiletto");
end
--=========================================================
--停止对某NPC的关心
--=========================================================
function StopCareObject_Stiletto(objCaredId)
this:CareObject(objCaredId, 0, "Stiletto");
g_Object = -1;
end
function Resume_Equip_Stiletto(nIndex)
if( this:IsVisible() ) then
if(nIndex == 1) then
if(EQUIP_QUALITY ~= -1) then
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
EQUIP_BUTTONS : SetActionItem(-1);
EQUIP_QUALITY = -1;
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
end
else
if(MATERIAL_QUALITY ~= -1) then
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
MATERIAL_BUTTONS : SetActionItem(-1);
MATERIAL_QUALITY = -1;
end
end
end
end
优化后的代码:
local EQUIP_BUTTONS;
local EQUIP_QUALITY = -1;
local MATERIAL_BUTTONS;
local MATERIAL_QUALITY = -1;
local lastMaterial = -1
local Need_Item = 0
local Need_Money =0
local Need_Item_Count = 0
local Bore_Count=0
local objCared = -1;
local MAX_OBJ_DISTANCE = 3.0;
local g_Object = -1;
local Stiletto_CostItemIndex = -1;
local g_Stiletto_Frame_UnifiedPosition;
function Stiletto_PreLoad()
this:RegisterEvent("UPDATE_STILETTO");
this:RegisterEvent("UI_COMMAND");
this:RegisterEvent("OBJECT_CARED_EVENT");
this:RegisterEvent("ACKAGE_ITEM_CHANGED");
this:RegisterEvent("RESUME_ENCHASE_GEM");
this:RegisterEvent("ADJEST_UI_POS")
this:RegisterEvent("VIEW_RESOLUTION_CHANGED")
end
function Stiletto_OnLoad()
EQUIP_BUTTONS = Stiletto_Item
MATERIAL_BUTTONS = Stiletto_Material
g_Stiletto_Frame_UnifiedPosition=Stiletto_Frame:GetProperty("UnifiedPosition");
end
function Stiletto_OnEvent(event)
if ( event == "UI_COMMAND" and tonumber(arg0) == 25) then
Dress_Stiletto_CloseOtherWindows()
this:Show();
Stiletto_Clear();
local xx = Get_XParam_INT(0);
objCared = DataPool : GetNPCIDByServerID(xx);
AxTrace(0,1,"xx="..xx .. " objCared="..objCared)
if objCared == -1 then
--去掉此行，因为此种信息不适合显示在客户端
--PushDebugMessage("server传过来的数据有问题。");
return;
end
BeginCareObject_Stiletto(objCared)
elseif (event == "UI_COMMAND" and tonumber(arg0) == 201107281 and this:IsVisible()) then
if arg1 == nil then
return
end
local itemID = PlayerPackage:GetItemTableIndex(tonumber(arg1));
if itemID < 19999999 and itemID > 10000000 then
--为装备
Stiletto_Update(1,tonumber(arg1),1)
return
end
if itemID < 50000000 and itemID > 20000000 then
--为材料
Stiletto_Update(2,tonumber(arg1),1)
return
end
-- 这里发送给服务端
-- local theAction = EnumAction(pos_packet, "packageitem");
-- SetActionItem(theAction:GetID())
elseif (event == "OBJECT_CARED_EVENT" and this:IsVisible()) then
if(tonumber(arg0) ~= objCared) then
return;
end
--如果和NPC的距离大于一定距离或者被删除，自动关闭
if(arg1 == "distance" and tonumber(arg2)>MAX_OBJ_DISTANCE or arg1=="destroy") then
--取消关心
Stiletto_Cancel_Clicked()
end
elseif ( event == "ACKAGE_ITEM_CHANGED" and this:IsVisible() ) then
lastMaterial = -1
if( arg0~= nil and -1 == tonumber(arg0)) then
return;
end
if (EQUIP_QUALITY == tonumber(arg0) ) then
Stiletto_Update(1,tonumber(arg0))
end
if (MATERIAL_QUALITY == tonumber(arg0) ) then
Stiletto_Clear()
Stiletto_Update(2,tonumber(arg0))
end
elseif ( event == "RESUME_STILETTO_EQUIP" ) then
Resume_Equip(1);
elseif( event == "UPDATE_STILETTO") then
AxTrace(0,1,"arg0="..arg0)
if arg0 == nil or arg1 == nil then
return
end
Stiletto_Update(tonumber(arg0),tonumber(arg1));
elseif( event == "RESUME_ENCHASE_GEM" and this:IsVisible() ) then
if(arg0~=nil and tonumber(arg0) == 3) then
Resume_Equip_Stiletto(1);
elseif(arg0~=nil and tonumber(arg0) == 35) then
Resume_Equip_Stiletto(2);
end
elseif (event == "ADJEST_UI_POS" ) then
Stiletto_Frame_On_ResetPos()
elseif (event == "VIEW_RESOLUTION_CHANGED") then
Stiletto_Frame_On_ResetPos()
end
end
function Stiletto_OnShown()
Stiletto_Clear()
end
function Stiletto_Clear()
if(EQUIP_QUALITY ~= -1) then
EQUIP_BUTTONS : SetActionItem(-1);
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
EQUIP_QUALITY = -1;
end
lastMaterial = -1
-- Stiletto_Material_Bak : SetProperty("Image", "set:CommonItem image:ActionBK");
-- Stiletto_Material_Bak : SetToolTip("")
if(MATERIAL_QUALITY ~= -1) then
MATERIAL_BUTTONS : SetActionItem(-1);
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
MATERIAL_QUALITY = -1;
end
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
Stiletto_CostItemIndex =-1
end
function Dress_Stiletto_CloseOtherWindows()
if(IsWindowShow("Dress_Enchase")) then
CloseWindow("Dress_Enchase", true);
end
if(IsWindowShow("Dress_Transfer")) then
CloseWindow("Dress_Transfer", true);
end
if(IsWindowShow("Dress_SplitGem")) then
CloseWindow("Dress_SplitGem", true);
end
end
function Stiletto_Update(pos1,pos0)
local pos_packet,pos_ui;
pos_packet = tonumber(pos0);
pos_ui = tonumber(pos1)
local theAction = EnumAction(pos_packet, "packageitem");
if pos_ui == 1 then
if theAction:GetID() ~= 0 then
local Bore_Count1 = 0;
local Need_Item1 = -1;
local Need_Money1 = 0;
local Need_Item_Count1 =0;
--Need_Item,Need_Money,Need_Item_Count,Bore_Count=LifeAbility : Stiletto_Preparation(pos_packet);
Need_Item1,Need_Money1,Need_Item_Count1,Bore_Count1=LifeAbility : Stiletto_Preparation(pos_packet, 1); --1表示取第一组消耗值
if Need_Item1 == 0 then
return
end
if Bore_Count1 > 2 then --add:lby 20080521
PushDebugMessage("此处只能打前3个孔")
Stiletto_Clear()
return
end
if Need_Item1 < -1 then
PushDebugMessage("此物品无法增加凹槽")
return
end
Need_Item = Need_Item1
Need_Money = Need_Money1
Need_Item_Count = Need_Item_Count1
Bore_Count = Bore_Count1
--让之前的东西变亮
if EQUIP_QUALITY ~= -1 then
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
end
EQUIP_BUTTONS:SetActionItem(theAction:GetID());
EQUIP_QUALITY = pos_packet;
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,1);
else
EQUIP_BUTTONS:SetActionItem(-1);
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
EQUIP_QUALITY = -1;
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
return;
end
Stiletto_Money : SetProperty("MoneyNumber", tostring(Need_Money));
Stiletto_State : SetText("当前凹槽数:"..Bore_Count..";可以增加凹槽数:"..tostring(3-Bore_Count))
elseif pos_ui == 2 then
local Item_Class = PlayerPackage : GetItemSubTableIndex(pos_packet,0)
local Item_Quality = PlayerPackage : GetItemSubTableIndex(pos_packet,1)
local Item_Type = PlayerPackage : GetItemSubTableIndex(pos_packet,2)
local itemindex = PlayerPackage : GetItemTableIndex(pos_packet)
if itemindex == 20109101 or itemindex == 20310111 then --add:lby 20080521点金之间不能放入，寒玉精粹不能放入
PushDebugMessage("该物品无法在此处使用")
return
end
if Item_Class ~= 2 or Item_Quality ~= 1 or Item_Type ~= 9 then
return
end
--保存一下
Stiletto_CostItemIndex = itemindex
if theAction:GetID() ~= 0 then
MATERIAL_BUTTONS:SetActionItem(theAction:GetID());
if MATERIAL_QUALITY ~= -1 then
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
end
--让之前的东西变亮
MATERIAL_QUALITY = pos_packet;
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,1);
else
MATERIAL_BUTTONS:SetActionItem(-1);
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
MATERIAL_QUALITY = -1;
return;
end
end
--add here
end
function Stiletto_Buttons_Clicked()
if MATERIAL_QUALITY == -1 then
PushDebugMessage("请放入打孔材料")
return
end
if EQUIP_QUALITY ~= -1 then
if Need_Item == -2 then
PushDebugMessage("此物品无法增加凹槽")
elseif Need_Item == -3 then
PushDebugMessage("凹槽已达到最大数量")
-- elseif DataPool:GetPlayerMission_ItemCountNow(Need_Item) < Need_Item_Count then
-- PushDebugMessage("缺少材料")
elseif Player:GetData("MONEY") + Player:GetData("MONEY_JZ") < Need_Money then
PushDebugMessage("金钱不足")
else
local Notify = 0
if lastMaterial ~= MATERIAL_QUALITY then
lastMaterial = MATERIAL_QUALITY
Notify = 1
end
local isMaterialBind = GetItemBindStatus(MATERIAL_QUALITY)
if Notify == 1 and isMaterialBind == 1 then
DressEnchasing ress_EnchaseShowInfo("ZBDK_100112_1")
return
end
Clear_XSCRIPT();
Set_XSCRIPT_Function_Name("OnStiletto");
Set_XSCRIPT_ScriptID(311200);
Set_XSCRIPT_Parameter(0,EQUIP_QUALITY);
Set_XSCRIPT_Parameter(1,MATERIAL_QUALITY);
Set_XSCRIPT_ParamCount(2);
Send_XSCRIPT();
end
else
PushDebugMessage("请放入一个装备")
end
end
function Stiletto_Close()
--并设置，让背包里的位置变亮
this:Hide();
Stiletto_Clear();
StopCareObject_Stiletto(objCared)
end
function Stiletto_Cancel_Clicked()
Stiletto_Close();
return;
end
--=========================================================
--开始关心NPC，
--在开始关心之前需要先确定这个界面是不是已经有“关心”的NPC，
--如果有的话，先取消已经有的“关心”
--=========================================================
function BeginCareObject_Stiletto(objCaredId)
g_Object = objCaredId;
this:CareObject(g_Object, 1, "Stiletto");
end
--=========================================================
--停止对某NPC的关心
--=========================================================
function StopCareObject_Stiletto(objCaredId)
this:CareObject(objCaredId, 0, "Stiletto");
g_Object = -1;
end
function Resume_Equip_Stiletto(nIndex)
if( this:IsVisible() ) then
if(nIndex == 1) then
if(EQUIP_QUALITY ~= -1) then
LifeAbility : Lock_Packet_Item(EQUIP_QUALITY,0);
EQUIP_BUTTONS : SetActionItem(-1);
EQUIP_QUALITY = -1;
Stiletto_Money : SetProperty("MoneyNumber", "");
Stiletto_State: SetText("")
end
else
if(MATERIAL_QUALITY ~= -1) then
LifeAbility : Lock_Packet_Item(MATERIAL_QUALITY,0);
MATERIAL_BUTTONS : SetActionItem(-1);
MATERIAL_QUALITY = -1;
end
end
end
end
function Stiletto_Frame_On_ResetPos()
Stiletto_Frame:SetProperty("UnifiedPosition", g_Stiletto_Frame_UnifiedPosition);
end
最后 D:\085\本次更新补丁\Interface\Packet\Packet.lua中要加入 "Stiletto" :
function Packet_ItemBtnClicked( nLine, nRow )
if GetSceneID() == 70 then
return
end
local nIndex = ( nLine - 1 ) * PACKAGE_NUM_PER_LINE + nRow;
if(nIndex < 1 or nIndex > PACKAGE_BUTTONS_NUM) then
return;
end
local nBagPos = nIndex
if(nTheTabIndex == 1) then
nBagPos = nBagPos + 59
elseif(nTheTabIndex == 2) then
nBagPos = nBagPos + 89
else
nBagPos = nBagPos - 1;
end
local nExtraLayoutActionButton = {"acket_Temporary","EquipBaoshiyi","Stiletto"}
local nIsPutItem = 0
for i = 1,table.getn(nExtraLayoutActionButton) do
if IsWindowShow(nExtraLayoutActionButton[i]) then
PushEvent("UI_COMMAND",201107281,nBagPos);
nIsPutItem = 1;
break;
end
end
if nIsPutItem ~= 1 then
if nTheTabIndex ~= 0 then
PACKAGE_BUTTONS[nIndex]oAction()
end
if(nTheTabIndex == 0) then
local theAction = EnumAction(nIndex-1, "packageitem")
if theAction:GetID() ~= 0 then
local nPacketItemID = tonumber(theAction:GetDefineID())
if nPacketItemID == 30008068 and IsWindowShow("acket_Temporary") == false then --天机锦囊添加互斥
Clear_XSCRIPT();
Set_XSCRIPT_Function_Name("Ce_DifuCs");
Set_XSCRIPT_ScriptID(330060);
Set_XSCRIPT_Parameter(0,nIndex)
Set_XSCRIPT_Parameter(1, 2)
Set_XSCRIPT_ParamCount(2)
Send_XSCRIPT();
return
end
end
PACKAGE_BUTTONS[nIndex]oAction()
else
PACKAGE_BUTTONS[nIndex]oAction()
end
end
end
|
|
浙公网安备33048102000118号
|网站地图|天天打卡
