Thắc mắc về script

[hoivegame]

HeThongKN={ -- map,kn,tien,level,ngu ba
{79,5000,20,0,0},
{80,10000,50,10,0},
{1,250,100,20,1},			--2x
{2,350,200,30,1},			--3x
{3,500,300,40,1},		--4x
{4,650,450,50,1},		--5x
{5,850,600,60,1},		--6x
{6,1050,800,70,1},		--7x
{7,1500,1000,80,1},		--8x
{8,1650,1500,90,1},		--9x
{9,2000,2000,100,1},		--10x
{10,2250,2500,110,1},		--11x
{11,2500,3000,120,2},		--12x
{12,2750,3500,130,2},		--13x
{13,3000,4000,140,2},		--14x
{14,3500,4500,150,2},		--15x
{15,4000,5000,160,2},		--16x
{16,4500,5500,170,2},		--17x
{49,5000,6000,180,2},		--18x
{48,6000,6500,190,2},		--19x
{46,6750,7000,200,5},
{81,1500000,8000,210,6},
{82,1600000,9000,220,6},
{83,1700000,10000,230,6},
{84,1800000,12000,240,6},
}

expvuotai={
{25,45000,5000},			--Vuot Ai 1
{26,50000,6000},		--Vuot Ai 2
{27,55000,7000},		--Vuot Ai 3
{28,60000,8000},		--Vuot Ai 4
{29,70000,9000},		--Vuot Ai 5
{30,60000,40000},		--Vuot Ai 6
{31,80000,40000},		--Vuot Ai 7
{32,100000,40000},		--Vuot Ai 8
{33,300000,70000},		--Vuot Ai 9
{34,900000,70000}		--Vuot Ai 10
}

Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\source\\tasklist.lua")

function expmonter()
ktmayman()
w,x,y = GetWorldPos()
if GetLevel() < 250 then
	if w < 17 or w == 48 or w == 49 or w == 46 then
		if GetTask(TaskNVThienTu) == 13 or GetTask(TaskNVThienTu) == 61 or GetTask(TaskNVThienTu) == 94 then
			SetTask(TaskNVLienHoan,GetTask(TaskNVLienHoan)+1)
			Msg2Player("NV Thiªn Tö: tiªu diÖt "..GetTask(TaskNVLienHoan).." Qu¸i")
		end
		for i=1,getn(HeThongKN) do
			if w == HeThongKN[i][1] then
				--SetTask(14,GetTask(14)+HeThongKN[i][5])
				--Msg2Player("Ban Hien Co "..GetTask(14).." Diem Ngu Ba !")
				if GetLevel() >= HeThongKN[i][4] and GetLevel() < HeThongKN[i+1][4] then
					if GetTask(13) >= 1 then
						--SetTask(13,GetTask(13)-1)
						--AddOwnExp(HeThongKN[i][2]*GetGlbMissionV(27)*2)
						AddExp(HeThongKN[i][2]*GetGlbMissionV(27)*2,200,1)
						a = random(1,4)
						if a == 2 then
							Earn(HeThongKN[i][3])
						end
							--Msg2Player("Sè qu¸i nh©n 2 kinh nghiÖm cßn l¹i lµ "..GetTask(13).."")
					else
						--AddOwnExp(HeThongKN[i][2]*GetGlbMissionV(27))
						AddExp(HeThongKN[i][2]*GetGlbMissionV(27),200,1)
						b = random(1,4)
						if b == 2 then
							Earn(HeThongKN[i][3])
						end
					end
				elseif GetLevel() >= HeThongKN[i-2][4] and GetLevel() < HeThongKN[i-1][4] then -- cap hien tai - 20 > kn < cap hien tai
					--AddOwnExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/3),2)
					AddExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/3),200,1)
						c = random(1,5)
						if c == 2 then
							Earn(floor((HeThongKN[i][3])/3),2)
						end
				elseif GetLevel() >= HeThongKN[i-1][4] and GetLevel() < HeThongKN[i][4] then -- cap hien tai + 20 > kn < cap hien tai + 40
					--AddOwnExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/3),2)
					AddExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/2),200,1)
						d = random(1,5)
						if d == 2 then
							Earn(floor((HeThongKN[i][3])/2),2)
						end
				elseif GetLevel() >= HeThongKN[i+1][4] and GetLevel() < HeThongKN[i+2][4] then -- cap hien tai + 20 > kn < cap hien tai + 40
					--AddOwnExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/3),2)
					if GetTask(13) >= 1 then
						--SetTask(13,GetTask(13)-1)
						--AddOwnExp(HeThongKN[i][2]*GetGlbMissionV(27)*2)
						AddExp((floor(HeThongKN[i][2]*GetGlbMissionV(27)*2)/2),200,1)
						d = random(1,5)
						if d == 2 then
							Earn(floor((HeThongKN[i][3])/2),2)
						end
							--Msg2Player("Sè qu¸i nh©n 2 kinh nghiÖm cßn l¹i lµ "..GetTask(13).."")
					else
						--AddOwnExp(HeThongKN[i][2]*GetGlbMissionV(27))
						AddExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/2),200,1)
						d = random(1,5)
						if d == 2 then
							Earn(floor((HeThongKN[i][3])/2),2)
						end
					end
				elseif GetLevel() >= HeThongKN[i+2][4] and GetLevel() < HeThongKN[i+3][4] then -- cap hien tai + 20 > kn < cap hien tai + 40
					--AddOwnExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/3),2)
					if GetTask(13) >= 1 then
						--SetTask(13,GetTask(13)-1)
						--AddOwnExp(HeThongKN[i][2]*GetGlbMissionV(27)*2)
						AddExp((floor(HeThongKN[i][2]*GetGlbMissionV(27)*2)/3),200,1)
						d = random(1,5)
						if d == 2 then
							Earn(floor((HeThongKN[i][3])/3),2)
						end
							--Msg2Player("Sè qu¸i nh©n 2 kinh nghiÖm cßn l¹i lµ "..GetTask(13).."")
					else
						--AddOwnExp(HeThongKN[i][2]*GetGlbMissionV(27))
						AddExp((floor(HeThongKN[i][2]*GetGlbMissionV(27))/3),200,1)
						d = random(1,5)
						if d == 2 then
							Earn(floor((HeThongKN[i][3])/3),2)
						end
					end
				else
					AddOwnExp(50)
					--Earn(50)
				end
			end
		end
	end
end
end

function ktmayman()
	if GetTask(TaskMayMan) >= 1 then
		lucky = random(0,100)
		if GetLevel() >= 1 and GetLevel() < 25 then
			idmayman = random(1020,1022)
		elseif GetLevel() >= 25 and GetLevel() < 50 then
			idmayman = random(1023,1025)
		elseif GetLevel() >= 50 then
			idmayman = random(1026,1028)
		end
		if GetTask(TaskLoaiRuouMayMan) == 1 then
			if lucky == 25 or lucky == 75 then
				w,x,y=GetWorldPos()
				name1 = "Lucky Twice"
				str = ""..name1..""
				toadox = x + random(-3,3)
				toadoy = y + random(-3,3)
				npcmapindex= SubWorldID2Idx(w) 
				bossmm=AddNpc(idmayman,1,npcmapindex,toadox*32,toadoy*32)
				SetNpcSeries(bossmm,random(0,4))
				SetNpcName(bossmm, str)
			end
		elseif GetTask(TaskLoaiRuouMayMan) == 2 then
			if lucky == 50 then
				w,x,y=GetWorldPos()
				name1 = "Lucky Twice"
				str = ""..name1..""
				toadox = x + random(-3,3)
				toadoy = y + random(-3,3)
				npcmapindex= SubWorldID2Idx(w) 
				bossmm=AddNpc(idmayman,1,npcmapindex,toadox*32,toadoy*32)
				SetNpcSeries(bossmm,random(0,4))
				SetNpcName(bossmm, str)
			end
		end
	end
end

---chØ cÇn gäi hµm nµy d­íi hµm death ë trªn
--ExpEachMemByKiller(sè exp nh©n vËt nhËn ®­îc,GetTeamSize(),PlayerIndex)
--vd: ExpEachMemByKiller(10000,GetTeamSize(),PlayerIndex)
--cßn l¹i tù bá vµo vµ test nh¸.
function ExpEachMemByKiller(nExp,nTeamSize,nLeaderIndex)
	local MapId,_,_ = GetWorldPos();
	local CurTeamId = GetTeam()
	if not nExp then return end
	if not nTeamSize then return end
	local tbTeam = GetListTeam();
	
	--check tab list team
	if not tbTeam[CurTeamId] then 
		--test debug: nÕu ko bug th× xãa hµm print ®i
		print("<<BUG TAB TEAM LIST BY DEATH MONSTER>>")
		return
	end
	
	local count_tab = getn(tbTeam[CurTeamId])  --count tab team list
	for i=1,count_tab do 
		PlayerIndex = tbTeam[CurTeamId][i].nPlayerIndex
		if (PlayerIndex ~= nLeaderIndex and tbTeam[CurTeamId][i].nMap == MapId) then --ktra index player + map player dang ®øng
			AddOwnExp(nExp/nTeamSize) --chia kinh nghiÖm cho tæ ®éi ( kn nhËn ®­îc chia size cña tæi ®éi) . ChØnh söa g× cø viÖc.
		end
	end
end

---lÊy list team
function GetListTeam()
	local MapId,_,_ = GetWorldPos();
	local tbTeamList = {}
	local TeamId = GetTeam();
	local TeamSize = GetTeamSize()
	tbTeamList[TeamId] = {}
	local Temp = tbTeamList[TeamId]
	
	local OldPlayer = PlayerIndex
	for i=1,500 do 
		PlayerIndex = i
		if (TeamSize >= 2) then
			if (GetTeam() == TeamId) then 
				Temp[getn(Temp) + 1] = {nPlayerIndex = i,nMap = MapId}
				if (getn(Temp) == TeamSize) then break end
			end
		end
	end
	PlayerIndex = OldPlayer
	return tbTeamList
end

Tự add vào mà test nhá. Mới code xong, test bug dùm.

[minhchau0309]

function OnDeath()
idtd = GetTeam()
    if GetTask(157) == 5 then
    if (idtd ~= nil) then
    if (GetTeamSize() >= 1) then
        for i=1,8 do
            gmidx=PlayerIndex
            PlayerIndex = i
    if (GetTeam() == idtd) then
    AddOwnExp(200000)
    Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")    
    SetTask(157,6)
    Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
    Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
    "NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")    
    end
    PlayerIndex=gmidx
    end
    end
    else
    AddOwnExp(200000)
    Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")    
    SetTask(157,6)
    Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
    Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
    "NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")    
    end
    else
    Talk(1,"","Ta kh«ng cã thï o¸n g× víi nhµ ng­¬i ....")
    end
    end 

pt vẫn k hoàn thành nvụ. thế nàm thao đây chài.ức cmn chế toá

[HoangTVT]

Viết sai lấy gì được kinh nghiệm. Ngắn gọn xúc tích không thừa vời nền của tác giả.

function OnDeath()
local nTeamID = GetTeam()
	if GetTask(157) == 5 then
		if (nTeamID ~= nil) then
			for i = 1,GetTeamSize() do
				for k = 1,GetPlayerCount() do
				PlayerIndex = k
					if (GetTeam() == nTeamID) then
						AddOwnExp(200000)
						Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")	
						SetTask(157,6)
						Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
						Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
						"NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")	
					end
				end
			end
		else
			AddOwnExp(200000)
			Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")	
			SetTask(157,6)
			Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
			Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
			"NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")	
		end
	else
		Talk(1,"","Ta kh«ng cã thï o¸n g× víi nhµ ng­¬i ....")
	end
end

[minhchau0309]

đả thử script dó và vẫn chưa thàh côg

[lzlsky301]

Viết sai lấy gì được kinh nghiệm. Ngắn gọn xúc tích không thừa vời nền của tác giả.

function OnDeath()
local nTeamID = GetTeam()
	if GetTask(157) == 5 then
		if (nTeamID ~= nil) then
			for i = 1,GetTeamSize() do
				for k = 1,GetPlayerCount() do
				PlayerIndex = k
					if (GetTeam() == nTeamID) then
						AddOwnExp(200000)
						Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")	
						SetTask(157,6)
						Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
						Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
						"NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")	
					end
				end
			end
		else
			AddOwnExp(200000)
			Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")	
			SetTask(157,6)
			Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
			Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
			"NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")	
		end
	else
		Talk(1,"","Ta kh«ng cã thï o¸n g× víi nhµ ng­¬i ....")
	end
end

- Vùng bôi đỏ bị sai

for k = 1,1200 do 

[HoangTVT]

Ak đúng rồi 30 30 30 30 30 30 30 30

[minhchau0309]

- Vùng bôi đỏ bị sai

for k = 1,1200 do 

>.< vẫn k đc nó k xác địh đc team có người có task >.<

[HoangTVT]

function OnDeath()
local nTeamID = GetTeam()
	if GetTask(157) == 5 then
		if (nTeamID ~= nil) then
			for i = 1,GetTeamSize() do
				for k = 1,1200 do
				PlayerIndex = k
					if (GetTeam() == nTeamID and GetTask(157) == 5) then
						AddOwnExp(200000)
						Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")	
						SetTask(157,6)
						Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
						Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
						"NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")	
					end
				end
			end
		else
			AddOwnExp(200000)
			Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")	
			SetTask(157,6)
			Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ")
			Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..",
			"NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")	
		end
	else
		Talk(1,"","Ta kh«ng cã thï o¸n g× víi nhµ ng­¬i ....")
	end
end

[minhchau0309]

dư dấu ngoặc.........đã sửa theo vẫn chưa thàh côg điên thiệt

[hoivegame]

Mình đã xem qua code gốc của bạn, cố thử code trên code gốc nhưng bạn code ko đúng hướng bạn muốn nên mình code lại.

function OnDeath() 
	local IsDoTask157 = GetTask(157);
	local TeamSize = GetTeamSize();
	local TeamId = GetTeam();

	if (IsDoTask157 ~= 5) then 
		Talk(1,"","Ta kh«ng cã thï o¸n g× víi nhµ ng­¬i ....") 
		return
	end

	local tb = getTeamList(TeamSize,TeamId);
	if (TeamSize >= 2 and tb[TeamId] ~= nil) then 
		for i=1,getn(tb[TeamId]) do 
			PlayerIndex = tb[TeamId][i].nMem
			 AddOwnExp(200000) 
  			 Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")     
   			 SetTask(157,6) 
   			 Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ") 
   			Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..","NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")   
		end
	else
		AddOwnExp(200000) 
		Msg2Player("B¹n nhËn ®­îc 200.000 kinh nghiÖm")     
    		SetTask(157,6) 
    		Msg2Player("NhiÖm Vô: Quay vÒ GÆp M¹c SÇu ") 
    		Talk(2,"","Ta thËt sù khuÊt phôc, sau nµy kh«ng t¸i ph¹m n÷a ..","NhiÖm vô hoµn thµnh ! Quay vÒ gÆp M¹c SÇu trong thµnh ®i !")     
	end


end

function getTeamList(nSizeTeam,nTeamId)
	local tbTeam = {}
	tbTeam[nTeamId] = {}
	local tbSet = tbTeam[nTeamId]
	local OldIndex = PlayerIndex
	for i=1,500 do 
		PlayerIndex = i
		if (GetTeam() == nTeamId) then 
			if (GetTask(157) == 5) then 
				tbSet[getn(tbSet) + 1] = {nMem = PlayerIndex}
			end
			if (getn(tbSet) == nSizeTeam) then break end
		end
	end
	PlayerIndex = OldIndex
	
	return tbTeam
end

Bạn bỏ test thế nào, bug gì nói ở đây.