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

**SIR.ThaiBinh** · 22-07-12, 12:24 PM

Gửi bởi kenthp [Only registered and activated users can see links. ]

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:

Code:

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.

Code:

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ô đỏ !

cái này thừa end bạn à đây không phải là mạch rẻ nhánh nên vứt end đi nha nếu hay thì thank cái nha

**kenthp** · 24-07-12, 06:24 PM

đã sửa được hết script và thêm được lublib có thể setlv đc rồi! Close ! Thanks ae đã giúp đỡ !

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

Công cụ Chủ đề

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

The Following 2 Users Say Thank You to SIR.ThaiBinh For This Useful Post:

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

Các Chủ đề tương tự

Một số script trong thư mục script Vina (unpack)

Script về ngũ hành nhân vật

Mây pro vào chỉnh sửa script này giúp em cái

Script Ủy Thác Rời Mạng

Quyền viết bài