Kết quả 1 đến 3 của 3
Chủ đề: auto chi chuyển
-
09-01-18, 05:51 AM #1
- 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é!
-
09-01-18, 06:12 AM #2
- Ngày tham gia
- Sep 2008
- Bài viết
- 1,320
- Thanks
- 256
- Thanked 740 Times in 559 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 i, tbInfo 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 == M and nMyPosX == X and nMyPosY == Y then
return
end
if nLastMapId ~= M or nLastMapX ~= X 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(tbEnemyList, pNpc);
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(tbEnemyList, pNpc);
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(nMyX, nMyY,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)^2 + (myY-keyY)^2);
return nDistance;
end
-
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)
-
09-01-18, 10:52 AM #3
- 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ự
-
[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ầuTrả lời: 0Bài viết cuối: 14-11-15, 07:16 AM -
[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ầuTrả lời: 4Bài viết cuối: 06-04-15, 03:30 PM -
[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ầuTrả lời: 3Bài viết cuối: 19-07-13, 12:52 PM -
[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ầuTrả lời: 0Bài viết cuối: 04-08-12, 09:31 AM