Thắc mắc về script

[minhchau0309]

hàm addownexp dùng add kn vào nhân vật kill quái
Addexp thì add cho cả pt
trong script qui định exp dù dùng addexp nhưg pt vẫn hog có miếng exp nào là do đâu ạ?


function OnDeath()
idtd = GetTeam()
if GetTask(157) == 5 then
if (idtd ~= nil) then
if (GetTeamSize() >= 0) then
for i=1,10 do
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
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


đoạn script này sai chỗ nào....e cho getteam size>= 0 nhưng pt kill vẫn k hoàn thành nvụ đc
đã check task đúng rồi ạ

[minhchau0309]

>.< mấy thím vào xem e đưa ra cho e í kiến gì hết làm nàm thao ........

[MinYeuVy]

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

Copy and paste nhé :D, cơ mà code không tab ra nhìn nhức đầu quá 8-}

[minhchau0309]

Copy and paste nhé :D, cơ mà code không tab ra nhìn nhức đầu quá 8-}
thanks cậu. để tớ test thử

vậy còn cái vụ dùng hàm addexp nhưng trong cùng tổ dội k nhận đc exp thì nàm thao h. dùng 2 acc kéo nhau mừk ứ đc :D.

[MinYeuVy]

thanks cậu. để tớ test thử

vậy còn cái vụ dùng hàm addexp nhưng trong cùng tổ dội k nhận đc exp thì nàm thao h. dùng 2 acc kéo nhau mừk ứ đc :D.

Sv của bạn hình như là xài exp = script vậy xài giống bên trên đi ai cũng có exp :D

[minhchau0309]

Sv của bạn hình như là xài exp = script vậy xài giống bên trên đi ai cũng có exp :D

exp qui định trong script vs file exp.lua này nhưng 1 người last hit có exp thui cứ như addownexp í :((


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,toa doy*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,toa doy*32)
SetNpcSeries(bossmm,random(0,4))
SetNpcName(bossmm, str)
end
end
end
end

[Long.MR]

Quẳng vào xài
Include cái gì nữa thì thêm vào .



-----Mr.Long----
-----Exp OnDeath Me And Team -----
----Fuck lzlsky301 ---------------------

Include("\\script\\global\\kinhnghiem\\droprate.lua")

tbExp =
{
[1] = {zMinMoney = 80,zMaxMoney = 150,zRightMapExp = 100,zWrongMapExp = 50,zRightMapTeamExp = 50,zWrongMapTeamExp = 25,zLevel = {10,30},zIdBossXanh = {65,74},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, --- 2x
[2] = {zMinMoney = 150,zMaxMoney = 180,zRightMapExp = 200,zWrongMapExp = 50,zRightMapTeamExp = 100,zWrongMapTeamExp = 25,zLevel = {20,40},zIdBossXanh = {70,79},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---3x
[3] = {zMinMoney = 180,zMaxMoney = 200,zRightMapExp = 300,zWrongMapExp = 50,zRightMapTeamExp = 150,zWrongMapTeamExp = 25,zLevel = {30,50},zIdBossXanh = {75,84},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---4x
[4] = {zMinMoney = 300,zMaxMoney = 330,zRightMapExp = 400,zWrongMapExp = 50,zRightMapTeamExp = 200,zWrongMapTeamExp = 25,zLevel = {40,60},zIdBossXanh = {80,94},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---5x
[5] = {zMinMoney = 400,zMaxMoney = 440,zRightMapExp = 500,zWrongMapExp = 50,zRightMapTeamExp = 250,zWrongMapTeamExp = 25,zLevel = {50,70},zIdBossXanh = {90,99},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---6x
[6] = {zMinMoney = 500,zMaxMoney = 550,zRightMapExp = 600,zWrongMapExp = 50,zRightMapTeamExp = 300,zWrongMapTeamExp = 25,zLevel = {60,80},zIdBossXanh = {95,104},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---7x
[7] = {zMinMoney = 600,zMaxMoney = 650,zRightMapExp = 700,zWrongMapExp = 50,zRightMapTeamExp = 350,zWrongMapTeamExp = 25,zLevel = {70,90},zIdBossXanh = {100,109},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---8x
[8] = {zMinMoney = 700,zMaxMoney = 750,zRightMapExp = 800,zWrongMapExp = 50,zRightMapTeamExp = 400,zWrongMapTeamExp = 25,zLevel = {80,90},zIdBossXanh = {105,113},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---9x
[9] = {zMinMoney = 800,zMaxMoney = 850,zRightMapExp = 900,zWrongMapExp = 50,zRightMapTeamExp = 450,zWrongMapTeamExp = 25,zLevel = {90,110},zIdBossXanh = {110,118},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---10x
[10] = {zMinMoney = 1000,zMaxMoney = 1050,zRightMapExp = 1000,zWrongMapExp = 50,zRightMapTeamExp = 500,zWrongMapTeamExp = 25,zLevel = {100,120},zIdBossXanh = {114,122},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---11x
[11] = {zMinMoney = 1100,zMaxMoney = 1150,zRightMapExp = 2000,zWrongMapExp = 50,zRightMapTeamExp = 1000,zWrongMapTeamExp = 25,zLevel = {110,130},zIdBossXanh = {120,129},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---12x
[12] = {zMinMoney = 1200,zMaxMoney = 1250,zRightMapExp = 2500,zWrongMapExp = 50,zRightMapTeamExp = 1250,zWrongMapTeamExp = 25,zLevel = {120,140},zIdBossXanh = {140,149},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ----13x
[13] = {zMinMoney = 1300,zMaxMoney = 1350,zRightMapExp = 3000,zWrongMapExp = 60,zRightMapTeamExp = 1500,zWrongMapTeamExp = 25,zLevel = {130,150},zIdBossXanh = {160,169},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---14x
[14] = {zMinMoney = 1400,zMaxMoney = 1450,zRightMapExp = 3500,zWrongMapExp = 70,zRightMapTeamExp = 1700,zWrongMapTeamExp = 25,zLevel = {140,160},zIdBossXanh = {343,344},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ----15x
[15] = {zMinMoney = 1500,zMaxMoney = 1550,zRightMapExp = 4000,zWrongMapExp = 80,zRightMapTeamExp = 2000,zWrongMapTeamExp = 25,zLevel = {150,170},zIdBossXanh = {343,344},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---16x
[16] = {zMinMoney = 1600,zMaxMoney = 1650,zRightMapExp = 5000,zWrongMapExp = 90,zRightMapTeamExp = 2500,zWrongMapTeamExp = 25,zLevel = {160,180},zIdBossXanh = {343,344},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---17x
[46] = {zMinMoney = 5000,zMaxMoney = 5500,zRightMapExp = 20000,zWrongMapExp = 100,zRightMapTeamExp = 10000,zWrongMapTeamExp = 25,zLevel = {150,250},zIdBossXanh = {365,374},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---phong lang do
[48] = {zMinMoney = 1800,zMaxMoney = 2000,zRightMapExp = 8000,zWrongMapExp = 150,zRightMapTeamExp = 4000,zWrongMapTeamExp = 25,zLevel = {180,200},zIdBossXanh = {365,374},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---19x
[49] = {zMinMoney = 1700,zMaxMoney = 1800,zRightMapExp = 7000,zWrongMapExp = 200,zRightMapTeamExp = 3500,zWrongMapTeamExp = 25,zLevel = {170,190},zIdBossXanh = {345,346},zScript = "\\script\\kinhnghiem\\bossxanh.lua"}, ---18x
}

function OnDeath()
droprate()
dataune()
local MapId,X,Y = GetWorldPos()
bossxanh(MapId,X,Y)
if check() == 0 then expbyteam(MapId) return end
expbyself(MapId)
end

function expbyself(IdMap)
local nMap,_,_ = GetWorldPos()
local X2ByGM = 1 --thay id x2 toµn server
LuckyDropCash = random(1,8)
shxtm = random(1,10)
CashDrop = random(tbExp[nMap].zMinMoney,tbExp[nMap].zMaxMoney)
if (LuckyDropCash == 1 or LuckyDropCash == 3) then Earn(CashDrop) end
if (shxtm == 2 or shxtm == 6) then
SetTask(48,GetTask(48)+1)
Msg2Player("NhËn ®­îc 1 tÊm b¶n ®å s¬n hµ x· t¾c , hiÖn cã "..GetTask(48).."")
end
if GetTask(500) >= 1 then X2TLL = 2 else X2TLL = 1 end
if GetTask(500) >= 1 then
SetTask(500,GetTask(500)-1)
Msg2Player("Sè qu¸i nh©n ®«i kinh nghiÖm cßn l¹i "..GetTask(500).."")
else
end
if (checkrightmap() == 0) then
AddOwnExp(tbExp[nMap].zRightMapExp*X2TLL*X2ByGM)
else
AddOwnExp(tbExp[nMap].zWrongMapExp*X2TLL*X2ByGM)
end
end

function expbyteam(IdMap)
local X2ByGMTeam = 1
local IdTeam = GetTeam()
local nMap,_,_ = GetWorldPos()
LuckyDropCash = random(1,5)
shxtm = random(1,10)
CashDrop = random(tbExp[nMap].zMinMoney,tbExp[nMap].zMaxMoney)
if (LuckyDropCash == 1 or LuckyDropCash == 3) then Earn(CashDrop) end
if (shxtm == 2 or shxtm == 6) then
SetTask(48,GetTask(48)+1)
Msg2Player("NhËn ®­îc 1 tÊm b¶n ®å s¬n hµ x· t¾c , hiÖn cã "..GetTask(48).."")
end
local OldPlayer = PlayerIndex
for i=1,1500 do
PlayerIndex = i
if (GetTeam() == IdTeam) then
if (nMap == IdMap) then
if GetTask(500) >= 1 then X2TLL = 2 else X2TLL = 1 end
if GetTask(500) >= 1 then
SetTask(500,GetTask(500)-1)
Msg2Player("Sè qu¸i nh©n ®«i kinh nghiÖm cßn l¹i "..GetTask(500).."")
else
end
if (checkrightmap() == 0) then
AddOwnExp(tbExp[nMap].zRightMapTeamExp*X2TLL*X2ByGMTeam)
else
AddOwnExp(tbExp[nMap].zWrongMapTeamExp*X2TLL*X2ByGMTeam)
end
end
end
end
PlayerIndex = OldPlayer
end

function checkrightmap()
local Level = GetLevel()
local nMap,_,_ = GetWorldPos()
if (Level >= tbExp[nMap].zLevel[1] and Level < tbExp[nMap].zLevel[2]) then
return 0
else
return 1
end
end

function check()
local TeamSize = GetTeamSize()
if (TeamSize >= 2) then
return 0
else
return 1
end
end

function dataune()
if GetTask(505) == 1 then
SetTask(506,GetTask(506)+1)
Msg2Player("B¹n ®· tiªu diÖt ®­îc <color=green>"..GetTask(506).."/1 qu¸i ")
end
end


function bossxanh(nMap,nX,nY)
local IdBoss = random(tbExp[nMap].zIdBossXanh[1],tbExp[nMap].zIdBossXanh[2])
for i=1,50 do CallBoss = random(1,200) end
if (CallBoss == 10 or CallBoss == 50 or CallBoss == 150 or CallBoss == 200) then
local X = nX + random(-3,3)
local Y = nY + random(-3,3)
local IndexBoss=AddNpc(IdBoss,90,SubWorldID2Idx(nMap),X* 32,Y*32)
SetNpcSeries(IndexBoss,random(0,4))
SetNpcScript(IndexBoss,tbExp[nMap].zScript)
end
end

[killer20099]

Copy and paste nhé :D, cơ mà code không tab ra nhìn nhức đầu quá 8-}

cơ mà thằng cu này là ai vậy ????

[minhchau0309]

Quẳng vào xài
Include cái gì nữa thì thêm vào .


cám ơn câu nhưg tớ dùng nền củ BFF với lại task k phù hợp , tớ chỉ thắc mắc k hỉu sao pt mà k share exp đc thui hà. :(
hàm củ qui địh addexp vẫn add cho pt mà ta. đau đầu qoá :((

[Long.MR]

cám ơn câu nhưg tớ dùng nền củ BFF với lại task k phù hợp , tớ chỉ thắc mắc k hỉu sao pt mà k share exp đc thui hà. :(
hàm củ qui địh addexp vẫn add cho pt mà ta. đau đầu qoá :((

cái mình post viết cho nền BFF đấy , hàm trong code đó BFF xài ngon lành luôn , cứ bỏ vào là xài cả chủ pt lẫn thằng trong nhóm đều có

[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,toa doy*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,toa doy*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.:bz

[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 :D

for k = 1,1200 do

[HoangTVT]

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

[minhchau0309]

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

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.:bz

[minhchau0309]

hic cậu ơi nó vẫn hiểu là thằg giết k có task hà >.<
mà dòng này là sao zị
local IsDoTask157 = GetTask(157);
if (IsDoTask157 ~= 5) then
Talk(1,"","Ta kh«ng cã thï o¸n g× víi nhµ ng­¬i ....")
return
end
nếu có task dó = 5 thì talk á??? >.<

[minhchau0309]

uppppppppp >.<........................

[minhchau0309]

uppp ai chỉ hộ e ngu qá fix mãi k đc

[minhchau0309]

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
vẫn k hỉu người trong team có task. làm sao pt mà set task cho thằg kia đc dây chài :((

[hoivegame]

Dòng đó nó ktra nv có task là 5 hay ko nếu khác 5 có nghĩa là ko làm nv hoặc đã làm xong rồi. Bạn nên ktra kỹ những nv trong team có task ko đã

[pikhjn]

Scipt này nó khai báo nếu chủ thớt chưa xem phim 18+ bao giờ thì sẽ không dùng được :|
p/s: nói thật đấy :)) Châu mập !

[minhchau0309]

Dòng đó nó ktra nv có task là 5 hay ko nếu khác 5 có nghĩa là ko làm nv hoặc đã làm xong rồi. Bạn nên ktra kỹ những nv trong team có task ko đã
tớ về nc vs mạc sầu thử ùi task 157=5 đúg ùi huhuhu :((
elseif GetTask(157) == 5 then
Talk(1,"","<color=green>M¹c SÇu: <color> Ta ®· nãi lµ nã ë Thµnh §« 412/303 råi mµ. H·y ®i nhanh ®i !")

--- Chế độ gộp bài viết ---


Scipt này nó khai báo nếu chủ thớt chưa xem phim 18+ bao giờ thì sẽ không dùng được :|
p/s: nói thật đấy :)) Châu mập !

phim đó là phim gì. nhỏ lớn h ta chưa bt nha :D
vếu bự toàn silicon mà đi khoe hoài. ta đag diên vs cái script mà con đụg tới nỗi đau chạm vào trym của ta nữa :((

[hoivegame]

:|check hàm death kìa. Coi thử nó check team ko hay no ko đọc hàm