[KT] auto chi chuyển
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 3 của 3

Chủ đề: auto chi chuyển

  1. #1
    Thành Viên songtu's Avatar
    Ngày tham gia
    Feb 2014
    Đang ở
    Còn lâu mới nói
    Bài viết
    625
    Thanks
    83
    Thanked 241 Times in 181 Posts

    auto chi chuyển

    Chàotoàn thể anh em thân mến!

    Cho mình hỏi có cách nào làm cho nhân vật tự chạy đến vị trí cho trước không?
    Ví dụ từ A–> B chẳng hạn
    Mình muốn viết cái t ool nhỏ auto cho KT cho nó tự chạy tới vị trí NPC nhờ dịch chuyển sang thành khác….
    Bác nào có cao kiến giúp mình với , mình vọc vạch tý ....

    Cảm ơn các bác nhiều nhiều!!
    Khách viếng thăm hãy cùng songtu xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên Tâm Huyết __Jie__'s Avatar
    Ngày tham gia
    Sep 2008
    Bài viết
    1,321
    Thanks
    256
    Thanked 741 Times in 560 Posts

    Ðề: auto chi chuyển

    1 đoạn Plugin cho bạn tham khảo cần viết sẳn các hàm di chuyển ra để khi cần chỉ việc truyền tham số cho nó

    PHP Code:


    function TrainLND:DiBanRac()
        
    local nTiemThuoc self.TimNPC_TEN("Trương Trảm Kinh");
            if 
    nTiemThuoc then
            
    if UiManager:WindowVisible(Ui.UI_SAYPANEL) == 1 then
                
    for itbInfo in ipairs(tbAnswers) do
                    if 
    string.find(tbInfo"Dược phẩm"then
                        Ui
    (Ui.UI_SAYPANEL):OnListSel("LstSelectArray"1);
                        
    me.Msg(tostring("<bclr=0,0,200><color=White>Chọn : <bclr><color>"..tbInfo));
                    
    end        
                end
            
    elseif UiManager:WindowVisible(Ui.UI_SHOP) ~= 1 then
                AutoAi
    .SetTargetIndex(nTiemThuoc.nIndex)
            
    end
        
    else
            
    self.GoTo(29,KNpc.ClientGetNpcPos(me.GetMapTemplateId(),3564));-- 29 ma ban do -- 3564 ID NPC
        end
    end
    function TrainLND.GoTo(M,X,Y)
        if 
    me.GetNpc().nIsRideHorse == 0 then
            me
    .Msg("<color=pink>Tự động lên ngựa")
            Switch(
    "horse")
        
    end    
        local nMapId
    ,nMyPosX,nMyPosY me.GetWorldPos()
        if 
    nMapId == and nMyPosX == and nMyPosY == Y then
            
    return
        
    end
        
    if nLastMapId ~= or nLastMapX ~= or nLastMapY ~= Y then
            nLastMapId 
    M
            nLastMapX 
    X
            nLastMapY 
    Y
        
    else
            if 
    me.GetNpc().nDoing == 3 then
                
    return
            
    end
        end

        
    if UiManager:WindowVisible(Ui.UI_SAYPANEL) == 1 then
            UiManager
    :CloseWindow(Ui.UI_SAYPANEL);
        
    end
        
        local tbPos 
    = {}
        
    tbPos.nMapId M
        tbPos
    .nX X
        tbPos
    .nY Y
        Ui
    .tbLogic.tbAutoPath:GotoPos(tbPos)
    end

    function TrainLND.TimNPC_TEN(sName)
        
    local tbEnemyList = {}
        if 
    not sName then
        local tbNpcList 
    KNpc.GetAroundNpcList(me,600);
            for 
    _pNpc in ipairs(tbNpcList) do
                if 
    AutoAi.AiTargetCanAttack(pNpc.nIndex) == 1 then
                    table
    .insert(tbEnemyListpNpc);            
                
    end
            end
            
    if table.getn(tbEnemyList) >=1 then
                
    return TrainLND.MucTieuGanNhat(tbEnemyList)
            
    end
        end
        
    ------------------------------------------
        
    local tbNpcList KNpc.GetAroundNpcList(me,600);
        for 
    _pNpc in ipairs(tbNpcList) do
            if 
    pNpc.szName == sName then
                table
    .insert(tbEnemyListpNpc);            
            
    end
        end
        
    if table.getn(tbEnemyList) >=1 then
            
    return TrainLND.MucTieuGanNhat(tbEnemyList)
        
    end
    end
    function TrainLND.MucTieuGanNhat(tblistnpc)
        
    local npcgannhat nil
        local khoanggannhat 
    600
        local nMyX
    nMyY me.GetNpc().GetMpsPos();
        for 
    _pNpc in ipairs(tblistnpc) do
        
    local Xnpc,Ynpc pNpc.GetMpsPos();
        
    local kc_npc TrainLND.KhoangCach(nMyXnMyY,Xnpc,Ynpc)
            if 
    kc_npc khoanggannhat then
                npcgannhat 
    pNpc
                khoanggannhat 
    kc_npc
            end
        end
        
    return npcgannhat
    end
    function TrainLND.KhoangCach(myX,myY,keyX,keyY)
        
    local nDistance    0;
        
    nDistance math.sqrt((myX-keyX)^+ (myY-keyY)^2);
        return 
    nDistance;
    end 
    Nhận viết sự kiện Kiếm Thế PC - Mobile
    Auto PK 6 acc Kiếm Thế PC không cần sanboxie hoặc autoupdate
    Web: [Only registered and activated users can see links. ]

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

    songtu (09-01-18)

  4. #3
    Thành Viên songtu's Avatar
    Ngày tham gia
    Feb 2014
    Đang ở
    Còn lâu mới nói
    Bài viết
    625
    Thanks
    83
    Thanked 241 Times in 181 Posts

    Ðề: auto chi chuyển

    cảm ơn bác nhiều nhiều, plugin trong game e cũng ngâm ngâm đc ít ít,,
    em muốn tìm hiểu về mấy cái kiểu vùng nhớ, offset các kiểu ý bác , vs kỹ thuật auto khi mà ko active cửa sổ game ý ạ,, bác có rành món đóko ạ?
    Khách viếng thăm hãy cùng songtu xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [JX] Anh Chi Nao Biet Auto cua Game Volam LoanChien.com Cho Em Xin voi
    Bởi lamngan113 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 14-11-15, 07:16 AM
  2. [JX] Xin hướng dẫn chi tiết cách add auto vào võ lâm offline
    Bởi dndlovevn trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 06-04-15, 03:30 PM
  3. [Gunny] Xin HD add phó bản chi tiết có video chi tiết thì tks nhiu
    Bởi Jeverment trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 19-07-13, 12:52 PM
  4. [KT] hỏi phần chứa nôi dung sever để chuyễn sever chi tiết?
    Bởi lyvanbethao trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 04-08-12, 09:31 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:13 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ệ.