lehuydaica
04-11-12, 08:41 PM
Hôm nay có hứng share cho ae anti chống dupe do tranhba.com phát minh, hf_linh thua mình 500k vì ko phá đc anti này nhưng pac ấy ko trả mà con ddos và rollback sv của mình. hôm nay share cho ae cũng cố khí thế và nhớ thanks đừng ném gạch mình ko đc pro nhưng giúp đc cộng đồng jx đc thì m giúp
Tình hình là mạng lag có thể không dupe nhưng vẫn xuất hiện 2 nv có tên giống nhau trên hệ thống nên anti kick dis vô bị kẹt hoặc thất bại.
Nên hn update lại cho ae chơi đc tốt hơn
Include("\\script\\startup_remix.lua")
a = 0
function main(sel)
nhanvat = GetName()
dem = 0
k = GetPlayerCount()
for i=1,k do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
if TarName == nhanvat then
dem = dem + 1
if dem == 1 then
dem2= i
end
end
end
if dem > 1 then
gmidx=PlayerIndex
PlayerIndex=dem2
KickOutSelf()
KickOutSelf()
PlayerIndex=gmidx
KickOutSelf()
KickOutSelf()
end
if a == 0 then
a = 1
khoidong()
end
if GetLevel() >= 1 or GetTask(197) >= 1 then
if GetTaskTemp(93) ~= 1 then
if GetTaskTemp(92) == 0 then
if GetTask(93) == 0 then
Say("<color=cyan>VLTB<color> : HÖ thèng chèng <color=red> Hack nh©n vËt <color> ®a vµo ho¹t ®éng ! ",1,"KiÓm tra nh©n vËt ./anti")
else
Say("<color=cyan>VLTB<color> : §· kiÓm tra xong , mêi b¹n vµo game ",1,"Tham gia vµo game./anti1")
end
end
end
end
end
function anti()
NewWorld(44,1584,3280)
SetRevPos(19)
SetFightState(0)
timecheck = tonumber(date("%H%M%S"))
SetTask(94,timecheck)
SetTask(93,1)
KickOutSelf()
end
function anti1()
timecheck = tonumber(date("%H%M%S"))
ll = timecheck - GetTask(94)
if (ll < 10) then -- chi co 10 giay ket noi
SetTaskTemp(92,1)
SetTaskTemp(93,1)
SetTask(93,0)
SetTask(94,0)
Msg2Player("TiÕn tr×nh : hoµn tÊt !")
NewWorld(53,1600,3200)
SetRevPos(19)
SetFightState(0)
if GetItemCount(132) < 1 then
AddEventItem(132)
end
Say("<color=cyan> JX Tranh Ba <color>: Chµo mõng b¹n tham gia server JX Tranh Ba>",1," Tham Gia Game./check")
else
SetTask(93,0)
SetTask(94,0)
KickOutSelf()
end
end
function check()
-----------------------------------------------
logWrite("[GAMER : "..GetName().."] "..GetIP().." \n")
Talk(1,"no","Qua trinh bao ve nhan vat hoan tat ! ")
end;
-------------------------------------------------
function logWrite(str) --CopyRight Chinese
local gm_Log = "dulieu/kiemtra.txt"
local fs_log = openfile(gm_Log, "a");
write(fs_log, date("%y-%m-%d_%H:%M:%S").."\t"..str.."\n");
closefile(fs_log);
end
function no()
end
function check1()
end
đây là phiên bản 1.0 nhá. sẽ update chống các thứ khác. AE chờ tin nhé
Tình hình là mạng lag có thể không dupe nhưng vẫn xuất hiện 2 nv có tên giống nhau trên hệ thống nên anti kick dis vô bị kẹt hoặc thất bại.
Nên hn update lại cho ae chơi đc tốt hơn
Include("\\script\\startup_remix.lua")
a = 0
function main(sel)
nhanvat = GetName()
dem = 0
k = GetPlayerCount()
for i=1,k do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
if TarName == nhanvat then
dem = dem + 1
if dem == 1 then
dem2= i
end
end
end
if dem > 1 then
gmidx=PlayerIndex
PlayerIndex=dem2
KickOutSelf()
KickOutSelf()
PlayerIndex=gmidx
KickOutSelf()
KickOutSelf()
end
if a == 0 then
a = 1
khoidong()
end
if GetLevel() >= 1 or GetTask(197) >= 1 then
if GetTaskTemp(93) ~= 1 then
if GetTaskTemp(92) == 0 then
if GetTask(93) == 0 then
Say("<color=cyan>VLTB<color> : HÖ thèng chèng <color=red> Hack nh©n vËt <color> ®a vµo ho¹t ®éng ! ",1,"KiÓm tra nh©n vËt ./anti")
else
Say("<color=cyan>VLTB<color> : §· kiÓm tra xong , mêi b¹n vµo game ",1,"Tham gia vµo game./anti1")
end
end
end
end
end
function anti()
NewWorld(44,1584,3280)
SetRevPos(19)
SetFightState(0)
timecheck = tonumber(date("%H%M%S"))
SetTask(94,timecheck)
SetTask(93,1)
KickOutSelf()
end
function anti1()
timecheck = tonumber(date("%H%M%S"))
ll = timecheck - GetTask(94)
if (ll < 10) then -- chi co 10 giay ket noi
SetTaskTemp(92,1)
SetTaskTemp(93,1)
SetTask(93,0)
SetTask(94,0)
Msg2Player("TiÕn tr×nh : hoµn tÊt !")
NewWorld(53,1600,3200)
SetRevPos(19)
SetFightState(0)
if GetItemCount(132) < 1 then
AddEventItem(132)
end
Say("<color=cyan> JX Tranh Ba <color>: Chµo mõng b¹n tham gia server JX Tranh Ba>",1," Tham Gia Game./check")
else
SetTask(93,0)
SetTask(94,0)
KickOutSelf()
end
end
function check()
-----------------------------------------------
logWrite("[GAMER : "..GetName().."] "..GetIP().." \n")
Talk(1,"no","Qua trinh bao ve nhan vat hoan tat ! ")
end;
-------------------------------------------------
function logWrite(str) --CopyRight Chinese
local gm_Log = "dulieu/kiemtra.txt"
local fs_log = openfile(gm_Log, "a");
write(fs_log, date("%y-%m-%d_%H:%M:%S").."\t"..str.."\n");
closefile(fs_log);
end
function no()
end
function check1()
end
đây là phiên bản 1.0 nhá. sẽ update chống các thứ khác. AE chờ tin nhé