Tập 2: Script Nạp Card Nhận Vật Phầm Server TTK

[ThanhVipLn]

file: napcardvp.lua

Include("\\script\\lib\\taobang.lua")
Include("\\script\\Global\\sourcejx49.lua")
Include("\\script\\napcard\\danhsachnapcardvp.lua" )
Include("\\script\\napcard\\danhsachcardvp.lua")
Include("\\script\\napcard\\dulieunapcard.lua")

function nhapserivp()
SayEx({"<color="..colorS()..">Seri<color> : ","0/numbervp","1/numbervp","2/numbervp","3/numbervp","4/numbervp","5/numbervp","6/numbervp","7/numbervp","8/numbervp","9/numbervp"})
end

function numbervp(nsel)
if GetTaskTemp(TaskPassRuong) <= 6 then
SetTaskTemp(TaskPassRuong,GetTaskTemp(TaskPassRuon g) + 1)
callnumbervp(nsel)
end
end;


function callnumbervp(id)
if GetTaskTemp(TaskPassRuong) == 1 then
SetTask(163,100000*id)
Talk(1,"contivp1","So <color="..colorS()..">Seri<color> Thu 1 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 2 then
SetTask(163,GetTask(163) + (10000*id))
Talk(1,"contivp1","So <color="..colorS()..">Seri<color> Thu 2 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 3 then
SetTask(163,GetTask(163) + (1000*id))
Talk(1,"contivp1","So <color="..colorS()..">Seri<color> Thu 3 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 4 then
SetTask(163,GetTask(163) + (100*id))
Talk(1,"contivp1","So <color="..colorS()..">Seri<color> Thu 4 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 5 then
SetTask(163,GetTask(163) + (10*id))
Talk(1,"contivp1","So <color="..colorS()..">Seri<color> Thu 5 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 6 then
SetTask(163,GetTask(163) + id)
Talk(1,"Exitvp1","<color="..colorS()..">Seri<color > Da Nhap Vao: <color=yellow>"..GetTask(163)..".")
end
end;


function nhapmathevp()
SayEx({"<color="..colorS()..">Seri<color> : ","0/numbervp1","1/numbervp1","2/numbervp1","3/numbervp1","4/numbervp1","5/numbervp1","6/numbervp1","7/numbervp1","8/numbervp1","9/numbervp1"})
end

function numbervp1(nsel)
if GetTaskTemp(TaskPassRuong) <= 6 then
SetTaskTemp(TaskPassRuong,GetTaskTemp(TaskPassRuon g) + 1)
callnumbervp1(nsel)
end
end;


function Exitvp1()
SetTaskTemp(TaskPassRuong,0)
end;
function callnumbervp1(id)
if GetTaskTemp(TaskPassRuong) == 1 then
SetTask(164,100000*id)
Talk(1,"contivp","So <color="..colorS()..">Ma The<color> Thu 1 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 2 then
SetTask(164,GetTask(164) + (10000*id))
Talk(1,"contivp","So <color="..colorS()..">Ma The<color> Thu 2 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 3 then
SetTask(164,GetTask(164) + (1000*id))
Talk(1,"contivp","So <color="..colorS()..">Ma The<color> Thu 3 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 4 then
SetTask(164,GetTask(164) + (100*id))
Talk(1,"contivp","So <color="..colorS()..">Ma The<color> Thu 4 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 5 then
SetTask(164,GetTask(164) + (10*id))
Talk(1,"contivp","So <color="..colorS()..">Ma The<color> Thu 5 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 6 then
SetTask(164,GetTask(164) + id)
Talk(1,"Exitvp1","<color="..colorS()..">Ma The<color> Da Nhap Vao: <color=yellow>"..GetTask(164)..".")
end
end;

function contivp()
SayEx({"<color="..colorS()..">Ma The<color> : dien mat ma.","0/numbervp1","1/numbervp1","2/numbervp1","3/numbervp1","4/numbervp1","5/numbervp1","6/numbervp1","7/numbervp1","8/numbervp1","9/numbervp1"})
end;

function contivp1()
SayEx({"<color="..colorS()..">Seri<color> : dien mat ma.","0/numbervp","1/numbervp","2/numbervp","3/numbervp","4/numbervp","5/numbervp","6/numbervp","7/numbervp","8/numbervp","9/numbervp"})
end;

function napcardvp1()
for i=1,getn(NAP_CARD_VP) do
if GetTask(163) == NAP_CARD_VP[i][2] then
if GetTask(164) == NAP_CARD_VP[i][3] then
if NAP_CARD_VP[i][1] == 0 then
Talk(1,"","<color=red>The Nay Da Duoc Su Dung Rui Ban")
else
SetTask(165,NAP_CARD_VP[i][4])

thoigian = tonumber(date("%H%M%d%m"))
vatpham()
NAP_CARD_VP[i][1] = 0
NAP_CARD_VP[i][2] = GetName()
NAP_CARD_VP[i][3] = thoigian
BANG2 = TaoBang(NAP_CARD_VP,"NAP_CARD_VP")
LuuBang("script/napcard/danhsachcardvp.lua",BANG2)
Talk(1,"","Chuc Mung Ban Nap Thanh Cong: <color=red>"..tenvatpham().."")
Msg2Player("Da Nhap Du Lieu Vao He Thong")

end
end
end
end
end
function tenvatpham()
if GetTask(165) == 1 then
return "So Che - Huyen Bi"
elseif GetTask(165) == 2 then
return "Chua Co Trang Bi Nao"


end
end

function vatpham()
if GetTask(165) == 1 then
AddItem(0,4,22,1,random(0,4),0,10)
AddItem(0,2,49,1,random(0,4),0,10)
AddItem(0,6,22,1,random(0,4),0,10)
AddItem(0,5,24,1,random(0,4),0,10)
AddItem(0,8,22,1,random(0,4),0,10)
AddItem(0,7,34,1,random(0,4),0,10)
AddItem(0,9,22,1,random(0,4),0,10)
AddItem(0,3,21,1,random(0,4),0,10)
AddItem(0,3,21,1,random(0,4),0,10)
SetTask(196,100000)
elseif GetTask(165) == 2 then
Talk(1,"","Cu Them Vo Nhe")
end
end

file danhsachcardvp.lua

NAP_CARD_VP={

[1]={

[1] = 1,

[2] = 111112,

[3] = 245772,

[4] = 1

},

[2]={

[1] = 0,

[2] = "Ucche@=.=",

[3] = 11330710,

[4] = 1

},

Cái Có [1] = 0 Tức Là đã sử dụng rùi
Cách Làm này hiệu quả Dành cho Online Đó


Viết Bài Kiếm Điển Lên Lam Mob

[Zin Kull]

Share mấy cái này chi cho mệt, share lum cái source của ttk đi

[Mr.Phát]

ổng share lặt vặt để đủ 10 bài đóng góp xin lên làm mod ý mà

[[S]ocola[S]an]

Ông share script chống rollback đy Thành .............

[kinkina2009]

có thể dupe chỗ này

function vatpham()
if GetTask(165) == 1 then
AddItem(0,4,22,1,random(0,4),0,10)
AddItem(0,2,49,1,random(0,4),0,10)
AddItem(0,6,22,1,random(0,4),0,10)
AddItem(0,5,24,1,random(0,4),0,10)
AddItem(0,8,22,1,random(0,4),0,10)
AddItem(0,7,34,1,random(0,4),0,10)
AddItem(0,9,22,1,random(0,4),0,10)
AddItem(0,3,21,1,random(0,4),0,10)
AddItem(0,3,21,1,random(0,4),0,10)
SetTask(196,100000)
elseif GetTask(165) == 2 then
Talk(1,"","Cu Them Vo Nhe")
end
end

, code cẩn thận

[ThanhVipLn]

cha này toàn kiếm chuyện để dupe ko ah.

Tui ko lấy id item của ttk đâu mà dupe

[kinkina2009]

không phải là kiếm chuyện hay không mà mún cho ông thấy ra cái lỗi, còn không thíck thì thôi

[ThanhVipLn]

hông phải là kiếm chuyện hay không mà mún cho ông thấy ra cái lỗi, còn không thíck thì thôi

Thiệt Không. Chỗ Này Dupe Sao

function vatpham()
if GetTask(165) == 1 then
AddItem(0,4,22,1,random(0,4),0,10)
AddItem(0,2,49,1,random(0,4),0,10)
AddItem(0,6,22,1,random(0,4),0,10)
AddItem(0,5,24,1,random(0,4),0,10)
AddItem(0,8,22,1,random(0,4),0,10)
AddItem(0,7,34,1,random(0,4),0,10)
AddItem(0,9,22,1,random(0,4),0,10)
AddItem(0,3,21,1,random(0,4),0,10)
AddItem(0,3,21,1,random(0,4),0,10)
SetTask(196,100000)
elseif GetTask(165) == 2 then
Talk(1,"","Cu Them Vo Nhe")
end
end

Chỉ Là Hàm Add Item. Còn Kiểm Trả Là Ở Trên Kia

[nguyentrunghbl]

Bác Thành cũng giỏi nhỉ! mở online mà không ai phá được!!

[ThanhVipLn]

Bác Thành cũng giỏi nhỉ! mở online mà không ai phá được!!

Ai Nói Ko Phá đƯỢC
Tại người ta chưa phá thui.