PDA

View Full Version : [JX] Ai sửa giúp mình script này vừa làm ! Thanks trước !


kenthp
19-07-12, 10:19 PM
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
19-07-12, 10:29 PM
bạn thêm 1 cái end vào nữa là được
haquocvu
19-07-12, 10:42 PM
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
19-07-12, 10:44 PM
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
19-07-12, 10:58 PM
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
20-07-12, 12:05 AM
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
20-07-12, 01:28 AM
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
20-07-12, 03:28 PM
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
21-07-12, 06:31 PM
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
21-07-12, 07:14 PM
bạn dùng server gì thế. AWJX có chuyển sinh rồi mà
SIR.ThaiBinh
22-07-12, 12:24 PM
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ô đỏ !
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 đỡ !