sangpronhat
28-10-09, 09:55 PM
Tôi nhớ đã share một lần gòi nhưng giờ update chọ mọi người luk
nguyet_lao.lua
---------------------------------------------------------
----------------Ket hon--------------------------------
DANH_SACH_KET_HON = {}
Include("\\script\\ket_hon\\danh_sach_marrie.lua") ---data save o day >''<
strMain = {
"<bclr=red>Nguyet Lao<bclr> : Ta la nguoi chuyen di lam may moi cho cac cap trai gai dang <color=pink>Yeu<color> nhau, hom nay nguoi den gap ta co chuyen gi khong",
"Ta muon ket hon/kethonok",
"Ta muon ly hon/kethondel",
"Ta gop gop tien vao quy vo chong/gop_money",
"Giao vo chong thiep/giao_hw_thiep",
"Ta muon dung tien de mua nha/buyhouse",
"Ta muon rut tien trong quy/ruttien",
"Ta muon kiem tra tinh hinh/kiemtra",
"Ket thuc doi thoai/out"
}
function main()
strSay = "Ten chong Ten Vo So Tien Quy\n"
for i=1,getn(DANH_SACH_KET_HON) do
strSay = strSay..DANH_SACH_KET_HON[i][1].." "..DANH_SACH_KET_HON[i][2].." "..DANH_SACH_KET_HON[i][3].."\n"
end
if KETHON(GetName()) == 1 then
Say(strSay,6,strMain[3],strMain[4],strMain[5],strMain[7],strMain[8],strMain[9])
else
Say(strSay,2,strMain[2],strMain[9])
end
end
function kethonok()
team=GetTeam()
size=GetTeamSize()
if team==nil then
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi phai lap to doi 2 nguoi la nam va nu thi moi ket hon duoc !",0)
elseif team~=nil and size ~= 2 then
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi phai lap to doi 2 nguoi thi moi ket hon duoc ! doi ban chi co"..size,0)
elseif team~=nil and size==2 and IsCaptain()~=1 then
Say("<bclr=red>Nguyet Lao<bclr> : Chi co chu nhom moi den dang ky duoc !",0)
elseif team~=nil and size==2 and IsCaptain()==1 then
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi da du dieu kien de ket hon roi nguoi co muon ket hon khong ?",2,"Tat nhien muon/ok","Ta chua chuan bi tam ly/out")
end
end
function ok()
team=GetTeam()
sex=GetSex()
name=GetName()
if TIMKIEM(GetName()) == 1 then
Say("Nguoi dung la khong chung thuy ma ta se mach cho "..VOLA(GetName()).." do",0)
return
end
if GetSex() == 0 then
for i=1,GetPlayerCount() do
PlayerIndex = i
if GetTeam() == team and GetName() ~= name then
if GetSex() == 1 then
DANH_SACH_KET_HON[getn(DANH_SACH_KET_HON)+1] = {name,GetName(),0,0,0} --chong--vo--tien quy--vochongthiep--socon--
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
Msg2SubWorld("Chuc mung ! 1 cap vo chong vua ket hon la "..name.." ♂ va "..GetName().." ♀ !")
break
else
Msg2Team("Hai nguoi muon tro thanh nguoi dong tinh u >''<")
end
end
end
else
Say("Nguoi la con gai chuyen dai su nay phai de cho nam gioi lam chu ! dung trach ta co hu nhe !",0)
end
end
function kethondel()
if KETHON(GetName()) == 1 then
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Msg2SubWorld("Cap vo chong vua ly hon la ♂ :"..DANH_SACH_KET_HON[i][1].." ♀ :"..DANH_SACH_KET_HON[i][2])
DANH_SACH_KET_HON[i] = nil
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
end
end
else
Say("Nguoi van chua ket hon ly hon voi ai the !",0)
end
end
function gop_money()
if KETHON(GetName()) == 1 then
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
tien = GetCash()
if tien == 0 then
Say("Co 0 dong ma cung bay dat gop quy that nuc cuoi !",0)
return
end
tien_kho = DANH_SACH_KET_HON[i][3]
tongcong = tien + tien_kho
DANH_SACH_KET_HON[i][3] = tongcong
Pay(tien)
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
Msg2Player("Ban vua gop them "..tien..", vao quy rieng cua vo chong ban !")
end
end
else
Say("Nguoivan chua ket hon gui tien di dau day !",0)
end
end
function giao_hw_thiep()
if KETHON(GetName()) == 1 then
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
item = GetItemCount(15)
if item == 0 or item == nil then
Say("Co cai gi dau ma doi gop tuc uoi that ^__^ !",0)
return
end
count = DANH_SACH_KET_HON[i][4]
DANH_SACH_KET_HON[i][4] = item + count
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
end
end
else
Say("Chua ket hon ta khong giup gi duoc nguoi ca !",0)
end
end
function kiemtra()
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi muon kiem tra gi nao hay noi ta biet",3,
"So tien trong quy vo chong ta/tienquy",
"So vo chong thiep vo chong ta dat duoc/vchong",
"Ket thuc doi thoai/out")
end
function tienquy()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Talk(1,"","So tien quy cua vo chong nguoi la :<color=red>"..DANH_SACH_KET_HON[i][3].."<color> luong")
end
end
end
function vchong()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Talk(1,"","So vo chong thiep cua vo chong nguoi la :<color=red>"..DANH_SACH_KET_HON[i][4].."<color> cai")
end
end
end
function ruttien()
Say("Nguoi muon rut bao nhieu tien tu trong quy cua vo chong nguoi !",4,
"10 van/_10v",
"100 van/_100v",
"Tat ca so tien/all",
"Ket thuc doi thoai/out")
end
function _10v()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
if DANH_SACH_KET_HON[i][3] >= 10000000 then
Earn(10000000)
DANH_SACH_KET_HON[i][3] = DANH_SACH_KET_HON[i][3] - 10000000
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
else
Say("<bclr=red>Nguyet Lao<bclr> : So tien quy nguoi qua it khong rut duoc !",0)
end
end
end
end
function _100v()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
if DANH_SACH_KET_HON[i][3] >= 100000000 then
Earn(100000000)
DANH_SACH_KET_HON[i][3] = DANH_SACH_KET_HON[i][3] - 100000000
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
else
Say("<bclr=red>Nguyet Lao<bclr> : So tien quy nguoi qua it khong rut duoc !",0)
end
end
end
end
function all()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Earn(DANH_SACH_KET_HON[i][3])
DANH_SACH_KET_HON[i][3] = 0
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
end
end
end
function TaoBang(tTable, sTableName, sTab) --include cua manh tuyen
sTab = sTab or "";
sTmp = ""
sTmp = sTmp..sTab..sTableName.."={"
local tStart = 0
for key, value in tTable do
if tStart == 1 then
sTmp = sTmp..",\r\n"
else
sTmp = sTmp.."\r\n"
tStart = 1
end
local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);
if(type(value) == "table") then
sTmp = sTmp..TaoBang(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end
end
sTmp = sTmp.."\r\n"..sTab.."}"
return sTmp
end
function SaveData(file, string) ---Tuy ngan nhung wan trong nhat >''<
file_op = openfile( file, "w+" ) --- a+ la vit them hem xoa file dau -- w+ -- la che do doc ghi xoa file dau
write(file_op,string)
closefile(file_op)
end
function KETHON(name)
if getn(DANH_SACH_KET_HON) == 0 then
return 0
end
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] == name or DANH_SACH_KET_HON[i][2] == name then
return 1
end
end
end
function TIMKIEM(string)
for i=1,getn(DANH_SACH_KET_HON) do
for k=1,getn(DANH_SACH_KET_HON[i]) do
if DANH_SACH_KET_HON[i][k] == string then
return 1
end
end
end
end
function buyhouse()
Msg2Player("Chuc nang nay se cap nhat sau ")
end
function VOLA(husband)
if husband == nil then
return 0
end
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] == husband then
return DANH_SACH_KET_HON[i][2]
end
end
end
function out()
end;---------------------script end
danh_sach_marrie.lua
DANH_SACH_KET_HON={}
Chép hết vào
\Script\ket_hon
Add 1 con npc Nguyệt Lão
Test script này tui chế tính năng :D ai múm phát triển dựa vào nó rất tốt tui ũng hộ 100 % sức lực :D
Chúc bạn vui !:o):o)
nguyet_lao.lua
---------------------------------------------------------
----------------Ket hon--------------------------------
DANH_SACH_KET_HON = {}
Include("\\script\\ket_hon\\danh_sach_marrie.lua") ---data save o day >''<
strMain = {
"<bclr=red>Nguyet Lao<bclr> : Ta la nguoi chuyen di lam may moi cho cac cap trai gai dang <color=pink>Yeu<color> nhau, hom nay nguoi den gap ta co chuyen gi khong",
"Ta muon ket hon/kethonok",
"Ta muon ly hon/kethondel",
"Ta gop gop tien vao quy vo chong/gop_money",
"Giao vo chong thiep/giao_hw_thiep",
"Ta muon dung tien de mua nha/buyhouse",
"Ta muon rut tien trong quy/ruttien",
"Ta muon kiem tra tinh hinh/kiemtra",
"Ket thuc doi thoai/out"
}
function main()
strSay = "Ten chong Ten Vo So Tien Quy\n"
for i=1,getn(DANH_SACH_KET_HON) do
strSay = strSay..DANH_SACH_KET_HON[i][1].." "..DANH_SACH_KET_HON[i][2].." "..DANH_SACH_KET_HON[i][3].."\n"
end
if KETHON(GetName()) == 1 then
Say(strSay,6,strMain[3],strMain[4],strMain[5],strMain[7],strMain[8],strMain[9])
else
Say(strSay,2,strMain[2],strMain[9])
end
end
function kethonok()
team=GetTeam()
size=GetTeamSize()
if team==nil then
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi phai lap to doi 2 nguoi la nam va nu thi moi ket hon duoc !",0)
elseif team~=nil and size ~= 2 then
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi phai lap to doi 2 nguoi thi moi ket hon duoc ! doi ban chi co"..size,0)
elseif team~=nil and size==2 and IsCaptain()~=1 then
Say("<bclr=red>Nguyet Lao<bclr> : Chi co chu nhom moi den dang ky duoc !",0)
elseif team~=nil and size==2 and IsCaptain()==1 then
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi da du dieu kien de ket hon roi nguoi co muon ket hon khong ?",2,"Tat nhien muon/ok","Ta chua chuan bi tam ly/out")
end
end
function ok()
team=GetTeam()
sex=GetSex()
name=GetName()
if TIMKIEM(GetName()) == 1 then
Say("Nguoi dung la khong chung thuy ma ta se mach cho "..VOLA(GetName()).." do",0)
return
end
if GetSex() == 0 then
for i=1,GetPlayerCount() do
PlayerIndex = i
if GetTeam() == team and GetName() ~= name then
if GetSex() == 1 then
DANH_SACH_KET_HON[getn(DANH_SACH_KET_HON)+1] = {name,GetName(),0,0,0} --chong--vo--tien quy--vochongthiep--socon--
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
Msg2SubWorld("Chuc mung ! 1 cap vo chong vua ket hon la "..name.." ♂ va "..GetName().." ♀ !")
break
else
Msg2Team("Hai nguoi muon tro thanh nguoi dong tinh u >''<")
end
end
end
else
Say("Nguoi la con gai chuyen dai su nay phai de cho nam gioi lam chu ! dung trach ta co hu nhe !",0)
end
end
function kethondel()
if KETHON(GetName()) == 1 then
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Msg2SubWorld("Cap vo chong vua ly hon la ♂ :"..DANH_SACH_KET_HON[i][1].." ♀ :"..DANH_SACH_KET_HON[i][2])
DANH_SACH_KET_HON[i] = nil
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
end
end
else
Say("Nguoi van chua ket hon ly hon voi ai the !",0)
end
end
function gop_money()
if KETHON(GetName()) == 1 then
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
tien = GetCash()
if tien == 0 then
Say("Co 0 dong ma cung bay dat gop quy that nuc cuoi !",0)
return
end
tien_kho = DANH_SACH_KET_HON[i][3]
tongcong = tien + tien_kho
DANH_SACH_KET_HON[i][3] = tongcong
Pay(tien)
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
Msg2Player("Ban vua gop them "..tien..", vao quy rieng cua vo chong ban !")
end
end
else
Say("Nguoivan chua ket hon gui tien di dau day !",0)
end
end
function giao_hw_thiep()
if KETHON(GetName()) == 1 then
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
item = GetItemCount(15)
if item == 0 or item == nil then
Say("Co cai gi dau ma doi gop tuc uoi that ^__^ !",0)
return
end
count = DANH_SACH_KET_HON[i][4]
DANH_SACH_KET_HON[i][4] = item + count
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
end
end
else
Say("Chua ket hon ta khong giup gi duoc nguoi ca !",0)
end
end
function kiemtra()
Say("<bclr=red>Nguyet Lao<bclr> : Nguoi muon kiem tra gi nao hay noi ta biet",3,
"So tien trong quy vo chong ta/tienquy",
"So vo chong thiep vo chong ta dat duoc/vchong",
"Ket thuc doi thoai/out")
end
function tienquy()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Talk(1,"","So tien quy cua vo chong nguoi la :<color=red>"..DANH_SACH_KET_HON[i][3].."<color> luong")
end
end
end
function vchong()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Talk(1,"","So vo chong thiep cua vo chong nguoi la :<color=red>"..DANH_SACH_KET_HON[i][4].."<color> cai")
end
end
end
function ruttien()
Say("Nguoi muon rut bao nhieu tien tu trong quy cua vo chong nguoi !",4,
"10 van/_10v",
"100 van/_100v",
"Tat ca so tien/all",
"Ket thuc doi thoai/out")
end
function _10v()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
if DANH_SACH_KET_HON[i][3] >= 10000000 then
Earn(10000000)
DANH_SACH_KET_HON[i][3] = DANH_SACH_KET_HON[i][3] - 10000000
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
else
Say("<bclr=red>Nguyet Lao<bclr> : So tien quy nguoi qua it khong rut duoc !",0)
end
end
end
end
function _100v()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
if DANH_SACH_KET_HON[i][3] >= 100000000 then
Earn(100000000)
DANH_SACH_KET_HON[i][3] = DANH_SACH_KET_HON[i][3] - 100000000
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
else
Say("<bclr=red>Nguyet Lao<bclr> : So tien quy nguoi qua it khong rut duoc !",0)
end
end
end
end
function all()
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] or DANH_SACH_KET_HON[i][2] == GetName() then
Earn(DANH_SACH_KET_HON[i][3])
DANH_SACH_KET_HON[i][3] = 0
danhsachkethon = TaoBang(DANH_SACH_KET_HON,"DANH_SACH_KET_HON","")
SaveData("script/ket_hon/danh_sach_marrie.lua",danhsachkethon)
end
end
end
function TaoBang(tTable, sTableName, sTab) --include cua manh tuyen
sTab = sTab or "";
sTmp = ""
sTmp = sTmp..sTab..sTableName.."={"
local tStart = 0
for key, value in tTable do
if tStart == 1 then
sTmp = sTmp..",\r\n"
else
sTmp = sTmp.."\r\n"
tStart = 1
end
local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);
if(type(value) == "table") then
sTmp = sTmp..TaoBang(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end
end
sTmp = sTmp.."\r\n"..sTab.."}"
return sTmp
end
function SaveData(file, string) ---Tuy ngan nhung wan trong nhat >''<
file_op = openfile( file, "w+" ) --- a+ la vit them hem xoa file dau -- w+ -- la che do doc ghi xoa file dau
write(file_op,string)
closefile(file_op)
end
function KETHON(name)
if getn(DANH_SACH_KET_HON) == 0 then
return 0
end
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] == name or DANH_SACH_KET_HON[i][2] == name then
return 1
end
end
end
function TIMKIEM(string)
for i=1,getn(DANH_SACH_KET_HON) do
for k=1,getn(DANH_SACH_KET_HON[i]) do
if DANH_SACH_KET_HON[i][k] == string then
return 1
end
end
end
end
function buyhouse()
Msg2Player("Chuc nang nay se cap nhat sau ")
end
function VOLA(husband)
if husband == nil then
return 0
end
for i=1,getn(DANH_SACH_KET_HON) do
if DANH_SACH_KET_HON[i][1] == husband then
return DANH_SACH_KET_HON[i][2]
end
end
end
function out()
end;---------------------script end
danh_sach_marrie.lua
DANH_SACH_KET_HON={}
Chép hết vào
\Script\ket_hon
Add 1 con npc Nguyệt Lão
Test script này tui chế tính năng :D ai múm phát triển dựa vào nó rất tốt tui ũng hộ 100 % sức lực :D
Chúc bạn vui !:o):o)