chỉnh sửa giúp em cái script vượt ải này với
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 2 của 2
  1. #1
    Thành Viên
    Ngày tham gia
    Oct 2010
    Bài viết
    191
    Thanks
    32
    Thanked 23 Times in 14 Posts

    chỉnh sửa giúp em cái script vượt ải này với

    Vuotai.lua
    Code:
    Include("\\script\\source\\sourcejx49.lua")
    Include("\\script\\global\\monter\\vuotai.lua")
    
    
    function main()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    if gio == 7 or gio == 9 or gio == 11 or gio == 13 or gio == 15 or gio == 21 then
        if phut >= 28 and phut < 32 then
            Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",2,"Tham gia vuot ai/thamgia","Thoat/no")
        else
            Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no")
        end
    else
    Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no")
    end
    end
    
    function KiemTraTang()
        if GetLevel() >=100  or IsCaptain() == 1 then    
        return 25
        end
    end
    
    
    function IDLevelMaps(Idmaps)
    if Idmaps == 25 then
    return 1
    end
    end
    
    
    
    function thamgia()
    idtd = GetTeam()
    lvl = GetLevel()
    SubWorld = SubWorldID2Idx(25)
    if (GetGlbMissionV(100) ~= 0) or (GetGlbMissionV(101) ~= 0) then
        Say("<color=cyan>Vuot Ai Than Quan<color>: Hien tai dang co To Doi bao danh, vi vay ban phai doi 1 lat de Server khong LAG",1,"Thoat./Exit")
    return
    end
    if (idtd ~= nil) then
    if (GetTeamSize() >= 3) then
    if (IsCaptain() == 1) then
        idbt = PlayerIndex
        if GetLevel() >=100 then
        SetGlbMissionV(100,1)
        SetGlbMissionV(101,40)
        end
            for i = 1,GetPlayerCount() do
                PlayerIndex = i
            if (GetTeam() == idtd) then
            if (GetLevel() >= GetGlbMissionV(100)) and (GetLevel() <= GetGlbMissionV(101)) then
                ycvp = 1
            end
            end
            end
            PlayerIndex = idbt
    ycvp = 0
    if (ycvp == 0) then
        if GetItemCount(131) >= 1 then
            DelItem(131)
            ycvp = 0
    idbt = PlayerIndex
    for i =1,GetPlayerCount() do
    PlayerIndex = i
    if (GetTeam() == idtd) then
    SetTask(19,0)
    SetTask(20,0)
    SetPunish(0)
    SetFightState(1)
    SetLogoutRV(1)
    SetTempRevPos(25,200*8*32,200*16*32);
    NewWorld(KiemTraTang(),1570, 3250)
        SetGlbMissionV(88,0)
        SetGlbMissionV(89,0)
    Msg2Player("Dang Tien Vao Vuot Ai Tang: "..IDLevelMaps(KiemTraTang())..".")
    end
    end
        else
        SetGlbMissionV(100,0)
        SetGlbMissionV(101,0)
        Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong du 1 <color=red>Lenh Bai Vuot Ai<color>,khong the dua to doi di")
        end
    else
        SetGlbMissionV(100,0)
        SetGlbMissionV(101,0)
    Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Trong to doi co thanh vien chenh lech ve cap do "..GetGlbMissionV(88).." ~ "..GetGlbMissionV(89)..", nen khong the di")
    end
    
    else
        SetGlbMissionV(100,0)
        SetGlbMissionV(101,0)
    Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong phai la <color=red>Truong Nhom<color>, khong the dua to doi di")
    end
    
    else
        SetGlbMissionV(100,0)
        SetGlbMissionV(101,0)
    Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: To doi phai co it nhat la 3 nguoi tro len thi moi co the vao duoc")
    end
    
    else
        SetGlbMissionV(100,0)
        SetGlbMissionV(101,0)
    Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi can phai lap <color=red>To Doi<color>, va yeu cau la phai co 3 thanh vien trong nhom")
    end
    end
    
    
    
    
    
    
    
    
    
    w,x,y = GetWorldPos()
    if GetGlbMissionV(87) == 1 then
        gio1 = gio + 1
        
        Msg2Team(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !")
    elseif GetGlbMissionV(87) == 2 then            
    for i =1,GetPlayerCount() do
    PlayerIndex = i
    if (GetTeam() == idtd) then
        if w == 25 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(26,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 26 then
            if GetGlbMissionV(88) == 48 then
                NewWorld(27,1603,3207)
                SetFightState(0)
            else
                n = 48 - GetGlbMissionV(88)
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 27 then
            if GetGlbMissionV(88) == 72 then
                NewWorld(28,1603,3207)
                SetFightState(0)
            else
                n = 72 - GetGlbMissionV(88)
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 28 then
            if GetGlbMissionV(88) == 96 then
                NewWorld(29,1603,3207)
                SetFightState(0)
            else
                n = 96 - GetGlbMissionV(88)
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 29 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(108,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 108 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(109,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 109 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(110,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 110 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(111,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 111 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(112,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 112 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(100,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 100 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(101,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 101 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(102,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 102 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(103,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 103 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(104,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 104 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(105,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 105 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(106,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end
        elseif w == 106 then
            if GetGlbMissionV(88) == 24  then
                NewWorld(107,1603,3207)
                SetFightState(0)
            else
                n = 24 - GetGlbMissionV(88)
                
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end    
        elseif w == 107 then
            if GetGlbMissionV(88) == 120 then
                Msg2Team(1,"nhanthuong","Nguoi da hoan thanh 18 ai roi, xin hay nhan phan thuong va roi khoi day")
            else
                n = 120 - GetGlbMissionV(88)
                Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua")
            end                
        else
        NewWorld(53,1603,3207)
        Msg2Team(1,"","Hien tai khong phai la thoi gian vuot ai")
        end
        end
    
    end
    end
    
    
    
    
    
    
    function nhanthuong()
    AddOwnExp(2000000)
    Earn(500000)
    AddRepute(20)
    AddEventItem(133)
    NewWorld(53,1603,3207)
    SetFightState(0)
    Msg2Player("Hoan thanh 18 ai !! Nhan duoc phan thuong : 1 Le Vat Vuot Ai")
    end[/QUOTE]
    monter1x.lua
    [QUOTE] Include("\\script\\global\\kinhnghiem\\exp.lua")
    Include("\\script\\global\\kinhnghiem\\droprate.lua")
    Include("\\script\\vuotai\\vuotai.lua")
    
    
    function OnDeath()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    if GetGlbMissionV(87) == 1 then    
        gio1 = gio + 1
        Talk(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !")
    elseif GetGlbMissionV(87) == 2 then        
        if GetGlbMissionV(88) < 24 then    
            expmonter()
            droprate()
            SetGlbMissionV(88,GetGlbMissionV(88)+1)
            n = 30 - GetGlbMissionV(88)
            Msg2Team("Nguoi con phai tieu diet "..n.." con quai nua")
        else
            Msg2Team("Ban da tieu diet du so luong quai, hay tieu diet Boss de qua ai, Good Luck")
        end
    else
    Msg2Player("Hoat dong vuot ai da ket thuc roi !!")
    NewWorld(53,1603,3207)
    SetFightState(0)
    end
    end
    máy pro jx giúp em sửa cái script này với, đây là script VA, khi đội trưởng nhận nv thi cả đội đều được đưa vào ải , nhưng làm sao để cả đội làm chung nv là đánh bao nhiu con quái thi sẻ được đưa qua ải kế típ em chỉnh sửa hoài mà không được máy anh giúp em với !!! nick yahoo cua em [Only registered and activated users can see links. ]
    Lần sửa cuối bởi thaihoa91, ngày 18-08-11 lúc 05:32 PM.
    Khách viếng thăm hãy cùng shppero xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    Ðề: chỉnh sửa giúp em cái script vượt ải này với

    bạn dùng hàm SetMissionV , giống SettAsk nhưng tương tác cho cả Server và GetMissionV để kiểm tra là ok
    Comeback JXP

 

 

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. Cho hỏi Script lạ...!!
    Bởi kemdenny trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 10-10-10, 08:02 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à 09:55 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ệ.