[JX] Ai sửa giúp mình script này vừa làm ! Thanks trước ! - Trang 2
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Trang 2 của 2 Đầu tiênĐầu tiên 1 2
Kết quả 11 đến 12 của 12
  1. #11
    Thành Viên SIR.ThaiBinh's Avatar
    Ngày tham gia
    Jan 2012
    Đang ở
    —»(¯™°•¤_kµ†€_£øñ€_ £¥_¤•°™¯) ¯ßuNyE JEn???´¯)
    Bài viết
    561
    Thanks
    65
    Thanked 141 Times in 83 Posts

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

    Trích dẫn 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
    Spam nhẹ, trò chuyện không đúng chỗ v.v...
    Hãy vì một CLBGAMEsVN !

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

    chaoban6 (28-02-13), kenthp (24-07-12)

  3. #12
    Thành Viên
    Ngày tham gia
    Jun 2012
    Bài viết
    28
    Thanks
    20
    Thanked 0 Times in 0 Posts

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

    đã sửa được hết script và thêm được lublib có thể setlv đc rồi! Close ! Thanks ae đã giúp đỡ !
    Khách viếng thăm hãy cùng kenthp xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 
Trang 2 của 2 Đầu tiênĐầu tiên 1 2

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

  1. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM
  2. Script về ngũ hành nhân vật
    Bởi banynavy trong diễn đàn Scripts
    Trả lời: 14
    Bài viết cuối: 12-08-11, 06:45 PM
  3. Mây pro vào chỉnh sửa script này giúp em cái
    Bởi nhoxmap_b7 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 11
    Bài viết cuối: 08-08-11, 11:37 PM
  4. Script Ủy Thác Rời Mạng
    Bởi Mr.Rezo™ trong diễn đàn Scripts
    Trả lời: 24
    Bài viết cuối: 10-06-10, 11:49 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 09:13 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.