Script Đổi Vũ khí bằng KNB và THBT

[songhung]

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

[sangpronhat]

Gôd Job !! Chưa test nhưng viết chuẩn đấy ! Đúng ý tui ^^ ! Không dùng SayEx ^^ !
Nhớ đặt vào thẻ Ông nỳ dùng phím TAB rất logic ^^ !
Ah` mà member trong box script ít ai biết tới hàm While (DK) do ... end đâu , xài For cho thuận tiện !!!

[sangpronhat]

Nhắn nhủ thêm chủ TOPIC nhé

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;

Kuj thý đoạn nỳ ông lặp đi lặp lại nhiều lần we' nên mình nên viết đoạn tổng quát

function AddItemZ(n1,n2,n3,n4,n238,n41)
    if GetItemCount(238)>=n238 and GetItemCount(41)>=n41 then
    AddItem(n1,n1,n1,n4,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<=n238 do
    DelItem(238)
    i=i+1;
    end;
    while y<=n41 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;

Khi khai báo say như trên thì làm vậy nè

Say(".....","...../AddItemZ(0,0,0,1,10,1)","....../thoat")

Gọn lẹ ^^ !

[notfile]

cái này chỉ giành cho các SV mở Onl dùng donate !!
bán KNB

[songhung]

Cám ơn cậu.......... Lân sau tớ sẽ cố gắng.

[sangpronhat]

Không có gì cả giúp nhau cùng tiến

[kinkina2009]

sang hướng dẫn cái hàm local xí đi

[mrduc121]

song hung oi cho minh xin cai yahoo phat