PDA

View Full Version : [KT] Xin Plugin ăn thỏi vàng ra bạc và bạc khóa !!!



wangzi181
18-04-12, 01:06 PM
Ai bik làm giúp e. e tks nhìu.

__Jie__
18-04-12, 02:03 PM
Thực ra nó chỉ là hàm me.UseItem(tbItem.pItem); mà thôi
chúng ta chỉ cần get tất cả item trong thùng đồ or 1 ID item là có thể tự sử dụng


local tbAutoBLD = Map.tbAutoBLD or {};
Map.tbAutoBLD = tbAutoBLD;
local nCastState = 0;
local nCastTimerId = 0;
local nCastTime = 1;
function tbAutoBLD:Switch()
if nCastState == 0 then
nCastState = 1;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=Yellow>Xơi Tất Cả Trong Hành Trang<color>");
assert(nCastTimerId == 0);
nCastTimerId = Timer:Register(nCastTime * Env.GAME_FPS, self.AutoEat, self);
else
nCastState = 0;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=white>Stop Here<color>");
Timer:Close(nCastTimerId);
nCastTimerId = 0;
end
end
function tbAutoBLD:AutoEat()
if (nCastTimerId ~= 0) then
local tbFind = me.FindItemInBags(bailiandan);
for _, tbItem in pairs(tbFind) do
me.UseItem(tbItem.pItem);
--me.AnswerQestion(0);
end
end
end

local tCmd={ "Map.tbAutoBLD:Switch()", "Switch", "", "Shift+S", "Shift+S", "AutoThucPham"};
AddCommand(tCmd[4], tCmd[3], tCmd[2], tCmd[7] or UiShortcutAlias.emKSTATE_INGAME);
UiShortcutAlias:AddAlias(tCmd[2], tCmd[1]);
Để nó tự ăn thỏi vàng ( nhận bạc khóa hay bạc thường ) bạn chỉ cần thêm me.AnswerQestion(number);number ở đây chính là thứ tự các dòng . Ví dụ bạn muốn sau khi sử dụng item nếu item có 2 dòng , bạn muốn chọn dòng 1 thì bạn để thế này me.AnswerQestion(0); ngược lại thì me.AnswerQestion(1);
Cứ như vậy vào game click chuột phải vào thỏi vàng và xem các dòng là có thể sử dụng:D
Lưu ý bailiandan bạn có thể thay = ID vật phẩm
Theo mình hiểu bailiandan là bao gồm tất cả ID vật phẩm do đó khi cho chạy tool thì trong hành trang có gì nó xơi hết :) ( không xơi được thì nó củng click chuột phải )

wangzi181
18-04-12, 03:00 PM
Hok dc a ơi. Nó cứ click phải suốt . ko tự trả lời

__Jie__
18-04-12, 03:55 PM
Hok dc a ơi. Nó cứ click phải suốt . ko tự trả lời
mình đã nói bạn là phải thêm vào me.AnswerQestion(number);thôi để mình demo 1 phát nhận bạc thường nhé


local tbAutoBLD = Map.tbAutoBLD or {};
Map.tbAutoBLD = tbAutoBLD;
local nCastState = 0;
local nCastTimerId = 0;
local nCastTime = 1;
function tbAutoBLD:Switch()
if nCastState == 0 then
nCastState = 1;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=Yellow>Xơi Tất Cả Trong Hành Trang<color>");
assert(nCastTimerId == 0);
nCastTimerId = Timer:Register(nCastTime * Env.GAME_FPS, self.AutoEat, self);
else
nCastState = 0;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=white>Stop Here<color>");
Timer:Close(nCastTimerId);
nCastTimerId = 0;
end
end
function tbAutoBLD:AutoEat()
if (nCastTimerId ~= 0) then
local tbFind = me.FindItemInBags(bailiandan);
for _, tbItem in pairs(tbFind) do
me.UseItem(tbItem.pItem);
me.AnswerQestion(0);-- chọn dòng đầu tiên ( bạc thường)
me.AnswerQestion(0);-- xác nhận

end
end
end

local tCmd={ "Map.tbAutoBLD:Switch()", "Switch", "", "Shift+S", "Shift+S", "AutoThucPham"};
AddCommand(tCmd[4], tCmd[3], tCmd[2], tCmd[7] or UiShortcutAlias.emKSTATE_INGAME);
UiShortcutAlias:AddAlias(tCmd[2], tCmd[1]);

wangzi181
18-04-12, 04:30 PM
tks a nhiều .e làm dc rồi. tại khi nãy a chỉ có cái dấu "--" e thêm vào lun nên ko dc.

wangzi181
18-04-12, 06:16 PM
a cho em hỏi, đoạn code này có tác dụng gì.
local tbAutoBLD = Map.tbAutoBLD or {};
Map.tbAutoBLD = tbAutoBLD;
e phải làm sao để khi làm 1 cái khác như là tự động vào du long nó ko bị trùng với nhau.
e làm thử khi bật auto thì nó xuất hiện những câu trong cái auto nuốt thỏi vàng chứ ko ra bên du long.
Sao nó chỉ có tác dụng 1 cái thôi tạo thêm vài cái khác ko dc a.

__Jie__
18-04-12, 11:21 PM
a cho em hỏi, đoạn code này có tác dụng gì.
local tbAutoBLD = Map.tbAutoBLD or {};
Map.tbAutoBLD = tbAutoBLD;
e phải làm sao để khi làm 1 cái khác như là tự động vào du long nó ko bị trùng với nhau.
e làm thử khi bật auto thì nó xuất hiện những câu trong cái auto nuốt thỏi vàng chứ ko ra bên du long.
Sao nó chỉ có tác dụng 1 cái thôi tạo thêm vài cái khác ko dc a.
tạm dịch nó là 1 biến cục bộ nhé ( không biết đúng ko ) vì không phải dân lập trình gốc
để 2 file có thể hoạt động song song chúng ta cần edit tên nó đi để không trùng
Có thể sử dụng chức năng Ctrl + F --> Replace trong notepad++ để thay đổi cho nhanh
Ví dụ ta muốn thay tbAutoBLD = tbAutoDuLong chẳng hạn.
Ta bấm Ctrl + F --> Replace . Dòng đầu tiên Find what : ta điền tbAutoBLD . Dòng kế tiếp Replace witch ta điền tbAutoDuLong sau đó chọn Replace all . Như vậy tất cả giá trị tìm được với từ khóa tbAutoBLD sẻ được thay = tbAutoDuLong
Chúc bạn thành công

shirai
20-04-12, 04:26 PM
Bạn ơi cho mình hỏi Item ID của túi tân thủ là gì thế?

anhlangtuvt
01-05-12, 09:39 AM
mình đã nói bạn là phải thêm vào me.AnswerQestion(number);thôi để mình demo 1 phát nhận bạc thường nhé


local tbAutoBLD = Map.tbAutoBLD or {};
Map.tbAutoBLD = tbAutoBLD;
local nCastState = 0;
local nCastTimerId = 0;
local nCastTime = 1;
function tbAutoBLD:Switch()
if nCastState == 0 then
nCastState = 1;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=Yellow>Xơi Tất Cả Trong Hành Trang<color>");
assert(nCastTimerId == 0);
nCastTimerId = Timer:Register(nCastTime * Env.GAME_FPS, self.AutoEat, self);
else
nCastState = 0;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=white>Stop Here<color>");
Timer:Close(nCastTimerId);
nCastTimerId = 0;
end
end
function tbAutoBLD:AutoEat()
if (nCastTimerId ~= 0) then
local tbFind = me.FindItemInBags(bailiandan);
for _, tbItem in pairs(tbFind) do
me.UseItem(tbItem.pItem);
me.AnswerQestion(0);-- chọn dòng đầu tiên ( bạc thường)
me.AnswerQestion(0);-- xác nhận

end
end
end

local tCmd={ "Map.tbAutoBLD:Switch()", "Switch", "", "Shift+S", "Shift+S", "AutoThucPham"};
AddCommand(tCmd[4], tCmd[3], tCmd[2], tCmd[7] or UiShortcutAlias.emKSTATE_INGAME);
UiShortcutAlias:AddAlias(tCmd[2], tCmd[1]);


Bạn cho mình hỏi cái này cho vào đâu nhỉ? Mới tiếp xúc nên còn gà lắm, mong được giúp đỡ.

__Jie__
01-05-12, 10:00 AM
Bạn ơi cho mình hỏi Item ID của túi tân thủ là gì thế?
ID tân thủ có thể xem = 2 cách.
Cách 1 : Unpark setting.pak ra vào item\001\other tìm file scriptitem và tìm theo Tên
Cách 2 : Vào Game dùng 2 nhân vật . Nhân vật A pm nhân vật B và post VP cho nhận vật B . Nhân Vật B chỉ vào tên nhân vật A chọn Báo Cáo sẻ hiện lên ID item nhớ bỏ số 0 đầu nhé.

Bạn cho mình hỏi cái này cho vào đâu nhỉ? Mới tiếp xúc nên còn gà lắm, mong được giúp đỡ.
Save lại với 1 tên là AutoThoiVang.Lua ( chẳng hạn) và cho vào tool or tools đều được

crazyboy00
02-05-12, 03:12 PM
mình đã nói bạn là phải thêm vào me.AnswerQestion(number);thôi để mình demo 1 phát nhận bạc thường nhé


local tbAutoBLD = Map.tbAutoBLD or {};
Map.tbAutoBLD = tbAutoBLD;
local nCastState = 0;
local nCastTimerId = 0;
local nCastTime = 1;
function tbAutoBLD:Switch()
if nCastState == 0 then
nCastState = 1;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=Yellow>Xơi Tất Cả Trong Hành Trang<color>");
assert(nCastTimerId == 0);
nCastTimerId = Timer:Register(nCastTime * Env.GAME_FPS, self.AutoEat, self);
else
nCastState = 0;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=white>Stop Here<color>");
Timer:Close(nCastTimerId);
nCastTimerId = 0;
end
end
function tbAutoBLD:AutoEat()
if (nCastTimerId ~= 0) then
local tbFind = me.FindItemInBags(bailiandan);
for _, tbItem in pairs(tbFind) do
me.UseItem(tbItem.pItem);
me.AnswerQestion(0);-- chọn dòng đầu tiên ( bạc thường)
me.AnswerQestion(0);-- xác nhận

end
end
end

local tCmd={ "Map.tbAutoBLD:Switch()", "Switch", "", "Shift+S", "Shift+S", "AutoThucPham"};
AddCommand(tCmd[4], tCmd[3], tCmd[2], tCmd[7] or UiShortcutAlias.emKSTATE_INGAME);
UiShortcutAlias:AddAlias(tCmd[2], tCmd[1]);


Sao mình làm chả đc vậy ta :( , làm y như vậy lun...

thiendiaoc
29-07-12, 06:15 PM
mình đã nói bạn là phải thêm vào me.AnswerQestion(number);thôi để mình demo 1 phát nhận bạc thường nhé


local tbAutoBLD = Map.tbAutoBLD or {};
Map.tbAutoBLD = tbAutoBLD;
local nCastState = 0;
local nCastTimerId = 0;
local nCastTime = 1;
function tbAutoBLD:Switch()
if nCastState == 0 then
nCastState = 1;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=Yellow>Xơi Tất Cả Trong Hành Trang<color>");
assert(nCastTimerId == 0);
nCastTimerId = Timer:Register(nCastTime * Env.GAME_FPS, self.AutoEat, self);
else
nCastState = 0;
UiManager:OpenWindow("UI_INFOBOARD", "<bclr=Black><color=white>Stop Here<color>");
Timer:Close(nCastTimerId);
nCastTimerId = 0;
end
end
function tbAutoBLD:AutoEat()
if (nCastTimerId ~= 0) then
local tbFind = me.FindItemInBags(bailiandan);
for _, tbItem in pairs(tbFind) do
me.UseItem(tbItem.pItem);
me.AnswerQestion(0);-- chọn dòng đầu tiên ( bạc thường)
me.AnswerQestion(0);-- xác nhận

end
end
end

local tCmd={ "Map.tbAutoBLD:Switch()", "Switch", "", "Shift+S", "Shift+S", "AutoThucPham"};
AddCommand(tCmd[4], tCmd[3], tCmd[2], tCmd[7] or UiShortcutAlias.emKSTATE_INGAME);
UiShortcutAlias:AddAlias(tCmd[2], tCmd[1]);


Bạn ơi cho mình hỏi: mình đã copy toàn bộ trong đoạn code của bạn và làm theo hướng dẫn nhưng nó không hoạt động. Bạn cho mình hỏi code này có chạy được trên Kiếm Thế Private không?

chuatrum
05-08-12, 12:41 AM
Có cách nào để plugin tự và khu đồng khóa mua TL HL không bạn ??