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. #1
    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.
    >.<

  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. #2
    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

    Ðề: 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é!

  4. #3
    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

  5. #4
    ±‡[̲̅ə̲̅٨̲̅٥̲̅٦� �� �̅]‡± Čħīċķėň'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

 

 

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
  •  
Múi giờ GMT +7. Bây giờ là 01:34 AM.
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ệ.