[JX] [Linux]Script sửa chữa đồ đạc bằng item - Trang 3
Hello & Welcome to our community. Is this your first visit? Đăng Ký
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Trang 3 của 3 Đầu tiênĐầu tiên 1 2 3
Kết quả 21 đến 22 của 22
  1. #21
    Thành Viên
    Ngày tham gia
    May 2012
    Bài viết
    33
    Thanks
    14
    Thanked 2 Times in 2 Posts

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

    [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
    Code:
    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
    Code:
    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
    Khách viếng thăm hãy cùng ghost0507 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. Các thành viên gởi lời cảm ơn đến ghost0507 vì bài viết này !

    tului (15-08-20)

  3. #22
    Thành Viên Tâm Huyết tvnnam's Avatar
    Ngày tham gia
    Apr 2014
    Đang ở
    Hưng Yên
    Bài viết
    1,692
    Thanks
    488
    Thanked 979 Times in 521 Posts

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

    [QUOTE=ghost0507;1233845]
    Trích dẫn Gửi bởi f-fantasy [Only registered and activated users can see links. ]
    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
    Code:
    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
    Code:
    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é
    CTV- GIẢI ĐÁP THẮC MẮC JX LINUX OFF

 

 
Trang 3 của 3 Đầu tiênĐầu tiên 1 2 3

Các Chủ đề tương tự

  1. [JX] Xin script xóa item đang cầm
    Bởi dungvaph03374 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 03-01-15, 06:11 PM
  2. [KT] Cách tìm script 1 item hoặc 1 npc bất kỳ
    Bởi Sesshomaru trong diễn đàn Releases
    Trả lời: 0
    Bài viết cuối: 20-06-14, 01:53 PM
  3. [JX] script add item ?
    Bởi huynhkim trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 12
    Bài viết cuối: 09-05-14, 02:04 PM
  4. [KT] xin script và item đồ pet
    Bởi anhtuan1409 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 07-12-12, 01:32 AM
  5. Một Cách Hay Để Viết Các Script Nâng Cấp Item
    Bởi ohishu trong diễn đàn Scripts
    Trả lời: 5
    Bài viết cuối: 13-11-10, 03:58 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 06:33 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.