Script 5file

[banynavy]

copy vao script\skill\sytem.lua

---------------------------------------------------------
----Author: DNT
----Edit:banynavy
---------------------------------------------------------
Include("[Only registered and activated users can see links. ]");
Include("[Only registered and activated users can see links. ]");
Include("[Only registered and activated users can see links. ]");
Include("[Only registered and activated users can see links. ]");
Include("[Only registered and activated users can see links. ]");
Include("[Only registered and activated users can see links. ]");
function main()
return DzD()
end;
function DzD()
SayEx({"Danh Vong: "..GetRepute()..", Phuc Duyen: "..GetTask(TaskPhucDuyen)..", PK: "..GetPK()..", Level: "..GetLevel()..". Dao Hanh: "..GetTask(TaskDaoHanh)..",Xu: "..GetTask(TaskTienDong)..". Tong Kim: "..GetTask(TaskTongKim).." diem.",
"Tho Dia Phu./ThoDiaPhu4ev",
"Uy Thac./uythac",
"Di Tong Kim./baodanh_npc",
"Chuc Phuc./QHK",
"Su dung Qua Hoang Kim./delQHK",
"Xin gia nhap Nuoc./gianhap",
"Phuc Duyen./canphucduyen",
"Su dung sach./cansach",
"Su dung Bi Kip 90./canbikip",
"Thoat./Exit"})
end;
function trungsinhX()
trungsinh_npc()
end;
function chucphuc()
if ((GetLevel() >= 20) and (GetLevel() <= 199)) then 
SayEx({"<color=yellow>Chuc Phuc<color>: <color=red>"..GetName().."<color> muon hai qua ah!",
"Bat dau chuc phuc ./mohongbao",
"Thoat./no"})
else
SayEx({"<color=yellow>Chuc Phuc<color>: <color=red>"..GetName().."<color>Khong phu hop de hai qua<color>!",
"Thoat./no"})
end
end;
function QHK()--- CHUC PHUC VAO LUC 18H
gio = {18}
getnowgio = tonumber(date("%H"))
getnowphut = tonumber(date("%M"))
for i = 1,getn(gio) do
if getnowgio == gio[i] and getnowphut == 15 then
chucphuc()
elseif getnowgio == gio[i] and getnowphut == 20 then
chucphuc()
elseif getnowgio == gio[i] and getnowphut == 25 then
chucphuc()
else
tim = (18 - getnowgio)
dot1 = (15 - getnowphut)
dot2 = (20 - getnowphut)
dot3 = (25 - getnowphut)
tim1 = 24 - (getnowgio - 18)
dot1a2 = 60 - (getnowphut-15 )
dot1b2 = 60 -(getnowphut-15)
tim2 = 24 - (getnowgio - 18)
dot2a2 = 60 -(getnowphut - 20)
dot2b2 = 60 -(getnowphut - 20)
tim3 = 24 - (getnowgio - 18)
dot3a2 = 60 -(getnowphut - 25)
dot3b2 = 60 -(getnowphut - 25)
-- Xet Gia Tri Gio voi he so phut luon fuong
--Dot1-----------------------------------------------------------------------------------------------------------------------------
--if gio >= 0 va phut >= 0 He so duong
if tim >= 0 and dot1 >=0 then --A1 ca 2 deu >=0
Say("†A† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 1<color>: <color=green>"..tim.."<color> gio <color=red>"..dot1.."<color> phut.",0)
--if gio < 0 va phut >= 0 He so Gio Am ,He so phut duong
elseif tim < 0 and dot1 >=0 then --B1
-- Chuyen Gia tri phut sang duong
Say("†B† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 1<color>: <color=green>"..tim1.."<color> gio <color=red>"..dot1.."<color> phut.",0)
--Xet Gia Tri gio voi he so phut luon am
elseif tim >= 0 and dot1 < 0 then --A2|| Gio >0 giu nguyen gia tri TIM
-- chuyen gia tri phut ve gia tri duong
Say("†C† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 1<color>: <color=green>"..tim.."<color> gio <color=red>"..dot1a2.."<color> phut.",0)
elseif tim < 0 and dot1 < 0 then
-- chuyen gia tri phut ve gia tri duong va su dung B1 chuyen gia tri gio ve duong
Say("†D† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 1<color>: <color=green>"..tim1.."<color> gio <color=red>"..dot1b2.."<color> phut.",0)
--ket thuc xet ham dot1
--Dot2-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
elseif tim >= 0 and dot2 >=0 then --A1
Say("†A† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 2<color>: <color=green>"..tim.."<color> gio <color=red>"..dot2.."<color> phut.",0)
--if gio < 0 va phut >= 0 He so Gio Am ,He so phut duong
elseif tim <= 0 and dot2 >=0 then --B1
-- Chuyen Gia tri phut sang duong
Say("†B† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 2<color>: <color=green>"..tim2.."<color> gio <color=red>"..dot2.."<color> phut.",0)
--Xet Gia Tri gio voi he so phut luon am
elseif tim >= 0 and dot2 < 0 then --A2|| Gio >0 giu nguyen gia tri TIM
-- chuyen gia tri phut ve gia tri duong
Say("†C† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 2<color>: <color=green>"..tim.."<color> gio <color=red>"..dot2a2.."<color> phut.",0)
elseif tim < 0 and dot2 < 0 then
-- chuyen gia tri phut ve gia tri duong va su dung B1 chuyen gia tri gio ve duong
Say("†D† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 2<color>: <color=green>"..tim2.."<color> gio <color=red>"..dot2b2.."<color> phut.",0)
--ket thuc xet ham dot2
--Dot3-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
elseif tim >= 0 and dot3 >=0 then --A1
Say("†A† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 3<color>: <color=green>"..tim.."<color> gio <color=red>"..dot3.."<color> phut.",0)
--if gio < 0 va phut >= 0 He so Gio Am ,He so phut duong
elseif tim < 0 and dot3 >=0 then --B1
-- Chuyen Gia tri phut sang duong
Say("†B† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 3<color>: <color=green>"..tim3.."<color> gio <color=red>"..dot3.."<color> phut.",0)
--Xet Gia Tri gio voi he so phut luon am
elseif tim >= 0 and dot3 < 0 then --A2|| Gio >0 giu nguyen gia tri TIM
-- chuyen gia tri phut ve gia tri duong
Say("†C† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 3<color>: <color=green>"..tim.."<color> gio <color=red>"..dot3a2.."<color> phut.",0)
elseif tim < 0 and dot3 < 0 then
-- chuyen gia tri phut ve gia tri duong va su dung B1 chuyen gia tri gio ve duong
Say("†D† Thoi gian con lai dien ra chuc phuc con lai la:<color=yellow>Luot 3<color>: <color=green>"..tim3.."<color><color=red>"..dot3b2.."<color> phut.",0)
--ket thuc xet ham dot3
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end
end
end 
end;
 
function mohongbao()-- CUA CHUC PHUC
i= random(1,20)
if ((GetLevel() >= 20) and (GetLevel() <= 89)) then
AddOwnExp(i*10000)
Msg2Player("Nhan duoc "..(i*10000).." diem kinh nghiem.")
elseif ((GetLevel() >= 90) and (GetLevel() <= 119)) then
AddOwnExp(i*20000)
Msg2Player("Nhan duoc "..(i*20000).." diem kinh nghiem.")
elseif ((GetLevel() >= 120) and (GetLevel() <= 199)) then
AddOwnExp(i*100000)
Msg2Player("Nhan duoc "..(i*100000).." diem kinh nghiem.")
else
AddOwnExp(30000000)
AddLocalNews("Dai hiep<color=red> "..GetName().."<color> chuc phuc nhan duoc 30trieu kinhn ghiem.")
Msg2Player("Nhan duoc 30000000 diem kinh nghiem.")
end
end;
function gianhap()
SayEx({"<color=yellow>Chuc Phuc: <color=red>"..GetName().."<color><color> muon hai qua ah!",
"Xin Gia nhap nuoc Tong ./LoadTong",
"Xin Gia nhap nuoc Kim ./LoadKim",
"Su dung lenh bai gia nhap./Loadcard",
"Thoat./no"})
end;
function delQHK()
SayEx({"<color=yellow>Xin chao<color> dai hiep: <color=red>"..GetName().."<color>ban muon su dung loai nao",
"Qua Huy Hoang Tieu ./QHK1",
"Qua Huy Hoang Trung ./QHK2",
"Qua Huy Hoang Cao./QHK3",
"Qua Hoang Kim./QHK4",
"Thoat./no"})
end;
function QHK1()--Tieu
if (HaveItem(152) == 1)then 
i= random(1,20)
if ((GetLevel() >= 20) and (GetLevel() <= 89)) then
DelItem(152)
AddOwnExp(i*100000)
Msg2Player("Nhan duoc "..(i*100000).." diem kinh nghiem.")
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong the su dung qua nay.",0)
end
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong co qua Huy Hoang loai nay.",0)
end
end;
function QHK2()--Trung
if (HaveItem(153) == 1)then 
i= random(1,20)
if ((GetLevel() >= 90) and (GetLevel() <= 119)) then
DelItem(153)
AddOwnExp(i*200000)
Msg2Player("Nhan duoc "..(i*200000).." diem kinh nghiem.")
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong the su dung qua nay.",0)
end
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong co qua Huy Hoang loai nay.",0)
end
end;
function QHK3()--cao
if (HaveItem(154) == 1)then 
i= random(1,20)
if ((GetLevel() >= 120) and (GetLevel() <= 199)) then
DelItem(154)
AddOwnExp(i*1000000)
Msg2Player("Nhan duoc "..(i*1000000).." diem kinh nghiem.")
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong the su dung qua nay.",0)
end
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong co qua Huy Hoang loai nay.",0)
end
end;
function QHK4()--vip
if (HaveItem(155) == 1)then 
i= random(1,20)
if ((GetLevel() >= 120) and (GetLevel() <= 199)) then
AddOwnExp(30000000)
DelItem(155)
AddLocalNews("Dai hiep<color=red> "..GetName().."<color> chuc phuc nhan duoc 30trieu kinhn ghiem.")
Msg2Player("Nhan duoc 30000000 diem kinh nghiem.")
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong the su dung qua nay.",0)
end
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong co qua Hoang Kim nao.",0)
end
end;
function LoadTong()
if GetLevel() >= 50 then
AddLocalNews("Nguoi choi<color=red> "..GetName().."<color> xin gia nhap Tong quoc.")
else
Say("Nguoi choi<color=red> "..GetName().."<color>..",0)
end
end;
function LoadKim()
if GetLevel() >= 50 then
AddLocalNews("Nguoi choi<color=red> "..GetName().."<color> xin gia nhap Kim quoc.")
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban chua du dang cap.",0)
end
end;
function Loadcard()
if ((HaveItem(165) == 1) and (GetLevel() >= 50))then --tong
SetCamp(1)
SetCurCamp(1)
SetRank(18)
DelItem(165)
Say("Ban da gia nhap <color=orange>Tong Quoc<color>.",0)
elseif ((HaveItem(166) == 1) and (GetLevel() >= 50))then --kim
SetCamp(2)
SetCurCamp(2)
SetRank(17)
DelItem(166)
Say("Ban da gia nhap <color=violet>Kim Quoc<color>.",0)
else
Say("Nguoi choi<color=red> "..GetName().."<color>.Ban khong co lenh bai.",0)
end
end;

có 1 số script ban fai chinh sua lai thu muc setting chỉ để tham khảo ko ai viết sẳn cho mà sử dụng. như thế ko bao giờ khá nỗi
link down [Only registered and activated users can see links. ]
script chay độc lập

[kinkina2009]

bỏ cái thẻ code đi Not Thank

[[S]ocola[S]an]

Thanks 1 cái để tét thử test ko dc là remove thanks đó

[Mr.Rezo™]

khổ cái nguồn DNTmà dám viết Author : banynavy như thật

Còn nếu bạn banynavy có thích thì đọ với cái Server của tớ cũng được

[notfile]

@Zero : SV ngon quá nhể cho ta làm ăn với
@banynavy : Script của DNT thì để là Author DNT đi thêm dòng Edited by banynavy cũng không sau mà !!!

[thaihoa91]

Lại trò Edit ! Thế mà cứ tưởng bany viết hết đấy chứ @@

[banynavy]

sory tai minh it pót nên ko bit