Ai sửa cái script dùm mình
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 9 của 9
  1. #1
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ai sửa cái script dùm mình


    function main()
    pt = random(1,250)
    if (pt == 101) then
    c = random(0,100)
    if c == 0 then
    AddItem(0,9,20,1,z,0,10)
    Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
    elseif c == 1 then
    AddItem(0,4,20,1,z,0,10)
    Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
    elseif c == 2 then
    AddItem(0,3,21,1,z,0,10)
    Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
    elseif c == 3 then
    AddItem(0,3,21,2,z,0,10)
    Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
    else
    AddOwnExp(500000)
    Msg2Player("Chuc Mung Ban Nhan Duoc 500k EXP !")
    end
    elseif (pt == 200) then
    z = random(0,31)
    AddEventItem(z)
    Msg2Player("Ban Nhan Duoc 1 Vat Pham Xin Chuc Mung !")
    else
    Earn(10000)
    AddOwnExp(500000)
    Msg2Player("Ban Nhan Duoc 1 Van Va 500k Exp Xin Chuc Mung !")
    end
    end
    Pro nào giúp mình cái này 15' nói chuyện 1 lần dc ko
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Amateur Editor kidcrazy187's Avatar
    Ngày tham gia
    May 2009
    Đang ở
    TP HCM
    Bài viết
    344
    Thanks
    76
    Thanked 317 Times in 73 Posts

    Ðề: Ai sửa cái script dùm mình

    Cái nì dùng auto click thế nào cũng ra trang bị Vô Danh , không thì lên cấp và tiền vù vù ... k có hàm liên quan thời gian sao chặn 15' đc
    P/S: SetTimer chạy file *.lua này cho đơn giản. Không thì dùng mảng thời gian ( => dài )

    [Only registered and activated users can see links. ]


  3. #3
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Ai sửa cái script dùm mình

    k ai giúp hết à
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #4
    Amateur Editor kidcrazy187's Avatar
    Ngày tham gia
    May 2009
    Đang ở
    TP HCM
    Bài viết
    344
    Thanks
    76
    Thanked 317 Times in 73 Posts

    Ðề: Ai sửa cái script dùm mình

    Trích dẫn Gửi bởi benop001 [Only registered and activated users can see links. ]
    k ai giúp hết à
    Xài hàm SetTimer hoặc là tonumber chuyển giờ,phút,giây gì đó rồi tạo 1 cái mảng (mảng dài hoặc rút gọn tùy cách lập trình) kết hợp với if ... then ...
    P/S : Xem thêm mấy cái trong script tống kim của mấy server share đó, rùi chế ra :T

    [Only registered and activated users can see links. ]


  5. #5
    [S]-[A]-[N]-[G] sangpronhat's Avatar
    Ngày tham gia
    Apr 2008
    Đang ở
    HCM
    Bài viết
    546
    Thanks
    9
    Thanked 82 Times in 27 Posts

    Ðề: Ai sửa cái script dùm mình

    Không cần dùng SetTimer đâu chỉ tiêu tiết kiệm mà ^^ !!
    Theo tôi thì bạn cho 1 cái hàm cộng giờ giống của Ủy thác nhé

    phut=tonumber(date("%M"))
    ìf GetMissionV(ID)<>0 then
    if phut-GetMissionV(ID) >= 15 then
    SetMissionV(ID,0)
    end
    else
    --Thực hiện lện main
    SetMissionV(ID,phut)
    end
    Soure game mobile full Unity3d mới nhất cập nhật liên tục
    Có share 1 số source free cho anh em học tập
    Click ngay
    [Only registered and activated users can see links. ]

  6. #6
    Amateur Editor kidcrazy187's Avatar
    Ngày tham gia
    May 2009
    Đang ở
    TP HCM
    Bài viết
    344
    Thanks
    76
    Thanked 317 Times in 73 Posts

    Ðề: Ai sửa cái script dùm mình

    Trích dẫn Gửi bởi sangpronhat [Only registered and activated users can see links. ]
    Không cần dùng SetTimer đâu chỉ tiêu tiết kiệm mà ^^ !!
    Theo tôi thì bạn cho 1 cái hàm cộng giờ giống của Ủy thác nhé

    phut=tonumber(date("%M"))
    ìf GetMissionV(ID)<>0 then
    if phut-GetMissionV(ID) >= 15 then
    SetMissionV(ID,0)
    end
    else
    --Thực hiện lện main
    SetMissionV(ID,phut)
    end
    Cái này mình thấy vẫn chưa ổn, SetMissionV(ID,phut) nằm đó thì cái Get với cái phút cứ tăng theo nhau ko >= 15 đc => chạy main hoài. (Tui sai thì bỏ qua nha )
    -- Dùng While ... do ... đi, chắc gọn hơn nữa á
    Lần sửa cuối bởi kidcrazy187, ngày 12-03-11 lúc 03:15 PM.

    [Only registered and activated users can see links. ]


  7. #7
    Amateur Editor kidcrazy187's Avatar
    Ngày tham gia
    May 2009
    Đang ở
    TP HCM
    Bài viết
    344
    Thanks
    76
    Thanked 317 Times in 73 Posts

    Ðề: Ai sửa cái script dùm mình

    Hôm nay rãnh đc vài fút viết dùm nè :
    Code:
    TaskNhanThuong = 70 -- Thí dụ 70 chẳng hạn
    
    function main()
    tgnt = 15 -- Thời gian nhận thưởng tính bằng phút
    phut = tonumber(date("%M"))
    tam = mod(phut,tgnt)
    pcl = abs(tgnt - tam)
    if tam == 0 then
        if GetTask(TaskNhanThuong) == 0 then
            nhanquatang() -- Tui lấy đại tên ví dụ
        else Say("<color="..colorS()..">Nhan Thuong<color> : Ban da nhan thuong roi nen khong the nhan thuong duoc nua !",0,"")
        end
    else 
        Say("<color="..colorS()..">Nhan Thuong<color> : Sau <color=red>"..pcl.."<color> phut hay quay lai nhe !",0,"")
        SetTask(TaskNhanThuong,0)
    end
    end
    
    function nhanquatang() -- Cái này là cái hàm main của chủ topic đó
    SetTask(TaskNhanThuong,1) -- Trước khi vào hàm thêm dòng này
    -- Thực hiện hàm
    end
    Về test thử coi
    Lần sửa cuối bởi kidcrazy187, ngày 13-03-11 lúc 01:59 PM.

    [Only registered and activated users can see links. ]


  8. Các thành viên gởi lời cảm ơn đến kidcrazy187 vì bài viết này !

    benop001 (13-03-11)

  9. #8
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Ai sửa cái script dùm mình

    Code:
    TaskNhanThuong = 70 -- Thí dụ 70 chẳng hạn
    
    function main()
    tgnt = 15 -- Thời gian nhận thưởng tính bằng phút
    phut = tonumber(date("%M"))
    tam = mod(phut,tgnt)
    pcl = abs(tgnt - tam)
    if tam == 0 then
        if GetTask(TaskNhanThuong) == 0 then
            nhanquatang() -- Tui lấy đại tên ví dụ
        else Say("<color="..colorS()..">Nhan Thuong<color> : Ban da nhan thuong roi nen khong the nhan thuong duoc nua !",0,"")
        end
    else 
        Say("<color="..colorS()..">Nhan Thuong<color> : Sau <color=red>"..pcl.."<color> phut hay quay lai nhe !",0,"")
        SetTask(TaskNhanThuong,0)
    end
    end
    
    function nhanquatang() -- Cái này là cái hàm main của chủ topic đó
    SetTask(TaskNhanThuong,1) -- Trước khi vào hàm thêm dòng này
    -- Thực hiện hàm
    end
    cái này đễ Include ra à hay thêm vào ~_~
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. #9
    Amateur Editor kidcrazy187's Avatar
    Ngày tham gia
    May 2009
    Đang ở
    TP HCM
    Bài viết
    344
    Thanks
    76
    Thanked 317 Times in 73 Posts

    Ðề: Ai sửa cái script dùm mình

    Trời =,=
    - Include thêm cái file sourcejx49.lua là đc rồi.
    - Cái mình viết là theo yêu cầu của bạn là 15' thực hiện hàm của bạn đó. Bạn thích để vào đâu tùy bạn chứ =,= Mình chú thích, đổi màu mè tùm lum cho dễ nhìn rùi đó =,=
    Xài đc thì Thanks cái

    [Only registered and activated users can see links. ]


  11. Các thành viên gởi lời cảm ơn đến kidcrazy187 vì bài viết này !

    benop001 (13-03-11)

 

 

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 Ủy Thác Rời Mạng
    Bởi Mr.Rezo™ trong diễn đàn Scripts
    Trả lời: 24
    Bài viết cuối: 10-06-10, 11:49 AM

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à 05:50 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ệ.