Share Server Phong Vân

**DarkOfTheMoon** · 26-02-14, 09:53 AM

Chưa test ai lấy về test đi mới code xong.

copy cái này bỏ vào timerserver.lua
p/s: chỉ viết lại cho phù hợp ko thay đổi gì nhìu so với code ban đầu của chủ server..

Code:

--------------------------Event TK-----------------------------
-- timer tong kim
GioTongKimBaoDanh = {10, 12, 14, 16, 20, 22}
PhutTongKimBaoDanh = 45
GioTongKimBatDau = {11, 13, 15, 17, 21, 23}
PhutTongKimKetThuc = 30
function tkopen()
	local state = 0
	local gio = tonumber(date("%H"))
	local phut = tonumber(date("%M"))
	for i=1,getn(GioTongKimBaoDanh) do 
		if (gio == GioTongKimBaoDanh[i] and phut >= 45) then  --dang ky bao danh
			state = 1
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 0) then --- chinh thuc bat dau tran chien
			state = 2
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 5 or phut == 10 or phut == 15) then --thong bao diem tong kim cua 2 doi
			state = 3
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 20) then --add nguyen soai
			state = 4
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 30) then --kick all players out battle
			state = 5
			break;
		end		
	end
	return state
end

function TongKim()
	local IsOpen = tkopen()
	local min = tonumber(date("%M"))
	if (IsOpen == 1) then 
		if (min == 59) then
			SetGlbMissionV(MissionTichLuyTong,0)
			SetGlbMissionV(MissionTichLuyKim,0)
			SetGlbMissionV(MissionSoNguoiBenTong,0)
			SetGlbMissionV(MissionSoNguoiBenKim,0)
		end
		phutcl = 60 - min
		AddGlobalCountNews("Tèng kim ®ang trong thêi gian b¸o danh, cßn "..phutcl.." phót.",1)
		return
	elseif (IsOpen == 2) then				
		AddGlobalCountNews("Tèng kim ®¹i chiÕn chÝnh thøc b¾t ®Çu !",1)
		return
	elseif (IsOpen == 3) then 
		AddGlobalCountNews("Tèng kim tÝch lòy hiÖn t¹i lµ Tèng : Kim lµ "..GetGlbMissionV(MissionTichLuyTong).." : "..GetGlbMissionV(MissionTichLuyKim),1)
		return
	elseif (IsOpen == 4) then
		if (GetGlbMissionV(MissionTichLuyTong) > GetGlbMissionV(MissionTichLuyKim)) then
			for i=1,5 do
				idnpc = random(258,262)
				tongkim = SubWorldID2Idx(51)
				npcadd[2] = AddNpc(idnpc,99,tongkim,1968*32,2700*32)
				SetNpcScript(npcadd[2], "\\script\\tongkim\\nguyensoai.lua")
			end
			AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe kim ®· xuÊt hiÖn, h·y cè g¾ng lËp c«ng",1)
			return
		elseif (GetGlbMissionV(MissionTichLuyTong) < GetGlbMissionV(MissionTichLuyKim)) then
			for i=1,5 do
				idnpc = random(255,257)
				tongkim = SubWorldID2Idx(51)
				npcadd[1] = AddNpc(idnpc,99,tongkim,1722*32,3044*32)
				SetNpcScript(npcadd[1], "\\script\\tongkim\\nguyensoai.lua");
			end
			AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe tèng ®· xuÊt hiÖn, h·y cè g¾ng lËp c«ng",1)
			return
		elseif (GetGlbMissionV(MissionTichLuyTong) == GetGlbMissionV(MissionTichLuyKim)) then
			for i=1,5 do
				tongkim = SubWorldID2Idx(51)
				idnpc = random(255,257)
				npcadd[1] = AddNpc(idnpc,99,tongkim,1722*32,3044*32)
				SetNpcScript(npcadd[1], "\\script\\tongkim\\nguyensoai.lua");
				idnpc = random(258,262)
				npcadd[2] = AddNpc(idnpc,99,tongkim,1968*32,2700*32)
				SetNpcScript(npcadd[2], "\\script\\tongkim\\nguyensoai.lua");
			end
			AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe kim vµ tèng ®· xuÊt hiÖn",1)
			return
		end
		return
	elseif (IsOpen == 5) then
		local WIN_GROUP = 0 --(1: tong, 2: kim , 3: hoa)
		local LOSE_GROUP = 0 (1:tong,2:kim,3: hoa)
		if (GetGlbMissionV(MissionTichLuyTong) > GetGlbMissionV(MissionTichLuyKim)) then
			WIN_GROUP = 1
			LOSE_GROUP = 2
			AddGlobalCountNews("Tèng kim ®¹i chiÕn kÕt thóc, phÇn th¾ng thuéc vÒ phe tèng !")
		elseif (GetGlbMissionV(MissionTichLuyTong) < GetGlbMissionV(MissionTichLuyKim)) then
			WIN_GROUP = 2
			LOSE_GROUP = 1
			AddGlobalCountNews("Tèng kim ®¹i chiÕn kÕt thóc, phÇn th¾ng thuéc vÒ phe kim !")
		else
			WIN_GROUP = 3
			LOSE_GROUP = 3
			AddGlobalCountNews("Tèng kim kÕt thóc, 2 bªn hßa nhau !")
		end
		kick_all_player_out(WIN_GROUP,LOSE_GROUP)
	end
end

function kick_all_player_out(n_win_group,n_lose_group)
	if (n_win_group == 0 or n_lose_group == 0) then print("BUG WIN OR LOSE NUMBER") return end
	local OldPlayerIndex = PlayerIndex
	local tbPos = {{2047,2594},{1640,3153}}
	for i=1,GetPlayerCount() do
		PlayerIndex = i
		local nMap,_,_ = GetWorldPos()
		if (nMap == 51) then
			SetDeathScript("")
			if (GetTask(TaskTongHayKim) == n_win_group and n_lose_group < 3) then
				SetTask(TaskTichLuyTongKim,GetTask(TaskTichLuyTongKim) + 1000)
				AddRepute(100)
				NewWorld(51,tbPos[GetTask(TaskTongHayKim][1],tbPos[GetTask(TaskTongHayKim][2])
				SetTask(24,0)
				SetTask(25,0)
				SetTask(TaskTichLuyTongKim2,0)
				SetFightState(1)
				Msg2Player("Tèng kim kÕt thóc,100 danh väng, 1000 ®iÓm tÝch lòy")
			end
			if (GetTask(TaskTongHayKim) == n_lose_group and n_win_group < 3) then
				SetTask(TaskTichLuyTongKim,GetTask(TaskTichLuyTongKim) + 500)
				AddRepute(50)
				NewWorld(51,tbPos[GetTask(TaskTongHayKim][1],tbPos[GetTask(TaskTongHayKim][2])
				SetTask(24,0)
				SetTask(25,0)
				SetTask(TaskTichLuyTongKim2,0)
				SetFightState(1)
				Msg2Player("Tèng kim kÕt thóc,50 danh väng, 500 ®iÓm tÝch lòy")
			end
			if (n_lose_group == n_win_group) then
				SetTask(TaskTichLuyTongKim,GetTask(TaskTichLuyTongKim) + 800)
				AddRepute(75)
				NewWorld(51,tbPos[GetTask(TaskTongHayKim][1],tbPos[GetTask(TaskTongHayKim][2])
				SetTask(24,0)
				SetTask(25,0)
				SetTask(TaskTichLuyTongKim2,0)
				SetFightState(1)
				Msg2Player("Tèng kim kÕt thóc,75 danh väng, 800 ®iÓm tÝch lòy")
			end
		end
	end
	PlayerIndex = OldPlayerIndex
	--//RESET MS
	SetGlbMissionV(MissionTichLuyTong,0)
	SetGlbMissionV(MissionTichLuyKim,0)
	SetGlbMissionV(MissionSoNguoiBenTong,0)
	SetGlbMissionV(MissionSoNguoiBenKim,0)
end

**hachacpro** · 26-02-14, 09:28 PM

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

Chưa test ai lấy về test đi mới code xong.

copy cái này bỏ vào timerserver.lua
p/s: chỉ viết lại cho phù hợp ko thay đổi gì nhìu so với code ban đầu của chủ server..

Code:

--------------------------Event TK-----------------------------
-- timer tong kim
GioTongKimBaoDanh = {10, 12, 14, 16, 20, 22}
PhutTongKimBaoDanh = 45
GioTongKimBatDau = {11, 13, 15, 17, 21, 23}
PhutTongKimKetThuc = 30
function tkopen()
	local state = 0
	local gio = tonumber(date("%H"))
	local phut = tonumber(date("%M"))
	for i=1,getn(GioTongKimBaoDanh) do 
		if (gio == GioTongKimBaoDanh[i] and phut >= 45) then  --dang ky bao danh
			state = 1
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 0) then --- chinh thuc bat dau tran chien
			state = 2
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 5 or phut == 10 or phut == 15) then --thong bao diem tong kim cua 2 doi
			state = 3
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 20) then --add nguyen soai
			state = 4
			break;
		elseif (gio == GioTongKimBatDau[i] and phut == 30) then --kick all players out battle
			state = 5
			break;
		end		
	end
	return state
end

function TongKim()
	local IsOpen = tkopen()
	local min = tonumber(date("%M"))
	if (IsOpen == 1) then 
		if (min == 59) then
			SetGlbMissionV(MissionTichLuyTong,0)
			SetGlbMissionV(MissionTichLuyKim,0)
			SetGlbMissionV(MissionSoNguoiBenTong,0)
			SetGlbMissionV(MissionSoNguoiBenKim,0)
		end
		phutcl = 60 - min
		AddGlobalCountNews("Tèng kim ®ang trong thêi gian b¸o danh, cßn "..phutcl.." phót.",1)
		return
	elseif (IsOpen == 2) then				
		AddGlobalCountNews("Tèng kim ®¹i chiÕn chÝnh thøc b¾t ®Çu !",1)
		return
	elseif (IsOpen == 3) then 
		AddGlobalCountNews("Tèng kim tÝch lòy hiÖn t¹i lµ Tèng : Kim lµ "..GetGlbMissionV(MissionTichLuyTong).." : "..GetGlbMissionV(MissionTichLuyKim),1)
		return
	elseif (IsOpen == 4) then
		if (GetGlbMissionV(MissionTichLuyTong) > GetGlbMissionV(MissionTichLuyKim)) then
			for i=1,5 do
				idnpc = random(258,262)
				tongkim = SubWorldID2Idx(51)
				npcadd[2] = AddNpc(idnpc,99,tongkim,1968*32,2700*32)
				SetNpcScript(npcadd[2], "\\script\\tongkim\\nguyensoai.lua")
			end
			AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe kim ®· xuÊt hiÖn, h·y cè g¾ng lËp c«ng",1)
			return
		elseif (GetGlbMissionV(MissionTichLuyTong) < GetGlbMissionV(MissionTichLuyKim)) then
			for i=1,5 do
				idnpc = random(255,257)
				tongkim = SubWorldID2Idx(51)
				npcadd[1] = AddNpc(idnpc,99,tongkim,1722*32,3044*32)
				SetNpcScript(npcadd[1], "\\script\\tongkim\\nguyensoai.lua");
			end
			AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe tèng ®· xuÊt hiÖn, h·y cè g¾ng lËp c«ng",1)
			return
		elseif (GetGlbMissionV(MissionTichLuyTong) == GetGlbMissionV(MissionTichLuyKim)) then
			for i=1,5 do
				tongkim = SubWorldID2Idx(51)
				idnpc = random(255,257)
				npcadd[1] = AddNpc(idnpc,99,tongkim,1722*32,3044*32)
				SetNpcScript(npcadd[1], "\\script\\tongkim\\nguyensoai.lua");
				idnpc = random(258,262)
				npcadd[2] = AddNpc(idnpc,99,tongkim,1968*32,2700*32)
				SetNpcScript(npcadd[2], "\\script\\tongkim\\nguyensoai.lua");
			end
			AddGlobalCountNews("Tèng kim : Nguyªn so¸i phe kim vµ tèng ®· xuÊt hiÖn",1)
			return
		end
		return
	elseif (IsOpen == 5) then
		local WIN_GROUP = 0 --(1: tong, 2: kim , 3: hoa)
		local LOSE_GROUP = 0 (1:tong,2:kim,3: hoa)
		if (GetGlbMissionV(MissionTichLuyTong) > GetGlbMissionV(MissionTichLuyKim)) then
			WIN_GROUP = 1
			LOSE_GROUP = 2
			AddGlobalCountNews("Tèng kim ®¹i chiÕn kÕt thóc, phÇn th¾ng thuéc vÒ phe tèng !")
		elseif (GetGlbMissionV(MissionTichLuyTong) < GetGlbMissionV(MissionTichLuyKim)) then
			WIN_GROUP = 2
			LOSE_GROUP = 1
			AddGlobalCountNews("Tèng kim ®¹i chiÕn kÕt thóc, phÇn th¾ng thuéc vÒ phe kim !")
		else
			WIN_GROUP = 3
			LOSE_GROUP = 3
			AddGlobalCountNews("Tèng kim kÕt thóc, 2 bªn hßa nhau !")
		end
		kick_all_player_out(WIN_GROUP,LOSE_GROUP)
	end
end

function kick_all_player_out(n_win_group,n_lose_group)
	if (n_win_group == 0 or n_lose_group == 0) then print("BUG WIN OR LOSE NUMBER") return end
	local OldPlayerIndex = PlayerIndex
	local tbPos = {{2047,2594},{1640,3153}}
	for i=1,GetPlayerCount() do
		PlayerIndex = i
		local nMap,_,_ = GetWorldPos()
		if (nMap == 51) then
			SetDeathScript("")
			if (GetTask(TaskTongHayKim) == n_win_group and n_lose_group < 3) then
				SetTask(TaskTichLuyTongKim,GetTask(TaskTichLuyTongKim) + 1000)
				AddRepute(100)
				NewWorld(51,tbPos[GetTask(TaskTongHayKim][1],tbPos[GetTask(TaskTongHayKim][2])
				SetTask(24,0)
				SetTask(25,0)
				SetTask(TaskTichLuyTongKim2,0)
				SetFightState(1)
				Msg2Player("Tèng kim kÕt thóc,100 danh väng, 1000 ®iÓm tÝch lòy")
			end
			if (GetTask(TaskTongHayKim) == n_lose_group and n_win_group < 3) then
				SetTask(TaskTichLuyTongKim,GetTask(TaskTichLuyTongKim) + 500)
				AddRepute(50)
				NewWorld(51,tbPos[GetTask(TaskTongHayKim][1],tbPos[GetTask(TaskTongHayKim][2])
				SetTask(24,0)
				SetTask(25,0)
				SetTask(TaskTichLuyTongKim2,0)
				SetFightState(1)
				Msg2Player("Tèng kim kÕt thóc,50 danh väng, 500 ®iÓm tÝch lòy")
			end
			if (n_lose_group == n_win_group) then
				SetTask(TaskTichLuyTongKim,GetTask(TaskTichLuyTongKim) + 800)
				AddRepute(75)
				NewWorld(51,tbPos[GetTask(TaskTongHayKim][1],tbPos[GetTask(TaskTongHayKim][2])
				SetTask(24,0)
				SetTask(25,0)
				SetTask(TaskTichLuyTongKim2,0)
				SetFightState(1)
				Msg2Player("Tèng kim kÕt thóc,75 danh väng, 800 ®iÓm tÝch lòy")
			end
		end
	end
	PlayerIndex = OldPlayerIndex
	--//RESET MS
	SetGlbMissionV(MissionTichLuyTong,0)
	SetGlbMissionV(MissionTichLuyKim,0)
	SetGlbMissionV(MissionSoNguoiBenTong,0)
	SetGlbMissionV(MissionSoNguoiBenKim,0)
end

coppy bỏ vào khúc nào vậy bác

.

**gac0n1988** · 26-02-14, 11:14 PM

thay vào cái đoạn code TK trong timeserver.lua, để test thử,
DarkOfTheMoon giúp dùm cái ủy thác sever Phong Vân lun đc hok

**ShineGhost** · 27-02-14, 12:26 AM

Dowload về test cái nào :U
30 charrrrrrrrrrr

**nh0xlieu** · 29-04-14, 12:26 PM

ai hướng dẫn mình add xu bằng hàm đi
dùng SetTask add mà nó im ru không động tĩnh gì hết

mình muốn add bằng hàm để làm cái event !

Chủ đề: Share Server Phong Vân

Công cụ Chủ đề

Ðề: Share Server Phong Vân

The Following 2 Users Say Thank You to DarkOfTheMoon For This Useful Post:

Ðề: Share Server Phong Vân

Ðề: Share Server Phong Vân

Ðề: Share Server Phong Vân

Ðề: Share Server Phong Vân

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

Xin Server private Phong thần ? hoặc Phong thần TQ cũng đc

[KT] Hiện Op Phi Phong - Share

Share Server Phong Vân 2

Share bộ map phong thần

Bạn nào còn giữ server Phong Vân Share Thì Vào Đây ~!

Quyền viết bài