Ai sửa giúp mình script này vừa làm ! Thanks trước !

[kenthp]

Mình là newbie vừa tập code script cái Lệnh Bài GM và Chuyển Sinh. Nhưng cứ báo sai end ai chỉ giúp mình với ! Thanks!

Đây là code Hỗ Trợ GM:

Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\manager.lua")
Include("\\script\\global\\luyencong.lua")
--------------------------------------------------------------


listgm={{"JXtester","Admin"}}

function admincheck()
	for i=1,getn(listgm) do
		if GetName() == listgm[i][1] then
return1
end
end


function main()
		if admincheck() == 1 then
			SayEx({"<color=cyan>Hổ trợ GM:<color> Xin chào GM cần gì ?",
				"Trở lại điểm cũ/backupdiadiem",
				"Đi tới các thành thị/thanhthi",
				"Khu vực luyện công 1/luyencong1",
				"Khu vực luyện công 2/luyencong3",
				"Chức năng Admin/WritePass",
				"Add Boss HK1/addboss1",
				"Add Boss HK2/addboss2",
				"Dell Boss HK1/dellboss1",
				"Dell Boss HK2/dellboss2",
				"Thoát/Exit"})
		
end

function backupdiadiem()
	ReturnFromPortal()
end

function thanhthi()
SayEx({"<color=cyan>Hỗ Trợ GM<color>:",
"Tương Dương/thanh",
"Phượng Tường/thanh",
"Dương Châu/thanh",
"Thành Đô/thanh",
"Biện Kinh/thanh",
"Ba Lăng Huyện/thanh",
"Trở lại/main",
"Thoát/no"})
end

function thanh(sel)
MoveCastle(sel +1)
end

function MoveCastle(id)
	if id == 1 then -- tuong duong
		post = random(0,3)
		if post == 0 then
		MoveNPC(37,179,201,8+random(-2,2),4+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Tương Dương")
		SetRevPos(53,200*8,200*16)
		elseif post == 1 then
		MoveNPC(37,188,196,6+random(-2,2),4+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Tương Dương")
		SetRevPos(53,200*8,200*16)
		elseif post == 2 then
		MoveNPC(37,198,211,5+random(-2,2),0+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Tương Dương")
		SetRevPos(53,200*8,200*16)
		elseif post == 3 then
		MoveNPC(37,212,201,8+random(-2,2),5+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Tương Dương")
		SetRevPos(53,200*8,200*16)
		end
	elseif id == 2 then --phuong tuong
		post = random(0,3)
		if post == 0 then
		MoveNPC(36,191,202,6+random(-2,2),4+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Phượng Tường")
		SetRevPos(53,200*8,200*16)
		elseif post == 1 then
		MoveNPC(36,205,204,4+random(-2,2),8+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Phượng Tường")
		SetRevPos(53,200*8,200*16)
		elseif post == 2 then
		MoveNPC(36,206,198,5+random(-2,2),1+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Phượng Tường")
		SetRevPos(53,200*8,200*16)
		elseif post == 3 then
		MoveNPC(36,194,194,5+random(-2,2),5+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Phượng Tường")
		SetRevPos(53,200*8,200*16)
		end
	elseif id == 3 then --duong chau
		post = random(0,3)
		if post == 0 then
		MoveNPC(39,209,187,0+random(-2,2),3+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Dương Châu")
		SetRevPos(53,200*8,200*16)
		elseif post == 1 then
		MoveNPC(39,199,200,5+random(-2,2),1+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Dương Châu")
		SetRevPos(53,200*8,200*16)
		elseif post == 2 then
		MoveNPC(39,215,200,5+random(-2,2),8+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Dương Châu")
		SetRevPos(53,200*8,200*16)
		elseif post == 3 then
		MoveNPC(39,229,191,3+random(-2,2),2+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Dương Châu")
		SetRevPos(53,200*8,200*16)
		end
	elseif id == 4 then --thanh do
		post = random(0,3)
		if post == 0 then	
		MoveNPC(40,377,318,0+random(-2,2),3+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Thành Đô")
		SetRevPos(53,200*8,200*16)
		elseif post == 1 then
		MoveNPC(40,399,324,2+random(-2,2),5+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Thành Đô")
		SetRevPos(53,200*8,200*16)
		elseif post == 2 then
		MoveNPC(40,408,312,8+random(-2,2),3+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Thành Đô")
		SetRevPos(53,200*8,200*16)
		elseif post == 3 then
		MoveNPC(40,378,310,1+random(-2,2),0+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Thành Đô")
		SetRevPos(53,200*8,200*16)
		end
	elseif id == 5 then --bien kinh
		post = random(0,3)
		if post == 0 then
		MoveNPC(38,204,199,6+random(-2,2),0+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Biện Kinh")
		SetRevPos(53,200*8,200*16)
		elseif post == 1 then
		MoveNPC(38,213,201,3+random(-2,2),8+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Biện Kinh")
		SetRevPos(53,200*8,200*16)
		elseif post == 2 then
		MoveNPC(38,233,182,5+random(-2,2),8+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Biện Kinh")
		SetRevPos(53,200*8,200*16)
		elseif post == 3 then
		MoveNPC(38,199,187,7+random(-2,2),6+random(-2,2),500,0);
		SetRevPos(53,200*8,200*16)
		Msg2Player("Ngồi yên! Chúng ta đến Biện Kinh")
		end;
	elseif id == 6 then --ba lang huyen
		MoveNPC(53,197,202,6+random(-2,2),4+random(-2,2),500,0);
		SetRevPos(53,200*8,200*16)
		Msg2Player("Ngồi yên! Chúng ta đến Ba Lăng huyện")
	elseif id == 7 then --giang tan thon
		MoveNPC(25,432,382,3+random(-2,2),1+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Giang Tân thôn")
	elseif id == 8 then --nam nhac tran
		MoveNPC(26,198,193,4+random(-2,2),8+random(-2,2),500,0);
		Msg2Player("Ngồi yên! Chúng ta đến Nam Nhạc trấn")
	end
end

------------------------Fan PassWorld ADMIN thay doi tu do----
		MATKHAU = {3,4,4,3,3,4}
function WritePass()
if GetTaskTemp(57) == 1 then
		manager()
else
SayEx({"<color=red>Hệ thống<color>: Xin mời nhập mật khẩu Admin",
		"1/number",
		"2/number",
		"3/number",
		"4/number",
		"5/number",
		"6/number",
		"7/number",
		"8/number",
		"9/number",
		"0/number",
		"Thoát/finish"})
	end
end

function number(sel)
id = sel + 1
if id == 10 then
id = 0
end
if GetTaskTemp(55) == 0 then
	if (id == MATKHAU[1]) then
			SetTaskTemp(55,GetTaskTemp(55)+1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	else
			SetTaskTemp(55,GetTaskTemp(55)+1)
			SetTaskTemp(56,1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	end
elseif GetTaskTemp(55) == 1 then
	if (id == MATKHAU[2]) then
			SetTaskTemp(55,GetTaskTemp(55)+1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	else
			SetTaskTemp(55,GetTaskTemp(55)+1)
			SetTaskTemp(56,1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	end
elseif GetTaskTemp(55) == 2 then
	if (id == MATKHAU[3]) then
			SetTaskTemp(55,GetTaskTemp(55)+1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	else
			SetTaskTemp(55,GetTaskTemp(55)+1)
			SetTaskTemp(56,1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	end
elseif GetTaskTemp(55) == 3 then
	if (id == MATKHAU[4]) then
			SetTaskTemp(55,GetTaskTemp(55)+1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	else
			SetTaskTemp(55,GetTaskTemp(55)+1)
			SetTaskTemp(56,1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	end
elseif GetTaskTemp(55) == 4 then
	if (id == MATKHAU[5]) then
			SetTaskTemp(55,GetTaskTemp(55)+1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	else
			SetTaskTemp(55,GetTaskTemp(55)+1)
			SetTaskTemp(56,1)
			WritePass()
			Msg2Player("Bạn nhập vào số "..id.."")
	end
elseif GetTaskTemp(55) == 5 then
	if (id == MATKHAU[6]) then
			SetTaskTemp(55,GetTaskTemp(55)+1)
			Msg2Player("Bạn nhập vào số "..id.."")
			CheckPass()
	else
			SetTaskTemp(55,GetTaskTemp(55)+1)
			SetTaskTemp(56,1)
			CheckPass()
			Msg2Player("Bạn nhập vào số "..id.."")
	end

end
end

function finish()
KickOutSelf()
end

function CheckPass()
if GetTaskTemp(56) >= 1 then
	Talk(1,"finish","Admin Server\nMật khẩu Admin sai")
else
			SetTaskTemp(55,0)
			SetTaskTemp(57,1)
			Msg2Player("Xin mời lựa chọn chức năng Admin")
			manager()
end
end

Đây là code Chuyển Sinh (Mình chỉ code sau khi chuyển sinh sẽ setlevel(10), thềm tiềm năng, kỹ năng và add skill Chuyển sinh.

Include("\\script\\source\\sourcejx49.lua")

function main()
if GetTask(cs) <= 4 then
Say("<color=cyan>Bạn đã Chuyển Sinh "..GetTask(cs).." lần",3,
		"Chuyển Sinh (lần "..(GetTask(cs) + 1)..")/chuyensinh",
		"Nhận Kỹ Năng CS/skillcs",
		"Thoát/Exit")
else
Say("<color=cyan>Bạn đã Chuyển Sinh "..GetTask(cs).." lần",3,
		"Chuyển Sinh Cực Hạn/chuyensinh",
		"Nhận Kỹ Năng CS/skillcs",
		"Thoát/Exit")
end
end

function chuyensinh()
if GetTask(cs) == 0 then
chuyensinh1()
elseif GetTask(cs) == 1 then
end
end

function chuyensinh1()
if GetLevel() >= 150 then
if GetCash() >= 5000000 then
pay(5000000)
SetLevel(10) 
AddMagic(369,1)
SetTask(cs,1)
AddProp(50)
AddMagicPoint(1)
Msg2Player("Bạn đã Chuyển Sinh lần thứ "..GetTask(cs).."")
KickOutSelf()
else
Talk(1,"","Bạn chưa đạt cấp độ 150, không thể CS")
end
else
Talk(1,"","Bạn Không đem đủ 500 Vạn kìa !")
end
end



function skillcs()
if GetTask(cs) == 0 then
skillcs0()
elseif GetTask(cs) == 1 then
skillcs1()
end
end

function skillcs0()
Talk(1,"","Bạn chưa Chuyển Sinh, không thể nhận kỹ năng CS")
Msg2Player("Bạn chưa Chuyển Sinh, không thể nhận kỹ năng CS")
end

function skillcs1()
AddMagic(369,1)
Msg2Player("Bạn đã nhận được kỹ năng Chuyển Sinh lần thứ "..GetTask(cs).."")
end

P/S: Mình thấy nó báo sai end ở phần tô đỏ !

[Manner]

bạn thêm 1 cái end vào nữa là được

[haquocvu]

Vừa vào là đã thấy sai ngay, thiếu 1 cái "end", đúng ra phải là 2 cái "end" (1 "end" cho hàm if và 1 "end" kết thúc fuction main).

function main()
        if admincheck() == 1 then
            SayEx({"<color=cyan>Hổ trợ GM:<color> Xin chào GM cần gì ?",
                "Trở lại điểm cũ/backupdiadiem",
                "Đi tới các thành thị/thanhthi",
                "Khu vực luyện công 1/luyencong1",
                "Khu vực luyện công 2/luyencong3",
                "Chức năng Admin/WritePass",
                "Add Boss HK1/addboss1",
                "Add Boss HK2/addboss2",
                "Dell Boss HK1/dellboss1",
                "Dell Boss HK2/dellboss2",
                "Thoát/Exit"})
        end
end

[kenthp]

bạn thêm 1 cái end vào nữa là được

Mình đã thêm rồi nó vẫn báo lỗi ra vầy

error: '=' expected;
last token read: 'end' line 18 in string
script error 3: (\script\moilam\hotrogm.lua)

[haquocvu]

listgm={{"JXtester","Admin"}}

function admincheck()
    for i=1,getn(listgm) do
        if GetName() == listgm[i][1] then
return1
end
end
end

Bạn thử thêm 1 chữ end nữa xem, mình nghĩ bạn thiếu end cho vòng lặp for

[kenthp]

listgm={{"JXtester","Admin"}}

function admincheck()
    for i=1,getn(listgm) do
        if GetName() == listgm[i][1] then
return1
end
end
end

Bạn thử thêm 1 chữ end nữa xem, mình nghĩ bạn thiếu end cho vòng lặp for

mình cũng đã thêm end chỗ đấy vẫn bị lỗi trên hjxhjx ! mới tập code mà ngồi cả ngày mỏi mắt thiếu tùm lum

[DNTmaster]

listgm={{"JXtester","Admin"}}

function admincheck()
    for i=1,getn(listgm) do
        if GetName() == listgm[i][1] then
        return 1
        end
    end
end 

function main()
        if admincheck() == 1 then
            SayEx({"<color=cyan>Hổ trợ GM:<color> Xin chào GM cần gì ?",
                "Trở lại điểm cũ/backupdiadiem",
                "Đi tới các thành thị/thanhthi",
                "Khu vực luyện công 1/luyencong1",
                "Khu vực luyện công 2/luyencong3",
                "Chức năng Admin/WritePass",
                "Add Boss HK1/addboss1",
                "Add Boss HK2/addboss2",
                "Dell Boss HK1/dellboss1",
                "Dell Boss HK2/dellboss2",
                "Thoát/Exit"})
        
        end
end 

[kenthp]

thanks nạn DNT nha! OK rồi! Bạn giúp mình xem cái code CS lun được khôg ? :H mình vào CS nhưng vẫn không được ! thạnks

cuối cùng newbie tui cũng nghiệm ra là server mình đang dùng ko có SetLevel ! Vậy script CS không thể hạ level trợ lại đc sao ?

[thaihoa91]

cuối cùng newbie tui cũng nghiệm ra là server mình đang dùng ko có SetLevel ! Vậy script CS không thể hạ level trợ lại đc sao ?

Trong JX, thì .lua chỉ hỗ trợ gọi hàm từ Source game C++ của JX để xài, còn đa fần mún tự định nghĩa 1 hàm liên quan sâu bên trong thì fải làm từ Source !

[Learning]

bạn dùng server gì thế. AWJX có chuyển sinh rồi mà