Kết quả 11 đến 20 của 28
Chủ đề: Thắc mắc về script
-
01-07-14, 08:09 AM #11
- Ngày tham gia
- Mar 2010
- Bài viết
- 430
- Thanks
- 30
- Thanked 182 Times in 81 Posts
Code: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
Khách viếng thăm hãy cùng hoivegame xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
Các thành viên gởi lời cảm ơn đến hoivegame vì bài viết này !
minhchau0309 (01-07-14)
-
01-07-14, 01:59 PM #12
- Ngày tham gia
- Sep 2011
- Đang ở
- Phú Nhuận
- Bài viết
- 1,115
- Thanks
- 223
- Thanked 308 Times in 147 Posts
Ðề: Thắc mắc về script
PHP Code: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
Khách viếng thăm hãy cùng minhchau0309 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
01-07-14, 03:54 PM #13
- Ngày tham gia
- Mar 2014
- Bài viết
- 274
- Thanks
- 42
- Thanked 165 Times in 97 Posts
Ðề: Thắc mắc về script
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ả.
Code: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
Khách viếng thăm hãy cùng HoangTVT xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
Các thành viên gởi lời cảm ơn đến HoangTVT vì bài viết này !
minhchau0309 (01-07-14)
-
01-07-14, 08:42 PM #14
- Ngày tham gia
- Sep 2011
- Đang ở
- Phú Nhuận
- Bài viết
- 1,115
- Thanks
- 223
- Thanked 308 Times in 147 Posts
Ðề: Thắc mắc về script
đả thử script dó và vẫn chưa thàh côg
Khách viếng thăm hãy cùng minhchau0309 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
01-07-14, 08:52 PM #15
- Ngày tham gia
- Nov 2011
- Đang ở
- The Moon
- Bài viết
- 366
- Thanks
- 85
- Thanked 230 Times in 76 Posts
Ðề: Thắc mắc về script
Khách viếng thăm hãy cùng lzlsky301 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
Các thành viên gởi lời cảm ơn đến lzlsky301 vì bài viết này !
minhchau0309 (01-07-14)
-
01-07-14, 10:51 PM #16
- Ngày tham gia
- Mar 2014
- Bài viết
- 274
- Thanks
- 42
- Thanked 165 Times in 97 Posts
Ðề: Thắc mắc về script
Ak đúng rồi 30 30 30 30 30 30 30 30
Lần sửa cuối bởi HoangTVT, ngày 01-07-14 lúc 11:07 PM.
Khách viếng thăm hãy cùng HoangTVT xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
01-07-14, 11:02 PM #17
- Ngày tham gia
- Sep 2011
- Đang ở
- Phú Nhuận
- Bài viết
- 1,115
- Thanks
- 223
- Thanked 308 Times in 147 Posts
Ðề: Thắc mắc về script
Khách viếng thăm hãy cùng minhchau0309 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
01-07-14, 11:08 PM #18
- Ngày tham gia
- Mar 2014
- Bài viết
- 274
- Thanks
- 42
- Thanked 165 Times in 97 Posts
Ðề: Thắc mắc về script
Code: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
Khách viếng thăm hãy cùng HoangTVT xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
01-07-14, 11:31 PM #19
- Ngày tham gia
- Sep 2011
- Đang ở
- Phú Nhuận
- Bài viết
- 1,115
- Thanks
- 223
- Thanked 308 Times in 147 Posts
Ðề: Thắc mắc về script
dư dấu ngoặc.........đã sửa theo vẫn chưa thàh côg điên thiệt
Khách viếng thăm hãy cùng minhchau0309 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-07-14, 04:20 AM #20
- Ngày tham gia
- Mar 2010
- Bài viết
- 430
- Thanks
- 30
- Thanked 182 Times in 81 Posts
Ðề: Thắc mắc về script
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.
Code: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
Khách viếng thăm hãy cùng hoivegame xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
Các thành viên gởi lời cảm ơn đến hoivegame vì bài viết này !
minhchau0309 (02-07-14)
Các Chủ đề tương tự
-
[JX] Giúp mình vấn đề về script !
Bởi phamngochai2 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 4Bài viết cuối: 18-07-12, 06:23 PM -
Một số script trong thư mục script Vina (unpack)
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 19Bài viết cuối: 26-11-11, 08:12 AM -
Giúp mình với. Thư mục Script không nhận
Bởi cagevn trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 4Bài viết cuối: 08-09-10, 08:34 AM -
Máy cấu hình thấp có ảnh hưởng đến script không vậy
Bởi tungpro102 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 2Bài viết cuối: 07-09-10, 09:47 AM