Anh Nào Làm Dùm Scripts Ép Đồ Hoàng Kim Có % không ^^ Giảm Từ Từ

[SIR.ThaiBinh]

Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\GetFaction.lua")
Include("\\script\\source\\hamchuot.lua")

function doilenhbai()
Say("Xin chao !",11,
"Hoµng kim [+1]/hkl",
"Hoµng kim [+2]/bkl",
"Hoµng kim [+3]/bkl",
"Hoµng kim [+4]/bkl",
"Hoµng kim [+5]/bkl",
"Hoµng kim [+6]/bkl",
"Hoµng kim [+7]/bkl",
"Hoµng kim [+8]/bkl",
--"Hoµng kim [+9]/bkl",
--"Hoµng kim [+10]/bkl",
"Tho¸t/thoat")
end

function thoat()
SetTaskTemp(34,0)
SetTaskTemp(35,0)
SetTaskTemp(40,0)
end

function hkl()
SetTaskTemp(34,1)
tieptheo()
end

function bkl(sel)
n = sel + 1
SetTaskTemp(34,n)
tieptheo()
end


function hopthanh()
SetTaskTemp(35,0)
tieptheo()
end


function phanloai()
    if GetTaskTemp(35) == 1 then
        return "Tu Khong"
    elseif GetTaskTemp(35) == 2 then
        return "Mong Long"
    elseif GetTaskTemp(35) == 3 then
        return "Phuc Ma"
    elseif GetTaskTemp(35) == 4 then
        return "Ham Thien"
    elseif GetTaskTemp(35) == 5 then
        return "Ke Nghiep"
    elseif GetTaskTemp(35) == 6 then
        return "Ngu Long"
    elseif GetTaskTemp(35) == 7 then
        return "Bang Han"
    elseif GetTaskTemp(35) == 8 then
        return "Sam Hoang"
    elseif GetTaskTemp(35) == 9 then
        return "Thien Quang"
    elseif GetTaskTemp(35) == 10 then
        return "Dia Phach"
    elseif GetTaskTemp(35) == 11 then
        return "Chu Phuoc"
    elseif GetTaskTemp(35) == 12 then
        return "U Lung"
    elseif GetTaskTemp(35) == 13 then
        return "Minh Ao"
    elseif GetTaskTemp(35) == 14 then
        return "Vo Ma"
    elseif GetTaskTemp(35) == 15 then
        return "Vo Gian"
    elseif GetTaskTemp(35) == 16 then
        return "Vo Tran"
    elseif GetTaskTemp(35) == 17 then
        return "Te Hoang"
    elseif GetTaskTemp(35) == 18 then
        return "Bich Hai"
    elseif GetTaskTemp(35) == 19 then
        return "Dong Cuu"
    elseif GetTaskTemp(35) == 20 then
        return "Dich Khai"
    elseif GetTaskTemp(35) == 21 then
        return "Ma Hoang"
    elseif GetTaskTemp(35) == 22 then
        return "Ma Thi"
    elseif GetTaskTemp(35) == 23 then
        return "Ma Sat"
    elseif GetTaskTemp(35) == 24 then
        return "Cap Phong"
    elseif GetTaskTemp(35) == 25 then
        return "Lang Nhac"
    elseif GetTaskTemp(35) == 26 then
        return "Suong Tinh"
    elseif GetTaskTemp(35) == 27 then
        return "Loi Khung"
    elseif GetTaskTemp(35) == 28 then
        return "Vu Ao"
    end
end

function tieptheo()
Say("Chän m«n ph¸i ?",11,"ThiÕu L©m/tp1","Thiªn V­¬ng/tp1","§­êng M«n/tp1","Ngñ §éc/tp1","Nga My/tp1","Thóy Yªn/tp1","C¸i Bang/tp1","Thiªn NhÉn/tp1","Vâ §ang/tp1","C«n L«n/tp1","Tho¸t/thoat")
end

function tp1(sel)
n = sel + 1
if n == 1 then
        Say("M«n ph¸i : <color=fire>ThiÕu L©m",4,"Tø kh«ng/thieulam","Méng long/thieulam","Phôc ma/thieulam","Tho¸t/thoat")
    elseif n == 2 then
        Say("M«n ph¸i : <color=fire>Thiªn V­¬ng",4,"H¸m thiªn/thienvuong","KÕ nghiÖp/thienvuong","Ngù long/thienvuong","Tho¸t/thoat")
    elseif n == 3 then
        Say("M«n ph¸i : <color=fire>§­êng M«n",5,"B¨ng hµn/duongmon","S©m hoµng/duongmon","Thiªn quang/duongmon","§Þa ph¸ch/duongmon","Tho¸t/thoat")
    elseif n == 4 then
        Say("M«n ph¸i : <color=fire>Ngñ §éc",4,"Chó ph­îc/ngudoc","U Lung/ngudoc","Minh Ao/ngudoc","Tho¸t/thoat")    
    elseif n == 5 then
        Say("M«n ph¸i : <color=fire>Nga My",4,"V« ma/ngamy","V« gian/ngamy","V« trÇn/ngamy","Tho¸t/thoat")        
    elseif n == 6 then
        Say("M«n ph¸i : <color=fire>Thóy Yªn",3,"Tª hoµng/thuyyen","BÝch h¶i/thuyyen","Tho¸t/thoat")    
    elseif n == 7 then
        Say("M«n ph¸i : <color=fire>C¸i Bang",3,"§ång cõu/caibang","§Þch kh¶i/caibang","Tho¸t/thoat")    
    elseif n == 8 then
        Say("M«n ph¸i : <color=fire>Thiªn NhÉn",4,"Ma hoµng/thiennhan","Ma thÞ/thiennhan","Ma s¸t/thiennhan","Tho¸t/thoat")    
    elseif n == 9 then
        Say("M«n ph¸i : <color=fire>Vâ §ang",3,"CËp phong/vodang","L¨ng nh¹c/vodang","Tho¸t/thoat")    
    elseif n == 10 then
        Say("M«n ph¸i : <color=fire>C«n L«n",4,"S­¬ng tinh/conlon","L«i khñng/conlon","Vô ¶o/conlon","Tho¸t/thoat")    
end
end

function thieulam(sel)
n = sel + 1
if n == 1 then
    SetTaskTemp(35,1)
    Say("Trang bÞ <color=red>Tu Khong<color> hæ trî <color=yellow>Thieu Lam Dao<color><enter>Chän trang bÞ hîp thµnh !",7,
        "¸o gi¸p/ao",
        "§ao/dao",
        "Bao tay/baotay",
        "NhÉn/nhan",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif n == 2 then
    SetTaskTemp(35,2)
    Say("Trang bÞ <color=red>Mong Long<color> hæ trî <color=yellow>Thieu Lam Quyen<color><enter>Chän trang bÞ hîp thµnh !",7,
        "¸o gi¸p/ao",
        "GiÇy/giay",
        "Ngäc béi/ngocboi",
        "Nãn/non",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif n == 3 then
    SetTaskTemp(35,3)
    Say("Trang bÞ <color=red>Phuc Ma<color> hæ trî <color=yellow>Thieu Lam Con<color><enter>Chän trang bÞ hîp thµnh !",7,
        "C«n bæng/bong",
        "¸o gi¸p/ao",
        "§ai l­ng/dai",
        "GiÇy/giay",
        "Ngäc béi/ngocboi",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
-------------- THIEN VUONG -----------------------
function thienvuong(sel)
m = sel + 1
if m == 1 then
    SetTaskTemp(35,4)
    Say("Trang bÞ <color=red>Ham Thien<color> hæ trî <color=yellow>Thien Vuong Chuy<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Chïy/chuy",
        "¸o gi¸p/ao",
        "Bao tay/baotay",
        "GiÇy/giay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
    SetTaskTemp(35,5)
    Say("Trang bÞ <color=red>Ke Nghiep<color> hæ trî <color=yellow>Thien Vuong Thuong<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Th­¬ng/thuong",
        "¸o gi¸p/ao",
        "GiÇy/giay",
        "Bao tay/baotay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 3 then
SetTaskTemp(35,6)
    Say("Trang bÞ <color=red>Ngu Long<color> hæ trî <color=yellow>Thien Vuong Dao<color><enter>Chän trang bÞ hîp thµnh !",6,
        "§ao/dao",
        "§ai l­ng/dai",
        "D©y chuyÒn/daychuyen",
        "NhÉn/nhan",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
--------------- DUONG MON -----------------------
function duongmon(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,7)
    Say("Trang bÞ <color=red>Bang Han<color> hæ trî <color=yellow>Duong Mon Phi Dao<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Phi ®ao/phidao",
        "¸o gi¸p/ao",
        "Ngäc béi/ngocboi",
        "GiÇy/giay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,8)
    Say("Trang bÞ <color=red>Sam Hoang<color> hæ trî <color=yellow>Duong Mon Phi Tieu<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Phi tiªu/phitieu",
        "¸o gi¸p/ao",
        "Ngäc béi/ngocboi",
        "GiÇy/giay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 3 then
SetTaskTemp(35,9)
    Say("Trang bÞ <color=red>Thien Quang<color> hæ trî <color=yellow>Duong Mon Tu Tien<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Tô tiÔn/tutien",
        "GiÇy/giay",
        "Bao tay/baotay",
        "D©y chuyÒn/daychuyen",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 4 then
SetTaskTemp(35,10)
    Say("Trang bÞ <color=red>Dia Phach<color> hæ trî <color=yellow>Duong Mon Bay<color><enter>Chän trang bÞ hîp thµnh !",3,
        "Nãn/non",
        --"Bao Tay Dia Phach/diaphach",
        --"Nhan Dia Phach/diaphach",
        --"Day Chuyen Dia Phach/diaphach",
        --"Dai Dia Phach/diaphach",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
------------ NGU DOC-------------
function ngudoc(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,11)
    Say("Trang bÞ <color=red>Chu Phuoc<color> hæ trî <color=yellow>Ngu Doc Bua<color><enter>Chän trang bÞ hîp thµnh !",6,
        "Nãn/non",
        "Bao tay/baotay",
        "NhÉn/nhan",
        "D©y chuyÒn/daychuyen",
        --"Dai/chuphuoc",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,12)
    Say("Trang bÞ <color=red>U Lung<color> hæ trî <color=yellow>Ngu Doc Chuong<color><enter>Chän trang bÞ hîp thµnh !",7,
        "¸o gi¸p/ao",
        "GiÇy/giay",
        "Nãn/non",
        "Bao tay/baotay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 3 then
SetTaskTemp(35,13)
    Say("Trang bÞ <color=red>Minh Ao<color> hæ trî <color=yellow>Ngu Doc Dao<color><enter>Chän trang bÞ hîp thµnh !",7,
        "§ao/dao",
        "¸o gi¸p/ao",
        "Bao tay/baotay",
        "GiÇy/giay",
        "NhÉn/nhan",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
------------ NGA MY----------------
function ngamy(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,14)
    Say("Trang bÞ <color=red>Vo Ma<color> hæ trî <color=yellow>Nga My Chuong<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Nãn/non",
        "¸o gi¸p/ao",
        "NhÉn/nhan",
        "GiÇy/giay",
        "Ngäc béi/ngocboi",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,15)
    Say("Trang bÞ <color=red>Vo Gian<color> hæ trî <color=yellow>Nga My Kiem<color><enter>Chän trang bÞ hîp thµnh !",7,
        "KiÕm/kiem",
        "¸o gi¸p/ao",
        "NhÉn/nhan",
        "Bao tay/baotay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 3 then
SetTaskTemp(35,16)
    Say("Trang bÞ <color=red>Vo Tran<color> hæ trî <color=yellow>Nga My Buff<color><enter>Chän trang bÞ hîp thµnh !",7,
        "NhÉn lo¹i 1/nhan",
        "NhÉn lo¹i 2/nhan1",
        "Ngäc béi/ngocboi",
        "Nãn/non",
        "D©y chuyÒn/daychuyen",    
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
------------- CAi BANG ---------------
function caibang(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,19)
    Say("Trang bÞ <color=red>Dong Cuu<color> hæ trî <color=yellow>Cai Bang Chuong<color><enter>Chän trang bÞ hîp thµnh !",6,
        "Nãn/non",
        "¸o gi¸p/ao",
        "NhÉn/nhan",
        "§ai l­ng/dai",
        "Bao tay/baotay",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,20)
    Say("Trang bÞ <color=red>Dich Khai<color> hæ trî <color=yellow>Cai Bang Bong<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Bæng/bong",
        "¸o gi¸p/ao",
        "NhÉn/nhan",
        "Bao tay/baotay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
------------- THUY YEN -----------
function thuyyen(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,17)
    Say("Trang bÞ <color=red>Te Hoang<color> hæ trî <color=yellow>Thuy Yen Dao<color><enter>Chän trang bÞ hîp thµnh !",7,
        "¸o gi¸p/ao",
        "§ao/dao",
        "NhÉn/nhan",
        "§ai l­ng/dai",
        "Bao tay/baotay",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,18)
    Say("Trang bÞ <color=red>Bich Hai<color> hæ trî <color=yellow>Thuy Yen Song Dao<color><enter>Chän trang bÞ hîp thµnh !",7,
        "Song ®ao/songdao",
        "D©y chuyÒn/daychuyen",
        "NhÉn/nhan",
        "Ngäc béi/ngocboi",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
--------------- THIEN NHAN ---------------
function thiennhan(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,21)
    Say("Trang bÞ <color=red>Ma Hoang<color> hæ trî <color=yellow>Thien Nhan Bua<color><enter>Chän trang bÞ hîp thµnh !",6,
        --"Non/mahoang",
        "Bao tay/baotay",
        "D©y chuyÒn/daychuyen",
        "GiÇy/giay",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,22)
    Say("Trang bÞ <color=red>Ma Thi<color> hæ trî <color=yellow>Thien Nhan Chuong<color><enter>Chän trang bÞ hîp thµnh !",6,
        "Nãn/non",
        "Ngäc béi/ngocboi",
        "D©y chuyÒn/daychuyen",
        "NhÉn/nhan",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 3 then
SetTaskTemp(35,23)
    Say("Trang bÞ <color=red>Ma Sat<color> hæ trî <color=yellow>Thien Nhan Thuong<color><enter>Chän trang bÞ hîp thµnh !",7,
        "¸o gi¸p/ao",
        "Th­¬ng/thuong",
        "Bao tay/baotay",
        "§ai l­ng/dai",
        "NhÉn/nhan",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
----------------VO DANG ----------------
function vodang(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,24)
    Say("Trang bÞ <color=red>Cap Phong<color> hæ trî <color=yellow>Vo Dang Kiem<color><enter>Chän trang bÞ hîp thµnh !",7,
        "KiÕm/kiem",
        "D©y chuyÒn/daychuyen",
        "Ngäc béi/ngocboi",
        "§ai l­ng/dai",
        "NhÉn/nhan",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,25)
    Say("Trang bÞ <color=red>Lang Nhac<color> hæ trî <color=yellow>Vo Dang Khi<color><enter>Chän trang bÞ hîp thµnh !",7,
        "KiÕm/kiem",
        "¸o gi¸p/ao",
        "NhÉn lo¹i 1/nhan",
        "NhÉn lo¹i 2/nhan1",
        "Ngäc béi/ngocboi",    
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end
------------- CON LON---------------
function conlon(sel)
m = sel + 1
if m == 1 then
SetTaskTemp(35,26)
    Say("Trang bÞ <color=red>Suong Tinh<color> hæ trî <color=yellow>Con Lon Dao<color><enter>Chän trang bÞ hîp thµnh !",7,
        "§ao/dao",
        "¸o gi¸p/ao",
        "Bao tay/baotay",
        "NhÉn/nhan",
        "§ai l­ng/dai",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 2 then
SetTaskTemp(35,27)
    Say("Trang bÞ <color=red>Loi Khung<color> hæ trî <color=yellow>Con Lon Kiem<color><enter>Chän trang bÞ hîp thµnh !",6,
        "Nãn/non",
        "D©y chuyÒn/daychuyen",
        "Ngäc béi/ngocboi",
        --"Bao Tay/loikhung",
        "NhÉn/nhan",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
elseif m == 3 then
SetTaskTemp(35,28)
    Say("Trang bÞ <color=red>Vu Ao<color> hæ trî <color=yellow>Con Lon Bua<color><enter>Chän trang bÞ hîp thµnh !",6,
        "Nãn/non",
        "GiÇy/giay",
        "Ngäc béi/ngocboi",
        --"Day Chuyen/vuao",
        "NhÉn/nhan",
        "Trë l¹i/hopthanh",
        "Tho¸t/thoat")
end
end


function ao()
if GetTaskTemp(35) == 2 then
t=1
elseif GetTaskTemp(35) == 3 then
t=2
elseif GetTaskTemp(35) == 1 then
t=3
elseif GetTaskTemp(35) == 4 then
t=4
elseif GetTaskTemp(35) == 5 then
t=5
elseif GetTaskTemp(35) == 15 then
t=6
elseif GetTaskTemp(35) == 14 then
t=7
elseif GetTaskTemp(35) == 17 then
t=8
elseif GetTaskTemp(35) == 12 then
t=9
elseif GetTaskTemp(35) == 13 then
t=10
elseif GetTaskTemp(35) == 7 then
t=11
elseif GetTaskTemp(35) == 8 then
t=12
elseif GetTaskTemp(35) == 19 then
t=13
elseif GetTaskTemp(35) == 20 then
t=14
elseif GetTaskTemp(35) == 23 then
t=15
elseif GetTaskTemp(35) == 25 then
t=16
elseif GetTaskTemp(35) == 26 then
t=17
end
SetTaskTemp(40,t)
XacDinhTrangBi("Ao",phanloai())
end

function non()
if GetTaskTemp(35) == 2 then
t = 74
elseif GetTaskTemp(35) == 14 then
t = 75
elseif GetTaskTemp(35) == 15 then
t = 76
elseif GetTaskTemp(35) == 12 then
t = 77
elseif GetTaskTemp(35) == 11 then
t = 78
elseif GetTaskTemp(35) == 10 then
t =79
elseif GetTaskTemp(35) == 22 then
t = 80
elseif GetTaskTemp(35) == 27 then
t = 81
elseif GetTaskTemp(35) == 28 then
t = 82
elseif GetTaskTemp(35) == 19 then
t = 132
end
SetTaskTemp(40,t)
XacDinhTrangBi("Non",phanloai())
end

function giay()
if GetTaskTemp(35) == 2 then
t = 47
elseif GetTaskTemp(35) == 3 then
t = 48
elseif GetTaskTemp(35) == 4 then
t = 49
elseif GetTaskTemp(35) == 5 then
t = 50
elseif GetTaskTemp(35) == 14 then
t = 51
elseif GetTaskTemp(35) == 12 then
t = 52
elseif GetTaskTemp(35) == 13 then
t = 53
elseif GetTaskTemp(35) == 7 then
t = 54
elseif GetTaskTemp(35) == 8 then
t = 55
elseif GetTaskTemp(35) == 9 then
t = 56
elseif GetTaskTemp(35) == 21 then
t = 57
elseif GetTaskTemp(35) == 22 then
t = 58
elseif GetTaskTemp(35) == 28 then
t = 59
end
SetTaskTemp(40,t)

XacDinhTrangBi("Giay",phanloai())
end
function dai()
if GetTaskTemp(35) == 2 then
t=27
elseif GetTaskTemp(35) == 3 then
t=28
elseif GetTaskTemp(35) == 1 then
t=29
elseif GetTaskTemp(35) == 4 then
t=30
elseif GetTaskTemp(35) == 5 then
t=31
elseif GetTaskTemp(35) == 6 then
t=32
elseif GetTaskTemp(35) == 15 then
t=33
elseif GetTaskTemp(35) == 17 then
t=34
elseif GetTaskTemp(35) == 18 then
t=35
elseif GetTaskTemp(35) == 12 then
t=36
elseif GetTaskTemp(35) == 7 then
t=37
elseif GetTaskTemp(35) == 9 then
t=38
elseif GetTaskTemp(35) == 8 then
t=39
elseif GetTaskTemp(35) == 19 then
t=40
elseif GetTaskTemp(35) == 20 then
t=41
elseif GetTaskTemp(35) == 23 then
t=42
elseif GetTaskTemp(35) == 21 then
t=43
elseif GetTaskTemp(35) == 24 then
t=44
elseif GetTaskTemp(35) == 26 then
t=45
elseif GetTaskTemp(35) == 27 then
t=46
end
SetTaskTemp(40,t)
XacDinhTrangBi("Dai",phanloai())
end
function daychuyen()
if GetTaskTemp(35) == 6 then
t = 18
elseif GetTaskTemp(35) == 16 then
t = 19
elseif GetTaskTemp(35) == 18 then
t = 20
elseif GetTaskTemp(35) == 11 then
t = 21
elseif GetTaskTemp(35) == 9 then
t = 22
elseif GetTaskTemp(35) == 21 then
t = 23
elseif GetTaskTemp(35) == 22 then
t = 24
elseif GetTaskTemp(35) == 24 then
t = 25
elseif GetTaskTemp(35) == 27 then
t = 26
end
SetTaskTemp(40,t)
XacDinhTrangBi("Day Chuyen",phanloai())
end

function ngocboi()
if GetTaskTemp(35) == 2 then
t = 83
elseif GetTaskTemp(35) == 3 then
t = 84
elseif GetTaskTemp(35) == 14 then
t = 85
elseif GetTaskTemp(35) == 16 then
t = 86
elseif GetTaskTemp(35) == 18 then
t = 87
elseif GetTaskTemp(35) == 7 then
t = 88
elseif GetTaskTemp(35) == 8 then
t = 89
elseif GetTaskTemp(35) == 22 then
t = 90
elseif GetTaskTemp(35) == 25 then
t = 91
elseif GetTaskTemp(35) == 24 then
t = 92
elseif GetTaskTemp(35) == 27 then
t = 93
elseif GetTaskTemp(35) == 28 then
t = 94
end
SetTaskTemp(40,t)
XacDinhTrangBi("Ngoc Boi",phanloai())
end
function baotay()
if GetTaskTemp(35) == 1 then
t = 60
elseif GetTaskTemp(35) == 4 then
t = 61
elseif GetTaskTemp(35) == 5 then
t = 62
elseif GetTaskTemp(35) == 15 then
t = 63
elseif GetTaskTemp(35) == 17 then
t = 64
elseif GetTaskTemp(35) == 12 then
t = 65
elseif GetTaskTemp(35) == 13 then
t = 66
elseif GetTaskTemp(35) == 11 then
t = 67
elseif GetTaskTemp(35) == 9 then
t = 68
elseif GetTaskTemp(35) == 19 then
t = 69
elseif GetTaskTemp(35) == 20 then
t = 70
elseif GetTaskTemp(35) == 23 then
t = 71
elseif GetTaskTemp(35) == 21 then
t = 72
elseif GetTaskTemp(35) == 26 then
t = 73
end
SetTaskTemp(40,t)
XacDinhTrangBi("Bao Tay",phanloai())
end

function nhan()
if GetTaskTemp(35) == 1 then
t = 95
elseif GetTaskTemp(35) == 6 then
t = 96
elseif GetTaskTemp(35) == 15 then
t = 97
elseif GetTaskTemp(35) == 14 then
t = 98
elseif GetTaskTemp(35) == 16 then
t = 99
elseif GetTaskTemp(35) == 17 then
t = 101
elseif GetTaskTemp(35) == 18 then
t = 102
elseif GetTaskTemp(35) == 13 then
t = 103
elseif GetTaskTemp(35) == 11 then
t = 104
elseif GetTaskTemp(35) == 19 then
t = 105
elseif GetTaskTemp(35) == 20 then
t = 106
elseif GetTaskTemp(35) == 23 then
t = 107
elseif GetTaskTemp(35) == 22 then
t = 108
elseif GetTaskTemp(35) == 25 then
t = 109
elseif GetTaskTemp(35) == 24 then
t = 111
elseif GetTaskTemp(35) == 26 then
t = 112
elseif GetTaskTemp(35) == 27 then
t = 113
elseif GetTaskTemp(35) == 28 then
t = 114
end
SetTaskTemp(40,t)
XacDinhTrangBi("Nhan",phanloai())
end

function nhan1()
if GetTaskTemp(35) == 16 then
t = 100
elseif GetTaskTemp(35) == 25 then
t = 110
end
SetTaskTemp(40,t)
XacDinhTrangBi("Nhan1",phanloai())
end
----
function dao()
if GetTaskTemp(35) == 6 then
t = 118
elseif GetTaskTemp(35) == 1 then
t = 119
elseif GetTaskTemp(35) == 17 then
t = 120
elseif GetTaskTemp(35) == 13 then
t = 121
elseif GetTaskTemp(35) == 26 then
t = 122
end
SetTaskTemp(40,t)
XacDinhTrangBi("Dao",phanloai())
end
    
function bong()
if GetTaskTemp(35) == 3 then
t = 126
elseif GetTaskTemp(35) == 20 then
t = 127
end
SetTaskTemp(40,t)
XacDinhTrangBi("Bong",phanloai())
end

function songdao()
SetTaskTemp(40,128)
XacDinhTrangBi("Song Dao","Bich Hai")
end

function thuong()
if GetTaskTemp(35) == 5 then
t = 124
elseif GetTaskTemp(35) == 23 then
t = 125
end
SetTaskTemp(40,t)
XacDinhTrangBi("Thuong",phanloai())
end

function chuy()
SetTaskTemp(40,123)
XacDinhTrangBi("Chuy","Ham Thien")
end

function tutien()
SetTaskTemp(40,129)
XacDinhTrangBi("Tu Tien","Thien Quang")
end

function phidao()
SetTaskTemp(40,131)
XacDinhTrangBi("Phi Dao","Bang Han")
end

function phitieu()
SetTaskTemp(40,130)
XacDinhTrangBi("Phi Tieu","Sam Hoang")
end

function kiem()
if GetTaskTemp(35) == 24 then
t = 115
elseif GetTaskTemp(35) == 25 then
t = 116
elseif GetTaskTemp(35) == 15 then
t = 117
end
SetTaskTemp(40,t)
XacDinhTrangBi("Kiem",phanloai())
end
-------


function XacDinhTrangBi(tb,pl)
temp = GetTaskTemp(34)
if GetTaskTemp(34) == 1 then
id = 4
elseif GetTaskTemp(34) == 2 then
id = 5
elseif GetTaskTemp(34) == 3 then
id = 6
elseif GetTaskTemp(34) == 4 then
id = 7
elseif GetTaskTemp(34) == 5 then
id = 8
elseif GetTaskTemp(34) == 6 then
id = 9
elseif GetTaskTemp(34) == 7 then
id = 10
elseif GetTaskTemp(34) == 8 then
id = 11
elseif GetTaskTemp(34) == 9 then
id = 12
elseif GetTaskTemp(34) == 10 then
id = 13
end
ht = GetItemCount(id)
if GetTaskTemp(34) == 1 then
nl = 49
a = GetItemCount(nl)
    if GetItemCount(nl) >= 1 then
        DelItem(nl)
        if GetItemCount(nl) == (a - 1) then
            addtbmp(GetTaskTemp(34),tb,pl)
        --    logWrite("[Che Tao][+"..GetTaskTemp(34).."]["..tb.."]["..pl.."]")
            Msg2Player("Hîp thµnh trang bÞ hoµng kim thµnh c«ng")            
        else
            Msg2Player("Hack !!!!!")
        end
    else
        Msg2Player("Kh«ng cã Hoµng kim lÖnh trong hµnh trang")
    end    
elseif GetTaskTemp(34) > 1 or GetTaskTemp(34) < 11 then
    k = GetTaskTemp(40)
    if ht >= 1 then
        if HaveBaseItem(0,MangTrangBi[k][3],MangTrangBi[k][4],MangTrangBi[k][5],GetTaskTemp(34)-1) > 0 then
            DelBaseItem(0,MangTrangBi[k][3],MangTrangBi[k][4],MangTrangBi[k][5],GetTaskTemp(34)-1)
            DelItem(id)            
        if GetItemCount(id) == (ht - 1) then
            addtbmp(GetTaskTemp(34),tb,pl)
            Msg2Player("Hîp thµnh "..MangTrangBi[k][1].." "..MangTrangBi[k][2].." +"..GetTaskTemp(34).." thµnh c«ng")
        --    logWrite("[Che Tao][+"..GetTaskTemp(34).."]["..tb.."]["..pl.."]")
        else
        Talk(1,"","hack !!")
        end
        else
        Msg2Player("Ng­¬i kh«ng cã "..MangTrangBi[k][1].." "..MangTrangBi[k][2].." +"..(GetTaskTemp(34)-1).."")
        end
    else
    Msg2Player("Ng­¬i kh«ng cã 1 viªn huyÒn tinh cÊp "..temp.."")
    end
end
SetTaskTemp(34,0)
SetTaskTemp(35,0)
SetTaskTemp(40,0)
end

Đây các anh ^^ Hồi Bưa Anh Linh_JX có làm nhưng Giờ Tìm Chẳng Thấy

[Linh_JX]

ta kêu mod xóa topic đó rùi ! chất mi là người thứ 2 đó

[tienhung15]

cái này thì bạn khỏi sữa tại vì đổi lệnh bài hoang kim thành công 100% bạn pmm yhaoo [Only registered and activated users can see links. ] mình send cái đóa war cho bạn nhé mình thường online 10h 11h khuya