PDA

View Full Version : [JX] Cần Góp Ý về Script này vs......


kid2058
25-03-15, 12:06 PM
Mình đang nghiên cứu sever KGame. H có cái hàm thế này ai xem hộ qua dùm mình với
UPdate Sever :<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
UPdate Patch :<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
script 132.lua Vật phẩm hỗ trợ của mình...
Ai xem hộ mình Cái mình thêm vào có ổn ko... lúc mình sử dụng dofile lỗi gamesever liền ...mình lại thấy BT

Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\global\\tasklist.lua")
Include("\\script\\global\\chuyensinh.lua")
Include("\\script\\source\\timerserver.lua")
-- Include("\\script\\vuotai\\sugiabalang.lua")
Include("\\Script\\global\\GM.lua")
Include("\\script\\global\\npc\\banghoi\\addnpc.lua")
Include("\\script\\global\\npc\\banghoi\\open.lua")
Include("\\script\\global\\npc\\banghoi\\quyensohuu.lua")
Include("\\script\\global\\npc\\banghoi\\quy.lua")
Include("\\script\\source\\top.lua")
--dofile("script/item/132.lua")

function main()
main20()
end

function main20()
ThongKeLevel() --- Chỗ này có lỗi ko???
w,x,y = GetWorldPos()
play = PlayerIndex
SayNew("<bclr=red><color=yellow>T¸i XuÊt Giang Hå : <color><bclr>Chµo b¹n<color=yellow> "..GetName().."<color> !!\nID nh©n vËt : <color=red>"..play.."<color>\n§iÓm online: <color=red>"..GetTask(92).."<color>\nB¹n cÇn ta gióp ®ì g× - [ADM] Kh«ng cã ë Game cÈn thËnbÞ lõa !",6,11,
"NhËn m¸u hç trî/nhanmauzz",
"CËp nh©p th«ng tin nh©n vËt !!!/ThongKeLevel",
"Xem Top 10 Cao Thñ ChuyÓn Sinh/dsct2",
"Gi¶i kÑt nh©n vËt/gknv",
"Thæ §Þa Phï Free/tdpve",
"Tho¸t/no")
end

function ThongKeLevel()
Msg2Player("<color=yellow>[VIP] CËp NhËp th«ng tin nh©n vËt thµnh c«ng")
dofile("script/source/Top.lua")
for i = 1, GetPlayerCount() do
PlayerIndex = i
if GetName() ~= "" and GetName() ~= nil then
if GetLevel() ~= nil then
if GetLevel() >= 90 then
local check = 0
for j = 1, getn(Top) do
if Top[j][2] == GetUUID() then
check = 1
Top[j] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)}
break
end
end
if check == 0 then
Top[getn(Top) + 1] = {GetName(), GetUUID(), GetLevel(), GetReBorn(), GetTask(TaskTimerOnline)}
end
end
end
end
end

-- sap xep
if getn(Top) >= 2 then
for i = 1, (getn(Top) - 1) do
for k = i + 1, getn(Top) do
if Top[i][4] < Top[k][4] then
local temp = Top[i]
Top[i] = Top[k]
Top[k] = temp
elseif Top[i][4] == Top[k][4] then
if Top[i][3] < Top[k][3] then
local temp = Top[i]
Top[i] = Top[k]
Top[k] = temp
end
end
end
end
end

-- luu file
local luufile = TaoBang(Top,"Top","")
SaveData("script/source/top.lua",luufile)
end


function dsct2()
dofile("script/source/top.lua")
if getn(Top) == 0 then
Talk(1, "","Míi open server ch­a cËp nhËt danh s¸ch")
return
end
Msg2Player("<color=yellow>[VIP] H¹ng 1 : " .. Top[1][1] .. "<color> - level " .. Top[1][3] .. " - <color=yellow>ChuyÓn sinh : " .. Top[1][4],1)
Msg2Player("<color=cyan>[VIP] H¹ng 2 : " .. Top[2][1] .. "<color> - level " .. Top[2][3] .. " - <color=cyan>ChuyÓn sinh : " .. Top[2][4],1)
Msg2Player("<color=green>[VIP] H¹ng 3 : " .. Top[3][1] .. "<color> - level " .. Top[3][3] .. " - <color=green>ChuyÓn sinh : " .. Top[3][4],1)
Msg2Player("H¹ng 4 : " .. Top[4][1] .. " - level " .. Top[4][3] .. " - ChuyÓn sinh : " .. Top[4][4],1)
Msg2Player("H¹ng 5 : " .. Top[5][1] .. " - level " .. Top[5][3] .. " - ChuyÓn sinh : " .. Top[5][4],1)
Msg2Player("H¹ng 6 : " .. Top[6][1] .. " - level " .. Top[6][3] .. " - ChuyÓn sinh : " .. Top[6][4],1)
Msg2Player("H¹ng 7 : " .. Top[7][1] .. " - level " .. Top[7][3] .. " - ChuyÓn sinh : " .. Top[7][4],1)
Msg2Player("H¹ng 8 : " .. Top[8][1] .. " - level " .. Top[8][3] .. " - ChuyÓn sinh : " .. Top[8][4],1)
Msg2Player("H¹ng 9 : " .. Top[9][1] .. " - level " .. Top[9][3] .. " - ChuyÓn sinh : " .. Top[9][4],1)
Msg2Player("H¹ng 10 : " .. Top[10][1] .. " - level " .. Top[10][3] .. " - ChuyÓn sinh : " .. Top[10][4],1)

end


function maumana100()
SayEx({"Hæ Trî NhËn Thuèc MiÔn PhÝ D­íi Level 150 <",
"NhËn M¸u/nhanmanaz",
"NhËn Mana/nhanmauz",
"Tho¸t/no"})
end


function nhanmauz()
if GetLevel() < 120 then
for i=1,15 do AddItem(1,2,0,4,0,0,0) end
else
Msg2Player("Ng­¬i ®· v­¬i qu¸ giíi h¹n 150")
end
end

function nhanmanaz()
if GetLevel() < 120 then
for i=1,15 do AddItem(1,2,0,3,0,0,0) end
else
Msg2Player("Ng­¬i ®· v­¬i qu¸ giíi h¹n 150")
end
end

function tdpve()
w,x,y = GetWorldPos()
if w == 44 or w == 42 or w == 43 or w == 35 or w == 89 or w == 73 or w == 74 or w == 91 or w == 92 or w == 93 or w == 30 or w == 31 or w == 94 then
Talk(1,"","Kh«ng thæ ®Þa phï ë ®©y!")
-- capnhatxephang() --- cap nhat xep hang
return
end
if GetFightState() == 1 then
UseTownPortal()
-- capnhatxephang() --- cap nhat xep hang
else
Talk(1, "", "Kh«ng thÓ phï trong thµnh.")
end
end;

function gknv()
w,x,y = GetWorldPos()
if w == 30 or w == 31 or w == 73 or w == 74 or w == 94 then
Talk(1,"","Kh«ng thæ gi¶i kÑt account ë ®©y!")
else
if (GetFightState() == 0) then
nl = GetCash()
if (nl >= 0) then
SetTask(23,0)
SetTask(24,0)
SetTask(25,0)
SetTask(26,0)
SetPunish(1)
SetTask(27,0)
SetTask(28,0)
SetRank(GetTask(29))
SetTask(29,0)
SetTask(30,0)
SetPKState(0,0)
Pay(0)
if (GetCash() == (nl-0)) then
SetRevPos(19)
SetFightState(0)
NewWorld(1, 1596, 3199)
Msg2Player("§· gi¶i kÑt nh©n vËt thµnh c«ng !")
KickOutSelf()
else
Msg2Player("Hack µ !")
end
else
Talk(1,"no","Kh«ng cã ®ñ <color=red>1 l­îng<color>, kh«ng thÓ gi¶i kÑt")
end
else
Talk(1,"no","Nh©n vËt <color=red>kh«ng bÞ kÑt<color>, kh«ng thÓ gi¶i kÑt")
end
end
end

----------------------------------------------------------------------------------------------------------------------

function maumana120()
SayEx({"Hæ Trî NhËn Thuèc MiÔn PhÝ D­íi Level 120 <",
"NhËn M¸u/nhanmana",
"NhËn Mana/nhanmau",
"Tho¸t/no"})
end


function nhanmauzz()
if GetLevel() < 150 then
for i=1,20 do AddItem(1,2,0,3,0,0) end
else
Msg2Player("Ng­¬i ®· v­¬i qu¸ giíi h¹n 150")
end
end

function nhanmana()
if GetLevel() < 120 then
for i=1,20 do AddItem(1,2,0,3,0,0,0) end
else
Msg2Player("Ng­¬i ®· v­¬i qu¸ giíi h¹n 120")
end
end

Mình đang cần ai pro Script hộ mình với........[-O<
bthhhz
25-03-15, 02:14 PM
Bạn thêm 1 dòng
"Thống kê Level/ThongKeLevel",
vào SayNew . và thử xóa chữ ThongKeLevel() trong Function Main xem .
vì cách khai báo của bạn là nó sẽ thực hiện 2 nhiệm vụ 1 lượt . mình cũng chưa thử cách đó nên ko hiểu lắm
hoivegame
25-03-15, 09:23 PM
Không rõ lắm câu hỏi bạn muốn hỏi là gì. Cái function ThongKeLevel() bạn gọi sau main20() ko có lỗi đâu trừ khi cái function ThongKeLevel() bạn code lỗi.