songhung
09-06-10, 01:04 PM
-------------- Script 1 là nơi thu KHB và THBT để Đổi thành vũ khí--------------
--------------- Hiện tại do lu bu wa nên ko thêm nhiều được chỉ có 4 loại kiếm và 1 Cậy Kích thôi
----------------- Script 1------------------------------------------------
Include("\\Script\\global\\serverlib.lua");
function main(sel)
Say("<color=red>Ong Thay Than Binh : <color=yellow>Hay chon Vu Khi Than Binh Qui Vi Muon ta Ren<color>",4,"Kiem/jian","Thuong/qiang","Ve truoc.../main","Khong can/OnCancel")
end;
function jian()
Say("Ong Thay Than Binh : Hay chon Vu Khi Than Binh Qui Vi Muon ta Ren !<color>",6,"Vo Gian Y Thien Kiem/ytjian","Lang Nhac Thai Cuc Kiem/lytjian","Cap Phong Chan Vu Kiem/llytjian","Loi Khung Cuu Thien Kiem/cllytjian","Ve truoc.../main","Khong can/OnCancel")
end;
function qiang()
Say("Ong Thay Than Binh : Hay chon Vu Khi Than Binh Qui Vi Muon ta Ren !<color>",3,"Ke Nghiep Bon Loi Toan Thuong/KeNghiep","Ve truoc../main","Khong can/OnCancel")
end;
------------------------- Loi Khung Cuu Thien kiem-----------------------
function cllytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Loi Khung Cuu Thien kiem Loai Gi ?",6,
"1.Cap Phong Chan Vu Kiem +1./cllsytjian1",
"2.Cap Phong Chan Vu Kiem +2./cllsytjian3",
"3.Cap Phong Chan Vu Kiem +3./clllsytjian2",
"4.Cap Phong Chan Vu Kiem +4./cllsytjian4",
"Trang Sau.../cllytjian2",
"Thoat./thoat");
end;
function thoat()
end;
function cllytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Loi Khung Cuu Thien kiem Loai Gi ?",6,
"1.Cap Phong Chan Vu Kiem +5./cllsytjian5",
"2.Cap Phong Chan Vu Kiem +6./cllsytjian6",
"3.Cap Phong Chan Vu Kiem +7./cllsytjian7",
"Trang Sau..../cllytjian3",
"Trang Truoc.../cllytjian",
"Thoat./thoat");
end;
function cllytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Loi Khung Cuu Thien kiem Loai Gi ?",5,
"1.Cap Phong Chan Vu Kiem +8./cllskytjian8",
"2.Cap Phong Chan Vu Kiem +9./cllskytjian9",
"3.Cap Phong Chan Vu Kiem +10./cllskytjian10",
"Trang Truoc.../cllytjian",
"Thoat./thoat");
end;
function thoat()
end;
function cllsytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,181,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,182,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,183,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,184,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,185,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,186,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,187,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,188,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,189,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,190,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
------------------------- Cap Phong Chan Vu Kiem-------------------------
function llytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Cap Phong Chan Vu Kiem Loai Gi ?",6,
"1.Cap Phong Chan Vu Kiem +1./llsytjian1",
"2.Cap Phong Chan Vu Kiem +2./llsytjian2",
"3.Cap Phong Chan Vu Kiem +3./llsytjian3",
"4.Cap Phong Chan Vu Kiem +4./llsytjian4",
"Trang Sau.../llytjian2",
"Thoat./thoat");
end;
function llytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Cap Phong Chan Vu Kiem Loai Gii ?",6,
"1.Cap Phong Chan Vu Kiem +5./llsytjian5",
"2.Cap Phong Chan Vu Kiem +6./llsytjian6",
"3.Cap Phong Chan Vu Kiem +7./llsytjian7",
"Trang Sau..../llytjian3",
"Trang Truoc.../llytjian",
"Thoat./thoat");
end;
function llytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Cap Phong Chan Vu Kiem Loai Gi ?",5,
"1.Cap Phong Chan Vu Kiem +8./llskytjian8",
"2.Cap Phong Chan Vu Kiem +9./llskytjian9",
"3.Cap Phong Chan Vu Kiem +10./llskytjian10",
"Trang Truoc.../llytjian",
"Thoat./thoat");
end;
function thoat()
end;
function llsytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,181,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,182,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,183,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,184,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,185,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,186,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,187,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,188,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,189,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,190,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=15 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
------------------------- Lang Nhac Thai Cuc Kiem------------------------
function lytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Lang Nhac Thai Cuc Kiem Loai Gi ?",6,
"1.Lang Nhac Thai Cuc Kiem +1./lsytjian1",
"2.Lang Nhac Thai Cuc Kiem +2./lsytjian3",
"3.Lang Nhac Thai Cuc Kiem +3./lsytjian2",
"4.Lang Nhac Thai Cuc Kiem +4./lsytjian4",
"Trang Sau.../lytjian2",
"Thoat./thoat");
end;
function lytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Lang Nhac Thai Cuc Kiem Loai Gi ?",6,
"1.Lang Nhac Thai Cuc Kiem +5./lsytjian5",
"2.Lang Nhac Thai Cuc Kiem +6./lsytjian6",
"3.Lang Nhac Thai Cuc Kiem +7./lsytjian7",
"Trang Sau..../lytjian3",
"Trang Truoc.../llytjian",
"Thoat./thoat");
end;
function lytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Lang Nhac Thai Cuc Kiem Loai Gi ?",5,
"1.Lang Nhac Thai Cuc Kiem +8./lsytjian8",
"2.Lang Nhac Thai Cuc Kiem +9./lsytjian9",
"3.Lang Nhac Thai Cuc Kiemm +10./lsytjian10",
"Trang Truoc.../lytjian",
"Thoat./thoat");
end;
function thoat()
end;
function lsytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,121,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,122,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,123,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,124,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,125,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,126,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,127,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,128,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,129,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,130,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
----------------------- Vo Giang Y Thien Kiem----------------------------
function ytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Vo Gian y Thien Kiem Loai Gi ?",6,
"1.Vo Gian Y Thien Kiem +1./sytjian1",
"2.Vo Gian Y Thien Kiem +2./sytjian3",
"3.Vo Gian Y Thien Kiem +3./sytjian2",
"4.Vo Gian Y Thien Kiem +4./sytjian4",
"Trang Sau.../ytjian2",
"Thoat./thoat");
end;
function ytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Vo Gian y Thien Kiem Loai Gi ?",6,
"1.Vo Gian Y Thien Kiem +5./sytjian5",
"2.Vo Gian Y Thien Kiem +6./sytjian6",
"3.Vo Gian Y Thien Kiem +7./sytjian7",
"Trang Sau..../ytjian3",
"Trang Truoc.../ytjian",
"Thoat./thoat");
end;
function ytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Vo Gian y Thien Kiem Loai Gii ?",5,
"1.Vo Gian Y Thien Kiem +8./sytjian8",
"2.Vo Gian Y Thien Kiem +9./sytjian9",
"3.Vo Gian Y Thien Kiem +10./sytjian10",
"Trang Truoc.../ytjian",
"Thoat./thoat");
end;
function thoat()
end;
function sytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,61,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,62,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,63,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,64,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,65,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,66,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,67,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,68,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,69,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,70,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
-----------------------Ke Nghiep-----------------------------------------
function KeNghiep()
Say("Tho ren Than Binh: Nguoi Muon ta Ke Nghiep Bon Loi Long Toan Thuong Loai Gi ?",6,
"1.Ke Nghiep Bon Loi Long Toan Thuong +1./skenghiep1",
"2.Ke Nghiep Bon Loi Long Toan Thuong +2./skenghiep3",
"3.Ke Nghiep Bon Loi Long Toan Thuong +3./skenghiep2",
"4.Ke Nghiep Bon Loi Long Toan Thuong +4./skenghiep4",
"Trang Sau.../KeNghiep2",
"Thoat./thoat");
end;
function KeNghiep2()
Say("Tho ren Than Binh: Nguoi Muon ta Ke Nghiep Bon Loi Long Toan Thuong Loai Gi ?",6,
"1.Ke Nghiep Bon Loi Long Toan Thuong +5./skenghiep5",
"2.Ke Nghiep Bon Loi Long Toan Thuong +6./skenghiep6",
"3.Ke Nghiep Bon Loi Long Toan Thuong +7./skenghiep7",
"Trang Sau..../keyNghiep3",
"Trang Truoc.../KeNghiep",
"Thoat./thoat");
end;
function KeNghiep3()
Say("Tho ren Than Binh: Nguoi Muon ta Ke Nghiep Bon Loi Long Toan Thuong Loai Gi ?",5,
"1.Ke Nghiep Bon Loi Long Toan Thuong +8./skenghiep8",
"2.Ke Nghiep Bon Loi Long Toan Thuong +9./skenghiep9",
"3.Ke Nghiep Bon Loi Long Toan Thuong +10./skenghiep10",
"Trang Truoc.../KeNghiep",
"Thoat./thoat");
end;
function thoat()
end;
function skenghiep1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,3,61,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,3,62,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,3,63,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,3,64,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,3,65,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,3,66,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,3,67,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,3,68,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,3,67,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,3,70,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
--------------- Sủ dụng 10 THBT+ 1 KNB sẽ có vũ khí cấp +1
---------------- Tương tự thé 10 THBT+15KNB sẽ có vũ khí +10
================================================== ============================
----------- Script 2(là Script nhận KNB từ chủ tiền trang)
Include("\\Script\\Global\\serverlib.lua");
function main(sel)
Say("Chu Tien tranf: Ta dang phat KNB va THBT Free day ?",4,
"1.Toi Lay 10 Vien KNB./knb",
"2.Toi lay 10 vien THBT./thbt",
"3.Toi layca 2 thu moi thu 10 vien./dup",
"Thoat./thoat");
end;
function thoat()
end;
function knb()
local i=1;
while i<=10 do
AddEventItem(41)
i=i+1
end;
AddGlobalNews("nguoi choi "..GetName().." Duoc Chu tien trang tang 10 cuc KNB");
end;
function thbt()
local i=1;
while i<=10 do
AddEventItem(238)
i=i+1
end;
AddGlobalNews("nguoi choi "..GetName().." Duoc Chu tien trang tang 10 cuc THBT");
end;
function dup()
local i=1;
while i<=10 do
AddEventItem(238)
AddEventItem(41)
i=i+1
end;
AddGlobalNews("nguoi choi "..GetName().." Duoc Chu tien trang tang 10 cuc THBT va 10 cuc THBT");
end;
------------- Các cậu đừng hỏi tớ vì sau lấy KNB rôi lại nộp cho Thợ Rèn để lấy vũ khí.Mà không lấy trực tiếp có khỏe không.^:)^Xin lỗi tớ cũng ko biết tra lời sau nữa=))
--------------- Hiện tại do lu bu wa nên ko thêm nhiều được chỉ có 4 loại kiếm và 1 Cậy Kích thôi
----------------- Script 1------------------------------------------------
Include("\\Script\\global\\serverlib.lua");
function main(sel)
Say("<color=red>Ong Thay Than Binh : <color=yellow>Hay chon Vu Khi Than Binh Qui Vi Muon ta Ren<color>",4,"Kiem/jian","Thuong/qiang","Ve truoc.../main","Khong can/OnCancel")
end;
function jian()
Say("Ong Thay Than Binh : Hay chon Vu Khi Than Binh Qui Vi Muon ta Ren !<color>",6,"Vo Gian Y Thien Kiem/ytjian","Lang Nhac Thai Cuc Kiem/lytjian","Cap Phong Chan Vu Kiem/llytjian","Loi Khung Cuu Thien Kiem/cllytjian","Ve truoc.../main","Khong can/OnCancel")
end;
function qiang()
Say("Ong Thay Than Binh : Hay chon Vu Khi Than Binh Qui Vi Muon ta Ren !<color>",3,"Ke Nghiep Bon Loi Toan Thuong/KeNghiep","Ve truoc../main","Khong can/OnCancel")
end;
------------------------- Loi Khung Cuu Thien kiem-----------------------
function cllytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Loi Khung Cuu Thien kiem Loai Gi ?",6,
"1.Cap Phong Chan Vu Kiem +1./cllsytjian1",
"2.Cap Phong Chan Vu Kiem +2./cllsytjian3",
"3.Cap Phong Chan Vu Kiem +3./clllsytjian2",
"4.Cap Phong Chan Vu Kiem +4./cllsytjian4",
"Trang Sau.../cllytjian2",
"Thoat./thoat");
end;
function thoat()
end;
function cllytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Loi Khung Cuu Thien kiem Loai Gi ?",6,
"1.Cap Phong Chan Vu Kiem +5./cllsytjian5",
"2.Cap Phong Chan Vu Kiem +6./cllsytjian6",
"3.Cap Phong Chan Vu Kiem +7./cllsytjian7",
"Trang Sau..../cllytjian3",
"Trang Truoc.../cllytjian",
"Thoat./thoat");
end;
function cllytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Loi Khung Cuu Thien kiem Loai Gi ?",5,
"1.Cap Phong Chan Vu Kiem +8./cllskytjian8",
"2.Cap Phong Chan Vu Kiem +9./cllskytjian9",
"3.Cap Phong Chan Vu Kiem +10./cllskytjian10",
"Trang Truoc.../cllytjian",
"Thoat./thoat");
end;
function thoat()
end;
function cllsytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,181,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,182,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,183,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,184,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,185,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,186,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,187,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,188,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,189,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function cllsytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,190,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
------------------------- Cap Phong Chan Vu Kiem-------------------------
function llytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Cap Phong Chan Vu Kiem Loai Gi ?",6,
"1.Cap Phong Chan Vu Kiem +1./llsytjian1",
"2.Cap Phong Chan Vu Kiem +2./llsytjian2",
"3.Cap Phong Chan Vu Kiem +3./llsytjian3",
"4.Cap Phong Chan Vu Kiem +4./llsytjian4",
"Trang Sau.../llytjian2",
"Thoat./thoat");
end;
function llytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Cap Phong Chan Vu Kiem Loai Gii ?",6,
"1.Cap Phong Chan Vu Kiem +5./llsytjian5",
"2.Cap Phong Chan Vu Kiem +6./llsytjian6",
"3.Cap Phong Chan Vu Kiem +7./llsytjian7",
"Trang Sau..../llytjian3",
"Trang Truoc.../llytjian",
"Thoat./thoat");
end;
function llytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Cap Phong Chan Vu Kiem Loai Gi ?",5,
"1.Cap Phong Chan Vu Kiem +8./llskytjian8",
"2.Cap Phong Chan Vu Kiem +9./llskytjian9",
"3.Cap Phong Chan Vu Kiem +10./llskytjian10",
"Trang Truoc.../llytjian",
"Thoat./thoat");
end;
function thoat()
end;
function llsytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,181,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,182,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,183,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,184,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,185,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,186,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,187,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,188,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,189,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function llsytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,190,4,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=15 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
------------------------- Lang Nhac Thai Cuc Kiem------------------------
function lytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Lang Nhac Thai Cuc Kiem Loai Gi ?",6,
"1.Lang Nhac Thai Cuc Kiem +1./lsytjian1",
"2.Lang Nhac Thai Cuc Kiem +2./lsytjian3",
"3.Lang Nhac Thai Cuc Kiem +3./lsytjian2",
"4.Lang Nhac Thai Cuc Kiem +4./lsytjian4",
"Trang Sau.../lytjian2",
"Thoat./thoat");
end;
function lytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Lang Nhac Thai Cuc Kiem Loai Gi ?",6,
"1.Lang Nhac Thai Cuc Kiem +5./lsytjian5",
"2.Lang Nhac Thai Cuc Kiem +6./lsytjian6",
"3.Lang Nhac Thai Cuc Kiem +7./lsytjian7",
"Trang Sau..../lytjian3",
"Trang Truoc.../llytjian",
"Thoat./thoat");
end;
function lytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Lang Nhac Thai Cuc Kiem Loai Gi ?",5,
"1.Lang Nhac Thai Cuc Kiem +8./lsytjian8",
"2.Lang Nhac Thai Cuc Kiem +9./lsytjian9",
"3.Lang Nhac Thai Cuc Kiemm +10./lsytjian10",
"Trang Truoc.../lytjian",
"Thoat./thoat");
end;
function thoat()
end;
function lsytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,121,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,122,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,123,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,124,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,125,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,126,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,127,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,128,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,129,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function lsytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,130,2,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
----------------------- Vo Giang Y Thien Kiem----------------------------
function ytjian()
Say("Tho ren Than Binh: Nguoi Muon ta ren Vo Gian y Thien Kiem Loai Gi ?",6,
"1.Vo Gian Y Thien Kiem +1./sytjian1",
"2.Vo Gian Y Thien Kiem +2./sytjian3",
"3.Vo Gian Y Thien Kiem +3./sytjian2",
"4.Vo Gian Y Thien Kiem +4./sytjian4",
"Trang Sau.../ytjian2",
"Thoat./thoat");
end;
function ytjian2()
Say("Tho ren Than Binh: Nguoi Muon ta ren Vo Gian y Thien Kiem Loai Gi ?",6,
"1.Vo Gian Y Thien Kiem +5./sytjian5",
"2.Vo Gian Y Thien Kiem +6./sytjian6",
"3.Vo Gian Y Thien Kiem +7./sytjian7",
"Trang Sau..../ytjian3",
"Trang Truoc.../ytjian",
"Thoat./thoat");
end;
function ytjian3()
Say("Tho ren Than Binh: Nguoi Muon ta ren Vo Gian y Thien Kiem Loai Gii ?",5,
"1.Vo Gian Y Thien Kiem +8./sytjian8",
"2.Vo Gian Y Thien Kiem +9./sytjian9",
"3.Vo Gian Y Thien Kiem +10./sytjian10",
"Trang Truoc.../ytjian",
"Thoat./thoat");
end;
function thoat()
end;
function sytjian1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,0,61,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,0,62,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,0,63,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,0,64,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,0,65,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,0,66,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,0,67,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,0,68,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,0,69,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function sytjian10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,0,70,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
-----------------------Ke Nghiep-----------------------------------------
function KeNghiep()
Say("Tho ren Than Binh: Nguoi Muon ta Ke Nghiep Bon Loi Long Toan Thuong Loai Gi ?",6,
"1.Ke Nghiep Bon Loi Long Toan Thuong +1./skenghiep1",
"2.Ke Nghiep Bon Loi Long Toan Thuong +2./skenghiep3",
"3.Ke Nghiep Bon Loi Long Toan Thuong +3./skenghiep2",
"4.Ke Nghiep Bon Loi Long Toan Thuong +4./skenghiep4",
"Trang Sau.../KeNghiep2",
"Thoat./thoat");
end;
function KeNghiep2()
Say("Tho ren Than Binh: Nguoi Muon ta Ke Nghiep Bon Loi Long Toan Thuong Loai Gi ?",6,
"1.Ke Nghiep Bon Loi Long Toan Thuong +5./skenghiep5",
"2.Ke Nghiep Bon Loi Long Toan Thuong +6./skenghiep6",
"3.Ke Nghiep Bon Loi Long Toan Thuong +7./skenghiep7",
"Trang Sau..../keyNghiep3",
"Trang Truoc.../KeNghiep",
"Thoat./thoat");
end;
function KeNghiep3()
Say("Tho ren Than Binh: Nguoi Muon ta Ke Nghiep Bon Loi Long Toan Thuong Loai Gi ?",5,
"1.Ke Nghiep Bon Loi Long Toan Thuong +8./skenghiep8",
"2.Ke Nghiep Bon Loi Long Toan Thuong +9./skenghiep9",
"3.Ke Nghiep Bon Loi Long Toan Thuong +10./skenghiep10",
"Trang Truoc.../KeNghiep",
"Thoat./thoat");
end;
function thoat()
end;
function skenghiep1()
if GetItemCount(238)>=10 and GetItemCount(41)>=1 then
AddItem(0,0,3,61,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=1 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep2()
if GetItemCount(238)>=10 and GetItemCount(41)>=2 then
AddItem(0,0,3,62,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=2 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep3()
if GetItemCount(238)>=10 and GetItemCount(41)>=3 then
AddItem(0,0,3,63,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=3 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep4()
if GetItemCount(238)>=10 and GetItemCount(41)>=4 then
AddItem(0,0,3,64,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=4 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep5()
if GetItemCount(238)>=10 and GetItemCount(41)>=5 then
AddItem(0,0,3,65,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=5 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep6()
if GetItemCount(238)>=10 and GetItemCount(41)>=6 then
AddItem(0,0,3,66,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=6 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep7()
if GetItemCount(238)>=10 and GetItemCount(41)>=7 then
AddItem(0,0,3,67,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=7 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep8()
if GetItemCount(238)>=10 and GetItemCount(41)>=8 then
AddItem(0,0,3,68,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=8 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep9()
if GetItemCount(238)>=10 and GetItemCount(41)>=9 then
AddItem(0,0,3,67,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=9 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
function skenghiep10()
if GetItemCount(238)>=10 and GetItemCount(41)>=15 then
AddItem(0,0,3,70,0,1000,10,10,10,10,10,10)
Say("Ong Thay Than Binh: Day vu Khi cua Qui vi day",1,
".Thoat./thoat");
local i=1
local y=1
while i<=10 do
DelItem(238)
i=i+1;
end;
while y<=15 do
DelItem(41)
y=y+1;
end;
else
Say("Ong Thay Than Binh: Nhung thu ta can hihn nhu chua du",1,
".Thoat./thoat");
end;
end;
--------------- Sủ dụng 10 THBT+ 1 KNB sẽ có vũ khí cấp +1
---------------- Tương tự thé 10 THBT+15KNB sẽ có vũ khí +10
================================================== ============================
----------- Script 2(là Script nhận KNB từ chủ tiền trang)
Include("\\Script\\Global\\serverlib.lua");
function main(sel)
Say("Chu Tien tranf: Ta dang phat KNB va THBT Free day ?",4,
"1.Toi Lay 10 Vien KNB./knb",
"2.Toi lay 10 vien THBT./thbt",
"3.Toi layca 2 thu moi thu 10 vien./dup",
"Thoat./thoat");
end;
function thoat()
end;
function knb()
local i=1;
while i<=10 do
AddEventItem(41)
i=i+1
end;
AddGlobalNews("nguoi choi "..GetName().." Duoc Chu tien trang tang 10 cuc KNB");
end;
function thbt()
local i=1;
while i<=10 do
AddEventItem(238)
i=i+1
end;
AddGlobalNews("nguoi choi "..GetName().." Duoc Chu tien trang tang 10 cuc THBT");
end;
function dup()
local i=1;
while i<=10 do
AddEventItem(238)
AddEventItem(41)
i=i+1
end;
AddGlobalNews("nguoi choi "..GetName().." Duoc Chu tien trang tang 10 cuc THBT va 10 cuc THBT");
end;
------------- Các cậu đừng hỏi tớ vì sau lấy KNB rôi lại nộp cho Thợ Rèn để lấy vũ khí.Mà không lấy trực tiếp có khỏe không.^:)^Xin lỗi tớ cũng ko biết tra lời sau nữa=))