[JX] Xin script sửa đồ bác nào có em xin với
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
 
Kết quả 1 đến 2 của 2
  1. #1
    Thành Viên
    Ngày tham gia
    May 2012
    Bài viết
    33
    Thanks
    14
    Thanked 2 Times in 2 Posts

    Xin script sửa đồ bác nào có em xin với

    Cái này dùng không được không biết sai chỗ nào vậy các bác
    ItemID = 4835
    function main(nItemIndex)
    dofile("script/global/pgaming/item/suado.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
    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. #2
    Thành Viên
    Ngày tham gia
    Jun 2006
    Đang ở
    Funabashi, Chiba, Japan
    Bài viết
    543
    Thanks
    407
    Thanked 300 Times in 82 Posts

    Ðề: Xin script sửa đồ bác nào có em xin với

    Trích dẫn Gửi bởi ghost0507 [Only registered and activated users can see links. ]
    Cái này dùng không được không biết sai chỗ nào vậy các bác
    ItemID = 4835
    function main(nItemIndex)
    dofile("script/global/pgaming/item/suado.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
    Theo mình nhớ item này mặc định của server PGaming sử dụng bthuong mà nhỉ. Bạn dùng nó báo lỗi ntn?
    Khách viếng thăm hãy cùng f-fantasy xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [JX] Xin Script Báo Danh Chạy Đua : script/mission/racegame
    Bởi saodzi trong diễn đàn Scripts
    Trả lời: 3
    Bài viết cuối: 06-05-19, 06:27 PM
  2. [KT] Xin Script gia nhập môn phái hoặc Script của trưởng môn 12 phái
    Bởi giangbanlac trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 15-08-13, 06:30 PM
  3. Xin script gunny hoàn chỉnh or hướng dẫn viết script gunny !
    Bởi phamngochai2 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 21-01-12, 10:15 AM
  4. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM

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à 07:27 PM.
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ệ.