Script Đổi Môn Phái Cần Pass Rương
Hello & Welcome to our community. Is this your first visit? Đăng Ký
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 4 của 4
  1. 11-01-11, 08:43 PM #1
    [S]ocola[S]an
    [S]ocola[S]an vẫn chưa có mặt trong diễn đàn
    Thành Viên Tâm Huyết [S]ocola[S]an's Avatar
    Ngày tham gia
    Apr 2010
    Đang ở
    Taddle Legacy
    Bài viết
    1,894
    Thanks
    92
    Thanked 105 Times in 41 Posts

    Script Đổi Môn Phái Cần Pass Rương



    /*============================*\
    |#AuThor : Sandaru .........................#|
    |#Date : Quên mất ..........................#|
    |#Supporter : Sandaru .....................#|
    |#.........Script Is Not Free Code.........#|
    |#.......[Only registered and activated users can see links. ].......#|
    |#Licensed Number : Free Code..........#|
    |#Version : 1.3.4 ............................#|
    |#Pm : darksevenspearsandaru...........#|
    \*===========================*/

    Code:
    idtaskruong = 133 ----- ID task ma ruong
idtasktempp = 157 ----- ID task luu ma ruong tam thoi
idtasktempp1 = 158 ---- ID Task so tang(floor)
idtasktempp2 = 159 ---- ID dieu kien lap mat khau va doi mat khau
knb = 7 -- Kim Nguyen Bao
chuyen = 200 -- Cuon Chuyen Doi Mon Phai
lan1 = 1000000 -- Lan 1 Chuyen Phai
lan2 = 5000000 -- Lan 2 Chuyen Phai
lan3 = 10000000 -- Lan 3 Chuyen Phai
ht8 = 62 -- Huyen TInh 8

--******************************************************************************************************
--******************************************************************************************************

function main()
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
Say("<color=red>Chuyen Mon Phai<color> : Nguoi muon chuyen mon phai a ? Doc Huong Dan Truoc Khi Chuyen Nhe\n Nguoi da chuyen mon phai : "..GetTask(TaskChuyenPhai).." lan",3,"Huong Dan/help","Ta Chuyen Mon Phai/yes","Thoi/no")
end;

function help()
Say("Chuyen Mon Phai Gom 3 Lan <enter> Lan 1 : 100v <color=yellow>25 Knb<color> va 1 cuon chuyen mon phai",1,"Tiep/next")

end;

function next()
Say("Lan 2 : 500v <color=yellow>50 Knb<color> va 1 cuon chuyen mon phai",1,"Tiep/next2")
end;

function next2()
Say("Lan 3 : Lan cuoi can 1000v <color=yellow>10 Cuon Chuyen Mon Phai<color> va 10 Huyen Tinh 8 . Can Nhap Pass Ruong Khi Chuyen Mon Phai",0)
end;

function yes()
Talk(1,"morp","Ban phai nhap pass ruong neu tiep tuc . Click 1 cai de tu chuyen sang trang nhap pass ruong")
--tieptuc()
end;


function morp()
    SetTaskTemp(idtasktempp2,0)
    SetTaskTemp(idtasktempp1,GetTaskTemp(idtasktempp1)+1)
    Say("<color=cyan>Ruong Chua Do:<color> Neu lu khach chua lap ma ruong, pass mac dinh se la : <color=green>000000<color>.\nBan hay nhap so thu : <color=blue>"..GetTaskTemp(idtasktempp1).."<color>",11,"0/luupass","1/luupass","2/luupass","3/luupass","4/luupass","5/luupass","6/luupass","7/luupass","8/luupass","9/luupass","Thoat./no");
end

function morp1()
    local a,b,c,d,e,f = phantichpas(GetTask(idtaskruong))
    local a1,b1,c1,d1,e1,f1 = phantichpas(GetTaskTemp(idtasktempp))
    local tring1 = a..b..c..d..e..f -- chuoi ma ruong
    local tring2 = a1..b1..c1..d1..e1..f1 -- chuoi ma ruong moi nhap(tuc thoi)
    SetTaskTemp(idtasktempp,0)
    SetTaskTemp(idtasktempp1,0)
    SetTaskTemp(idtasktempp2,0)
    if tring1 == tring2 then
        tieptuc()
        Msg2Player("Kiem tra ma ruong chinh xac.")
    else
        Talk(1,"no","Ban da nhap sai ma ruong.\nNeu quen thi ban co the lien he GM de lay lai.");
    end
end
function luupass(sel)
    local tang = GetTaskTemp(idtasktempp1)
    if GetTaskTemp(idtasktempp2) == 0 then
        if tang == 1 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*100000)
            morp()
        elseif tang == 2 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*10000)
            morp()
        elseif tang == 3 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*1000)
            morp()
        elseif tang == 4 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*100)
            morp()
        elseif tang == 5 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*10)
            morp()
        elseif tang == 6 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*1)
            morp1()
        else
            no()
        end
    elseif GetTaskTemp(idtasktempp2) == 1 then
        if tang == 1 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*100000)
            dmkp()
        elseif tang == 2 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*10000)
            dmkp()
        elseif tang == 3 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*1000)
            dmkp()
        elseif tang == 4 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*100)
            dmkp()
        elseif tang == 5 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*10)
            dmkp()
        elseif tang == 6 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*1)
            dmkp1()
        else
            no()
        end
    elseif GetTaskTemp(idtasktempp2) == 2 then
        if tang == 1 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*100000)
            dmkp2()
        elseif tang == 2 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*10000)
            dmkp2()
        elseif tang == 3 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*1000)
            dmkp2()
        elseif tang == 4 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*100)
            dmkp2()
        elseif tang == 5 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*10)
            dmkp2()
        elseif tang == 6 then
            SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+sel*1)
            dmkp3()
        else
            no()
        end
    end
end

function phantichpas(task) --- ham by chicken
    --local x,len,a,b,c,d,e,f = GetTask(task),0,0,0,0,0,0,0
    local x,len = task,0
    local a,b,c,d,e,f = 0,0,0,0,0,0
    x = tostring(x)
    len = strlen(x)
    if len < 6 then
        for i=1,(6-len) do
            x = "0"..x
        end
    end
    a = tonumber(strsub(x,1,1))
    b = tonumber(strsub(x,2,2))
    c = tonumber(strsub(x,3,3))
    d = tonumber(strsub(x,4,4))
    e = tonumber(strsub(x,5,5))
    f = tonumber(strsub(x,6,6))
    return a,b,c,d,e,f
end;
--******************************************************************************************************
--******************************************************************************************************




function tieptuc()
Say("<color=red>Chuyen Mon Phai<color> : Ban Muon Chuyen Qua Mon Phai Nao? Nho phai co du Item Nhe",10,"Thieu Lam/tl","Thien Vuong/tv","Duong Mon/dm","Ngu Doc/ngudoc","Nga My/nm","Thuy Yen/ty","Cai Bang/cb","Thien Nhan/tn","Trang Tiep/tiep","Thoat/no")
end;

--******************************************************************************************************
--******************************************************************************************************

function tiep()
Say("<color=red>Chuyen Mon Phai<color> : Tiep Day",4,"Vo Dang/vd","Con Lon/cl","Tro Lai/back","Thoat/no")
end;

function back()
tieptuc()
end;

function tl()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(0)
    JoinFaction(1)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(0)
    JoinFaction(1)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    for i=1,500 do DelMagic(i) end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(0)
    JoinFaction(1)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;
    
function tv()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(0)
    JoinFaction(2)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(0)
    JoinFaction(2)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,500 do DelMagic(i) end
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(0)
    JoinFaction(2)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function dm()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(1)
    JoinFaction(3)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(1)
    JoinFaction(3)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    for i=1,500 do DelMagic(i) end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(1)
    JoinFaction(3)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function nd()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(1)
    JoinFaction(4)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(1)
    JoinFaction(4)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,500 do DelMagic(i) end
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(1)
    JoinFaction(4)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function nm()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(2)
    JoinFaction(5)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(2)
    JoinFaction(5)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    for i=1,500 do DelMagic(i) end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(2)
    JoinFaction(5)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function ty()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(2)
    JoinFaction(6)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(2)
    JoinFaction(6)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    for i=1,500 do DelMagic(i) end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(2)
    JoinFaction(6)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function cb()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(3)
    JoinFaction(7)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(3)
    JoinFaction(7)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    for i=1,500 do DelMagic(i) end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(3)
    JoinFaction(7)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function tn()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(3)
    JoinFaction(8)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(3)
    JoinFaction(8)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    for i=1,500 do DelMagic(i) end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(3)
    JoinFaction(8)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function vd()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(4)
    JoinFaction(9)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(4)
    JoinFaction(9)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,500 do DelMagic(i) end
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(4)
    JoinFaction(9)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function cl()
if GetTask(TaskChuyenPhai) == 0 and
    GetItemCount(knb) >= 25 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan1 then
    for i=1,25 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan1)
    SetTask(TaskChuyenPhai,1)
    SetSeries(4)
    JoinFaction(10)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
    GetItemCount(knb) >= 50 and
    GetItemCount(chuyen) >= 1 and
    GetCash() >= lan2 then
    for i=1,50 do DelItem(knb) end
    for i=1,500 do DelMagic(i) end
    Pay(lan2)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(4)
    JoinFaction(10)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
    GetItemCount(ht8) >= 10 and
    GetItemCount(chuyen) >= 10 and
    GetCash() >= lan3 then
    for i=1,500 do DelMagic(i) end
    for i=1,10 do
        DelItem(ht8)
        DelItem(chuyen)
    end
    Pay(lan3)
    SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
    SetSeries(4)
    JoinFaction(10)
    LearnSkillFaction()
    Msg2Player("Chuyen Mon Phai Thanh Cong")
    Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function no()
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
end;
--******************************************************************************************************
--******************************************************************************************************
--******************************************************************************************************
--******************************************************************************************************
--******************************************************************************************************
--Sandaru => Sandaru Entertainment
--Have Bug Just Pm Me
[email protected]
--I will waiting for you guy
--Sandaru . A Developer Of Game Jx (Sword Online)
    Need Include this :
    Code:
    sourcejx49.lua
passruong.lua
main_faction.lua
taobang.lua
list.lua
    For Information pm : [Only registered and activated users can see links. ]
    If you have anything bug pm me to fix .

    From : [Only registered and activated users can see links. ]
    Lần sửa cuối bởi [S]ocola[S]an, ngày 11-01-11 lúc 08:50 PM.
    >.<
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn

  2. The Following 3 Users Say Thank You to [S]ocola[S]an For This Useful Post:

    Mr.Phát (12-01-11), Sir.THÀNH™ (11-01-11), thaihoa91 (11-01-11)
  3. 12-01-11, 01:00 AM #2
    Mr.Rezo™
    Mr.Rezo™ vẫn chưa có mặt trong diễn đàn
    Vi phạm quy định
    Ngày tham gia
    Apr 2007
    Đang ở
    ☼♥ ®€Žø In Dä Høü§€ ♥☼
    Bài viết
    958
    Thanks
    6
    Thanked 78 Times in 25 Posts
    Gửi tin nhắn qua ICQ đến Mr.Rezo™ Gửi tin nhắn qua AIM đến Mr.Rezo™ Gửi tin nhắn qua MSN đến Mr.Rezo™ Gửi tin nhắn qua Yahoo! đến Mr.Rezo™ Gửi tin nhắn qua Skype™ đến Mr.Rezo™

    Ðề: Script Đổi Môn Phái Cần Pass Rương

    không có ý gì nhưng cái script đổi môn phái cần pass rương mà màu mè

    Suppoter - Licensed Number - Version

    tiếng Tây tiếng Tàu

    ich liebe dich und alles. werden schließen dich für immer
    Khách viếng thăm hãy cùng Mr.Rezo™ xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  4. 12-01-11, 08:28 PM #3
    KingMax
    KingMax vẫn chưa có mặt trong diễn đàn
    Thành Viên Tâm Huyết KingMax's Avatar
    Ngày tham gia
    Dec 2010
    Bài viết
    642
    Thanks
    143
    Thanked 321 Times in 125 Posts

    Ðề: Script Đổi Môn Phái Cần Pass Rương

    sCript pass rương của cha chicken đây mà
    Comeback JXP
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  5. 12-01-11, 10:01 PM #4
    Čħīċķėň
    Čħīċķėň vẫn chưa có mặt trong diễn đàn
    ±‡[̲̅ə̲̅٨̲̅٥̲̅٦� �� �̅]‡± Čħīċķėň's Avatar
    Ngày tham gia
    Jul 2009
    Đang ở
    TP HCM
    Bài viết
    1,349
    Thanks
    62
    Thanked 101 Times in 48 Posts

    Ðề: Script Đổi Môn Phái Cần Pass Rương

    hùi đó cùi pap code cái func luupass dài như wuy chỉnh lại xíu là giảm đi 2 phần 3 đoạn đó rùi @@
    Chúc 4rum ngày càng phát triển
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
 

 
« Script Check Người Trong Map | Event Thiên Sơn Và Dã Tẩu Kiểu Mới By Kiệt Pê Đê »

Các Chủ đề tương tự

  1. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM
  2. Script Pass rương by Chicken (1task)
    Bởi Čħīċķėň trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 13-01-11, 01:49 AM
  3. Script Lập Pass Rương Good
    Bởi Zin Kull trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 08-08-10, 09:41 AM
  4. Script làm Pass Rương đây.
    Bởi DNTmaster trong diễn đàn Scripts
    Trả lời: 29
    Bài viết cuối: 26-05-09, 05:49 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  

Nội quy - Quy định

Múi giờ GMT +7. Bây giờ là 03:25 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.