Xem giùm em cái scripts này
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 2 của 2
  1. 30-11-11, 10:27 PM #1
    megalords
    megalords vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Nov 2011
    Bài viết
    12
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Icon11 Xem giùm em cái scripts này

    Code:
    Include("\\Script\\global\\serverlib.lua");

gio_event_tet = {8,12,13,17,18,19,20,21,22}
mang_cau = 238
dua_xiem	= 239
du_du = 240
xoai = 241
sung = 242

FRUITNAME = {
	[238] = "Mang Cau",
	[239] = "Dua Xiem",
	[240] = "Xoai",
	[241] = "Du Du",
	[242] = "Sung",
}

function main()
	gio = tonumber(date("%H"))
	phut = tonumber(date("%M"))
	giay = tonumber(date("%S"))
	SubWorld = 1;
	if (GetLevel() >= 10) then
	if GetMissionV(2) == 0 then
		Say("<bclr=blue>Hoat dong event tet chua den thoi gian hoat dong<bclr>",0)
	elseif GetMissionV(2) == 1 or GetMissionV(2) == 2 then
		if GetLevel() < 10 then
			Say("Cap do yeu cau phai la tren <color=Red>cap 10<color> moi co the tham gia hoat dong.",0)
		else
			Say("<color=yellow>Le Quan<color>: Hoat dong event tet da dien ra!Nguoi co muon tham gia khong?",2,"Ta muon tham gia./ok","De ta suy nghi lai da./out")
		end
	end
end;
end;

function ok()
	for i = 1,getn(gio_event_tet) do
		if gio >= gio_event_tet[i] then
			hetgioeventtet = (gio_event_tet[i]+1.5)*60*60 - (gio*60*60+phut*60+giay)
			break
			end
		end
		SetTimer(hetgioeventtet*18,4)
	SayEx({"<color=yellow>Le Quan<color>:Nguoi muon thuc hien viec gi?","Ta muon ghep trai cay./ghep","Doi trai cay lay banh./doi","Ta chi ghe ngang thoi./out"});
end;

function ghep()
	SayEx({"<color=yellow>Le Quan<color>:Nguoi muon ghep loai trai cay nao","3 Mang Cau thanh 1 Dua Xiem./ghep1","3 Dua Xiem thanh 1 Du Du./ghep2","3 Du Du thanh 1 Xoai./ghep3","3 Xoai thanh 1 Sung./ghep4","De ta suy nghi./out"});
end;

function ghep1()
if (GetItemCount(238) >= 3) then
	ti_le = 70
	i = random(1,100)
		if i < floor(ti_le/100) then
			Talk(1,"","<color=yellow>Ghep thanh cong<color>!Ban nhan duoc 1 <color=Green>Dua Xiem<color>!")
			AddEventItem(239)
			DelItem(238)
			DelItem(238)
			DelItem(238)
		elseif i > floor(ti_le/100) then
			Talk(1,"","<color=Red>Ghep that bai<color>! Ban bi mat 1 ,color=Green>Mang Cau<color>!")
			DelItem(238)
		end
	else
		Talk(1,"","Nguoi co chac la mang theo <color=Green>Mang Cau<color> ben nguoi khong!")
	end
end;


function ghep2()
if (GetItemCount(239) >= 3) then
	ti_le = 65
	i = random(1,100)
		if i < floor(ti_le/100) then
			Talk(1,"","<color=yellow>Ghep thanh cong<color>!Ban nhan duoc 1 <color=Green>Du Du<color>!")
			AddEventItem(240)
			DelItem(239)
			DelItem(239)
			DelItem(239)
		elseif i > floor(ti_le/100) then
			Talk(1,"","<color=Red>Ghep that bai<color>! Ban bi mat 1 <color=Green>Dua Xiem<color>!")
			DelItem(239)
		end
	else
		Talk(1,"","Nguoi co chac la mang theo <color=Green>Dua Xiem<color> ben nguoi khong!")
	end
end;

function ghep3()
if (GetItemCount(240) >= 3) then
	ti_le = 50
	i = random(1,100)
		if i < floor(ti_le/100) then
			Talk(1,"","<color=yellow>Ghep thanh cong<color>!Ban nhan duoc 1 <color=Green>Xoai<color>!")
			AddEventItem(241)
			DelItem(240)
			DelItem(240)
			DelItem(240)
		elseif i > floor(ti_le/100) then
			Talk(1,"","<color=Red>Ghep that bai<color>! Ban bi mat 1 <color=Green>Du Du<color>!")
			DelItem(240)
		end
	else
		Talk(1,"","Nguoi co chac la mang theo <color=Green>Du Du<color> ben nguoi khong!")
	end
end;

function ghep4()
if (GetItemCount(241) >= 3) then
	ti_le = 30
	i = random(1,100)
		if i < floor(ti_le/100) then
			Talk(1,"","<color=yellow>Ghep thanh cong<color>!Ban nhan duoc 1 <color=Green>Sung<color>!")
			AddEventItem(242)
			DelItem(241)
			DelItem(241)
			DelItem(241)
		elseif i > floor(ti_le/100) then
			Talk(1,"","<color=Red>Ghep that bai<color>! Ban bi mat 1 <color=Green>Xoai<color>!")
			DelItem(241)
		end
	else
		Talk(1,"","Nguoi co chac la mang theo <color=Green>Xoai<color> ben nguoi khong!")
	end
end;

function doi()
	SayEx({"<color=yellow>Le Quan<color>:Nguoi muon doi loai banh nao nao?","5 Mang Cau./doi1","5 Dua Xiem./doi2","5 Du Du./doi3","5 Xoai./doi4","5 Sung./doi5","Doi lay thuy tinh./doi6","De ta suy nghi lai./out"});
end;

function doi1()
if (GetItemCount(238) >= 3) then
AddOwnExp(50000)
Talk(1,"","Ban nhan duoc 5000 diem kinh nghiem!")
Msg2Player("Nhan duoc 5000 diem kinh nghiem....")
DelItem(238)
DelItem(238)
DelItem(238)
DelItem(238)
DelItem(238)
end;
end;

function doi2()
if (GetItemCount(239) >= 5) then
AddOwnExp(500000)
Talk(1,"","Ban nhan duoc <color=yellow>500000<color> diem kinh nghiem!")
Msg2Player("Nhan duoc 500000 diem kinh nghiem....")
DelItem(239)
DelItem(239)
DelItem(239)
DelItem(239)
DelItem(239)
end;
end;

function doi3()
if (GetItemCount(240) >= 5) then
AddOwnExp(1000000)
Talk(1,"","Ban nhan duoc <color=yellow>1000000<color> diem kinh nghiem!")
Msg2Player("Nhan duoc 1000000 diem kinh nghiem....")
DelItem(240)
DelItem(240)
DelItem(240)
DelItem(240)
DelItem(240)
end;
end;

function doi4()
if (GetItemCount(241) >= 5) then
AddOwnExp(2000000)
Talk(1,"","Ban nhan duoc <color=yellow>2000000<color> diem kinh nghiem!")
Msg2Player("Nhan duoc 2000000 diem kinh nghiem....")
DelItem(241)
DelItem(241)
DelItem(241)
DelItem(241)
DelItem(241)
end;
end;

function doi5()
if (GetItemCount(242) >= 5) then
AddOwnExp(5000000)
Talk(1,"","Ban nhan duoc <color=yellow>5000000<color> diem kinh nghiem!")
Msg2Player("Nhan duoc 5000000 diem kinh nghiem....")
DelItem(242)
DelItem(242)
DelItem(242)
DelItem(242)
DelItem(242)
end;
end;

function doi6()
if (GetItemCount(67) >= 5) then
if (GetItemCount(68) >= 5) then
if (GetItemCount(69) >= 5) then
if (GetItemCount(70) >= 5) then
	i = random(0,2)
		if (i == 0) then
			Talk(1,"","Ban nhan duoc 1 cai <color=pink>Tu Thuy Tinh<color>!")
			Msg2Player("Nhan duoc 1 Tu Thuy Tinh....")
			AddEventItem(42)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(242)
			DelItem(242)
			DelItem(242)
			DelItem(242)
			DelItem(242)
		elseif (i == 1) then
			Talk(1,"","Ban nhan duoc 1 cai <color=Blue>Lam Thuy Tinh<color>!")
			Msg2Player("Nhan duoc 1 Lam Thuy Tinh....")
			AddEventItem(43)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(242)
			DelItem(242)
			DelItem(242)
			DelItem(242)
			DelItem(242)
		elseif (i == 2) then
			Talk(1,"","Ban nhan duoc 1 cai <color=Green>Luc Thuy Tinh<color>!")
			Msg2Player("Nhan duoc 1 Luc Thuy Tinh....")
			AddEventItem(44)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(238)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(239)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(240)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(241)
			DelItem(242)
			DelItem(242)
			DelItem(242)
			DelItem(242)
			DelItem(242)
		end
		else
		Talk(1,"","Nguoi co chac la mang theo du hoa qua ben nguoi khong!")
		end
end;
end;
end;
end;

function out()
end;

    Cho em hỏi cái scripts này sai chỗ nào ... sao vào có thấy npc đứng đó nhưng nó nói 1 dòng ngắn củn = tiếng miên ~~ ... rồi ko làm dc gì hết ... ai fix giúp em với
    Còn nữa ... ai share cho em bộ chuẩn questkey 5 quả với lại 4 cái bánh ép ra đi ... tìm thấy mà sao add tùm lum ko đúng tên .. hoặc đúng tên thì không đúng hình ... fix mún điên lun mà cũng ko dc T_T
    Với lại share giúp em bộ qkey event sinhnhat đi ... cái mà đường trứng sữa ..v.v. này nọ đó ... em kiếm bộ này mà ko thấy ~~ ... Cám ơn mấy anh đã giúp đỡ
    Khách viếng thăm hãy cùng megalords xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  2. 01-12-11, 08:43 AM #2
    passika
    passika vẫn chưa có mặt trong diễn đàn
    Thành Viên passika's Avatar
    Ngày tham gia
    Apr 2011
    Bài viết
    143
    Thanks
    52
    Thanked 56 Times in 26 Posts

    Ðề: Xem giùm em cái scripts này

    Chữ miên hình như bạn chưa việt hóa ko đúng font.chứ bạn nói zậy ai mà hiểu.bạn xem mấy câu lệnh if nếu bạn trong trường hợp nào nó sẽ ra câu lệnh đó!
    Còn file questkey.txt mỗi sever có 1 cái riêng vì nhiều người dev lắm ko full hết đâu nếu chép vào vô cớ sẽ sinh ra nhiều lỗi.mà questkey nó giới hạn hình như 255 loại có nghĩa là bạn có 255 dòng để add 256 thì nó quay lại 1.
    Lần sửa cuối bởi passika, ngày 01-12-11 lúc 08:47 AM.
    Khách viếng thăm hãy cùng passika xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
 

 
« Vòng sáng item giống VNG!! | Hàm delitem không nằm trong questkey? »

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

  1. Ai giúp em cái scripts đơn giản này
    Bởi babychum trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 19-11-11, 03:23 PM
  2. ai viết Scripts nhận thưởng giùm em
    Bởi nguydatloc trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 6
    Bài viết cuối: 19-02-11, 07:05 PM
  3. Scripts đổi màu pk
    Bởi kakadk trong diễn đàn Scripts
    Trả lời: 30
    Bài viết cuối: 03-08-10, 05:04 PM

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
  •  

Nội quy - Quy định

Múi giờ GMT +7. Bây giờ là 12:29 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ệ.