Thứ Hai, 25 tháng 11, 2013

Tổng hợp ID skill pet (cho những ai chưa biết)

mình gom được cũng gần 90 % rùi , có 1 số skill mình tìm được , ai bít cái nào bổ sung giúp mình nha . thank ( có cái này add skill cho pet sẽ dễ dàng hơn ) 

1 ) Kỹ năng bình thường 

Cực băng ngưng sát 00EB02 
Kiếp hỏa phần Sát 00A102 
Hủ độc thực sát 00A202 
Huyền lôi kích sát 00A302 
Băng hồn 
Hỏa hồn 
Độc hồn 
Huyền hồn 
Huyết bão 00A402 
Hàn Băng chủ 00BE02 
Liệt Hỏa chú 01D202 
Huyết độc chú 00C002 
Huyền lôi chú 00C102 
Thánh bạo 00A602
Băng đạo 00A802
Tĩnh Hóa 00AA02 
Trùng sinh 00AC02
Cộng sinh 00AE02 
Trị Liệu 01B002
Nhục Tường 
Thần hựu 01B402
Thị Huyết 00B602
Ngụy trang 00BA02 
Phụ thân 
Phản kích 00C202
Hấp huyết 00C402
Phản chấn 00C602
Linh động 00C802
Hấp khí 00CA02
Đả nộ 00CC02
Trung tâm 00CE02
Nội lực 00D002
Mãnh kích 01D202
Thức phá 00D402
Hư nhươc 00DA02
Phá triền 00DC02
Vật ngã 01DE02
Liên kích 00D602
Thống kích 01D802
Tá lực 009602
Di hồn 009802
thuẫn ảnh 009A02
Cường thân 009C02
Giải huyệt 
Thanh tỉnh 00E102
Minh mục 00E202
Cổ nguyên
Sái thoái 00E502
Giảo hoạt 019102
Mạn lực 009502 hoac 019502
Pháp hồn 009402 
Trì độn 009002
Mộc mạc 009202 
Huyền thú 008F02
Độc cổ 008E02 
Hỏa Linh 018D02 
Băng tinh 008C02
Bính mệnh 009302
Kinh linh 00E302

2 ) Kỹ năng cao cấp

Gầm thét 00EB02 
Cao ngưng thần 009F02 
Băng thiên tuyết dịa 00E602
Liệt hỏa liệu nguyên 00E702
Huyết độc vạn lý 00E802
Ngũ lôi oanh đỉnh 00E902 
Cao huyết bão 00A502
Cao thánh bạo 00A702
Cao băng đạo 00A902
Cao tĩnh hóa 00AB02
Cao trùng sinh 
Cao cộng sinh 00AF02
Cao trị liệu
Cao nhục tường 00B302
Cao thần hựu 00B502
Cao thị huyết 00B702
Cao huyết tế 00B902
Cao ngụy trang
Cao phụ thân 00BD02
Cao phản kích 00C302 
Cao hấp huyết 00C502 
Cao phản chấn 00C702
Cai linh động 00C902
Cao hấp khí 00CB02
Cao đả nộ 00CD02
Cao thế sát 00CF02 
Cao nội lực 00D102
Cao mãnh kích 00C302
Cao thức phá 00D502
Cao hư nhược 00DB02
Cao phá triền 00DD02 
Cao vật ngã 00DF02
Cao liên kích 00C502
Cao thống kích 00C702
Cao tá lực 009702 
Cao di hồn 009902 
Cao thuẫn ảnh 009B02
Cao cường thân 009D02
VBB Forum Leecher

[ Share ] Scrip Đục Lổ và Cường Hóa tự động bất cứ Item nào

chức năng scrip này là đục lổ và cường hóa tự động thành công 100%.

Code:
--EDIT by AnBinh

--Sori : 261155903
x900070_g_scriptId = 900070

--Name : Duc Lo + Cuong Hoa Tu Dong Bat Cu Item Nao

--**********************************
--          --
--**********************************
function x900070_UpdateEventList( sceneId, selfId,targetId )
 BeginEvent(sceneId)
 AddText( sceneId, "  #Y Các hÕ c¥n ð¬ trang b¸ vào trong tay näi m¾i có th¬ tiªn hành :" ) 
 AddNumText( sceneId, x900070_g_scriptId, "#gffff00#YTñ еng #WÐøc L±", 10, 100)
 AddNumText( sceneId, x900070_g_scriptId, "#gffff00#YTñ еng #WCß¶ng Hóa", 10, 200)
 EndEvent(sceneId)
 DispatchEventList(sceneId,selfId,targetId)
end

--**********************************
--          --
--**********************************
function x900070_OnDefaultEvent( sceneId, selfId,targetId )
 x900070_UpdateEventList( sceneId, selfId, targetId )
end

--**********************************
--          --
--**********************************
function x900070_OnEventRequest( sceneId, selfId, targetId, eventId )
 if GetNumText() == 200 then
  local bagbegin = GetBasicBagStartPos(sceneId, selfId)
  local bagend   = GetBasicBagEndPos(sceneId, selfId)
  for i=bagbegin, bagend do
        nLevel = GetBagItemLevel( sceneId, selfId, i )
               if nLevel <= 250 then
                           if LuaFnIsItemAvailable( sceneId, selfId, i ) == 1 then
                               LuaFnEquipEnhance( sceneId, selfId, i, 0 )
               end
               end
        end
        x900070_NotifyTip( sceneId, selfId, "Cß¶ng hóa trang b¸ thành công" )
        LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 18, 0)
 elseif GetNumText() == 100 then
  local tEquipGemTable = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 12, 14, 15, 16, 17, 18 }

  local Bore_Count   = GetBagGemCount( sceneId, selfId, 0 )
  local nLevel     = GetBagItemLevel( sceneId, selfId, 0 )
  local EquipType    = LuaFnGetBagEquipType( sceneId, selfId, 0 )
  local find      = 0
   for i, gem in tEquipGemTable do
    if gem == EquipType then
     find = 1
    end
   end
              AddBagItemSlot( sceneId, selfId, 0 )
              AddBagItemSlot( sceneId, selfId, 1 )
              AddBagItemSlot( sceneId, selfId, 2 )
              AddBagItemSlot( sceneId, selfId, 3 )
              AddBagItemSlot( sceneId, selfId, 4 )
              AddBagItemSlot( sceneId, selfId, 5 )
              AddBagItemSlot( sceneId, selfId, 6 )
              AddBagItemSlot( sceneId, selfId, 7 )
              AddBagItemSlot( sceneId, selfId, 8 )
              AddBagItemSlot( sceneId, selfId, 9 )
              AddBagItemSlot( sceneId, selfId, 10 )
              AddBagItemSlot( sceneId, selfId, 11 )
              AddBagItemSlot( sceneId, selfId, 12 )
              AddBagItemSlot( sceneId, selfId, 13 )
              AddBagItemSlot( sceneId, selfId, 14 )
              AddBagItemSlot( sceneId, selfId, 15 )
              AddBagItemSlot( sceneId, selfId, 16 )
              AddBagItemSlot( sceneId, selfId, 17 )
              AddBagItemSlot( sceneId, selfId, 18 )
              AddBagItemSlot( sceneId, selfId, 19 )
              AddBagItemSlot( sceneId, selfId, 20 )
              AddBagItemSlot( sceneId, selfId, 21 )
              AddBagItemSlot( sceneId, selfId, 22 )
              AddBagItemSlot( sceneId, selfId, 23 )
              AddBagItemSlot( sceneId, selfId, 24 )
              AddBagItemSlot( sceneId, selfId, 25 )
              AddBagItemSlot( sceneId, selfId, 26 )
              AddBagItemSlot( sceneId, selfId, 27 )
              AddBagItemSlot( sceneId, selfId, 28 )
              AddBagItemSlot( sceneId, selfId, 29 )
  x900070_NotifyTip( sceneId, selfId, "Ðøc l± trang b¸ thành công" )
  LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 18, 0)
 end
end

--**********************************
--          --
--**********************************
function x900070_OnMissionAccept( sceneId, selfId, targetId, missionScriptId )
 
end

--**********************************
--          --
--**********************************
function x900070_OnMissionRefuse( sceneId, selfId, targetId, missionScriptId )
 
end

--**********************************
--          --
--**********************************
function x900070_OnMissionContinue( sceneId, selfId, targetId, missionScriptId )

end

--**********************************
--          --
--**********************************
function x900070_OnMissionSubmit( sceneId, selfId, targetId, missionScriptId, selectRadioId )

end

--**********************************
--          --
--**********************************
function x900070_OnDie( sceneId, selfId, killerId )
end

--**********************************
--          --
--**********************************
function x900070_NotifyTip( sceneId, selfId, Msg )
 BeginEvent( sceneId )
  AddText( sceneId, Msg )
 EndEvent( sceneId )
 DispatchMissionTips( sceneId, selfId )
end
P/S : chức năng đục lổ này không đục được Long văn + PB. AE nào cần láy mà dùng hén 

- Để Item bất cứ chổ nào trong tây nải cũng đều đục và cườngng hóa được hết nhá.

[TLBB]Share bản nháp cơ chế tính năng điêu văn của TL Tình Kiếm

Đây là bản nháp cơ chế tính năng điêu văn của Thiên Long Tình Kiếm (http://tinhkiem.us

Các bạn có thể tham khảo, pro nào nghiên cứu được thì chia sẽ lại nhé  !

đầu tiên
có thao tác click chuột phải hoặc trái ở item trong túi đồ
client truyền lên Type = 0
và Prama = pos
sv check thông tin item và save id, dw,pos
khi có sự thay đổi item trên ng client truyền về sv type =1,prama =1
sv tiến hành check id,dw,pos của item khi bị click chuột trc đó
lúc này id ban nãy đã đc đeo len ng
có 2 trường hợp xảy ra
1 là trc khi đeo có trang bị item=> item đeo trên ng trc đó đc chuyển về túi đồ đặt vào vị trí pos ban nãy
lúc này check item vừa tháo ra
nếu có dw thì check kiểu dw=> nếu dw khác vs loại mới đeo thì - point của dw tháo và + point trang bị đeo
nếu dw cùng loại thì tiến hành add point có số point = (trang bị mới - trang bị tháo)
trường hợp 2 nếu trc đó trên ng ko trang bị=> chỉ việc cộng dw của trang bị mới đeo
TH hơi phức tạp

đó là quá trình đeo item
còn tháo item thì khi click phải chuột tháo item trên ng thì truyền type =2, prama=1
trường hợp này truyền trc khi item đc tháo ra
sv tiến hành check toàn bộ túi đồ và kiểm tra ô trống đầu tiên=> lưu vị trí ô trống
sau khi save thì sv tiến hành tháo item xuống=> item đc đặt tại vị trí trống ban nãy save
tháo xong client truyền type =2, pra =2
sv check vị trí ban nãy và check thông tin item vừa tháo nếu có dw thì xóa point
hết
Trích dẫn Gửi bởi tl2n Xem bài viết
Share thêm mớ code linh tinh này

PHP Code:
---NPC Tính nång Ðiêu  Vån--Authortinhkiem.us--Date13/12/2012

x000xxx_g_ScriptId 
000xxx
AllowEquipPoint 
= {0,1,2,3,4,5,6,12,14,15} --Các loÕi item có th¬ ÐV

ItemHopThanh 
={
           
        }
DWEquipPoint = {}DWMaterialType = {}DWMaterialType[0] = {
            }
DWMaterialType[2] = {
            }
DWMaterialType[3] = {
            }
DWMaterialType[4] = {
            }
NumberMaterial = {2,9,50,87,165,284,811,2088,3570}DWLevel = {10,20,40,70,110,140,170,210,240,280}

function 
x000xxx_OnDefaultEventsceneIdselfId,targetId )

    
BeginEvent(sceneId)
        
AddText(sceneId,"#{ZBDW_091105_1}")
        
AddNumTextsceneIdx000xxx_g_ScriptId"#{ZBDW_XML_1}",,1000  )
        
AddNumTextsceneIdx000xxx_g_ScriptId"#{ZBDW_XML_2}",,2000  )
        
AddNumTextsceneIdx000xxx_g_ScriptId"#{ZBDW_XML_3}",,3000  )
        
AddNumTextsceneIdx000xxx_g_ScriptId"#{ZBDW_XML_4}",,4000  )
        
AddNumTextsceneIdx000xxx_g_ScriptId"#{ZBDW_XML_6}",11 ,5000  )
    
EndEvent(sceneId)
    
DispatchEventList(sceneId,selfId,targetId)end  
Đấy chỉ là đoạn code mở đầu trong đám code điêu văn 

Cao thủ nào xuất hiện tiếp nào.

Ảnh minh hoạ lấy từ facebook.
Bấm vào đây để xem nội dung đầy đủ




[TLBB]Share code đục lỗ bất kỳ item nào

Trong TLBB khi sử dụng hàm đục lỗ trang bị, chúng ta chỉ có thể đục lỗ giới hạn một số loại trang bị.

Để có thể đục lỗ được bất kỳ trang bị nào hỗ trợ thì các bạn thực hiện chỉnh sửa ở database.

Nay, mình sẽ chia sẽ cách thức trên.


Chỉnh ở table t_iteminfo

Cột : giải thích
------------
p4 : qui định cố định/ không cố định
p5 : qui định đục lỗ
p1-3 : ngọc lỗ 1-3
p9 : qui định số * và trị số của thuộc tính
p10,p11: quy định các dòng thuộc tính, chỉ số thuộc tính (segvalue)
p12 : quy định chỉ số + của từng thuộc tính
p15 : thời gian đã khóa item
p16 : thời gian cần chờ khóa
--------------
Do đó, để đục lỗ item chỉ cần set giá trị p5 num
Với numlà số lỗ muốn có; giá trị p5 phải là giá trị ban đầu của item (không có lỗ)

- Cách thứ hai
ạn thử xem trong file EquipBase.txt xem xét cột thứ 4 (Item type) và cột thứ 6 (EquipPoint) giữa item cho phép đục lỗ và item không cho phép đục lỗ.
--Script khoan trang bị

--no script

x311200_g_ScriptId = 311200

function x311200_OnStiletto( sceneId, selfId, idBagPos, idBagPosStuff )

--Các thiết bị cho phép khoan
--0: vũ khí , 1: mão , 2: y phục , 3: thủ sáo , 4: hài
--5: yêu đái , 6: giới chỉ , 7: hạng liên , 12: hộ phù , 14: hộ uyển
--15: hộ kiên, 17 : ám khí, 18: pháp bảo
local tEquipGemTable = { 0, 1, 2, 3, 4, 5, 6, 7, 12, 14, 15,17,18 }

local Bore_Count = GetBagGemCount( sceneId, selfId, idBagPos )
local nLevel = GetBagItemLevel( sceneId, selfId, idBagPos )
local EquipType = LuaFnGetBagEquipType( sceneId, selfId, idBagPos )
local find = 0

for i, gem in tEquipGemTable do
if gem == EquipType then
find = 1
end
end
if find == 0 then
x311200_NotifyTip( sceneId, selfId, "Trang bị này không thể khoan" )
return
end

--ƠòƯừỳũỨẢ
ret = LuaFnStilettoCostExe( sceneId, selfId, nLevel*100+1+Bore_Count, idBagPosStuff )
if ret == -1 then
x311200_NotifyTip( sceneId, selfId, "Bảng kiểm tra thất bại, hỏi kế hoạch" )
return
elseif ret == -2 then
x311200_NotifyTip( sceneId, selfId, "Ngươi không có nguyên liệu thích hợp, không thể tiến hành thao tác này" )
return
elseif ret == -3 then
x311200_NotifyTip( sceneId, selfId, "Ngươi không đủ ngân lượng, không thể tiến hành thao tác này" )
return
elseif ret == -4 then
x311200_NotifyTip( sceneId, selfId, "Ngươi không đủ nguyên liệu, không thể tiến hành thao tác này" )
return
end

--ƠòƯừỷƠĐĐ
ret = AddBagItemSlot( sceneId, selfId, idBagPos )
if ret == -1 then
x311200_NotifyTip( sceneId, selfId, "Trang bị khoan thất bại" )
elseif ret == -2 then
x311200_NotifyTip( sceneId, selfId, "Sai nghiêm trọng" )
elseif ret == -3 then
x311200_NotifyTip( sceneId, selfId, "Cần phải đặt vào một trang bị" )
elseif ret == -4 then
x311200_NotifyTip( sceneId, selfId, "Không thể khoan được nữa" )
elseif ret == 1 then
x311200_NotifyTip( sceneId, selfId, "Trang bị khoan thành công" )
end

end

--**********************************
--script thông báo
--**********************************
function x311200_NotifyTip( sceneId, selfId, Msg )

BeginEvent( sceneId )
AddText( sceneId, Msg )
EndEvent( sceneId )
DispatchMissionTips( sceneId, selfId )

end

Thú cưỡi thì client nào cũng được. Chỉnh ở client và server như sau:
/home/tlbb/Public/Data/Script/event/stiletto/stiletto.lua :

Code:
   --×°±¸´ò¿×

--½Å±¾ºÅ
x311200_g_ScriptId    = 311200

function x311200_OnStiletto( sceneId, selfId, idBagPos, idBagPosStuff )

    --Các thiªt b¸ cho phép khoan
    --0: vû khí , 1: mão , 2: y phøc , 3: thü sáo , 4: hài 
    --5: yêu ðái , 6: gi¾i chï , 7: hÕng liên , 8: Thu cuoi, 12: hµ phù , 14: hµ uy¬n, 16: Thoi trang
    --15: hµ kiên, 17 : ám khí, 18: pháp bäo
    local    tEquipGemTable    = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 12, 14, 15, 16, 17, 18 }

    local    Bore_Count            = GetBagGemCount( sceneId, selfId, idBagPos )
    local nLevel                    = GetBagItemLevel( sceneId, selfId, idBagPos )
    local EquipType                = LuaFnGetBagEquipType( sceneId, selfId, idBagPos )
    local find                        = 0

    for i, gem in tEquipGemTable do
        if gem == EquipType then
            find                            = 1
        end
    end
    if find == 0 then
        x311200_NotifyTip( sceneId, selfId, "Trang b¸ này không th¬ khoan" )
        return
    end

    --´ò¿×ÏûºÄ
    ret    = LuaFnStilettoCostExe( sceneId, selfId, nLevel*100+1+Bore_Count, idBagPosStuff )
    
    if ret == -1 then
        x311200_NotifyTip( sceneId, selfId, "Bäng ki¬m tra th¤t bÕi, höi kª hoÕch" )
        return
    elseif ret == -2 then
        x311200_NotifyTip( sceneId, selfId, "Ngß½i không có nguyên li®u thích hþp, không th¬ tiªn hành thao tác này" )
        return
    elseif ret == -3 then
        x311200_NotifyTip( sceneId, selfId, "Ngß½i không ðü ngân lßþng, không th¬ tiªn hành thao tác này" )
        return
    elseif ret == -4 then
        x311200_NotifyTip( sceneId, selfId, "Ngß½i không ðü nguyên li®u, không th¬ tiªn hành thao tác này" )
        return
    end

    --´ò¿×Ö´ÐÐ
    ret = AddBagItemSlot( sceneId, selfId, idBagPos )    
    if ret == -1 then
        x311200_NotifyTip( sceneId, selfId, "Trang b¸ khoan th¤t bÕi" )
    elseif ret == -2 then
        x311200_NotifyTip( sceneId, selfId, "Sai nghiêm tr÷ng" )
    elseif ret == -3 then
        x311200_NotifyTip( sceneId, selfId, "C¥n phäi ð£t vào mµt trang b¸" )
    elseif ret == -4 then
        x311200_NotifyTip( sceneId, selfId, "Không th¬ khoan ðßþc næa" )
    elseif ret == 1 then
        x311200_NotifyTip( sceneId, selfId, "Trang b¸ khoan thành công" )
    end

end

--**********************************
--ÐÑÄ¿Ìáʾ
--**********************************
function x311200_NotifyTip( sceneId, selfId, Msg )

    BeginEvent( sceneId )
        AddText( sceneId, Msg )
    EndEvent( sceneId )
    DispatchMissionTips( sceneId, selfId )

end 
Client Interface/Stiletto/Stiletto.lua:
    PHP Code:    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("PACKAGE_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("Dæ li®u cüa server truy«n tr• lÕi có v¤n ð«");
                    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 == "PACKAGE_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);
    EquipPoint = LifeAbility : Get_Equip_Point(pos_packet);    
    
    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("— ðây chï có th¬ ðøc ðßþc 3 l²")
                return
            end
            
            if (Need_Item1 < -1 and (EquipPoint ~= 8 and  EquipPoint ~= 16 and  EquipPoint ~= 17 and EquipPoint ~= 18))then
                PushDebugMessage("V§t ph¦m này không có cách nào tång thêm máng lõm")
                return
            end                        
            
            if Need_Item1 == -2 then
              Need_Item1 = 0;
              Bore_Count1 = 0;
            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("S¯ máng lõm hi®n tÕi: "..Bore_Count.."; có th¬ tång thêm s¯ máng lõm: "..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("V§t ph¦m này không th¬ sØ døng • ðây")
             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("M¶i thêm vào v§t li®u ðøc l²")
        return
    end
    if EQUIP_QUALITY ~= -1 then
        if Need_Item == -2 then
            PushDebugMessage("V§t ph¦m này không có cách nào tång thêm máng lõm")
        elseif Need_Item == -3 then
            PushDebugMessage("Máng lõm ðã ðÕt ðªn s¯ lßþng to nh¤t")
--        elseif DataPool:GetPlayerMission_ItemCountNow(Need_Item) < Need_Item_Count then
--            PushDebugMessage("ȱÉÙ²ÄÁÏ")
        elseif Player:GetData("MONEY")  < Need_Money then
            PushDebugMessage("Ngân lßþng không ðü")
        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("M¶i cho vào 1 thiªt b¸ l¡p ð£t.")
    end
    
end

function Stiletto_Close()
    --²¢ÉèÖã¬Èñ³°üÀïµÄλÖñäÁÁ
    this:Hide();
    Stiletto_Clear();
    StopCareObject_Stiletto(objCared)
end

function Stiletto_Cancel_Clicked()
    Stiletto_Close();
    return;
end

--=========================================================
--¿ªÊ¼¹ØÐÄNPC£¬
--ÔÚ¿ªÊ¼¹ØÐÄ֮ǰÐèÒªÏÈÈ•¶¨Õâ¸ö½çÃæÊDz»ÊÇÒѾ¬ÓС°¹ØÐÄ¡±µÄNPC£¬
--Èç¹ûÓеϰ£¬ÏÈÈ¡ÏûÒѾ¬Óеġ°¹ØÐÄ¡±
--=========================================================
function BeginCareObject_Stiletto(objCaredId)

    g_Object = objCaredId;
    this:CareObject(g_Object, 1, "Stiletto");

end

--=========================================================
--Í£Ö¹¶ÔijNPCµÄ¹ØÐÄ
--=========================================================
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


Chú ý: 
1. Ở đây mới là đục lỗ thui hêy, và cũng chỉ mới được cho thú cưỡi thôi. Còn các thứ khác thì chưa thành công. 
2. Cơ chế để đục được trang bị thì server qui định vào thuộc tính Equip_Point
Nguồn sưu tầm, tác giả rikudo
Gốc http://forum.gamezone.gs/showthread....%BA%A7m)/page2
Chúc các bạn vui !

[SHARE] server TLBB 3.50 host VN

Lấy bên top kia up lại tiện cho ae down và lưu trữ.....
4share.vn
Server
PHP Code:
http://up.4share.vn/f/4d7e7f7e757d7974/tlbb.tar.gz.file  
Client ver3.50.0860
PHP Code:
http://up.4share.vn/f/281b1a1b111c1910/XTL-JD-3.50.0860-GF.exe.file  
Client update
PHP Code:
http://up.4share.vn/f/724140414b414a44/UPDATECLEIN.rar.file  
*.cmd
PHP Code:
http://up.4share.vn/f/665554555e565356/%E7%AB%A5%E5%BF%83%E5%A4%A9%E9%BE%99%20.cmd.file  

Mediafire
[Server
PHP Code:
http://www.mediafire.com/download/pdybi38kovd922m/tlbb.tar.gz  
Client ver3.50.0860
PHP Code:
http://files2.changyou.com/xtlbb/XTL-JD-3.50.0860-GF.exe?entrance_id=80&product_id=2&file=http://files2.changyou.com/xtlbb/XTL-JD-3.50.0860-GF.exe  
Client update
PHP Code:
http://www.mediafire.com/download/5de7p029p417nwl/UPDATECLEIN.rar  
*.cmd
PHP Code:
http://www.mediafire.com/view/ht7oa8gbvwte71w/童心天龙%20.cmd  
Hướng dẫn cài qua đây xem http://tl2n.blogspot.com/2013/11/sau-may-ngay-chat-qq-voi-tui-gm-pri.html
Có điều kiện sẽ làm hướng dẫn đầy đủ cho các bạn

Hướng dẫn chỉnh option ẩn của trang bị

Trang bị full với dòng ẩn tức là các loại trang bị cần mặc full bộ >=2 thì kích hoạt dòng ẩn.

File EquipSetAtrr.txt qui định các thuộc tính này.

Trong đó có các thứ chi tiết như sau:
Cột 1: ID của SET (lấy từ EquipBase.txt)
Cột 2: Tên SET (Không quan trọng, tiếng Trung hay Việt đều chạy server tốt)
Cột 3: qui định số thuộc tính được cộng (số thuộc tính được cộng = giá trị cột đó -1. VD: cột đó có giá trị 3 thì số thuộc tính ẩn của SET đó là 2 dòng)
Cột 8,10,12,14,16,18...: qui định loại thuộc tính được cộng, có id riêng cho từng thuộc tính.

Một số ID loại thuộc tính mình đã test :

0 máu giới hạn trên +
1 máu giới hạn trên %
3 khí giới hạn trên +
4 % giới hạn khí
5 độ hồi phục khí +x
6 băng công
7 kháng băng +x
8 độ làm chậm +x
9 hỏa công
10 kháng hoả +x
11 giảm thời gian cháy +x
12 huyền công
13
14
15 độc công

18 % khang tat ca
19 Ngoại công
20 % ngoại công
22 ngoai thu
23 % ngoai thu
24 % trang bị ngoại thủ
25 % vô hiệu tác dụng thương tổn ngoại công
26 Nội công
27 % nội công
29 nội thủ
30 % noi thu
31 % trang bị nội thủ
32 % vô hiệu tác dụng thương tổn nội công
33 tốc độ tấn công
34 thời gian đóng băng
35 tốc độ di chuyển
36 chính xác
37 né tránh
38 hội công
39 mấy lần coi thường phòng ngự của đối phương
40 thương tổn phản xạ
41 khí vô hiệu tác dụng thương tổn
42 cường lực
43 nội luc
44 Thể lực
45 Trí lực
46 Thân pháp
47 hội thủ
48 Tất cả các thuộc tính
49 lấy trộm máu
50 lấy trộm khí
Cột 9,11,13,..: qui định giá trị được cộng

Share server tlbb 3.50 26/12/2013

sao máy ngày chat QQ với tụi GM pri china. mình đả xin dc 1 server , nói chuẩn thì ko chuẩn , nhưng cập nhật đày đủ tất cả các phái của bọn sohu mới ra.

Đường Môn phái.

có một số thú cưỡi mới + Pet mới...


Link : 
Server :
PHP Code:
http://pan.baidu.com/s/1xNcg1         Pass : cnti  

Clein Update :
PHP Code:
http://pan.baidu.com/s/17q0Y2          Pass : 61xf  

Clein 3.50 :
PHP Code:
http://files2.changyou.com/xtlbb/XTL-JD-3.50.0860-GF.exe?entrance_id=80&product_id=2&file=http://files2.changyou.com/xtlbb/XTL-JD-3.50.0860-GF.exe  

Update thêm client đã path full đã việt hóa được 70%, chỉ down về sửa IP và vào game:
PHP Code:
http://up.4share.vn/f/784b4a4c484e4c48/TLBB3.50_GZVN.7z.file  
Hướng dẩn update Clein : 
coppy mục Bin + Data + file 11111.exe Trong Clein Update chép đè vào clien mới nhất của bọn sohu ( cái này bắt buộc phải tải clein của bọn nó rồi  còn về phần chử tàu thì từ từ Việt Hóa Sau củng được...) 
tiếp -> chạy cái 11111.exe trong cái bản update đó, nó sẽ tự động giải nén vào clein.
Cuối cùng là chạy cái *.cmd để vào game (down về bỏ vào trong clein nhá ) :
PHP Code:
http://pan.baidu.com/s/1DweMH              Pass : 15lo  
( nhớ rằng sau khi chạy server hoàn tất nhá )

Loginserver để vào game : ( các bạn coppy vào loginserver.txt tại mục path của clein )

VERSION 1

SERVER_BEGIN
天龙八部,望月,1,201,3,1,0,天龙八部,192.1 68.1.3:7384,192.168.1.3:7384,192.168.1.3:7384,192. 168.1.3:7384,2
SERVER_END
Hướng Dẩn chạy server :
Next : giãi nén server chắc ai củng biết rồi đúng ko ? ( mình chỉ nhắc lại lệnh của nó thôi cho ai ko nhớ : )
1. cd /home -> Enter
2. tar xzvf tlbb.tar.gz -> Enter
Chờ nó chạy xong rồi tiếp bước dưới...
Next : chạy server qua 4 bước trong Xshell :
1. cd /home/tlbb/Server
./shm start
2. cd /home/tlbb/Server
./World
3. cd /home/tlbb/Server
./Login
4. cd /home/tlbb/Server
./Server
P/S : Ai chạy không được server post hình lên đay mình giúp ..... chúc Private VN ngày càng đi xa hơn :D

Gmail : anbinhclup@gmail.com

Ảnh DeMon :