Share Script Đấu Giá Server TTK 2.0 [Lưu trữ]

ThanhVipLn

17-10-10, 09:48 AM

Vì hiện nay mấy cại roll back dupe đồ nhiều wa
nên TTK 2.0 đã làm cái này để gd item qua mạng.
Có thể bán hàng khi bạn off game
Vì nó thiết lập theo hệ thống Mảng.

Đây là script. Tui nghĩ nếu các bạn muốn sài cũng nên đọc qua để hiểu cấu trúc của nó.
Pro nào làm được ngắn gọn cái này thì vui lòng share lên lại topic này. tui cám ơn nhiều

Include("\\Script\\thuvien\\hamcosodulieu.lua")
Include("\\script\\lib\\taobang.lua")
Include("\\script\\Global\\sourcejx49.lua")
Include("\\script\\dulieu\\danhsachban.lua")

npcadd={0,0,0,0,0}

function no()
SetTask(145,0)
SetTask(146,0)
SetTask(147,0)
SetTask(148,0)
SetTask(149,0)
end;
tennhanvat = {}
function main39()
Talk(1,"","Anh Em Lay Lai ITEm DI. Tat Chuc Nang Nay Khong Cho No Dupe Nua")
end

function main()
SayEx({"Ban Muon Chon Chuc NAng Nao ",
"Ban Vat Pham./main39",
"Mua Vat Pham./main39",
"Nhan Tien Da Ban./main5",
"Lay Lai Trang Bi Chua Ban Duoc./laylaitb",
"Thoat./no"})
end

function laylaitb()
for i=1,getn(DANH_SACH_BAN) do
if GetName() == DANH_SACH_BAN[i][5] and DANH_SACH_BAN[i][1] == 1 then
if DANH_SACH_BAN[i][3] == 1 then
AddEventItem(DANH_SACH_BAN[i][6])
else
for k=1,DANH_SACH_BAN[i][3] do AddEventItem(DANH_SACH_BAN[i][6]) end
end
DANH_SACH_BAN[i][1] = 2
Msg2Player("Ban Da Nhan Lai So ITEM DA BAN")
BANG2 = TaoBang(DANH_SACH_BAN,"DANH_SACH_BAN")
LuuBang("script/dulieu/danhsachban.lua",BANG2)
end
end
end

function main5()
for i=1,getn(DANH_SACH_BAN) do
if GetName() == DANH_SACH_BAN[i][5] and DANH_SACH_BAN[i][1] == 0 then
a = DANH_SACH_BAN[i][4]
SetTask(183,GetTask(183)+a)
Msg2Player("Ban Nhan Duoc "..a.." Xu")
DANH_SACH_BAN[i][1] = 2
BANG2 = TaoBang(DANH_SACH_BAN,"DANH_SACH_BAN")
LuuBang("script/dulieu/danhsachban.lua",BANG2)
return

end
end
end

function main4()
SayEx({"Ban Muon Ban Gi Vao Day: ",
"Huyen Tinh./huyentinha",
"Thuy Tinh./thuytinha",
"Exp./kinhnghiema",
"Bao Ruong./baoruonga",
"Linh Tinh./linhtinha",
"Thoat./no"})
end
function linhtinha()
SayEx({"Chon Vat Pham:",
"Bi Kip 120./linhtinh1a",
"Sat Thu Gian./linhtinh1a",
"Lenh Bai Goi Boss./linhtinh1a",
"Hop Qua Than Toc./linhtinh1a",
"LB Truyen Thuyet./linhtinh1a",
"LB Sinh Tu./linhtinh1a",
"Le Bao Vuot Ai./linhtinh1a",
"Thoat./no"})
end
function linhtinh1a(nsel)
i = nsel+1
if i == 1 then
SetTask(145,47)
BatDauBan()
elseif i == 2 then
SetTask(145,46)
BatDauBan()
elseif i == 3 then
SetTask(145,48)
BatDauBan()
elseif i == 4 then
SetTask(145,70)
BatDauBan()
elseif i == 5 then
SetTask(145,83)
BatDauBan()
elseif i == 6 then
SetTask(145,84)
BatDauBan()
elseif i == 7 then
SetTask(145,80)
BatDauBan()
end
end

function kinhnghiema()
SayEx({"Nhap Gia Nhung Vat Pham Tang Exp:",
"Qua HH Tieu./kinhnghiem1a",
"Qua HH Trung./kinhnghiem1a",
"Qua HH Cao./kinhnghiem1a",
"Qua Hoang Kim./kinhnghiem1a",
"Banh Dac Hieu./kinhnghiem1a",
"Le Bao May Man./kinhnghiem1a",
"Thuoc Tang Luc./kinhnghiem1a",
"Thoat./no"})
end

function kinhnghiem1a(nsel)
i = nsel+1
if i == 1 then
SetTask(145,64)
BatDauBan()
elseif i == 2 then
SetTask(145,65)
BatDauBan()
elseif i == 3 then
SetTask(145,66)
BatDauBan()
elseif i == 4 then
SetTask(145,67)
BatDauBan()
elseif i == 5 then
SetTask(145,76)
BatDauBan()
elseif i == 6 then
SetTask(145,77)
BatDauBan()
elseif i == 7 then
SetTask(145,69)
BatDauBan()
end
end
function baoruonga()
SayEx({"Chon Vat Pham:",
"Ruong Bac./baoruong1a",
"Ruong Hoang Kim./baoruong1a",
"Thoat./no"})
end

function baoruong1a(nsel)
i = nsel+1
if i == 1 then
SetTask(145,50)
BatDauBan()
elseif i == 2 then
SetTask(145,68)
BatDauBan()
end
end

function thuytinha()
SayEx({"Chi Ban Nhung <color=red>Thuy Tinh Huyen Bi:",
"Lam Thuy Tinh./bantta",
"Luc Thuy Tinh./bantta",
"Tu Thuy Tinh./bantta",
"Thoat./no"})
end

function huyentinha()

SayEx({"Cac Ban Chi Co The Ban Nhung Vat Pham Duoi Day:",
"Huyen Tinh 1./banhta",
"Huyen Tinh 2./banhta",
"Huyen Tinh 3./banhta",
"Huyen Tinh 4./banhta",
"Huyen Tinh 5/banhta",
"Huyen Tinh 6/banhta",
"Huyen Tinh 7/banhta",
"Huyen Tinh 8/banhta",
"Huyen Tinh 9/banhta",
"Huyen Tinh 10/banhta",
"Thoat./no"})
end

function bantta(nsel)
i = nsel+1
if i == 1 then
SetTask(145,3)
BatDauBan()
elseif i == 2 then
SetTask(145,7)
BatDauBan()
elseif i == 3 then
SetTask(145,11)
BatDauBan()
end
end

function banhta(nsel)
SetTask(145,nsel+35)
BatDauBan()
end

function BatDauBan()
a = 0
if getn(DANH_SACH_BAN) == 0 then
return
end
for i=1,getn(DANH_SACH_BAN) do
if DANH_SACH_BAN[i][6] == GetTask(145) and DANH_SACH_BAN[i][1] == 1 then
SetTask(146,i) -- id nguoi mua
SetTask(147,DANH_SACH_BAN[i][3]) -- so luong mua
SetTask(148,DANH_SACH_BAN[i][4])-- tienXumua
SetTask(149,GetTask(145)) -- vat pham mua
SayEx({"<color=red>"..DANH_SACH_BAN[i][5].."<color> Da Ban <color=blue>"..DANH_SACH_BAN[i][2].."<color>. So Luong: <color=yellow>"..DANH_SACH_BAN[i][3].."<color> So Tien: <color=green>"..DANH_SACH_BAN[i][4].."<color> Xu",
"Tui Se Mua./TaSeMua",
"Bo Qua Nguoi nay./boqua",
"Thoat./no"})
return
end
end
end
function boqua()
if GetTask(146) == getn(DANH_SACH_BAN) then
b = 1
else
b = GetTask(146)+1
end
for i=b,getn(DANH_SACH_BAN) do
if DANH_SACH_BAN[i][6] == GetTask(145) and DANH_SACH_BAN[i][1] == 1 then
SetTask(146,b) -- id nguoi mua
SetTask(147,DANH_SACH_BAN[i][3]) -- so luong mua
SetTask(148,DANH_SACH_BAN[i][4])-- tienXumua
SetTask(149,GetTask(145))
-- vat pham mua
SayEx({"<color=red>"..DANH_SACH_BAN[i][5].."<color> Da Ban <color=blue>"..DANH_SACH_BAN[i][2].."<color>. So Luong: <color=yellow>"..DANH_SACH_BAN[i][3].."<color> So Tien: <color=green>"..DANH_SACH_BAN[i][4].."<color> Xu",
"Tui Se Mua./TaSeMua",
"Bo Qua Nguoi nay./boqua",
"Thoat./no"})
return
end
end
end

function TaSeMua()
a = GetTask(148)
if GetTask(183) >= a then
for i=1,GetTask(147) do AddEventItem(GetTask(149)) end
SetTask(183,GetTask(183)-a)
Msg2Player("Ban Da Giao Dich Thanh Cong "..a.." Xu")
DANH_SACH_BAN[GetTask(146)][1] = 0
BANG = TaoBang(DANH_SACH_BAN,"DANH_SACH_BAN")
LuuBang("script/dulieu/danhsachban.lua",BANG)
Msg2SubWorld(""..GetName().." Vua Mua Cua "..DANH_SACH_BAN[GetTask(146)][5].." "..DANH_SACH_BAN[GetTask(146)][3].." Vien "..DANH_SACH_BAN[GetTask(146)][2].."")
ResetHet()
else
Talk(1,"","Ban Khong Mang Du "..a.." Xu")
end
end

function main3()
SetTask(163,0)
SetTask(164,0)
SayEx({"Ban Muon Ban Gi Vao Day: ",
"Huyen Tinh./huyentinh",
"Thuy Tinh./thuytinh",
"Exp./kinhnghiem",
"Bao Ruong./baoruong",
"Linh Tinh./linhtinh",
"Thoat./no"})
end
function linhtinh()
SayEx({"Chon Vat Pham:",
"Bi Kip 120./linhtinh1",
"Sat Thu Gian./linhtinh1",
"Lenh Bai Goi Boss./linhtinh1",
"Hop Qua Than Toc./linhtinh1",
"LB Truyen Thuyet./linhtinh1",
"LB Sinh Tu./linhtinh1",
"Le Bao Vuot Ai./linhtinh1",
"Thoat./no"})
end
function linhtinh1(nsel)
i = nsel+1
if i == 1 then
SetTask(145,47)
nhapsotien()
elseif i == 2 then
SetTask(145,46)
nhapsotien()
elseif i == 3 then
SetTask(145,48)
nhapsotien()
elseif i == 4 then
SetTask(145,70)
nhapsotien()
elseif i == 5 then
SetTask(145,83)
nhapsotien()
elseif i == 6 then
SetTask(145,84)
nhapsotien()
elseif i == 7 then
SetTask(145,80)
nhapsotien()
end
end

function kinhnghiem()
SayEx({"Nhap Gia Nhung Vat Pham Tang Exp:",
"Qua HH Tieu./kinhnghiem1",
"Qua HH Trung./kinhnghiem1",
"Qua HH Cao./kinhnghiem1",
"Qua Hoang Kim./kinhnghiem1",
"Banh Dac Hieu./kinhnghiem1",
"Le Bao May Man./kinhnghiem1",
"Thuoc Tang Luc./kinhnghiem1",
"Thoat./no"})
end

function kinhnghiem1(nsel)
i = nsel+1
if i == 1 then
SetTask(145,64)
nhapsotien()
elseif i == 2 then
SetTask(145,65)
nhapsotien()
elseif i == 3 then
SetTask(145,66)
nhapsotien()
elseif i == 4 then
SetTask(145,67)
nhapsotien()
elseif i == 5 then
SetTask(145,76)
nhapsotien()
elseif i == 6 then
SetTask(145,77)
nhapsotien()
elseif i == 7 then
SetTask(145,69)
nhapsotien()
end
end
function baoruong()
SayEx({"Chon Vat Pham:",
"Ruong Bac./baoruong1",
"Ruong Hoang Kim./baoruong1",
"Thoat./no"})
end

function baoruong1(nsel)
i = nsel+1
if i == 1 then
SetTask(145,50)
nhapsotien()
elseif i == 2 then
SetTask(145,68)
nhapsotien()
end
end

function thuytinh()
SayEx({"Chi Ban Nhung <color=red>Thuy Tinh Huyen Bi:",
"Lam Thuy Tinh./bantt",
"Luc Thuy Tinh./bantt",
"Tu Thuy Tinh./bantt",
"Thoat./no"})
end

function huyentinh()

SayEx({"Cac Ban Chi Co The Ban Nhung Vat Pham Duoi Day:",
"Huyen Tinh 1./banht",
"Huyen Tinh 2./banht",
"Huyen Tinh 3./banht",
"Huyen Tinh 4./banht",
"Huyen Tinh 5/banht",
"Huyen Tinh 6/banht",
"Huyen Tinh 7/banht",
"Huyen Tinh 8/banht",
"Huyen Tinh 9/banht",
"Huyen Tinh 10/banht",
"Thoat./no"})
end

function bantt(nsel)
i = nsel+1
if i == 1 then
SetTask(145,3)
nhapsotien()
elseif i == 2 then
SetTask(145,7)
nhapsotien()
elseif i == 3 then
SetTask(145,11)
nhapsotien()
end
end

function banht(nsel)
SetTask(145,nsel+35)
nhapsotien()
end

function nhapsoluong()
SayEx({"Ban Da Nhap So Tien La: <color=red>"..GetTask(163).."<color> Xu. Ban Ban Bao Nhieu Vien: ",
"0/number1",
"1/number1",
"2/number1",
"3/number1",
"4/number1",
"5/number1",
"6/number1",
"7/number1",
"8/number1",
"9/number1"})
end

function nhapsotien()
SayEx({"Ban Vui Long Nhap So Luong Muon Ban. Don Vi La <color=red>Xu<color>. Moi Lan Nhap <color=red>5<color> So: ",
"0/number6",
"1/number6",
"2/number6",
"3/number6",
"4/number6",
"5/number6",
"6/number6",
"7/number6",
"8/number6",
"9/number6"})
end

function conti7()
SayEx({"Ban Da Nhap So Tien La: <color=red>"..GetTask(163).."<color> Xu. Ban Ban Bao Nhieu Vien: ",
"0/number1",
"1/number1",
"2/number1",
"3/number1",
"4/number1",
"5/number1",
"6/number1",
"7/number1",
"8/number1",
"9/number1"})
end
function number6(nsel)
if GetTaskTemp(TaskPassRuong) <= 5 then
SetTaskTemp(TaskPassRuong,GetTaskTemp(TaskPassRuon g) + 1)
callnumber6(nsel)
end
end;

function number1(nsel)
if GetTaskTemp(TaskPassRuong) <= 2 then
SetTaskTemp(TaskPassRuong,GetTaskTemp(TaskPassRuon g) + 1)
callnumber7(nsel)
end
end

function Exit2()
if GetTask(164) == 0 then
Talk(1,"","Ban Phai Nhap It Nhat La 1 Vien Moi Co The Ban")
SetTaskTemp(TaskPassRuong,0)
else
SetTaskTemp(TaskPassRuong,0)
Infile()
end

end;
function callnumber7(id)
if GetTaskTemp(TaskPassRuong) == 1 then
SetTask(164,GetTask(164) + (10*id))
Talk(1,"conti7","So <color="..colorS()..">So Luong<color> Thu 1 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 2 then
SetTask(164,GetTask(164) + id)
Talk(1,"Exit2","<color="..colorS()..">Ban Da Nhap Tat Ca La <color=yellow>"..GetTask(164).."<color> Vien.")
end
end;
function Infile()
if GetItemCount(GetTask(145)) >= GetTask(164) then
for k=1,GetTask(164) do DelItem(GetTask(145)) end
thoigian = tonumber(date("%H%M%d%m"))
ten = GetName()
id = GetTask(145)
tenvatpham = timtenvp()
sotien = GetTask(163)
soluong = GetTask(164)
Msg2SubWorld(""..GetName().." Vua Bo "..timtenvp().." Vao Phong Dau Gia Voi Gia La: "..GetTask(163).." Xu/"..GetTask(164).." Vien")
Talk(1,"","Ban Da Dat Vao Bang Dau Gia: "..GetTask(164).." Vien "..timtenvp().."")
DANH_SACH_BAN[getn(DANH_SACH_BAN)+1] = {1,tenvatpham,soluong,sotien,ten,id,thoigian}
BANG = TaoBang(DANH_SACH_BAN,"DANH_SACH_BAN")
LuuBang("script/dulieu/danhsachban.lua",BANG)
Msg2SubWorld(""..GetName().." Vua Bo "..timtenvp().." Vao Phong Dau Gia Voi Gia La: "..GetTask(163).." Xu/"..GetTask(164).." Vien")
Msg2Player("Da Luu File Vao He Thong")
ResetHet()
else
Talk(1,"","Ban Khong Du "..GetTask(164).." Vien "..timtenvp().." ")
end
end

function ResetHet()
SetTask(145,0)
SetTask(146,0)
SetTask(147,0)
SetTask(148,0)
SetTask(149,0)
end

function timtenvp()
if GetTask(145) == 35 then
return "Huyen Tinh Cap 1"
elseif GetTask(145) == 36 then
return "Huyen Tinh Cap 2"
elseif GetTask(145) == 37 then
return "Huyen Tinh Cap 3"
elseif GetTask(145) == 38 then
return "Huyen Tinh Cap 4"
elseif GetTask(145) == 39 then
return "Huyen Tinh Cap 5"
elseif GetTask(145) == 40 then
return "Huyen Tinh Cap 6"
elseif GetTask(145) == 41 then
return "Huyen Tinh Cap 7"
elseif GetTask(145) == 42 then
return "Huyen Tinh Cap 8"
elseif GetTask(145) == 43 then
return "Huyen Tinh Cap 9"
elseif GetTask(145) == 44 then
return "Huyen Tinh Cap 10"
elseif GetTask(145) == 3 then
return "Lam Thuy Tinh"
elseif GetTask(145) == 7 then
return "Luc Thuy Tinh"
elseif GetTask(145) == 11 then
return "Tu Thuy Tinh"
elseif GetTask(145) == 46 then
return "Sat Thu Gian"
elseif GetTask(145) == 47 then
return "Bi Kip 120"
elseif GetTask(145) == 48 then
return "Lenh Bai Goi Boss"
elseif GetTask(145) == 50 then
return "Ruong Bac"
elseif GetTask(145) == 64 then
return "Qua HH Thap"
elseif GetTask(145) == 65 then
return "Qua HH Trung"
elseif GetTask(145) == 66 then
return "Qua HH Cao"
elseif GetTask(145) == 67 then
return "Qua Hoang Kim"
elseif GetTask(145) == 68 then
return "Ruong Hoang Kim"
elseif GetTask(145) == 70 then
return "Hop Qua Than Toc"
elseif GetTask(145) == 76 then
return "Banh Dacc Hieu"
elseif GetTask(145) == 77 then
return "Le Bao May Man"
elseif GetTask(145) == 80 then
return "Le Bao Vuot Ai"
elseif GetTask(145) == 83 then
return "Lenh Bai Truyen Thuyet"
elseif GetTask(145) == 84 then
return "Lenh Bai Sinh Tu"
elseif GetTask(145) == 69 then
return "Thuoc Tang Luc"

end
end

function conti1()
SayEx({"Ban Vui Long Nhap So Tien Muon Ban . Don Vi La <color=red>Xu<color>. Moi Lan Nhap <color=red>5<color> So: ",
"0/number6",
"1/number6",
"2/number6",
"3/number6",
"4/number6",
"5/number6",
"6/number6",
"7/number6",
"8/number6",
"9/number6"})
end
function callnumber6(id)
if GetTaskTemp(TaskPassRuong) == 1 then
SetTask(163,GetTask(163) + (10000*id))
Talk(1,"conti1","So <color="..colorS()..">Seri<color> Thu 1 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 2 then
SetTask(163,GetTask(163) + (1000*id))
Talk(1,"conti1","So <color="..colorS()..">Seri<color> Thu 2 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 3 then
SetTask(163,GetTask(163) + (100*id))
Talk(1,"conti1","So <color="..colorS()..">Seri<color> Thu 3 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 4 then
SetTask(163,GetTask(163) + (10*id))
Talk(1,"conti1","So <color="..colorS()..">Seri<color> Thu 4 Da Nhap La <color=yellow>"..id.."")
elseif GetTaskTemp(TaskPassRuong) == 5 then
SetTask(163,GetTask(163) + id)
Talk(1,"Exit1","<color="..colorS()..">Gia Moi Vien La: <color> Da Nhap Vao: <color=yellow>"..GetTask(163).." Xu.")
end
end;

function Exit1()
if GetTask(163) <= 50 then
Talk(1,"","Ban Moi Lan Ban Phai Tren 50 Xu")
SetTaskTemp(TaskPassRuong,0)

else
SetTaskTemp(TaskPassRuong,0)
nhapsoluong()
end
end;
function capnhat()
Say("<color=blue>Ho Tro Nhan Vat: <color>Cac ha tim ta co chuyen gi chang ?",3,
"Cap nhap thong tin nhan vat/cnttnv",
"Xem xep hang nhan vat/xxhnv",
--"Kiem Tra TOP./kiemtar",
"Thoat/no")
end;

Zin Kull

17-10-10, 09:50 AM

Bóc tem, thanks !!!! Để test..................
Vừa tạo cái máy ảo ;)) Để cài sv xem có good k :)
Nếu share cái này thì share lum cái danhsachban.lua lum;))

ThanhVipLn

17-10-10, 09:54 AM

Bóc tem, thanks !!!! Để test..................
Vừa tạo cái máy ảo Để cài sv xem có good k
Nếu share cái này thì share lum cái danhsachban.lua lum

Không BIk Đọc Hahaha

danhsachban.lua ne

DANH_SACH_BAN={}

chỉ có the thui

Zin Kull

17-10-10, 09:59 AM

nhìn vào mù cả con mắt lấy đâu ra mà tìm ra mấy cái chữ đó :)) thế còn kêu ng ta k bík đọc :|

Mr.Phát

17-10-10, 10:30 AM

hihi hay à nha . tks 1 phát ;))

ThanhVipLn

17-10-10, 10:32 AM

function capnhat()
Say("<color=blue>Ho Tro Nhan Vat: <color>Cac ha tim ta co chuyen gi chang ?",3,
"Cap nhap thong tin nhan vat/cnttnv",
"Xem xep hang nhan vat/xxhnv",
--"Kiem Tra TOP./kiemtar",
"Thoat/no")
end;

Del DI Nha. Nhầm hnàg đó
Sao mấy cha màu tím hết rùi :((

kinkina2009

17-10-10, 10:35 AM

script này nhìn vào là biết bug item được ngay \m/

Mr.Phát

17-10-10, 10:49 AM

script này nhìn vào là biết bug item được ngay \m/
nhỳn đâu cũng thấy bug hết vậy ôg ;)) chỉ cho chủ 2pic fix đi :)

ThanhVipLn

17-10-10, 11:40 AM

Ah Cái này danh cho offline ko phải online nhé king
Bug dupe đồ chỉ ở online thui
offline ko bị nhé :))

kinkina2009

17-10-10, 02:33 PM

oh yes 8-}