Script ủy thác rời mạ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
 
Trang 1 của 3 1 2 3 CuốiCuối
Kết quả 1 đến 10 của 22
  1. #1
    Thành Viên thachlong78's Avatar
    Ngày tham gia
    Dec 2008
    Bài viết
    577
    Thanks
    0
    Thanked 265 Times in 68 Posts

    Script ủy thác rời mạng.

    Spit ủy thác rời mạng:



    Code:
    function main(sel)
    Say("<color=green>Uy Thac<color> co the doi mang, hoac o tren mang van nhan duoc <color=yellow>Thoi Gian Tich Luy Uy Thac.",5,"1.Bat dau Uy Thac/bdut","2.Dung Uy Thac/dut","3.Kiem tra thoi gian tich luy Uy Thac/kttgtlut","4.Doi kinh nghiem, diem uy thac/dkndut","Ta chi ghe tham thoi/no")
     
     
    end 
    end;
     
    function bdut()
    x = {
    {1,{0}},
    {2,{0,31}},
    {3,{0,31,29}},
    {4,{0,31,29,31}},
    {5,{0,31,29,31,30}},
    {6,{0,31,29,31,30,31}},
    {7,{0,31,29,31,30,31,30}},
    {8,{0,31,29,31,30,31,30,31}},
    {9,{0,31,29,31,30,31,30,31,31}},
    {10,{0,31,29,31,30,31,30,31,31,30}},
    {11,{0,31,29,31,30,31,30,31,31,30,31}},
    {12,{0,31,29,31,30,31,30,31,31,30,31,30}},
    }
     
    if (GetTask(60) == 0) then 
    SetTask(60,100000)
    ngay = tonumber(date("%d"))
    thang = tonumber(date("%m"))
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    y = 0
    for i=1,thang do 
    y =(x[thang][2][i] * 24 * 60) + y
    end
     
    batdau = phut + (gio * 60) + (ngay * 24 * 60) + y
    SetTask(61,batdau)
     
    Msg2Player("Ban da bat dau thoi gian Uy Thac")
    else
    Talk(1,"","Ban dang trong trang thai <color=red>Uy Thac<color>, khong the lua chon bat dau uy thac")
    end
    end;
    function dut()
    x = {
    {1,{0}},
    {2,{0,31}},
    {3,{0,31,29}},
    {4,{0,31,29,31}},
    {5,{0,31,29,31,30}},
    {6,{0,31,29,31,30,31}},
    {7,{0,31,29,31,30,31,30}},
    {8,{0,31,29,31,30,31,30,31}},
    {9,{0,31,29,31,30,31,30,31,31}},
    {10,{0,31,29,31,30,31,30,31,31,30}},
    {11,{0,31,29,31,30,31,30,31,31,30,31}},
    {12,{0,31,29,31,30,31,30,31,31,30,31,30}},
    }
    if (GetTask(60) == 100000) then 
    SetTask(60,0)
    ngay = tonumber(date("%d"))
    thang = tonumber(date("%m"))
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    y = 0
    for i=1,thang do
    y = (x[thang][2][i] * 24 * 60) + y
    end
    batdau = GetTask(61)
    ketthuc = phut + (gio * 60) + (ngay * 24 * 60) + y
    tgtlut = ketthuc - batdau
    SetTask(62,GetTask(62)+tgtlut)
    SetTask(61,0)
    Msg2Player("Ban da ket thuc thoi gian Uy Thac")
    else 
    Talk(1,"","Ban khong o trong trang thai <color=red>Uy Thac<color>, khong the chon dung Uy Thac")
    end
    end;
     
    function no()
    end;
    function kttgtlut()
    tgtlut = GetTask(62)
    Msg2Player("Thoi gian Uy Thac tich luy Uy Thac cua ban hien gio la "..tgtlut.." phut")
    end;
    function dkndut()
    Say("De doi kinh nghiem, diem tu thoi gian <color=green>Tich Luy Uy Thac<color> ban can co <color= yellow>Lenh Bai Uy Thac<color>, tuy lenh bai se nhan duoc kinh nghiem, diem khac nhau",3,"Lenh Bai Uy Thac Thuong/lbutt","Lenh Bai Uy Thac Sieu Cap/lbutsc","Ta chi ghe tham thoi/no") 
    end;
    function lbutsc()
    Say("<color=green>Lenh Bai Uy Thac Sieu Cap<color> ban <color=yellow>Intem",1,"Ta biet roi/no")
    end;
    function lbutt()
    Say("Su dung moi <color=green>Lenh Bai Uy Thac Thuong<color>, ban co the doi duoc 8 gio tich luy uy thac ra diem, kinh nghiem, nguoi <color=yellow>Mua Intem cua sever<color> se nhan duoc kinh nghiem, diem gap 1,5 lan",2,"Su dung lenh bai/sdlb1","Ta chi ghe tham thoi/no")
    end;
    function sdlb1()
    lvknnd = {
    {60,300000}, 
    {80,600000}, 
    {100,800000}, 
    {120,1000000}, 
    {150,2400000}, 
    {160,3600000}, 
    {180,4500000}, 
    {200,6000000}, 
    }
    if (GetLevel() >= 50) then
    if (GetTask(62) >= 480) then
    if (HaveItem(235) == 1) then
    if (GetTask(237) == 100000) then
    utit = 3/2 
    else 
    utit = 1
    end
    if (GetLevel() <= lvknnd[1][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[1][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    elseif (GetLevel() <= lvknnd[2][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[2][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    elseif (GetLevel() <= lvknnd[3][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[3][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    elseif (GetLevel() <= lvknnd[4][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[4][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    elseif (GetLevel() <= lvknnd[5][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[5][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    elseif (GetLevel() <= lvknnd[6][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[6][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    elseif (GetLevel() <= lvknnd[7][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[7][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    elseif (GetLevel() <= lvknnd[8][1]) then
    SetTask(62,GetTask(62) - 480)
    DelItem(235)
    knyt = lvknnd[8][2] * utit
    for i=1,480 do
    AddOwnExp(knyt)
    end
    end
    else
    Talk(1,"","Ban khong co <color=red>Lenh Bai Uy Thac Thuong<color>")
    end
    else
    Talk(1,"","Ban khong du <color=red>8 gio Tich Luy Uy Thac<color>")
    end
    else
    Talk(1,"","Ban khong du <color=red>dang cap 50<color>")
    end
     
     
     
    end;


    Mấy cái vật phẩm Lệnh Bài các bạn add ra là được, cho vào 1 con NPC bán lệnh bài luôn.
    Mình viết cái này chỉ ủy thác trong năm thôi còn nếu thích ủy thác qua năm khác thì viết thêm năm nữa là ok thôi (cái này nếu để NV ủy thác qua gia thừa là lỗi ngay đó)
    Lần sửa cuối bởi Se7eN747, ngày 29-05-09 lúc 04:48 PM.
    VLTK, huyền thoại sẽ trở lại...

  2. #2
    I am Legend Se7eN747's Avatar
    Ngày tham gia
    Jun 2008
    Đang ở
    the library of jx & mu
    Bài viết
    257
    Thanks
    29
    Thanked 17 Times in 11 Posts

    Ðề: Spit ủy thác rời mạng.

    Thanks công post. Để về test thử xem
    Cung Cấp License Web NBB Full Chức Năng Giá chỉ 100k/Tháng có ưu đãi giảm giá và khuyến mãi mua 5 tháng tặng 1 tháng
    Yahoo : [Only registered and activated users can see links. ]
    [Only registered and activated users can see links. ]

  3. #3
    Thành Viên SaoPaulo1's Avatar
    Ngày tham gia
    May 2006
    Bài viết
    171
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Ðề: Spit ủy thác rời mạng.

    lâu ngày , giờ anh em cũng phát triển đến cái này lun, bái phục
    Khách viếng thăm hãy cùng SaoPaulo1 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #4
    Thành Viên thachlong78's Avatar
    Ngày tham gia
    Dec 2008
    Bài viết
    577
    Thanks
    0
    Thanked 265 Times in 68 Posts

    Ðề: Spit ủy thác rời mạng.

    Thực ra không có gì đâu bạn, tính thời gian bạt đầu ủy thác, và thời gian chọn kết thúc ủy thác thôi, vì thời gian ở máy tính có giờ, phút ,giây, ngày, tháng, năm, để cho đòng nhất thì đổi thời gian ra phút thôi, 1 năm có tầm 12*30*24*60 phút. Thực ra không biết nhiều lệnh phải lươn lẹo cách này.
    Cho hỏi có lệnh nào khiến khi mình giết ai đó là tăng điểm gì đó không, giờ chỉ biết spit đơn giản thôi. Biết chỉ mình nhé.
    VLTK, huyền thoại sẽ trở lại...

  5. #5
    I am Legend Se7eN747's Avatar
    Ngày tham gia
    Jun 2008
    Đang ở
    the library of jx & mu
    Bài viết
    257
    Thanks
    29
    Thanked 17 Times in 11 Posts

    Ðề: Spit ủy thác rời mạng.

    Cái này mình thấy na ná sciprt cắn cháo lạp bát ấy nhỉ ( nhưng là rời mạng ). Đã test thử
    Cung Cấp License Web NBB Full Chức Năng Giá chỉ 100k/Tháng có ưu đãi giảm giá và khuyến mãi mua 5 tháng tặng 1 tháng
    Yahoo : [Only registered and activated users can see links. ]
    [Only registered and activated users can see links. ]

  6. #6
    Thành Viên hongtu1's Avatar
    Ngày tham gia
    Oct 2008
    Bài viết
    663
    Thanks
    63
    Thanked 173 Times in 62 Posts

    Ðề: Spit ủy thác rời mạng.

    x = {
    {1,{0}},
    {2,{0,31}},
    {3,{0,31,29}},
    {4,{0,31,29,31}},
    {5,{0,31,29,31,30}},
    {6,{0,31,29,31,30,31}},
    {7,{0,31,29,31,30,31,30}},
    {8,{0,31,29,31,30,31,30,31}},
    {9,{0,31,29,31,30,31,30,31,31}},
    {10,{0,31,29,31,30,31,30,31,31,30}},
    {11,{0,31,29,31,30,31,30,31,31,30,31}},
    {12,{0,31,29,31,30,31,30,31,31,30,31,30}},
    }
    TL giải thích hộ mình cái hàm này dc ko.Theo như mình hiểu thì nó tương ứng với 12 tháng trong năm.Nhưg về hàm
    x={{},{},{}} thì mình ko hiểu lắm
    Khách viếng thăm hãy cùng hongtu1 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #7
    Thành Viên
    Ngày tham gia
    Sep 2006
    Bài viết
    71
    Thanks
    2
    Thanked 38 Times in 8 Posts

    Ðề: Spit ủy thác rời mạng.

    Sau khi mình chọn ủy thác rồi có thể out ra được hả. Hay là phải online mới nhận được điểm kinh nghiệm.
    Khách viếng thăm hãy cùng bacnam7287 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #8
    Thành Viên thachlong78's Avatar
    Ngày tham gia
    Dec 2008
    Bài viết
    577
    Thanks
    0
    Thanked 265 Times in 68 Posts

    Ðề: Spit ủy thác rời mạng.

    Out ra ban à vẫn được còn khác xa spit cắn cháo bạn à.Cắn cháo cơ bản nhất là settimer, còn cái này chỉ là tính toán đơn thuần không có gì phức tạp đâu, có chăng chỉ là ý tưởng thôi bạn à.
    Còn :
    abcd={{2,3},{4,5}}
    Là cách viết tắt chút thôi, cũng có nhiều ưu điểm riêng nữa theo mình hiểu có ngiax là gán cho abcd các giá trị.
    abcd[1] tức là chỉ gái trị vị trí 1 ở đây là {2,3}
    abcd[2] tức là chỉ gái trị vị trí 1 ở đây là {4,5}
    abcd[1][1] tức là giá trị ở vị trí 1 , 1 (có thể hiểu là giá trị ở vị trí 1 của abcd[1]) ở đây là giá trị 2
    abcd[1][2] ,abcd[2][1], abcd[2][2] cũng tương tự.
    Có thể lồng thêm nhiều ngoặc vào trong nữa, thì các giá trị sẽ là abcd[1][1][x][y].....

    Có thể ở trong ngoạc là 1 sâu kí tụ không hẳn cần là số mĩ, nhớ hi trong dấu " ",
    ví dụ
    abcd ={{"vua meo vua chuot"},{"la ta"}}
    VLTK, huyền thoại sẽ trở lại...

  9. #9
    Thành Viên
    Ngày tham gia
    Apr 2007
    Đang ở
    Hà Nội
    Bài viết
    36
    Thanks
    1
    Thanked 22 Times in 1 Post

    Ðề: Spit ủy thác rời mạng.

    ái chà!!!!
    very good!!!!!
    lâu lâu không vào 4rum.giờ xuất hiện thêm nhiều pro ghê ta
    trình độ viết script tiến bộ vượt bậc rùi đó.
    good good!!!
    Khách viếng thăm hãy cùng manhtuyen xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. #10
    Thành Viên
    Ngày tham gia
    Sep 2006
    Bài viết
    71
    Thanks
    2
    Thanked 38 Times in 8 Posts

    Ðề: Spit ủy thác rời mạng.

    Trích dẫn Gửi bởi manhtuyen [Only registered and activated users can see links. ]
    ái chà!!!!
    very good!!!!!
    lâu lâu không vào 4rum.giờ xuất hiện thêm nhiều pro ghê ta
    trình độ viết script tiến bộ vượt bậc rùi đó.
    good good!!!
    Đại ka cho em xin yahoo được không, em muốn hỏi cái Liên đấu của đại ka chút.
    Khách viếng thăm hãy cùng bacnam7287 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 
Trang 1 của 3 1 2 3 CuốiCuối

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 cắn cháo lạc bát !
    Bởi Mr.Rezo™ trong diễn đàn Scripts
    Trả lời: 15
    Bài viết cuối: 13-01-11, 02:00 AM
  3. Cách Thức Thêm Script cho NPC!
    Bởi Mr.Rezo™ trong diễn đàn Scripts
    Trả lời: 15
    Bài viết cuối: 08-08-10, 07:12 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à 10:48 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ệ.