PDA

View Full Version : S3Relay



[S]ocola[S]an
31-10-10, 02:03 PM
Cho hỏi khi vừa bật server cỡ 20 - > 30p gì đó là S3Relay nó báo error mà cái bảng error đó bị don't respond .. Gùi cỡ 5p sau nó Don't Send S3Relay ..
Ai bik fix lỗi này chỉ mình với ^^...

nguyentrunghbl
31-10-10, 02:17 PM
Win 7 nó vậy đó San!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[S]ocola[S]an
31-10-10, 03:14 PM
Nhân tiện sửa dùm cái nhiếp thí trần nỳ lun ^^

---------------------------------------------------------
----Author: DNTmaster
---------------------------------------------------------
Include("\\Script\\global\\sourcejx49.lua");
Include("\\Script\\global\\luyencong.lua");
can = "Thoat./Exit"
cash = {2000000,500000,200000,100000}

function main()
a = ReadKiller()
if GetTask(TaskSatThu) >= 10 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Hien tai nguoi dang nhan nhiem vu truy sat: Boss Sat Thu Khong the tiep tuc nhiem vu khi chua hoan thanh.","Ta muon huy nhiem vu nay./deletekiller",can})
elseif GetTask(TaskSatThu) == 2 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi da tieu diet duoc boss sat thu.","Hay nhan phan thuong cua ta./tranv",can})
else
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi muon biet nhu the nao la mot sat thu hay khong? Ta se cho nguoi thay su tai nang cua mot sat thu mau lanh.",
"①.Lua Chon Boss./nhiepthithan",
"②.Doi Bi Kiep 90 [Phai]./traodoi",
"③.Tao Sat Thu Gian./makesatthugian",
"④.Ghep Lenh Bai Hoang Kim./thuyen",
"⑤.Thoat./Exit"})
end
end;
function traodoi()
if GetItemCount(15) >= 2 and GetCash() >=cash[3] then
for i =1,2 do DelItem(15) end
Pay(cash[3])
z = random(86,113)
AddEventItem(z)
else Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>De doi bi kip mon phai 90 can<color=yellow> 20 van va 2 sat thu lenh.")
end
end

function thuyen()
if GetItemCount(16) >= 5 and GetCash() >=cash[1] then
for i =1,5 do DelItem(16)
end
Pay(cash[1])
AddEventItem(222)
else Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>De tao thanh can co<color=yellow> 5 sat thu gian va 200 van.")
end
end

function nhiepthithan()
level = GetLevel()
if level >= 90 and GetCash() >=cash[4] then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Chao dai hiep nguoi co muon thu suc voi cac Sat Thu cua ta hay khong ?\nNeu co thi hay luc chon nguoi thach dau...","Cap 90./x9",can})
else
Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>: Cap do chua dat 90 hay khong du 10v de tuyen chien voi Boss Sat Thu.")
end;
end;

function x9()
l = random(1,10)
if l == 1 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Huyen Thoai Sat Thu./game1"})
i = random(1,getn(toadorandom))
MoveNPC(53,189,206,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1516,3308)--189,206


elseif l == 2 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Nhan Thu./game2"})
i = random(1,getn(toadorandom))
MoveNPC(53,185,211,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1490,3389)--185,211


elseif l == 3 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Gai./game3"})
i = random(1,getn(toadorandom))
MoveNPC(53,201,212,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1615,3400)--201,212


elseif l == 4 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Huyen Bi Sat Thu./game4"})
i = random(1,getn(toadorandom))
MoveNPC(53,222,198,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1784,3185)--222,198


elseif l == 5 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Thu Ba Lang./game5"})
i = random(1,getn(toadorandom))
MoveNPC(53,217,190,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1746,3057)--217,190


elseif l == 6 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Ninja Rua./game6",can})
i = random(1,getn(toadorandom))
MoveNPC(53,201,184,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1610,2957)--201,184


elseif l == 7 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Doc Nhan./game7",can})
i = random(1,getn(toadorandom))
MoveNPC(53,192,183,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1546,2932)--192,183


elseif l == 8 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Tay Sat Gai./game8",can})
i = random(1,getn(toadorandom))
MoveNPC(53,187,189,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1502,3043)--187,189


elseif l == 9 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Thu Chuyen Nghiep./game9"})
i = random(1,getn(toadorandom))
MoveNPC(53,179,212,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1441,3412)--179,212


elseif l == 10 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Ninja Sat Thu./game10"})
i = random(1,getn(toadorandom))
MoveNPC(53,194,190,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1554,3049)--194,190

end;
end;

function game1(nsel)
a = ReadKiller()
SetTask(TaskSatThu,10)

end;
function game2(nsel)
a = ReadKiller()
SetTask(TaskSatThu,11)

end;

function game3(nsel)
a = ReadKiller()
SetTask(TaskSatThu,12)

end;

function game4(nsel)
a = ReadKiller()
SetTask(TaskSatThu,13)

end;
function game5(nsel)
a = ReadKiller()
SetTask(TaskSatThu,14)

end;

function game6(nsel)
a = ReadKiller()
SetTask(TaskSatThu,15)

end;

function game7(nsel)
a = ReadKiller()
SetTask(TaskSatThu,16)

end;

function game8(nsel)
a = ReadKiller()
SetTask(TaskSatThu,17)

end;

function game9(nsel)
a = ReadKiller()
SetTask(TaskSatThu,18)

end;

function game10(nsel)
a = ReadKiller()
SetTask(TaskSatThu,19)

end;


function deletekiller()
SetTask(TaskSatThu,0)
Msg2Player("Huy bo nhiem vu Boss sat thu thanh cong.")
end;

function makesatthugian()
if GetItemCount(15) >= 5 and GetCash() >=cash[2] then
for i =1,5 do DelItem(15) end
Pay(cash[2])
AddEventItem(16)
else Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>De tao thanh can co<color=yellow> 5 sat thu lenh va 50 van.")
end
end;
function tranv()
if GetTask(TaskSatThu) == 2 then
AddOwnExp(500000)
AddRepute(5)
Msg2Player("Nhan duoc 5 danh vong va 1 sat thu lenh.")
SetTask(TaskSatThu,0)
AddEventItem(15)
else Msg2Player("Nguoi da nhan thuong roi.")
end
end;

function addsatthu()

AddNPCEx(918,105,53,189,206,4,5,"\\script\\eventsan\\satthu\\giacatkinhhong.lua",5)
AddNPCEx(919,105,53,185,211,13,8,"\\script\\eventsan\\satthu\\phanngatnhan.lua",5)
AddNPCEx(920,105,53,201,212,13,3,"\\script\\eventsan\\satthu\\lienhinhthai.lua",5)
AddNPCEx(921,105,53,222,198,12,9,"\\script\\eventsan\\satthu\\baotrietson.lua",5)
AddNPCEx(922,105,53,217,190,12,10,"\\script\\eventsan\\satthu\\vanhotinh.lua",5)
AddNPCEx(923,105,53,201,184,4,6,"\\script\\eventsan\\satthu\\truthienman.lua",5)
AddNPCEx(924,105,53,192,183,11,3,"\\script\\eventsan\\satthu\\doanlangnguyet.lua",5)
AddNPCEx(925,105,53,187,189,9,11,"\\script\\eventsan\\satthu\\tadatminh.lua",5)
AddNPCEx(926,105,53,179,212,9,13,"\\script\\eventsan\\satthu\\nhamthuongkhung.lua",5)
AddNPCEx(917,105,53,194,190,4,5,"\\script\\eventsan\\satthu\\cothudang.lua",5)

end;

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>

jxvietnam
31-10-10, 04:23 PM
script Nhiếp Thị Trần của THD2.0 tui cũng đang xài đâu có sao đâu:(

[S]ocola[S]an
31-10-10, 04:33 PM
TUi cũng lấy từ THD 2.0 đó mà cái gameserver nó báo lỗi cái sourcejx49.lua

Phần nỳ nè :

function ReadKiller()
local killer_data = openfile("Settings/killer.txt", "r");
str_killer_data = read(killer_data,"*all")
local tab_killer = split(str_killer_data,"\n")
killer_data_count = getn(tab_killer) - 1
is_killer = {}
is_killer_temp = {}
for i=1,killer_data_count do
is_killer[i] = split(tab_killer[i],"\t")
is_killer_temp[i] = is_killer[i]
end;
closefile(killer_data);
return is_killer_temp
end;

Mr.Phát
31-10-10, 04:41 PM
Nhân tiện sửa dùm cái nhiếp thí trần nỳ lun ^^

---------------------------------------------------------
----Author: DNTmaster
---------------------------------------------------------
Include("\\Script\\global\\sourcejx49.lua");
Include("\\Script\\global\\luyencong.lua");
can = "Thoat./Exit"
cash = {2000000,500000,200000,100000}

function main()
a = ReadKiller()
if GetTask(TaskSatThu) >= 10 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Hien tai nguoi dang nhan nhiem vu truy sat: Boss Sat Thu Khong the tiep tuc nhiem vu khi chua hoan thanh.","Ta muon huy nhiem vu nay./deletekiller",can})
elseif GetTask(TaskSatThu) == 2 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi da tieu diet duoc boss sat thu.","Hay nhan phan thuong cua ta./tranv",can})
else
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi muon biet nhu the nao la mot sat thu hay khong? Ta se cho nguoi thay su tai nang cua mot sat thu mau lanh.",
"①.Lua Chon Boss./nhiepthithan",
"②.Doi Bi Kiep 90 [Phai]./traodoi",
"③.Tao Sat Thu Gian./makesatthugian",
"④.Ghep Lenh Bai Hoang Kim./thuyen",
"⑤.Thoat./Exit"})
end
end;
function traodoi()
if GetItemCount(15) >= 2 and GetCash() >=cash[3] then
for i =1,2 do DelItem(15) end
Pay(cash[3])
z = random(86,113)
AddEventItem(z)
else Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>De doi bi kip mon phai 90 can<color=yellow> 20 van va 2 sat thu lenh.")
end
end ---- thiếu ;

function thuyen()
if GetItemCount(16) >= 5 and GetCash() >=cash[1] then
for i =1,5 do DelItem(16)
end
Pay(cash[1])
AddEventItem(222)
else Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>De tao thanh can co<color=yellow> 5 sat thu gian va 200 van.")
end
end ----------- thiếu như trên

function nhiepthithan()
level = GetLevel()
if level >= 90 and GetCash() >=cash[4] then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Chao dai hiep nguoi co muon thu suc voi cac Sat Thu cua ta hay khong ?\nNeu co thi hay luc chon nguoi thach dau...","Cap 90./x9",can})
else
Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>: Cap do chua dat 90 hay khong du 10v de tuyen chien voi Boss Sat Thu.")
end;
end;

function x9()
l = random(1,10)
if l == 1 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Huyen Thoai Sat Thu./game1"})
i = random(1,getn(toadorandom))
MoveNPC(53,189,206,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1516,3308)--189,206


elseif l == 2 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Nhan Thu./game2"})
i = random(1,getn(toadorandom))
MoveNPC(53,185,211,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1490,3389)--185,211


elseif l == 3 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Gai./game3"})
i = random(1,getn(toadorandom))
MoveNPC(53,201,212,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1615,3400)--201,212


elseif l == 4 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Huyen Bi Sat Thu./game4"})
i = random(1,getn(toadorandom))
MoveNPC(53,222,198,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1784,3185)--222,198


elseif l == 5 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Thu Ba Lang./game5"})
i = random(1,getn(toadorandom))
MoveNPC(53,217,190,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1746,3057)--217,190


elseif l == 6 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Ninja Rua./game6",can})
i = random(1,getn(toadorandom))
MoveNPC(53,201,184,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1610,2957)--201,184


elseif l == 7 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Doc Nhan./game7",can})
i = random(1,getn(toadorandom))
MoveNPC(53,192,183,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1546,2932)--192,183


elseif l == 8 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Tay Sat Gai./game8",can})
i = random(1,getn(toadorandom))
MoveNPC(53,187,189,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1502,3043)--187,189


elseif l == 9 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Sat Thu Chuyen Nghiep./game9"})
i = random(1,getn(toadorandom))
MoveNPC(53,179,212,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1441,3412)--179,212


elseif l == 10 then
SayEx({"<color="..colorS()..">Nhiep Thi Than<color>: Nguoi can danh bai:",
"Ninja Sat Thu./game10"})
i = random(1,getn(toadorandom))
MoveNPC(53,194,190,toadorandom[i][1],toadorandom[i][2],0,1);
--NewWorld(53,1554,3049)--194,190

end;
end;

function game1(nsel)
a = ReadKiller()
SetTask(TaskSatThu,10)

end;
function game2(nsel)
a = ReadKiller()
SetTask(TaskSatThu,11)

end;

function game3(nsel)
a = ReadKiller()
SetTask(TaskSatThu,12)

end;

function game4(nsel)
a = ReadKiller()
SetTask(TaskSatThu,13)

end;
function game5(nsel)
a = ReadKiller()
SetTask(TaskSatThu,14)

end;

function game6(nsel)
a = ReadKiller()
SetTask(TaskSatThu,15)

end;

function game7(nsel)
a = ReadKiller()
SetTask(TaskSatThu,16)

end;

function game8(nsel)
a = ReadKiller()
SetTask(TaskSatThu,17)

end;

function game9(nsel)
a = ReadKiller()
SetTask(TaskSatThu,18)

end;

function game10(nsel)
a = ReadKiller()
SetTask(TaskSatThu,19)

end;


function deletekiller()
SetTask(TaskSatThu,0)
Msg2Player("Huy bo nhiem vu Boss sat thu thanh cong.")
end;

function makesatthugian()
if GetItemCount(15) >= 5 and GetCash() >=cash[2] then
for i =1,5 do DelItem(15) end
Pay(cash[2])
AddEventItem(16)
else Talk(1,"","<color="..colorS()..">Nhiep Thi Than<color>De tao thanh can co<color=yellow> 5 sat thu lenh va 50 van.")
end
end;
function tranv()
if GetTask(TaskSatThu) == 2 then
AddOwnExp(500000)
AddRepute(5)
Msg2Player("Nhan duoc 5 danh vong va 1 sat thu lenh.")
SetTask(TaskSatThu,0)
AddEventItem(15)
else Msg2Player("Nguoi da nhan thuong roi.")
end
end;

function addsatthu()

AddNPCEx(918,105,53,189,206,4,5,"\\script\\eventsan\\satthu\\giacatkinhhong.lua",5)
AddNPCEx(919,105,53,185,211,13,8,"\\script\\eventsan\\satthu\\phanngatnhan.lua",5)
AddNPCEx(920,105,53,201,212,13,3,"\\script\\eventsan\\satthu\\lienhinhthai.lua",5)
AddNPCEx(921,105,53,222,198,12,9,"\\script\\eventsan\\satthu\\baotrietson.lua",5)
AddNPCEx(922,105,53,217,190,12,10,"\\script\\eventsan\\satthu\\vanhotinh.lua",5)
AddNPCEx(923,105,53,201,184,4,6,"\\script\\eventsan\\satthu\\truthienman.lua",5)
AddNPCEx(924,105,53,192,183,11,3,"\\script\\eventsan\\satthu\\doanlangnguyet.lua",5)
AddNPCEx(925,105,53,187,189,9,11,"\\script\\eventsan\\satthu\\tadatminh.lua",5)
AddNPCEx(926,105,53,179,212,9,13,"\\script\\eventsan\\satthu\\nhamthuongkhung.lua",5)
AddNPCEx(917,105,53,194,190,4,5,"\\script\\eventsan\\satthu\\cothudang.lua",5)

end;

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>

viết thiếu ; kìa ko pík phải ko vì tui ko phải pro code ! nhưng vui lòng check lại thử xem

[S]ocola[S]an
31-10-10, 05:19 PM
Cái dấu phẩy đó khỏi quan tâm
GameServer báo line 10 nhiepthitran.lua thì là cái nỳ a = ReadKiller()
Sau đó nó báo trong sourcejx49.lua sai =)) =))

thaihoa91
31-10-10, 05:55 PM
Đây là đoạn định nghĩa hàm ReadKiller trong sourcejx49.lua


function ReadKiller()
local killer_data = openfile("Settings/killer.txt", "r");
str_killer_data = read(killer_data,"*all")
local tab_killer = split(str_killer_data,"\n")
killer_data_count = getn(tab_killer) - 1
is_killer = {}
is_killer_temp = {}
for i=1,killer_data_count do
is_killer[i] = split(tab_killer[i],"\t")
is_killer_temp[i] = is_killer[i]
end;
closefile(killer_data);
return is_killer_temp
end;

Kiểm tra thư mục Settings của Server đã có file killer.txt chưa ?

Đây là khúc mở 1 file .txt chỉ định ! Nếu ko có file thì rất dễ báo lỗi !

Khoảng 80% anh đoán là nó ko có file nên báo lỗi thế đấy ;))

tungpro102
31-10-10, 06:00 PM
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
SaRelay don't send = Câm và điếc :D, ko chat được nên thân ai nấy lo :P
Fix: 1/ config pass sa cẩn thận chút hết bị
2/ Copy Data trong jx 49 vào hết bị
*/ TQ còn cả foder IP nữa

[S]ocola[S]an
31-10-10, 08:17 PM
Đây là đoạn định nghĩa hàm ReadKiller trong sourcejx49.lua



Kiểm tra thư mục Settings của Server đã có file killer.txt chưa ?

Đây là khúc mở 1 file .txt chỉ định ! Nếu ko có file thì rất dễ báo lỗi !

Khoảng 80% anh đoán là nó ko có file nên báo lỗi thế đấy ;))

Killer.txt đã có anh Hòa
Bị lỗi cái nỳ trong code ReadKiller :

function ReadKiller()
local killer_data = openfile("Settings/killer.txt", "r");
str_killer_data = read(killer_data,"*all")
local tab_killer = split(str_killer_data,"\n")
killer_data_count = getn(tab_killer) - 1
is_killer = {}
is_killer_temp = {}
for i=1,killer_data_count do
is_killer[i] = split(tab_killer[i],"\t")
is_killer_temp[i] = is_killer[i]
end;
closefile(killer_data);
return is_killer_temp
end;

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>