Topic Hướng Dẫn Viết Script + Fix Lỗi cho Gamer

[kinkina2009]

Giờ rảnh quá không có gì làm lập topic này mong mọi người chấp nhận, Mình chưa pro nhưng đủ trình để hướng dẫn các Script dạng TK, list , ... ;))

[[S]ocola[S]an]

Chú fix cái lưỡng long hợp thể của tui đi xem sai chỗ nào:))

[kinkina2009]

tập viết script khó đi.
GetFaction() và SetTask. thì cái SCript mới đúng

[caothiengthien]

ông viết dùm tui cái Script Tống Kim ,Liên đấu với Vượt ải nha sv JXpro a' tk trước

[kinkina2009]

dạ để con viết ông nội :-??

[notfile]

viết hộ ta cái vượt ải Viêm Đế như của VNG hehehe

[sangpronhat]

;)) Không có việc gì khó ^^ ! .

[Mr.Rezo™]

bạn Kinkina2009 viết hộ tớ cái script thế này :

+ tất cả mọi người đẳng cấp 99 và đã cs 1 lần trở lên ra báo danh ở 1 NPC. ( ví dụ tầm 100 mạng )

+ sau 1 khoảng thời gian nhất định ( vd : 10p ) hệ thống nó tự thông báo người cs cao nhất.

[thaihoa91]

bạn Kinkina2009 viết hộ tớ cái script thế này :

+ đẳng cấp 99 và đã cs 1 lần trở lên ra báo danh ở 1 NPC.

+ sau 1 khoảng thời gian nhất định ( vd : 10p ) hệ thống nó tự thông báo người cs cao nhất.

Ủa mình nghĩ cái này rezo viết dc mà !

[Mr.Rezo™]

muốn chủ Topic viết cho cơ =; chứ mình viết được khá lâu rồi (:|

[kinkina2009]

nó tự cao thế ai dám địch lại ;))
xin thưa em không viết được anh ạ tại em biết em không pro bằng anh được vài người giúp lên mặt vl` =))

[Mr.Rezo™]

Cũng hơn cái loại não teo như chú thôi =.="

anh thì a đẳng cấp hơn não teo mà =.="

[kinkina2009]

có ai nói là tui hơn ông đâu :-??

[thaihoa91]

Loại não teo mà có thể dev dc, thì còn hay hơn 1 ng` ko bị não teo có cùng trình độ !

[sangpronhat]

bạn Kinkina2009 viết hộ tớ cái script thế này :

+ tất cả mọi người đẳng cấp 99 và đã cs 1 lần trở lên ra báo danh ở 1 NPC. ( ví dụ tầm 100 mạng )

+ sau 1 khoảng thời gian nhất định ( vd : 10p ) hệ thống nó tự thông báo người cs cao nhất.
:-| Hay lè viết ko được gầu bảo chủ thớt viết dùm đây ;))

[Mr.Rezo™]

Sang ơi :( tao cần đéo gì chứ tao nói thật vào Server tao mà coi hộ cái.

Ngậm mồm vào con trai. lừa bố xong còn có mặt thớt qua đây nói à

[banynavy]

:D có cái hàm set ten cho NPC sao viet vao no ko set duoc ta. va load NPC khi noi chuyện:Dtại gameserver phai hum

[kinkina2009]

nói gì không hiểu pác ơi
@tài : cái chức năng này nằm trong Source SV Mướp . Tui vừa vọc và viết ra khôg cần Click vào NPC mà tự xếp hạng muốn thì ra Y/H tui đưa như pác yêu cầu

[Mr.Rezo™]

^
xin lỗi có lâu rồi đéo cần đâu :(

Thiệt tình chứ fix cái đéo gì ? dùng hàm SetTimer nó tự xếp hạng xong thông báo

Mỗi tội là disconnect gameserver =))

[DNTmaster]

Create Table rồi dùng hàm for do với 1 table ảo để xếp hạng thế thôi ai xin chi tiết thì PM yahoo :D

[kinkina2009]

^
xin lỗi có lâu rồi đéo cần đâu :(

Thiệt tình chứ fix cái đéo gì ? dùng hàm SetTimer nó tự xếp hạng xong thông báo

Mỗi tội là disconnect gameserver =))

thì cũng đơn giản là lấy cái hàm mission của DNT cứ 1P tự cập nhật thôi còn phút thì mình sét riêng chứ SetTimer gì . SetTimer làm có khi còn nặng cái GS . với lại xài mission thì đỡ hơn nhiều:-<

[kinkina2009]

úp lại topic nhé
Kể từ # này trở xuống sẽ là các bài giải đáp script cho các bạn trong khả năng của mình :). Ai mún viết những gì cứ post mình sẽ hướng dẫn mọi người các hàm xài và cách viết cho nó
Thân :)

[notfile]

King hướng dẫn sử dụng hàm local chi tiết đi :D

[kinkina2009]

cũng chưa làm gì nhiều với hàm này nhưng có đôi khi làm timer có sử dụng nhưng vọc theo DNT chứ chưa bik nguyên lí lắm :(

[notfile]

lần trước có 1 người đã hỏi về hàm này mà chưa ai giải đáp được !!
có lẽ trong các bài hướng dẫn về LUA có :D

[sontung93]

Cho e cách chỉnh rate exp . Vs phần ép đồ bk vs

[Mr.Phát]

cái này mấy cái sv mới nhất đc share trong diễn đàn đều có chức năng này mà :)

[sontung93]

KikiNa làm ơn cho mình xin mấy cái event hay hay đc k :D r` hướng dẫn mình cho vào sv luôn đc k . mình cảm ơn rất nh`

[anthonyluu]

pác King đâu giúp giải quyết dùm cái script liền đấu này zới :D
Đã fix lại cái timertask.txt bên settings cho phù hợp với Settask bên script LD nhưng vẫn ko work. Vào báo danh thì bảo con thời gian .... nhưng đến giờ thì nó không move vào đấu trường gì hết.

--************************************Written by Manh Tuyen********************************************--
--******************************************BEGIN*** *************************************************--
danhsach_account = {}
Include("\\script\\lien_dau\\liendau_head.lua")
Include("\\script\\Global\\sourcejx49.lua");

--Include("\\script\\lien_dau\\danhsach_account.lua")
--{GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
xaphu = {}
DS_THAMGIA_LD = {}
function main(sel)
W,X,Y = GetWorldPos()
if W == 31 then
quanvienliendau()
else
sugiadangkyliendau()
end
end
function sugiadangkyliendau()
if GetTask(TaskUyThac) == 0 then
Say("<bclr=red><color=yellow>Ta la su gia lien dau,nguoi co muon tham gia hoat dong nay khong<color><bclr>",4,
"Dang ky chien doi/DangKyChienDoi",
"Den hoi truong lien dau/VaoHoiTruongLienDau",
"Ta muon lanh phan thuong lien dau/phanthuong",
"Roi khoi/out")
else
Talk(1,"","Ban dang Uy Thac khong the tham gia Lien Dau")
end
end
function VaoHoiTruongLienDau()
if TimKiem(danhsach_account,GetName()) == nil then
Talk(1,"","<bclr=red><color=yellow>Ban phai dang ky chien doi truoc khi vao dau truong<color><bclr>")
return
end
NewWorld(31,47744/32,97440/32)
SetFightState(0)
SetLogoutRV(1)
SetDeathScript("")
SetTaskTemp(100,0)
Msg2Player("Ban da den hoi truong lien dau!")
if TimKiem(DS_THAMGIA_LD,GetName()) == 1 and GioLienDau() == "bao danh" then
LeaveTeam()
SetFightState(0)
SetCreateTeam(0);
SetPunish(0)
SetTaskTemp(100,0)
SetTaskTemp(101,GetPK())
SetTaskTemp(102,GetExp())
SetPK(0)
SetLogoutRV(1)
SetTempRevPos(31,47744/32,97440/32)
SetDeathScript("\\script\\lien_dau\\su_gia_lien_dau.lua")
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if phut <= gio_liendau[i][2]+thoigianbaodanh then
thoigiancho = (gio_liendau[i][2]+thoigianbaodanh-phut)*60-giay
break
end
end
Msg2Player("Thoi gian cho doi: "..thoigiancho.." giay")
StopTimer()
SetTimer(thoigiancho*18,22)
end
end
function DangKyChienDoi()
if TimKiem(danhsach_account,GetName()) == nil then
danhsach_account[getn(danhsach_account)+1] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
Msg2Player("Ban da lap thanh cong chien doi ["..GetName().."]")
else
Msg2Player("Ban da lap chien doi,khong can lap lai nua")
end
end

function quanvienliendau()
SetFightState(0)
if GioLienDau() == "bao danh" then
Say("<bclr=green><color=yellow>Ban dang tham gia hoat dong Lien Dau do KingMax phat trien<color><bclr>",4,
"Ta muon tham gia/DangKy",
"Thong tin ca nhan/thongtincanhan",
"Bang xep hang/Xem_BangXepHang",
"Roi khoi/out")
elseif GioLienDau() == "thi dau" then
Say("<bclr=green><color=yellow>Ban dang tham gia hoat dong Lien Dau do KingMax phat trien\nThoi gian thi dau con lai la: "..ThoiGianConLai().."<color><bclr>",3,
"Thong tin ca nhan/thongtincanhan",
"Bang xep hang/Xem_BangXepHang",
"Roi khoi/out")
elseif GioLienDau() == "chua den gio" then
Talk(1,"","<bclr=red><color=yellow>Hien tai chua den gio tham gia Lien Dau<color><bclr>")
end
end;
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function Xem_BangXepHang()
Say("<bclr=red><color=yellow>Nguoi muon biet thong tin ve bang xep hang lien dau phai ko?<color><bclr>",3,"10 hang dau/xephang","20 hang dau/xephang","Roi khoi/out")
end
function xephang(nsel)
BangXepHang((nsel+1)*10)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function DangKy()--Dang ky tham gia

if STT_LD() ~= luotliendau then
luotliendau = STT_LD()
DS_THAMGIA_LD = {}
end
if GioLienDau() ~= "bao danh" then
return
end
if TimKiem(DS_THAMGIA_LD,GetName()) == nil then
if getn(DS_THAMGIA_LD) < 2 then
DS_THAMGIA_LD[getn(DS_THAMGIA_LD)+1] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
else
i = random(1,getn(DS_THAMGIA_LD))
DS_THAMGIA_LD[getn(DS_THAMGIA_LD)+1] = DS_THAMGIA_LD[i]
DS_THAMGIA_LD[i] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
i = nil
end
LeaveTeam()
SetFightState(0)
SetCreateTeam(0);
SetPunish(0)
SetTaskTemp(100,0)
SetTaskTemp(101,GetPK())
SetTaskTemp(102,GetExp())
SetPK(0)
SetLogoutRV(1)
SetTempRevPos(31,47744/32,97440/32)
SetDeathScript("\\script\\lien_dau\\su_gia_lien_dau.lua")
Msg2Player("Ban da dang ky tham gia thi dau Lien Dau dot "..luotliendau)
--print("<<"..GetName()..">> dang ki tham gia Lien Dau luot thu "..luotliendau.."\nhien co "..getn(DS_THAMGIA_LD).." nguoi dang ky tham gia lien dau")
Msg2SubWorld("Chien doi ["..GetName().."] dang ki tham gia Lien Dau luot thu "..luotliendau)
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if phut <= gio_liendau[i][2]+thoigianbaodanh then
thoigiancho = (gio_liendau[i][2]+thoigianbaodanh-phut)*60-giay
break
end
end
Msg2Player("Thoi gian cho doi: "..thoigiancho.." giay")
StopTimer()
SetTimer(thoigiancho*18,22)
else
Msg2Player("Ban da dang ky tham gia thi dau dot "..luotliendau..", xin doi it phut")
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TenDoiThu(tennhanvat)--tim ten doi thu cua tennhanvat
for i = 1,getn(DS_THAMGIA_LD) do
if GetName() == DS_THAMGIA_LD[i][1] then
if i == getn(DS_THAMGIA_LD) and mod(getn(DS_THAMGIA_LD),2) ~= 0 then
return ""
end
if mod(i,2) ~= 0 then --so le
return DS_THAMGIA_LD[i+1][1]
else --so chan
return DS_THAMGIA_LD[i-1][1]
end
end
end
return ""
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function STT_LD()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
for i = 1,getn(gio_liendau) do
if gio == gio_liendau[i][1] and phut <= gio_liendau[i][2]+thoigianthidau+thoigianbaodanh-1 then
return i
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function BangXepHang(hang)
--if GetName() ~= "admin_manhtuyen" then
-- Talk(1,"","Chuc nang nay chua duoc cap nhat")
-- return
--end
if getn(danhsach_account) < 2 then
Talk(1,"","<bclr=red><color=yellow>Bang xep hang chua duoc cap nhat<color><bclr>")
return
end
--if getn(danhsach_account) < 10 then
-- Talk(1,"","<bclr=red><color=yellow>So nguoi dang ky tham gia lien dau chua du 10 nguoi nen khong the xep hang<color><bclr>")
-- return
--end
bangxephang = {}
for k = 1,hang do
danhsach2 = {}
danhsach1 = {}
danhsach = {}
diem_vd_lonnhat = 0
tilethang_lonnhat = 0
level_nhonhat = 0
--so sanh diem vinh du
for i = 1,getn(danhsach_account) do
if danhsach_account[i][3] > diem_vd_lonnhat and TimKiem(bangxephang,danhsach_account[i][1]) == nil then
danhsach = {danhsach_account[i][1]}
diem_vd_lonnhat = danhsach_account[i][3]
elseif danhsach_account[i][3] == diem_vd_lonnhat and TimKiem(bangxephang,danhsach_account[i][1]) ==nil then
danhsach[getn(danhsach)+1] = danhsach_account[i][1]
end
end

--so sanh ti le thang
for i = 1,getn(danhsach) do
if TiLeThang(danhsach[i],0) > tilethang_lonnhat and TimKiem(bangxephang,danhsach[i]) ==nil then
danhsach1 = {danhsach[i]}
tilethang_lonnhat = TiLeThang(danhsach[i],0)
elseif TiLeThang(danhsach[i],0) == tilethang_lonnhat and TimKiem(bangxephang,danhsach[i]) ==nil then
danhsach1[getn(danhsach1)+1] = danhsach[i]
end
end
--so sanh dang cap
danhsach2 = {danhsach1[1]}
for i = 1,getn(danhsach1)-1 do
if Level_LD(danhsach1[i]) < level_nhonhat and TimKiem(bangxephang,danhsach1[i]) ==nil then
danhsach2 = {danhsach1[i+1][1]}
level_nhonhat = Level_LD(danhsach1[i])
elseif Level_LD(danhsach1[i]) == level_nhonhat and TimKiem(bangxephang,danhsach1[i]) ==nil then
danhsach2[getn(danhsach2)+1] = danhsach1[i+1][1]
end
end
if danhsach2[1] ~= nil then
bangxephang[getn(bangxephang)+1] = danhsach2
end
end
if getn(bangxephang) == 0 then
return
end
for i = 1,getn(bangxephang) do
for k = 1,getn(bangxephang[i]) do
str = "<<"..bangxephang[i][k]..">>\nDiem vinh du: "..DiemVinhDu(bangxephang[i][k]).."\nTi le thang: "..TiLeThang(bangxephang[i][k],1).."."
end
str = "Hang "..i..":\n"..str
Msg2Player(str)
str = ""
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TimKiem(tenbang,tukhoa)
if getn(tenbang) == 0 then
return nil
end
for i= 1,getn(tenbang) do
for k = 1,getn(tenbang[i]) do
if tenbang[i][k] == tukhoa then
return 1
end
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function DiemVinhDu(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return danhsach_account[i][3]
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function ThoiGianConLai()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
for i = 1,getn(gio_liendau) do
if gio == gio_liendau[i][1] and phut <= gio_liendau[i][2]+thoigianthidau+thoigianbaodanh then
thoigianconlai = (gio_liendau[i][2]+thoigianbaodanh+thoigianthidau-phut)*60-giay
break
end
end
return floor(thoigianconlai/60)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function Level_LD(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return danhsach_account[i][2]
end
end
return "biet chet lien"
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function ThongTin_NhanVat_LD(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
return tennhanvat..":Mon phai:"..danhsach_account[i][6].."\ndiem vinh du:"..danhsach_account[i][3].."\nTi le thang:"..TiLeThang(tennhanvat,1).."\nXep Hang:"..XepHang_LienDau()..""
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function TiLeThang(tennhanvat,lamtron)
if tennhanvat == "" or tennhanvat == "Khong Xac Dinh" then
return 0
end
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
if danhsach_account[i][4]+danhsach_account[i][5] == 0 then
return 0
else
if lamtron == 1 then
return floor(danhsach_account[i][4]*100/(danhsach_account[i][5]+danhsach_account[i][4]))
else
return danhsach_account[i][4]*100/(danhsach_account[i][5]+danhsach_account[i][4])
end
end
end
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function thongtincanhan()
sotranthang = GetTask(107)
sotranthua = GetTask(105)
if sotranthua+sotranthang == 0 then
tilethang = 0
else
tilethang = floor(sotranthang*100/(sotranthua+sotranthang))
end
Say("<color=yellow>"..GetName().."<color>:Level:"..GetLevel().."\nMon Phai:"..GetFaction().."\nDiem vinh du:"..GetTask(106).."\nSo tran thang:"..GetTask(107).."\nSo tran thua:"..GetTask(105).."\nTi le thang:"..tilethang.."",0)
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
function NguoiThangCuoc(tennv1,tennv2)
if TiLeThang(tennv1,0) > TiLeThang(tennv2,0) then
return tennv1
elseif TiLeThang(tennv1,0) < TiLeThang(tennv2,0) then
return tennv2
else--neu ti le thang bang nhau thi set den dang cap(neu dang cap thap hon se thang)
if Level_LD(tennv1) > Level_LD(tennv2) then
return tennv1
elseif Level_LD(tennv1) < Level_LD(tennv2) then
return tennv2
else--neu den dang cap cung bang nhau thi he thong se random nguoi thang cuoc
i = random(1,2)
if i == 1 then
return tennv1
else
return tennv2
end
i = nil
end
end
end
--************************************************** ************************************************** ************************************************** ***************************
function OnDeath(Launcher)
PlayerIndex1 = NpcIdx2PIdx(Launcher);
OrgPlayer = PlayerIndex;
DeathName = GetName();--------------------------nguoi thua
SetFightState(0);
camp = GetCamp();
SetCurCamp(camp);
SetCreateTeam(1);
SetPK(GetTask(103))
SetPunish(1)
SetDeathScript("");
if GetExp() < GetTaskTemp(102) then
AddOwnExp(GetTaskTemp(102) - GetExp())
end
SetTask(103,0)
SetTask(104,0)
SetTask(105,GetTask(105)+1)
AddOwnExp(random(5000000,10000000))
NewWorld(31,47744/32,97440/32)
SetLogoutRV(1)
Msg2Player("Do vo dung! danh dam nhu the ha, de cai thang "..MonPhai(TenDoiThu(GetName())).." cap "..Level_LD(GetName()).." no bat nat,di chet di!")
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
end
end
StopTimer()
--******************************************
PlayerIndex = PlayerIndex1;------------------nguoi danh thang
LaunName = GetName();
SetFightState(0)
camp = GetCamp();
SetCurCamp(camp);
SetCreateTeam(1);
SetPK(GetTask(103))
SetPunish(1)
SetDeathScript("");
SetTask(106,GetTask(106)+4)
SetTask(107,GetTask(107)+1)
NewWorld(31,47744/32,97440/32)
SetLogoutRV(1)
Msg2Player("Xin chuc mung ban nhan duoc them 4 diem vinh du")
AddOwnExp(random(10000000,20000000))
str = "Chien doi ["..LaunName.."] danh bai chien doi ["..DeathName.."]"
Msg2SubWorld(str);
print(str)
StopTimer()
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
end
end
PlayerIndex = OrgPlayer;
end
--************************************************** ************************************************** ************************************************** ***************************
function MonPhai(tennhanvat)
for i = 1,getn(danhsach_account) do
if danhsach_account[i][1] == tennhanvat then
if danhsach_account[i][6] == "" then
return "Vo mon phai"
else
return danhsach_account[i][6]
end
end
end
return ""
end
--************************************************** ************************************************** ************************************************** ***************************
function OnTimer()
idx = SubWorldID2Idx(31)
SubWorld = idx

if GetTaskTemp(100) == 0 then
--neu khong co ai la doi thu trong luot dau do thi se duoc su thang cuoc
if TenDoiThu(GetName()) == "" or TenDoiThu(GetName()) == "Khong Xac Dinh" then
NewWorld(31,47744/32,97440/32)
SetLogoutRV(1)
StopTimer()
SetTaskTemp(100,0)
SetFightState(0)
SetPunish(0)
SetTask(106,GetTask(106)+4)
SetDeathScript("")
SetTask(107,GetTask(107)+1)
camp = GetCamp();
SetCurCamp(camp);
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
break
end
end
Msg2Player("Xin chuc mung! ban nhan duoc 4 diem vinh du")
return
end
print("doi thu cua "..GetName()..":"..TenDoiThu(GetName()))
Msg2Player("\n[Thong tin doi thu]:"..TenDoiThu(GetName())..",level:"..Level_LD(TenDoiThu(GetName()))..",mon phai:"..MonPhai(TenDoiThu(GetName())))
for i = 1,getn(DS_THAMGIA_LD) do
if GetName() == DS_THAMGIA_LD[i][1] then
if mod(i,2) == 0 then
NewWorld(30,DAUTRUONGPOSXY[floor(i/2)][1]*8,DAUTRUONGPOSXY[floor(i/2)][2]*16)
SetLogoutRV(1)
print(GetName().." vao dau truong thu "..floor(i/2))
else
NewWorld(30,DAUTRUONGPOSXY[floor(i/2)+1][1]*8,DAUTRUONGPOSXY[floor(i/2)+1][2]*16)
SetLogoutRV(1)
print(GetName().." vao dau truong thu "..(floor(i/2)+1))
end
Msg2SubWorld("Chien doi ["..GetName().."] da vao khu vuc chuan bi thi dau")
break
end
end
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
if mod(i,2) == 0 then
SetCurCamp(1)
else
SetCurCamp(2)
end
break
end
end
StopTimer()
SetTimer(18,22)
SetTaskTemp(100,1)
elseif GetTaskTemp(100) < 11 then
Msg2Player("Tran dau se bat dau sau "..(11-GetTaskTemp(100)).." giay!")
SetTaskTemp(100,GetTaskTemp(100)+1)
w,x,y = GetWorldPos()
if w ~= 30 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
return
end
if Player_Online_LD(TenDoiThu(GetName())) == "OffLine" and GetTaskTemp(100) == 10 then
NewWorld(31,47744/32,97440/32)
SetLogoutRV(1)
StopTimer()
SetTaskTemp(100,0)
SetFightState(0)
SetPunish(0)
SetTask(106,GetTask(106)+4)
SetDeathScript("")
SetTask(107,GetTask(107)+1)
camp = GetCamp();
SetCurCamp(camp);
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
break
end
end
Msg2Player("Xin chuc mung! ban nhan duoc 4 diem vinh du")
Msg2SubWorld("["..TenDoiThu(GetName()).."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..GetName().."]")
return
end
elseif GetTaskTemp(100) == 11 then
w,x,y = GetWorldPos()
if w ~= 30 then
Msg2SubWorld("["..GetName().."] tu y roi khoi dau truong lien dau nen bi su thua,chien thang thuoc ve ["..TenDoiThu(GetName()).."]")
for i = 1,getn(DS_THAMGIA_LD) do
if DS_THAMGIA_LD[i][1] == GetName() then
DS_THAMGIA_LD[i] = {"Khong Xac Dinh"}
break
end
end
return
end
SetTaskTemp(100,GetTaskTemp(100)+1)
Msg2Player("Tran dau bat dau!")
StopTimer()
SetFightState(1)
SetTimer(((thoigianthidau-1)*60-10)*18,22)
else
--Neu khong ai danh chet duoc doi thu thi se chay den doan script nay
if GetName() == NguoiThangCuoc(GetName(),TenDoiThu(GetName())) then
SetTask(106,GetTask(106)+4)
SetTask(107,GetTask(107)+1)
AddOwnExp(random(1000000,2000000))
Msg2Player("Xin chuc mung! ban nhan duoc 4 diem vinh du")
else
SetTask(105,GetTask(105)+1)
AddOwnExp(random(500000,1000000))
Msg2Player("Do vo dung! danh dam nhu the ha, de cai thang "..MonPhai(TenDoiThu(GetName())).." cap "..Level_LD(GetName()).." no bat nat,di chet di!")
end
for i = 1,getn(danhsach_account) do
if GetName() == danhsach_account[i][1] then
danhsach_account[i] = {GetName(),GetLevel(),GetTask(106),GetTask(107),Ge tTask(105),GetFaction()}
break
end
end
StopTimer()
SetFightState(0)
SetLogoutRV(1)
SetPunish(1)
SetCreateTeam(1)
camp = GetCamp();
SetCurCamp(camp);
SetDeathScript("")
SetTaskTemp(100,0)
NewWorld(31,47744/32,97440/32)
SetLogoutRV(1)
end
end
--************************************************** ************************************
function Player_Online_LD(tennhanvat)
player1 = PlayerIndex --nguoi choi hien tai
for i = 1,100 do
PlayerIndex = i
if GetName() == tennhanvat then
W,X,Y = GetWorldPos()
if W == 30 then
return "OnLine"
else
return "OffLine"
end
end
end
return "OffLine"
end
function phanthuong()
Say("Diem vinh du cua nguoi hien tai la:<color=pink>"..GetTask(106).."<color> diem",5,
"Trang Bi An Bang - Dinh Quoc./loaiab",
--"Do Pho Bach Kim[100 diem]/abmax",
--"Bi Kiep Mon Phai 120 [50 diem]/abnb",
"Doi Lenh Bai Vinh Du./lbvd",
"Thoat/out")
end
function loaiab()
Say("<color=red>: Su Gia Lien Dau <color>: Ban muon mua loai nao",3,
"Key Dinh Quoc Vip./vipdq",
"Key An Bang./vipab",
"Thoat./out")
end;
function lbvd()
Say("<color=red> Su Gia Lien Dau<color>: Ban muon lam gi",3,
"Doi Lenh Bai Lay Diem./diemld",
"Mua Lenh Bai Bang Diem./mualb",
"Thoat./out")
end;

function diemld()
Say("<color=red>Su Gia Lien DAu<color>: Ban muon doi Lenh Bai nao",4,
"Lenh Bai Dong [ 10 diem]./thaps",
"Lenh Bai Thiet [ 50 diem ]./trungs",
"Lenh Bai Vang [100 diem]./caos",
"Thoat./out")
end;


function thaps()
if GetItemCount(76) >= 1 then
SetTask(106,GetTask(106)+10)
DelItem(76)
Msg2Player("Nhan duoc 10 diem Lien Dau")
else
Talk(1,""," Can 1 Lenh Bai [ Thiet] de doi")
end
end;


function trungs()
if GetItemCount(77) >= 1 then
SetTask(106,GetTask(106)+50)
DelItem(77)
Msg2Player("Nhan duoc 50 diem Lien Dau")
else
Talk(1,""," Can 1 Lenh Bai [Dong] de doi")
end
end;


function caos()
if GetItemCount(78) >= 1 then
SetTask(106,GetTask(106)+100)
DelItem(78)
Msg2Player("Nhan duoc 100 diem Lien Dau")
else
Talk(1,""," Can 1 Lenh Bai [Vang] de doi")
end
end;
















function mualb()
Say("<color=red>Su Gia Lien Dau <color>: Ban muon doi Lenh Bai nao",4,
"Lenh Bai Dong [ Thap]./thap",
"Lenh Bai Thiet [ Trung ]./trung",
"Lenh Bai Vang [Cao]./cao",
"Thoat./out")
end;
function thap()
if GetTask(106) >= 11 then
SetTask(106,GetTask(106)-11)
AddEventItem(76)
Msg2Player("Nhan duoc 1 Lenh Bai Vinh Du [Thiet]")
else
Talk(1,""," Can 11 diem Vinh Du de co the mua")
end
end;


function trung()
if GetTask(106) >= 55 then
SetTask(106,GetTask(106)-55)
AddEventItem(77)
Msg2Player("Nhan duoc 1 Lenh Bai Vinh Du [Dong]")
else
Talk(1,""," Can 55 diem Vinh Du de co the mua")
end
end
;
function cao()
if GetTask(106) >= 111 then
SetTask(106,GetTask(106)-111)
AddEventItem(78)
Msg2Player("Nhan duoc 1 Lenh Bai Vinh Du [Vang]")
else
Talk(1,""," Can 111 diem Vinh Du de co the mua")
end
end;













function vipdq()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddItem(0,8,3,10,0,0,10)
AddItem(0,5,5,10,0,0,10)
AddItem(0,7,15,10,0,0,10)
AddItem(0,2,30,10,0,0,10)
AddItem(0,6,3,10,0,0,10)
Msg2Player("Nhan duoc 1 Bo An Bang - Dinh Quoc.")
else
Talk(1,""," Can 50 diem Vinh Du de co the mua trang bi Dinh Quoc")
end
end;
function vipab()
Say("<color=red>Su Gia Lien Dau:<color> O day co cac loai trang bi tran hung phuc quoc",5,
"Nhan An Bang [Hoa]./hoa",
"Nhan An Bang [Thuy]/thuy",
"Ngoc boi An Bang [Moc]./moc",
"Day Chuyen An Bang [Tho]./tho",
"Thoat/out")
end;

function moc()
if GetTask(106) >= 30 then
SetTask(106,GetTask(106)-30)
AddItem(0,9,3,10,0,0,10)

Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 30 diem Vinh Du de co the mua trang bi An Bang[Moc]")
end
end;


function tho()
if GetTask(106) >= 100 then
SetTask(106,GetTask(106)-100)
AddItem(0,4,3,10,0,0,10)
Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 100 diem Vinh Du de co the mua trang bi An Bang nay")
end
end;

function hoa()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddItem(0,3,3,10,0,0,10)

Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 50 diem Vinh Du de co the mua trang bi An Bang[Hoa]")
end
end;

function thuy()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddItem(0,3,4,10,0,0,10)
Msg2Player("Nhan duoc 1 mon An Bang ")
else
Talk(1,""," Can 50 diem Vinh Du de co the mua trang bi An Bang[Thuy]")
end
end;






function abnb()
Say("Ban Muon Lay Bi Kiep Mon Phai Nao",11,"Thieu Lam/tl2","Thien Vuong/tv2","Nga Mi/nm2","Thuy Yen/ty2","Ngu Doc/nd2","Cai Bang/cb2","Thien Nhan/tn2","Con Lon/cl2","Vo Dang/vd2","Duong Mon/dm2","Thoat./no")
end;
function nm2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)

AddEventItem(65)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function nd2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(66)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function tl2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(67)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end

function cb2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(68)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end

function ty2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(69)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end

function dm2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(70)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end

function cl2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(71)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end

function tn2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(72)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end

function tv2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(73)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end

function vd2()
if GetTask(106) >= 50 then
SetTask(106,GetTask(106)-50)
AddEventItem(74)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function nhanabthuy()
if GetTask(106) >= 100 then
AddItem(0,10,13,10,0,0,0)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function nhanabhoa()
Say("Ban Muon Lay Bi Kiep Mon Phai Nao",11,"Thieu Lam/tl1","Thien Vuong/tv1","Nga Mi/nm1","Thuy Yen/ty1","Ngu Doc/nd1","Cai Bang/cb1","Thien Nhan/tn1","Con Lon/cl1","Vo Dang/vd1","Duong Mon/dm1","Ket Thuc/no")
end;
function nm1()
if GetTask(106) >= 100 then
AddEventItem(161)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function nd1()
if GetTask(106) >= 100 then
AddEventItem(160)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function tl1()
if GetTask(106) >= 100 then
AddEventItem(157)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function cb1()
if GetTask(106) >= 100 then
AddEventItem(163)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function ty1()
if GetTask(106) >= 100 then
AddEventItem(162)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function dm1()
if GetTask(106) >= 100 then
AddEventItem(159)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function cl1()
if GetTask(106) >= 100 then
AddEventItem(166)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function tn1()
if GetTask(106) >= 100 then
AddEventItem(164)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function tv1()
if GetTask(106) >= 100 then
AddEventItem(158)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function vd1()
if GetTask(106) >= 100 then
AddEventItem(165)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end


function abmax()
SayEx({"<color=red>Su Gia Lien Dau: <color> Nguoi Muon Lay Do Pho Vu Khi Nao",
"Do Pho [Dao Bach Kim]/dbk",
"Do Pho [Kiem Bach Kim]/kbk",
"Do Pho [Thuong Bach Kim]/tbk",
"Do Pho [Chuy Bach Kim]/cbk",
"Do Pho [Bong Bach Kim]/bbk",
"Do Pho [Song Dao Bach Kim]/sdbk",
"Do Pho [Phi Tieu Bach Kim]/ptbk",
"Do Pho [Phi Dao Bach Kim]/pdbk",
"Do Pho [Am Khi Bach Kim]/akbk",
"Ket Thuc/no"})

end;
function dbk()
if GetTask(106) >= 100 then
AddEventItem(45)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function kbk()
if GetTask(106) >= 100 then
AddEventItem(46)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function tbk()
if GetTask(106) >= 100 then
AddEventItem(47)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function cbk()
if GetTask(106) >= 100 then
AddEventItem(48)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function bbk()
if GetTask(106) >= 100 then
AddEventItem(49)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function sdbk()
if GetTask(106) >= 100 then
AddEventItem(50)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function ptbk()
if GetTask(106) >= 100 then
AddEventItem(51)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function pdbk()
if GetTask(106) >= 100 then
AddEventItem(52)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function akbk()
if GetTask(106) >= 100 then
AddEventItem(53)
SetTask(106,GetTask(106)-100)
Msg2Player("So diem vinh du con lai cua ban la: "..GetTask(106))
else
Talk(1,"","Ban khong du diem tich luy de doi lay vat pham nay")
end
end
function PlayerBT()
SetDeathScript("")
SetCreateTeam(1)
StopTimer()
SetTask(103,0)
SetTask(104,0)
SetTaskTemp(100,0)
end
function xa_phu()
for i = 1,7 do
xaphu[getn(xaphu)+1] = GetStationName(i).."/gothanhthi"
end
xaphu[8] = "Ta khong muon di/out"
Say("<color=blue>Khach quan co muon tro lai cac thanh thi khong<color>",8,xaphu)
end;

function gothanhthi(nSel)
w,x,y = GetStationPos(nSel+1)
if SubWorldID2Idx(w) ~= -1 then
NewWorld(w,x,y)
SetFightState(0)
SetLogoutRV(1)
SetLogoutRV(0);
Msg2Player("Ngoi yen nhe! chung ta di "..GetStationName(nSel+1))
else
Say("<color=blue>Noi ban muon den khong duoc mo trong qua trinh khoi dong server!<color>",0)
end
end
--************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** ************************************************** *
--sau day la 1 doan script cuc ki quan trong,neu khong co doan nay GameServer se bao loi(that khung khiep)
function out()
end;
function no()
end;


còn đây là hàm timertask của settings :
22 \script\lien_dau\su_gia_lien_dau.lua

rất cám ơn sự giải quyết của pác :D

[kinkina2009]

1 đám rừng để tui xem thử đã :-ss

[zonjkut3]

anh king fix dùm em TK+VA tsbd :)

[sontung93]

chủ top pic cho cái hướng dẫn sửa cái event 8.3 của Mướp :( xin cảm ơn

[kinkina2009]

^
^
^
Fix xong Liên đấu cho ông rồi nhé
^
^^
post Script + lỗi lên

[sontung93]

function main()
Say("<color=blue>Le Kien Quan: <color>Ta la nguoi dam nhan cac <color=fire>su kien<color> trong nhung ngay le quan trong",1,"Thoat/no")
end;
function even83()
Say("<color=blue>Le Kien Quan: <color>Khi train o cac map cac ban co co hoi nhan duoc <color=fire>duong, trung, sua, bot my. <color>Nguoi hay lua chon",3,"Lam banh kem/lbkt","Su dung banh kem/sdbk","Thoat/no")
end;
function lbkt()
Say("<color=blue>Le Kien Quan: <color>De lam banh kem nguoi can co <color=fire>duong, trung, sua, bot my, <color>nguoi cu du roi chu ?",2,"Bat dau lam banh/bdlb","Thoat/no")
end;
function bdlb()
if (GetCash() >= 20000) then
sl1=GetItemCount(117)
sl2=GetItemCount(118)
sl3=GetItemCount(119)
sl4=GetItemCount(120)
if (sl1 >= 1) and (sl2 >= 1) and (sl3 >= 1) and (sl4 >= 1) then
DelItem(117)
DelItem(118)
DelItem(119)
DelItem(120)
if (GetItemCount(117) == (sl1-1)) and (GetItemCount(118) == (sl2-1)) and (GetItemCount(119) == (sl3-1)) and (GetItemCount(120) == (sl4-1)) then
Pay(20000)
lb = random(121,124)
AddEventItem(lb)
Msg2Player("Ban nhan duoc 1 chiec banh kem !");
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co du <color=red>nguyen lieu<color>, khong the lam banh")
end
else
Talk(1,"no","Ban khong co du <color=red>2 van luong<color>, khong the lam banh")
end
end;

function sdbk()
Say("<color=blue>Le Kien Quan: <color>Nhan vat dang cap tu 80 tro len moi co the su dung, nguoi hay lua chon",5,"Banh Kem Sua (Kem)/bksk","Banh Kem Sua (Thuong)/bkst","Banh Kem Sua (Ngon)/bksn","Banh Kem Sua (Hao Hang)/bkshh","Thoat/no")
end;
function bksk()
if (GetLevel() >= 80) then
sl=GetItemCount(121)
if (sl >= 1) then
DelItem(121)
if (GetItemCount(121) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(100000)
AddRepute(5)
Msg2Player("Ban nhan duoc 5 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 5) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 5) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 5) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 5) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 5) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Kem)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;


function bkst()
if (GetLevel() >= 80) then
sl=GetItemCount(122)
if (sl >= 1) then
DelItem(122)
if (GetItemCount(122) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(200000)
AddRepute(10)
Msg2Player("Ban nhan duoc 10 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 10) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 10) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 10) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 10) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 10) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Thuong)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;

function bksn()
if (GetLevel() >= 80) then
sl=GetItemCount(123)
if (sl >= 1) then
DelItem(123)
if (GetItemCount(123) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(300000)
AddRepute(15)
Msg2Player("Ban nhan duoc 15 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 15) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 15) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 15) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 15) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 15) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Ngon)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;

function bkshh()
if (GetLevel() >= 80) then
sl=GetItemCount(124)
if (sl >= 1) then
DelItem(124)
if (GetItemCount(124) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(500000)
AddRepute(20)
Msg2Player("Ban nhan duoc 20 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 20) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 20) then
pd=random(106,108)
pd=random(106)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 20) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 20) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 20) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Hao Hang)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;










function no()
end;










đấy :( nói chuyện cả lễ kiện qan thì k thấy có ép bánh :( đánh quái cũng k ra item event

[kinkina2009]

ạc =)). bạn phải ghép vào 1 NPC thì nói chuyện mới có chứ :)
Còn đánh quái rớt ra phải dùng thêm hàm AddEventItem ở OnDearth() của quái còn không thì chỉnh 1 ít ở NPCs.txt và Droprate ở Settings

[jxvietnam]

àh King nè cái ủy thác skill trong THD sao nó cứ > 100%:(
vd như là 123123.123123% chỉnh nó xuống 20.50% đc ko ^^

[kinkina2009]

hàm floor sẽ chia lại thành không có ,

[zonjkut3]

<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>

[kinkina2009]

bảo là post lên mà + lỗi nữa :-"

[zonjkut3]

thì đến h nó k cho báo danh đó
<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>

[sontung93]

function OnDeath()
i = random(1,10)
abcd = random(117,120)
if (i == 5) then
AddEventItem(131)
Msg2Player("Ban nhan duoc 1 Xu.")
elseif (i == 10) then
AddEventItem(abcd)
Msg2Player("Ban Nhan Duoc Nguyen Lieu.")
end
end;

thế này đã đúng chưa a

[kinkina2009]

đúng rồi đó nhớ gán vào 1 NPC đánh chết sẽ nhân được nhé :)

[sontung93]

bác cho e cái scrip skill 120 với đc k :|
e đag cần gấp . hướng dẫn e luôn nhé

[Zin Kull]

bạn sontung93 sao người ta giúp mà không thanks 1 cái để động viên thế...
bạn xài server Mướp phải không? server Mướp hình như không có skill 120, muốn có thì kiếm server nào có, copy về xong đổi id làm res cho nó hiện lum nha.... rồi dùng hàm AddMagic(id,số skill)
Xong

[mrduc121]

Giờ rảnh quá không có gì làm lập topic này mong mọi người chấp nhận, Mình chưa pro nhưng đủ trình để hướng dẫn các Script dạng TK, list , ... ;))

kinkina oi cho toi xin cai yahoo

[kinkina2009]

có gì post ở đây đi hum giờ học hoài + làm SV kô có time trợ giúp qua yahoo

[[M]r[K]id]

tét thử nhìu sever ùi nhưngvan644 ko nói chịn dc zứi NPC là thế nào ^,...,^

[kinkina2009]

ông xài SV nào =.=

[sontung93]

kikina ơi :| mình đag dùng sv của MưỚp :| bạn có thể hướng dẫn mình cách add boss rơi đồ BKMP đc k :| mình k biết cái dòng id đò BK là dòng nào :| . cách chỉnh mặc đồ TP luôn nhé :| mình thấy đồ toàn TP 33333 k à

[kinkina2009]

nếu mún add boss :
boss = AddNpc(idnpc,levelnpc,map,toadox*16,toa doY*32)
SetNpcScript(boss,"\script\boss.lua") -- Ví dụ nhé
mún rớt đồ thì mở script boss.lua lên
hàm dùng
function OnDearth()
<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>
end;
Chỉnh TP thì vào Settings/items/các file item mở lên kéo qua để đơn giản kiếm cái nào 33333 chinh lại cho dễ

[sontung93]

cho mình xin script ép trang bị BK với HK sv THD với

[Kenizzle]

anh giúp em code nhân đôi kinh nghiệm sv TSBD đc ko ạ

[kinkina2009]

mình chỉ giúp fix lỗi , không support viết giùm

[thiensud]

mình chỉ giúp fix lỗi , không support viết giùm
Mình cũng bị lỗi liên đấu y chang bạn kia.
Tới h nó ko vào đấu trường và báo còn 0 phút hoài.
Còn 1 cái nữa là đứng trong hội trường LD ấn giãi kẹt 1 cái là kẹt luôn con nhân vật.Ko vào game dc nữa.
Bạn có thể giúp mình dc k.Tks trước nè

[nhocken2030]

nghe ThaiHoa nói Rezo trùm lừa đảo gì gì ấy :-S ghê zậy

[hoanganhquan10a11]

cho mềnh hỏi khi add đồ HK, vd add cái áo kim phong này thì AddItem(0,2,28,5,0,10,10), thì 0 2 28 là 3 cột đầu đó hả. Vậy làm sao để item nó max đc các chỉ số hả c :D.

[nguyen_van003]

Bạn muốn max chỉ số thì bạn cứ chỉnh trong item trong settings đó, nhớ đồng bộ nha.
Nếu bạn chưa hiểu lắm thì bạn có thể tải Ebook về đọc, sẽ dể hiểu hơn nếu nói ở đây.

[thienthanden2]

Bạn vui lòng cho mình hỏi 1 chuyện nhỏ. Lua ghi chú thích như thế nào. Bên C++ là /* text */ thì bên Lua là gì bạn nhỉ? Mình tìm trên web có người nói là --[[text]] nhưng script báo lỗi ko xài đc. Giờ mình phải -- từng dòng mỏi tay quá (:|

[chaoban6]

Cho mìn 1 cái TK sv BFF hoàn chỉnh đc ko :">

[KingMax]

Bạn vui lòng cho mình hỏi 1 chuyện nhỏ. Lua ghi chú thích như thế nào. Bên C++ là /* text */ thì bên Lua là gì bạn nhỉ? Mình tìm trên web có người nói là --[[text]] nhưng script báo lỗi ko xài đc. Giờ mình phải -- từng dòng mỏi tay quá (:|
chú thích -- , giờ mới trả lời =))

Cho mìn 1 cái TK sv BFF hoàn chỉnh đc ko :">
Không nhận viết, mình chưa bao giờ có SV BFF nên ko rõ . bạn post code mọi người giúp đỡ ,thân

[thienthanden2]

[QUOTE=KingMax;734788]chú thích -- , giờ mới trả lời =))

Mình hỏi loại chú thích bao bọc tương tự như C++ cơ mà :)) Kiểu thế này /* text */ . Hiện mình vẫn dùng cái chú thích -- đó rất thủ công.

[KingMax]

[QUOTE=KingMax;734788]chú thích -- , giờ mới trả lời =))

Mình hỏi loại chú thích bao bọc tương tự như C++ cơ mà :)) Kiểu thế này /* text */ . Hiện mình vẫn dùng cái chú thích -- đó rất thủ công.

lua4 vốn dĩ rất chuối rồi bạn :)) . Lua ngôn ngữ từ C ra mà , nó chỉ sử dụng mảng thao tác nhanh thôi , ngoài ra ko có sử dụng tùy biến nhiều :))

[bualolu2k13]

topic này còn giúp đở k nhỷ...........................

[KingMax]

bạn cứ hỏi , online mình sẽ giúp

[botbot237]

mình mới tập tành viết lung tung hết mình muốn thêm vào từng môn phái là đồ HKMP của phải đó mình có viết thừ và cho vào thằng npc TVB nhưng khi vào game nó báo lổi C++ ra được 3 4 món gì à bạn giúp mình xem mình sai chổ nào nhe :
Include("//script//global//monphai//manguon.lua")

function main()
if GetFaction() == "" then
SayEx({"<color=yellow>Thiên Vương Bang<color> : Ngươi có muốn gia nhập vào thiên vương ?",
"Vâng, ta muốn/gianhaptl",
"Thoát/Exit"});
elseif GetFaction() == "Thien Vuong Bang" then
if GetLevel() >= 90 then
if GetTask(2) >= 1 then
SayEx({"<color=yellow>Thiên Vương Bang<color> : Ngươi muốn xuất sư để hành tẩu giang hồ sao ?",
"Đệ tử muèn học skill 150 của bổn phái/skill150tv",
"Nhận đồ HKMP/hktv",
"Đệ tử xuất sư/xuatsutl",
"Thoát/Exit"});
else
SayEx({"<color=yellow>Thiên Vương Bang<color> : Ngươi có muốn trở về môn phái không ?",
"Trở về thiên vương/quayvetl",
"Thoát/Exit"});
end
else
Talk(1,"no","Xin chào ! Chúc bạn chơi game vui vẻ.")
end
elseif GetFaction() ~= "Thien Vuong Bang" then
Talk(1,"no","Xin chào ! Chúc bạn chơi game vui vẻ.")
end
end;

function skill150tv()
if GetLevel() >= 200 then
AddMagic(394,20) -- Chan Pha Thien Tram
AddMagic(396,20) -- Chan Truy Tinh truc Nguyet
AddMagic(398,20) -- Chan Truy Phong Quyet
else
MsgEx("<color=yellow>Thiên Vương Phái<color> : Ngươi hãy tu luyện lên level 150 rồi đến gặp ta",1)
end
end;

function gianhaptl()
if GetCamp() == 0 then
if GetLevel() < 10 then
MsgEx("<color=yellow>Thiên Vương Bang<color> : Ngươi hãy tu luyện lên level 10 rồi đến gặp ta",1)
else
ToBeConT()
end
else
SayEx({"<color=yellow>Chỉ có nhân vật chữ trắng mới có thể vào phái !","Thoát/Exit"})
end
end;

function ToBeConT()
if NguHanh() == "Hệ kim" then
SetFaction("Thien Vuong Bang")
SetCamp(3)
SetCurCamp(3)
SetRank(2)
SetTask(2,1)
AddMagic(32) -- ếảÁỳắữ
AddMagic(34) -- èỡÍừầạãă
AddMagic(36) -- èỡÍừàảãă
AddMagic(29) -- èỡÍừ´áãă
AddMagic(30) -- ằỉãỗÂọẹó
AddMagic(31) -- ééễặắữ
AddMagic(38) -- ẻịéÄếả
AddMagic(39) -- ắ²éÄắữ
AddMagic(41) -- ắêÀìếả
AddMagic(43) -- ẹụạỉẩýàỵ
AddMagic(45) -- èỡÍừếẵềõ
AddMagic(47) -- ặÃãỗếả
AddMagic(51) -- ảẽằờ´è
AddMagic(49) -- ẹêếẵ°ậãẵ
AddMagic(229)
AddMagic(48)
AddMagic(56,20)
AddMagic(58,20)
AddMagic(59,20)
Talk(1,"no","Bạn đã gia nhập thiên vương bang")
else
Talk(1,"","Bạn thuộc "..NguHanh()..", không thể gia nhập thiên vương được...")
end
end

function xuatsutl()
LeFaction(2,TienXuatSu,"Bạn đã rời khỏi thiên vương.")
end
function hktv()
if GetLevel () >= 120 then
AddItem(0,4,3,5,2,10) --- Dây chuyền
AddItem(0,2,33,5,2,10) --- Áo
AddItem(0,0,0,0,4,10) --- Bao Tay
AddItem(0,7,40,10,1,10) --- Nón
AddItem(0,6,9,5,4,10) --- Đai
AddItem(0,5,12,5,3,10) --- Giày
AddItem(0,0,0,0,3,10) --- Nhẩn
AddItem(0,0,0,0,4,10) --- Nhẩn
AddItem(0,0,0,0,4,10) --- Ngọc bội
Talk(1,"no","Ok đả nhận được trang bị")
else
MsgEx("<color=yellow>Thiên Vương Phái<color> : Đủ 120 level rồi đến gặp ta",1)
end
end;

function quayvetl()

ReFaction(2,3,TienXuatSu,"Bạn đã trở về Thiên Vương Bang...",2)

end
function no()
end
:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*:-*

[KingMax]

LIB của hàm bạ nđâu ạ ? phải post đủ lên check nhé

[botbot237]

là cái gì bạn mình mới tập tành vô nghề có biết gì đâu cái file mình đụng vô sao mình copy y chang lên á =.=:(:(:(

[anhphi97]

viét hộ em đổi nguyen lieu ra event nhé
id 5 loại nguyen lieu
138 139 140 141 142
đổi ra 3 loại bánh 143 144 145
bánh 143 = 5 nl trên và 50v
bánh 144 = 5 nl trên và 100v
bánh 145 = 5 nl trên 200v và 50xu ( gettanks 92 ) ko nhớ :))

[nguyennhan718]

Bác nào pro xem giúp mình script Phong Lăng độ nay bị lỗi gì mà ko có thời gian kết thúc để đưa các member về Ba Lăng Vậy. Thanks

GioPhongLangDoBatDau = {9, 19}
PhutPhongLangDoBatDau = 5
ThoiGianBaoDanhPLD = 5
PhutBenThuyenChuanBiKhoiHanh = 40
PhutBenThuyenKhoiHanh = 43
PhutBenThuyenCapBen = 45

function phonglangdo()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
w,x,y = GetWorldPos()
for i = 1, getn(GioPhongLangDoBatDau) do
if gio == GioPhongLangDoBatDau[i] and phut >= PhutBenThuyenChuanBiKhoiHanh and phut < PhutBenThuyenKhoiHanh then
AddGlobalCountNews("Thuyền đi Phong Lăng Độ sắp khởi hành.",1)
return
end
end

for i = 1, getn(GioPhongLangDoBatDau) do
if gio == GioPhongLangDoBatDau[i] and phut == PhutBenThuyenKhoiHanh then
batdaupld()
elseif gio == GioPhongLangDoBatDau[i] and phut == PhutBenThuyenCapBen then
denbopld()
end
end
end

function batdaupld()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
w,x,y = GetWorldPos()
phut1 = PhutBenThuyenCapBen - phut
for g = 1,GetPlayerCount() do
PlayerIndex = g
if (w == 45) then
SetFightState(1)
Msg2SubWorld("Thuyền đã rời bến, còn "..phut1.." phút nữa sẽ cấp bến Phong Lăng Độ")
end
end
end

function denbopld()
w,x,y = GetWorldPos()
for u=1,GetPlayerCount() do
PlayerIndex = u
if w == 45 then
NewWorld(53, 200*8, 200*16);
SetFightState(0)
Msg2SubWorld("Các hạ về ba lăng huyện")
end
end
end

[khanhdinh91]

Giờ rảnh quá không có gì làm lập topic này mong mọi người chấp nhận, Mình chưa pro nhưng đủ trình để hướng dẫn các Script dạng TK, list , ... ;))

chào bạn . mình chưa biết viết 1 script ntn cả bạn có thể hứong dẫn mình đc ko . mình ko hỏi cách viết hàm chi tiết mà mình chỉ cần hỏi cách viết theo trình tự tạo file nào tên là gì ở đâu .... hy vọng bạn có thể giúp mình . Thanks

[hoivegame]

function denbopld()
--w,x,y = GetWorldPos() de cho nay se ko biet map nao neu dung timer de chay function nay
for u=1,GetPlayerCount() do
PlayerIndex = u
w,x,y = GetWorldPos() ---fix cho nay vi no se lay vi tri map, toa x, toa y cua tung nhan vat qua for loop
if w == 45 then
NewWorld(53, 200*8, 200*16);
SetFightState(0)
Msg2SubWorld("Các hạ về ba lăng huyện")
end
end
end


của bạn đấy

[rongdatbg]

bác fix giúp em lỗi không hiện skill không? khi mới vô nó không hiện skill đánh thường, khi mả bảng skill lên thì bị lỗi game--> treo game không thể làm gì ngoài thoát ra ^^

[NotIAm]

-- Author: ATNTem
-- Date: 21/01/13
-- Npc Ho tro tan thu
Include("\\script\\global\\sourceatn.lua")
Include("\\script\\global\\tasklist.lua")
Include("\\script\\global\\npc\\faction\\main_faction.lua")

function main()
-- dofile("script/global/npc/npc_support.lua")
hotro()
end

function hotro()
local TAB_SUPPORT = {
--"T×m hiÓu trß ch¬i./SoNhapGame",
"NhËn hç trî cÊp ®é (50 cÊp)/hotroexp",
"NhËn th­ëng th¨ng cÊp/nhanthuong",
"NhËn kü n¨ng 9x./NhanSkill9x",
"NhËn LÖnh bµi Minh Chñ LÖnh./HoTroTT",
"V©ng! C¹n chÐn./no",
}
local nCost = GetCash()
if(GetLevel() < 160) then
SayImg(10002, 2, 0, TAB_SUPPORT[1], TAB_SUPPORT[2], TAB_SUPPORT[3], TAB_SUPPORT[4], TAB_SUPPORT[5])
--elseif (GetLevel() > 80) and (GetTask(T_NhanSkill) == 0) then
SayImg(10002, 2, 0, TAB_SUPPORT[6], TAB_SUPPORT[5])
else
Msg2Player("<color=green>B¹n ®· trë thµnh cao thñ kh«ng cÇn trî gióp cña ta n÷a.")
end
end
function NhanSkill9x()
SetTask(T_NhanSkill,1)
skill_90()
end
function SoNhapGame()
Talk(8,"no", 10009, 10010, 10011, 10012, 10013, 10014, 10015, 10016)
end
function nhanthuong()
SayEx({"Xin chµo <color=wood>"..GetName().."<color>!",
"NhËn th­ëng Level 10/cap10",
"NhËn th­ëng Level 20/cap20",
"NhËn th­ëng Level 30/cap30",
"NhËn th­ëng Level 40/cap40",
"NhËn th­ëng Level 50/cap50",
"NhËn th­ëng Level 120/cap60",
"NhËn th­ëng Level 130/cap130",
"NhËn th­ëng Level 140/cap140",
"NhËn th­ëng Level 150/cap150",
"KÕt thóc ®æi tho¹i/no"})
end
function HoTroTT()
AddEventItem(120)
Msg2Player("B¹n nhËn ®­îc <color=green>1 LÖnh bµi hæ trî t©n thñ.")
end

function cap10()
if(GetLevel() >= 10) then
if(GetTask(T_HoTro) < 11) then
local x = random(0,4)
SetTask(T_HoTro, 11)
Earn(50000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 10.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 10 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 10.")
end
end

function cap20()
if(GetLevel() >= 20) then
if(GetTask(T_HoTro) < 21) then
local x = random(0,4)
SetTask(T_HoTro, 21)
Earn(100000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 20.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 20 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 20.")
end
end

function cap30()
if(GetLevel() >= 30) then
if(GetTask(T_HoTro) < 31) then
local x = random(0,4)
SetTask(T_HoTro, 31)
AddItem(0, 10, x, 4, 1, 0, 5)
AddEventItem(34)
Earn(150000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 30.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 30 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 30.")
end
end

function cap40()
if(GetLevel() >= 40) then
if(GetTask(T_HoTro) < 41) then
local x = random(0,4)
SetTask(T_HoTro, 41)
AddItem(0, 10, x, 5, 1, 0, 5)
AddEventItem(34)
AddEventItem(34)
Earn(200000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 40.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 40 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 40.")
end
end

function cap50()
if(GetLevel() >= 50) then
if(GetTask(T_HoTro) < 51) then
local x = random(0,4)
SetTask(T_HoTro, 51)
AddItem(0, 10, x, 6, 1, 0, 5)
AddGoldItem (1)
AddGoldItem (2)
AddGoldItem (3)
AddGoldItem (4)
AddGoldItem (5)
AddGoldItem (6)
AddGoldItem (7)
AddGoldItem (8)
AddGoldItem (9)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
Earn(250000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 50.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 50 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 50.")
end
end

function cap60()
if(GetLevel() >= 60) then
if(GetTask(T_HoTro) < 61) then
local x = random(0,4)
SetTask(T_HoTro, 61)
AddItem(0, 10, x, 7, 1, 0, 5)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
Earn(300000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 60.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 60 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 60.")
end
end

function cap130()
if(GetLevel() >= 130) then
if(GetTask(T_HoTro) < 131) then
local x = random(0,4)
SetTask(T_HoTro, 131)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
Earn(2000000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 130.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 130 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 130.")
end
end

function cap140()
if(GetLevel() >= 140) then
if(GetTask(T_HoTro) < 141) then
local x = random(0,4)
SetTask(T_HoTro, 141)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(33)
AddEventItem(33)
AddEventItem(33)
AddEventItem(33)
AddEventItem(33)
AddEventItem(8)
AddEventItem(8)
AddEventItem(8)
AddEventItem(8)
AddEventItem(8)
Earn(5000000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 140.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 140 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 140.")
end
end

function cap150()
if(GetLevel() >= 150) then
if(GetTask(T_HoTro) < 151) then
local x = random(0,4)
SetTask(T_HoTro, 151)
AddEventItem(0)
AddEventItem(1)
AddEventItem(14)
AddEventItem(15)
AddEventItem(16)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(17)
AddEventItem(11)
AddEventItem(11)
AddEventItem(11)
AddEventItem(11)
AddEventItem(11)
AddEventItem(36)
AddEventItem(36)
AddEventItem(36)
AddEventItem(36)
AddEventItem(36)
AddEventItem(39)
AddEventItem(40)
Earn(10000000)
Msg2Player("Chóc mõng b¹n ®· nhËn ®­îc phÇn th­ëng Level<color=green> 150 .")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "Ng­êi ®· nhËn phÇn th­ëng Level 150 råi mµ cßn quay l¹i hái ta chuyÖn g× n÷a..!")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 150.")
end
end


function hotroexp()
if(GetLevel() >= 1) then
while GetLevel() < 100 do AddOwnExp(9999999) end
if(GetTask(T_HoTro) < 151) then
local x = random(0,4)
SetTask(T_HoTro, 151)
AddItem(0, 10, x, 10, 1, 0, 5)
AddGoldItem(1)
AddGoldItem(2)
AddGoldItem(3)
AddGoldItem(4)
AddGoldItem(5)
AddGoldItem(6)
AddGoldItem(7)
AddGoldItem(8)
AddGoldItem(9)
AddEventItem(34)
AddEventItem(34)
AddEventItem(34)
AddEventItem(37)
AddEventItem(37)
AddEventItem(37)
Earn(10000)
Msg2Player("B¹n nhËn ®­îc hç trî lªn level<color=green> 120.")
elseif (GetTask(T_HoTro) == 2) then
Msg2Player(10006)
else
Talk(1, "no", "B¹n ®· nhËn phÇn th­ëng lvl 120 råi mµ.")
end
else
Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ Level<color=green> 120.")
end
end

Đây là Scrip Của NPC hỗ trợ
Ai giúp em viết thêm scrip nhận đồ xanh + tiền vạn với ạ

[calms1001]

bạn ơi!!! bạn có thể giúp mình viết script ngôi sao hạnh phúc giống của võ lầm miễn phí được không, mình cám ơn bạn!!!

[rioranso]

♫ sao không có bác nào tạo topic fix lỗi bug sever nhờ :((

[hoivegame]

Vậy bạn đã chuyển sinh bao nhiêu?

[f-fantasy]

Em viết script để nhận thưởng vòng sáng chuyển sinh
thế *éo nào nó báo là e ko có số lần chuyển sinh để nhận thưởng mặc dù account e hiện đang là cs 6 nhưng nó vẫn báo là 0 lần cs ai giúp e đc k

function vscs()
if GetTask(T_ChuyenSinh1) >= 6 and GetTask(T_ChuyenSinh1) < 7 then
if HaveMagic(319) <= 0 then
AddMagic(319,50)
DelMagic(323)
DelMagic(325)
DelMagic(327)
DelMagic(328)
DelMagic(329)
DelMagic(330)
DelMagic(331)
DelMagic(332)
DelMagic(338)
DelMagic(339)
DelMagic(340)
DelMagic(343)
DelMagic(352)
DelMagic(353)
DelMagic(354)
DelMagic(356)
DelMagic(357)
DelMagic(358)
DelMagic(359)
DelMagic(360)
DelMagic(369)
DelMagic(370)
DelMagic(371)
DelMagic(318)
DelMagic(320)
DelMagic(321)
DelMagic(322)
DelMagic(324)
DelMagic(337)
DelMagic(344)
DelMagic(345)
DelMagic(346)
DelMagic(347)
DelMagic(348)
DelMagic(349)
DelMagic(350)
DelMagic(361)
DelMagic(362)
DelMagic(363)
DelMagic(366)
DelMagic(367)
DelMagic(368)
DelMagic(372)
DelMagic(373)
DelMagic(374)
DelMagic(376)
DelMagic(326)
DelMagic(316)
DelMagic(314)
DelMagic(315)
DelMagic(317)
DelMagic(333)
DelMagic(334)
DelMagic(335)
DelMagic(351)
DelMagic(336)
Msg2Player("Bạn Nhận Được Vòng Sáng Cs")
KickOutSelf()
else
Talk(1,"addrank","Ngươi Đã Nhận <color=fire>Vòng Sáng<color> không thể nhận nữa")
end
else
Msg2Player("Số lần Cs của bạn là : "..GetTask(T_ChuyenSinh1).." không đủ nhận thưởng")
end
end

Sao không để if GetTask(T_ChuyenSinh1) == 6 luôn lại còn phải >=6 và <7
T_ChuyenSinh bạn đã khai báo chưa?

[cuongvh93]

Mình có 1 đoạn scripts up lên lv 80. Nhưng mình muốn 1gmer chỉ nhận được 1 lần thôi thì sao vậy các bác? tại em mới gia nhập nên còn gà.


function level_up_to80()
local nCurLevel = GetLevel()
if nCurLevel >= 80 then
if ST_IsTransLife() == 1 then
Talk(1, "", "Ng­¬i ®· ®¹t cÊp 80 råi.")
else
Talk(1, "", "Ng­¬i ®· v­ît qu¸ cÊp ®é cho phÐp råi.")
end
return
end
local nAddLevel = 80 - nCurLevel
ST_LevelUp(nAddLevel)
end

[cuongvh93]

Mình có 1 đoạn scripts up lên lv 80. Nhưng mình muốn 1gmer chỉ nhận được 1 lần thôi thì sao vậy các bác? tại em mới gia nhập nên còn gà.


function level_up_to80()
local nCurLevel = GetLevel()
if nCurLevel >= 80 then
if ST_IsTransLife() == 1 then
Talk(1, "", "Ng­¬i ®· ®¹t cÊp 80 råi.")
else
Talk(1, "", "Ng­¬i ®· v­ît qu¸ cÊp ®é cho phÐp råi.")
end
return
end
local nAddLevel = 80 - nCurLevel
ST_LevelUp(nAddLevel)
end

Mình làm được rồi. 30 charrrrrrrrrrrrrrrrrrrrrr

[gamevn500]

e moi tap dev sv . may a co ai ranh thj giup e ti. co hau ta . 0962172913 hoac FB <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>

[hoilamgi45]

e moi tap dev sv . may a co ai ranh thj giup e ti. co hau ta . 0962172913 hoac FB <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>

còn nhớ nick gamevn500 này lúc trước mình tập tành dev clb ko cho reg acc nên mượn nick đấy post bài :))

[kyucmaixa29]

có ae nào biết script click npc rồi chọn dòng để nó lấy đồ không.
mình thấy auto vlbs nó click iteam lấy đồ chỉnh được click npc mà không rành script để nó click đúng dòng lấy đồ. ae nào biết có thể chỉ giúp mình với đây là 1 đoạn click iteam lây đồ trong lệnh bài. mình muốn click vào npc hỗ trợ tân thủ để lấy đồ mong ae chỉ giáo :

szVulanLib = system.GetScriptFolder().."\\LIB\\VulanLib.lua"
IncludeFile(szVulanLib)
-----------------------------------------------------------
function DoiTBHK()
UseItemByName("LÖnh Bµi T©n Thñ")
timer.Sleep(300)
tbVulanLib.WaitMenu(0)
menu.ClickIndex(0,0)
timer.Sleep(200)
tbVulanLib.WaitMenu(1)
menu.ClickIndex(1,1)
timer.Sleep(200)
menu.Close(1)
end

----------------------------------------------------------
function LOC_DO()

local nIndex, nPlace, nX, nY = item.GetFirst()

while nIndex ~= 0 do

local nGenre, nDetail, nParticular = item.GetKey(nIndex)

if nPlace == 3 and nGenre == 0 then
if item.GetName(nIndex) == "V« Ma Ma Ni qu¸n" then
for i = 0, 5 do
local nMagicType, nValue1, nValue2, nValue3 = item.GetMagicAttrib(nIndex, i)

if i == 2 and nValue1 < 50 then
shop.Buy(nIndex)
timer.Sleep(40)
end
if i == 3 and nValue1 < 50 then
shop.Buy(nIndex)
timer.Sleep(40)
end
if i == 5 and nValue1 < 120 then
shop.Buy(nIndex)
timer.Sleep(40)
end
end


else
shop.Buy(nIndex)
timer.Sleep(40)
end
end

nIndex, nPlace, nX, nY = item.GetNext()

end

end
--------------------------------------------------------------------
function main()
for k = 0, 60000 do
for m = 0, 2 do
DoiTBHK()

end
for j = 0,20 do
LOC_DO()
end
end
end

[kemcpr]

có bác nào ở đây chuyên về web hum nhỉ 8->8->8->8-> cho mình hỏi và nhờ vả tí ạ =))