[Linux]Script sửa chữa đồ đạc bằng item

[ghost0507]

[QUOTE=f-fantasy;1014531]Mình viết 2 cái item dùng để sửa đồ đang mặc trên người. Kết hợp cùng auto VLBS thì các bác có cắm trian không lo hỏng đồ phù về cắm tẹt ga tẹt bô. Để 30 phút nó tự động sử dụng 1 lần item sẽ tự kiểm tra đồ đang đeo cái nào tụt độ bền nó sẽ sửa. Có 2 item 1 loại sủa theo số lần tức là mỗi lần sửa nó tiêu hao 1 lần sử dụng. 1 loại sửa tiêu hao lượng độ bền ví dụ kiếm tụt 10 độ bền thì sau khi sửa cái item tiêu hao mất 10 điểm.

Item 1 - Sửa theo số lần

ItemID = 4393
function main(nItemIndex)
    dofile("script/ff/thientinhthach.lua")
    local tbEquip = GetAllEquipment()
    for i=1, getn(tbEquip) do
        local nCountRepair = GetItemParam(nItemIndex, 1); --Sè lÇn cßn cã thÓ söa ch÷a
        local nG, nD, nP = GetItemProp(tbEquip[i])
        if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai l­ng, mò, bao tay.
            if nCountRepair > 0 then --NÕu sè lÇn söa ch÷a lín h¬n 0
                local CurDur = GetCurDurability(tbEquip[i])
                local MaxDur = GetMaxDurability(tbEquip[i])
                local ItemName = GetItemName(tbEquip[i])
                if CurDur < MaxDur then
                    SetCurDurability(tbEquip[i],MaxDur)
                    SetSpecItemParam(nItemIndex, 1, nCountRepair-1)
                    SyncItem(nItemIndex)
                    Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
                end
            else
                ConsumeItemCount(1,6,1,ItemID,-1)
                Msg2Player("Thiªn th¹ch ®· hÕt sè lÇn söa ch÷a tù ®éng biÕn mÊt.")
            end
        end
    end
    return 1
end
function GetDesc(nItemIndex) 
    local nCount= GetItemParam(nItemIndex, 1); 
    return format("<color=green>Sè lÇn söa ch÷a cßn cã thÓ thùc hiÖn<color>: <color=yellow>%d<color> lÇn", nCount) 
end

Item 2 - sửa theo lượng độ bền

ItemID = 4394
function main(nItemIndex)
    dofile("script/ff/banlongthach.lua")
    local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
    local tbEquip = GetAllEquipment()
    for i=1, getn(tbEquip) do
        local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
        local nG, nD, nP = GetItemProp(tbEquip[i])
        if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai l­ng, mò, bao tay.
        local CurDur = GetCurDurability(tbEquip[i]) --§é bÒn hiÖn t¹i
        local MaxDur = GetMaxDurability(tbEquip[i]) --§é bÒn lín nhÊt
        local NeedCur = MaxDur - CurDur --§é bÒn cÇn ®Ó phôc håi
            if CurDur < MaxDur then
                if nCount > NeedCur then
                    local ItemName = GetItemName(tbEquip[i])
                    SetCurDurability(tbEquip[i],MaxDur)
                    SetSpecItemParam(nItemIndex, 1, nCount-NeedCur)
                    SyncItem(nItemIndex)
                    Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
                end
            end
        end
    end
    return 1
end
function GetDesc(nItemIndex) 
    local nCount= GetItemParam(nItemIndex, 1); 
    return format("<color=green>L­îng ®é bÒn cßn cã thÓ dïng<color>: <color=yellow>%d<color> ®é bÒn", nCount) 
end

Chú ý sửa cái dòng dofile theo đường dẫn các bác đặt script, IDItem sửa thành IDItem của các bác khi thêm vào Magicscript.txt. Em đặt tên item là Thiên Tinh Thạch với Bàn Long Thạch (Lúc đầu định đặt Tru Tiên Thạch với Luân Hồi Thạch ).
Script chép cả vào client và server với cùng đường dẫn để client load function GetDesc nhé.
Khi add item với 2 item này thì là
AddItem(6,1,4393,0,0,0,10000) --Có thể sửa chữa 10k lần
AddItem(6,1,4394,0,0,0,100000) --Lượng độ bền có thể phục hồi là 100k
Thay Id Item cho phù hợp
Nó sửa mọi loại đồ Đồ tím, đồ bạch kim, hoàng kim, xanh. Miễn là đeo trên người.Chúc các bác cắm chuột zui zẻ
[Only registered and activated users can see links. ][/QUOT

Có ai xem lại dùm em đã làm như trên vào game hiện số lần sửa chữa nhưng không sửa được ai giúp em cái

[tvnnam]

[QUOTE=ghost0507;1233845]

Mình viết 2 cái item dùng để sửa đồ đang mặc trên người. Kết hợp cùng auto VLBS thì các bác có cắm trian không lo hỏng đồ phù về cắm tẹt ga tẹt bô. Để 30 phút nó tự động sử dụng 1 lần item sẽ tự kiểm tra đồ đang đeo cái nào tụt độ bền nó sẽ sửa. Có 2 item 1 loại sủa theo số lần tức là mỗi lần sửa nó tiêu hao 1 lần sử dụng. 1 loại sửa tiêu hao lượng độ bền ví dụ kiếm tụt 10 độ bền thì sau khi sửa cái item tiêu hao mất 10 điểm.

Item 1 - Sửa theo số lần

ItemID = 4393
function main(nItemIndex)
    dofile("script/ff/thientinhthach.lua")
    local tbEquip = GetAllEquipment()
    for i=1, getn(tbEquip) do
        local nCountRepair = GetItemParam(nItemIndex, 1); --Sè lÇn cßn cã thÓ söa ch÷a
        local nG, nD, nP = GetItemProp(tbEquip[i])
        if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai l­ng, mò, bao tay.
            if nCountRepair > 0 then --NÕu sè lÇn söa ch÷a lín h¬n 0
                local CurDur = GetCurDurability(tbEquip[i])
                local MaxDur = GetMaxDurability(tbEquip[i])
                local ItemName = GetItemName(tbEquip[i])
                if CurDur < MaxDur then
                    SetCurDurability(tbEquip[i],MaxDur)
                    SetSpecItemParam(nItemIndex, 1, nCountRepair-1)
                    SyncItem(nItemIndex)
                    Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
                end
            else
                ConsumeItemCount(1,6,1,ItemID,-1)
                Msg2Player("Thiªn th¹ch ®· hÕt sè lÇn söa ch÷a tù ®éng biÕn mÊt.")
            end
        end
    end
    return 1
end
function GetDesc(nItemIndex) 
    local nCount= GetItemParam(nItemIndex, 1); 
    return format("<color=green>Sè lÇn söa ch÷a cßn cã thÓ thùc hiÖn<color>: <color=yellow>%d<color> lÇn", nCount) 
end

Item 2 - sửa theo lượng độ bền

ItemID = 4394
function main(nItemIndex)
    dofile("script/ff/banlongthach.lua")
    local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
    local tbEquip = GetAllEquipment()
    for i=1, getn(tbEquip) do
        local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
        local nG, nD, nP = GetItemProp(tbEquip[i])
        if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai l­ng, mò, bao tay.
        local CurDur = GetCurDurability(tbEquip[i]) --§é bÒn hiÖn t¹i
        local MaxDur = GetMaxDurability(tbEquip[i]) --§é bÒn lín nhÊt
        local NeedCur = MaxDur - CurDur --§é bÒn cÇn ®Ó phôc håi
            if CurDur < MaxDur then
                if nCount > NeedCur then
                    local ItemName = GetItemName(tbEquip[i])
                    SetCurDurability(tbEquip[i],MaxDur)
                    SetSpecItemParam(nItemIndex, 1, nCount-NeedCur)
                    SyncItem(nItemIndex)
                    Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
                end
            end
        end
    end
    return 1
end
function GetDesc(nItemIndex) 
    local nCount= GetItemParam(nItemIndex, 1); 
    return format("<color=green>L­îng ®é bÒn cßn cã thÓ dïng<color>: <color=yellow>%d<color> ®é bÒn", nCount) 
end

Chú ý sửa cái dòng dofile theo đường dẫn các bác đặt script, IDItem sửa thành IDItem của các bác khi thêm vào Magicscript.txt. Em đặt tên item là Thiên Tinh Thạch với Bàn Long Thạch (Lúc đầu định đặt Tru Tiên Thạch với Luân Hồi Thạch ).
Script chép cả vào client và server với cùng đường dẫn để client load function GetDesc nhé.
Khi add item với 2 item này thì là
AddItem(6,1,4393,0,0,0,10000) --Có thể sửa chữa 10k lần
AddItem(6,1,4394,0,0,0,100000) --Lượng độ bền có thể phục hồi là 100k
Thay Id Item cho phù hợp
Nó sửa mọi loại đồ Đồ tím, đồ bạch kim, hoàng kim, xanh. Miễn là đeo trên người.Chúc các bác cắm chuột zui zẻ
[Only registered and activated users can see links. ][/QUOT

Có ai xem lại dùm em đã làm như trên vào game hiện số lần sửa chữa nhưng không sửa được ai giúp em cái

bạn đã đồng bộ file đó trong sever qua client chưa? sau đó chạy lại sever nhé