[JX] Script Uỷ Thác!
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 6 của 6

Chủ đề: Script Uỷ Thác!

  1. #1
    Thành Viên
    Ngày tham gia
    May 2010
    Bài viết
    291
    Thanks
    50
    Thanked 355 Times in 69 Posts

    Script Uỷ Thác!

    Script ủy thác bà kon lấy mà tham khảo.
    --DarkMoon (10/25/13)
    -- 3:15 pm
    --Uy Thac
    -----------------------------------
    Include("\\script\\source\\lib_exp\\sum_exp_lib.lu a")
    Include("\\script\\source\\IOFile.lua")

    tbUyThac = {}
    tbUyThac.TASK =
    {
    BCH = 54,
    ONOFF = 83,
    DATE = 84,
    TIME = 85,
    DAYORNIGHT = 86,
    EXP = 87,
    HOUR = 88,
    MINUTE = 89,
    SECOND = 90,
    DAY = 91,
    MONTH = 92,
    YEAR = 93,
    BCH_LEFT = 94,
    MIN_UT = 95,
    }


    function tbUyThac:ChooseOption()
    local Option = {}
    local OptionOn = {}
    local OptionOff = {}
    tinsert(Option,"Ta muèn Uû Th¸c Online/UyThac")
    tinsert(Option,"Ta muèn Uû Th¸c Offline/UyThac")
    tinsert(Option,"KÕt thóc ®èi tho¹i/UyThac")
    tinsert(OptionOn,"Dõng Uû Th¸c Online/UyThacOn")
    tinsert(OptionOn,"KÕt thóc ®èi tho¹i/UyThacOn")
    tinsert(OptionOff,"NhËn Exp ñy th¸c offline/UyThacOff")
    tinsert(OptionOff,"KÕt thóc ®èi tho¹i/UyThacOff")
    if (GetFightState() == 1) then Say("HiÖn t¹i ng*¬i ®ang trong tr¹ng th¸i chiÕn ®Êu, kh«ng thÓ ®i vµo tr¹ng th¸i rêi m¹ng ñy th¸c ®*îc, xinh h·y trë l¹i tr¹ng th¸i phi chiÕn ®Êu sau ®ã h·y tiÕn hµnh rêi m¹ng ñy th¸c nhÐ.",1,"KÕt thóc ®èi tho¹i/Cancel") return end
    local Exp_Show = tbUyThac:CalExp()
    local Exp_TIMES_BY_MINUTES = GetTask(self.TASK.MIN_UT) * tbUyThac:ExpByLevel()
    if (Exp_Show > 0) then SetTask(self.TASK.EXP,Exp_Show) end
    local Str = "ñy th¸c bao gåm Online vµ Offline. HiÖn b¹n cã : "..GetTask(self.TASK.BCH).." phót ñy th¸c, ng*¬i muèn chän chøc n¨ng ñy th¸c nµo?"
    local StrOn = format("B¾t ®Çu ñy th¸c Online: <color=fire>%d/%d/%d - %d:%d:%d<color>\nB¹ch CÇu Hoµn: %d phót\nExp %d phót Uû Th¸c: %d",
    GetTask(self.TASK.DAY),
    GetTask(self.TASK.MONTH),
    GetTask(self.TASK.YEAR),
    GetTask(self.TASK.HOUR),
    GetTask(self.TASK.MINUTE),
    GetTask(self.TASK.SECOND),
    GetTask(self.TASK.BCH),
    GetTask(self.TASK.MIN_UT),
    GetTask(self.TASK.EXP))
    local StrOff = format("B¾t ®Çu ñy th¸c Offline: <color=fire>%d/%d/%d - %d:%d:%d<color>\nB¹ch CÇu Hoµn: %d phót\nExp Uû Th¸c cña %d phót: %d",
    GetTask(self.TASK.DAY),
    GetTask(self.TASK.MONTH),
    GetTask(self.TASK.YEAR),
    GetTask(self.TASK.HOUR),
    GetTask(self.TASK.MINUTE),
    GetTask(self.TASK.SECOND),
    GetTask(self.TASK.BCH),
    GetTask(self.TASK.MIN_UT),
    GetTask(self.TASK.EXP))
    if (GetLevel() < 50) then Talk(1,"","§¼ng cÊp cña c¸c h¹ kh«ng ®ñ ®Ó tham gia chøc n¨ng ñy th¸c. Yªu cÇu ®¼ng cÊp 50 trë lªn.") return end
    if (GetTask(self.TASK.TIME) == 0) then
    SayNew(Str,getn(Option),Option)
    else
    if (GetTask(self.TASK.ONOFF) == 1) then -- on
    SayNew(StrOn,getn(OptionOn),OptionOn)
    return
    end
    SayNew(StrOff,getn(OptionOff),OptionOff)
    end
    end

    Cancel = function()
    end

    UyThac = function(nsel)
    local Sec = nsel + 1
    if (Sec == 1) then tbUyThac:Online() return end
    if (Sec == 2) then tbUyThac:Offline() return end
    if (Sec == 3) then return end
    end

    function tbUyThac:Online()
    if (GetTask(self.TASK.BCH) == 0) then Talk(1,"","Yªu cÇu b¹n ph¶i sö dông B¹ch CÇu Hoµn") return end
    local Hour,Minute,Second = tonumber(date("%H")),tonumber(date("%M")),tonumber (date("%S"))
    local nDate,month,year = tonumber(date("%d")),tonumber(date("%m")),tonumber (date("%y"))
    local StartTime = nDate*24*3600 + Hour *3600 + Minute*60 + Second
    SetTask(self.TASK.TIME,StartTime)
    SetTask(self.TASK.DATE,nDate)
    SetTask(self.TASK.ONOFF,1)
    SetTask(self.TASK.DAY,nDate)
    SetTask(self.TASK.MONTH,month)
    SetTask(self.TASK.YEAR,year)
    SetTask(self.TASK.HOUR,Hour)
    SetTask(self.TASK.MINUTE,Minute)
    SetTask(self.TASK.SECOND,Second)
    tbUyThac:SetAmOrPm(Hour)
    SetOffline(1)
    SayNew("B¾t ®Çu ñy th¸c Online: <color=fire>"..nDate.."/"..month.."/"..year.." - "..Hour..":"..Minute..":"..Second.." <color><enter>(Chó ý: Di chuyÓn qua c¸c Thµnh ThÞ + C¸c khu vùc train + Logout ra khái game sÏ bÞ mÊt hiÖu lùc)",0)
    end

    function tbUyThac:Offline()
    if (GetTask(self.TASK.BCH) == 0) then Talk(1,"","Yªu cÇu b¹n ph¶i sö dông B¹ch CÇu Hoµn") return end
    local Hour,Minute,Second = tonumber(date("%H")),tonumber(date("%M")),tonumber (date("%S"))
    local nDate,month,year = tonumber(date("%d")),tonumber(date("%m")),tonumber (date("%y"))
    local StartTime = nDate*24*3600 + Hour *3600 + Minute*60 + Second
    SetTask(self.TASK.TIME,StartTime)
    SetTask(self.TASK.DATE,nDate)
    SetTask(self.TASK.DAY,nDate)
    SetTask(self.TASK.MONTH,month)
    SetTask(self.TASK.YEAR,year)
    SetTask(self.TASK.HOUR,Hour)
    SetTask(self.TASK.MINUTE,Minute)
    SetTask(self.TASK.SECOND,Second)
    tbUyThac:SetAmOrPm(Hour)
    SetTask(self.TASK.ONOFF,2)
    OutGame(1)
    end

    function tbUyThac:FunctLogOut()
    if (GetTask(self.TASK.ONOFF) == 1) then
    local Exp = tbUyThac:CalExp()
    if (Exp == 0) then tbUyThac:ResetTask() return end
    local BCH_LEFT = GetTask(self.TASK.BCH_LEFT)
    AddUp_Exp.CongDon(Exp)
    SetTask(self.TASK.BCH,BCH_LEFT)
    tbUyThac:ResetTask()
    WriteLog("dulieu/Activity/uythac/Exp_Uy_Thac.txt",format("Ngµy: %d/%d/%d giê: %d:%d:%d nh©n vËt: %s ®¼ng cÊp %d ®· nhËn ®*îc %d Exp",tonumber(date("%d")),tonumber(date("%m")),to n umber(date("%y")),tonumber(date("%H")),tonumber(da te("%M")),tonumber(date("%S")),GetName(),GetLevel ( ),Exp))
    end
    end

    function tbUyThac:IsVisible()
    if (GetTask(self.TASK.ONOFF) == 1) then
    return 1
    elseif (GetTask(self.TASK.ONOFF) == 2) then
    return 2
    end
    end

    function tbUyThac:SetAmOrPm(hour)
    if hour >= 1 and hour <= 12 then
    SetTask(self.TASK.DAYORNIGHT,1)
    else
    SetTask(self.TASK.DAYORNIGHT,2)
    end
    end

    UyThacOn = function(nsel)
    local Sec = nsel + 1
    if (Sec == 2) then return end
    local Exp = tbUyThac:CalExp()
    if (Exp == 0) then Talk(1,"","Thêi gian ñy th¸c kh«ng ®ñ ®Ó ®æi kinh nghiÖm.") tbUyThac:ResetTask() return end
    AddUp_Exp.CongDon(Exp)
    SetTask(54,GetTask(94))
    tbUyThac:ResetTask()
    WriteLog("dulieu/Activity/uythac/Exp_Uy_Thac.txt",format("Ngµy: %d/%d/%d giê: %d:%d:%d nh©n vËt: %s ®¼ng cÊp %d ®· nhËn ®*îc %d Exp",tonumber(date("%d")),tonumber(date("%m")),to n umber(date("%y")),tonumber(date("%H")),tonumber(da te("%M")),tonumber(date("%S")),GetName(),GetLevel ( ),Exp))
    end

    UyThacOff = function(nsel)
    local Sec = nsel + 1
    if (Sec == 2) then return end
    local Exp = tbUyThac:CalExp()
    if (Exp == 0) then Talk(1,"","Thêi gian ñy th¸c kh«ng ®ñ ®Ó ®æi kinh nghiÖm.") tbUyThac:ResetTask() return end
    AddUp_Exp.CongDon(Exp)
    SetTask(54,GetTask(94))
    tbUyThac:ResetTask()
    WriteLog("dulieu/Activity/uythac/Exp_Uy_Thac.txt",format("Ngµy: %d/%d/%d giê: %d:%d:%d nh©n vËt: %s ®¼ng cÊp %d ®· nhËn ®*îc %d Exp",tonumber(date("%d")),tonumber(date("%m")),to n umber(date("%y")),tonumber(date("%H")),tonumber(da te("%M")),tonumber(date("%S")),GetName(),GetLevel ( ),Exp))
    end

    function tbUyThac:CalExp()
    local Hour,Minute,Second = tonumber(date("%H")),tonumber(date("%M")),tonumber (date("%S"))
    local nDate,month,year = tonumber(date("%d")),tonumber(date("%m")),tonumber (date("%y"))
    local CurTime = nDate*24*3600 + Hour *3600 + Minute*60 + Second
    local OldTime = GetTask(self.TASK.TIME)
    local OldDay = GetTask(self.TASK.DATE)
    local Exp_UyThac = tbUyThac:ExpByLevel()
    local TotalMinUyThacHave = GetTask(self.TASK.BCH)
    local Total_Exp_Get = 0
    if (OldDay == nDate) then
    if (CurTime > OldTime) then
    local GetSecondUyThac = CurTime - OldTime
    local GetMinuteUyThac = tbUyThac:ConverSecondToMinute(GetSecondUyThac)
    if (OldTime == 0) then GetMinuteUyThac = 0 end
    if (GetMinuteUyThac == 0) then return Total_Exp_Get end
    SetTask(self.TASK.MIN_UT,GetMinuteUyThac)
    Total_Exp_Get = tbUyThac:AwardExpToPlayer(GetMinuteUyThac,TotalMin UyThacHave,Exp_UyThac)
    return Total_Exp_Get
    end
    else
    local GetSecondUyThac = CurTime - OldTime
    local GetMinuteUyThac = tbUyThac:ConverSecondToMinute(GetSecondUyThac)
    if (OldTime == 0) then GetMinuteUyThac = 0 end
    if (GetMinuteUyThac == 0) then return Total_Exp_Get end
    SetTask(self.TASK.MIN_UT,GetMinuteUyThac)
    Total_Exp_Get = tbUyThac:AwardExpToPlayer(GetMinuteUyThac,TotalMin UyThacHave,Exp_UyThac)
    return Total_Exp_Get
    end
    end

    function tbUyThac:AwardExpToPlayer(nMin_UyThac,nMin_BCH,nEx p)
    local Cal_Exp,Cal_Min_Left = 0,0
    local Min = 0
    local Min_BCH_Left = 0
    if (nMin_UyThac > nMin_BCH) then
    Cal_Min_Left = nMin_UyThac - nMin_BCH
    Min = nMin_BCH
    elseif (nMin_UyThac < nMin_BCH) then
    Cal_Min_Left = nMin_BCH - nMin_UyThac
    Min_BCH_Left = Cal_Min_Left
    else
    Cal_Min_Left = 0
    end
    SetTask(self.TASK.BCH_LEFT,Min_BCH_Left)
    if (Cal_Min_Left == 0 or Min > 0) then
    Cal_Exp = nMin_BCH*nExp
    return Cal_Exp
    end
    if (Min == 0) then
    Cal_Exp = nMin_UyThac*nExp
    return Cal_Exp
    end
    end

    function tbUyThac:ResetTask()
    SetTask(self.TASK.TIME,0)
    SetTask(self.TASK.ONOFF,0)
    SetTask(self.TASK.DATE,0)
    SetTask(self.TASK.EXP,0)
    SetTask(self.TASK.DAY,0)
    SetTask(self.TASK.MONTH,0)
    SetTask(self.TASK.YEAR,0)
    SetTask(self.TASK.HOUR,0)
    SetTask(self.TASK.MINUTE,0)
    SetTask(self.TASK.SECOND,0)
    SetTask(self.TASK.MIN_UT,0)
    SetOffline(0)
    end

    function tbUyThac:ConverSecondToMinute(nSecond)
    local nMinute = 0
    if (nSecond >= 60) then
    nMinute = floor(nSecond/60)
    return nMinute
    end
    return nMinute
    end

    function tbUyThac:ExpByLevel()
    local Level = GetLevel()
    if (Level >= 50 and Level < 80) then
    return 20*100
    elseif (Level >= 80 and Level < 150) then
    return 1000
    elseif (Level >= 150) then
    return 800
    end
    end
    500 hình đây.
    [Only registered and activated users can see links. ]

    [Only registered and activated users can see links. ]

    [Only registered and activated users can see links. ]

    nguồn maze-gamevn
    Khách viếng thăm hãy cùng hichay xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. The Following 2 Users Say Thank You to hichay For This Useful Post:

    khungboktvn (14-08-14), lzlsky301 (28-02-14)

  3. #2
    Thành Viên
    Ngày tham gia
    Feb 2013
    Bài viết
    170
    Thanks
    30
    Thanked 73 Times in 35 Posts

    Ðề: Uỷ Thác!

    có ai hướng dẫn mình sử dụng thế nào không ?,làm sao để đưa nó vào hoạt động trong server vậy
    Khách viếng thăm hãy cùng gac0n1988 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #3
    Thành Viên lzlsky301's Avatar
    Ngày tham gia
    Nov 2011
    Đang ở
    The Moon
    Bài viết
    366
    Thanks
    85
    Thanked 230 Times in 76 Posts

    Ðề: Uỷ Thác!

    - Script này chỉ mang tính chất tham khảo chứ không thể làm mì ăn liền được đâu bạn
    Khách viếng thăm hãy cùng lzlsky301 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #4
    Thành Viên MinYeuVy's Avatar
    Ngày tham gia
    Sep 2011
    Bài viết
    275
    Thanks
    93
    Thanked 38 Times in 23 Posts

    Ðề: Uỷ Thác!

    Trích dẫn Gửi bởi lzlsky301 [Only registered and activated users can see links. ]
    - Script này chỉ mang tính chất tham khảo chứ không thể làm mì ăn liền được đâu bạn
    Vãi cả "tbUyThac:ChooseOption"
    Khách viếng thăm hãy cùng MinYeuVy xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. #5
    Thành Viên Long.MR's Avatar
    Ngày tham gia
    Aug 2013
    Bài viết
    143
    Thanks
    16
    Thanked 48 Times in 25 Posts

    Ðề: Uỷ Thác!

    Trích dẫn Gửi bởi lzlsky301 [Only registered and activated users can see links. ]
    - Script này chỉ mang tính chất tham khảo chứ không thể làm mì ăn liền được đâu bạn
    Sky này là sky giả đấy bà con ạ

    --- Chế độ gộp bài viết ---

    Trích dẫn Gửi bởi MinYeuVy [Only registered and activated users can see links. ]
    Vãi cả "tbUyThac:ChooseOption"
    vãi cả team




    Không dùng mod you trong bài viết!
    Khách viếng thăm hãy cùng Long.MR xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #6
    Thành Viên killer20099's Avatar
    Ngày tham gia
    Apr 2012
    Đang ở
    Binh Duong Province
    Bài viết
    548
    Thanks
    188
    Thanked 178 Times in 126 Posts

    Ðề: Uỷ Thác!

    Trích dẫn Gửi bởi Long.MR [Only registered and activated users can see links. ]
    Sky này là sky giả đấy bà con ạ

    --- Chế độ gộp bài viết ---



    vãi cả team killer20099
    cái đậu anh còn ko biết nó là ai nữa đó ku Long
    Khách viếng thăm hãy cùng killer20099 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [TLBB] Help Script Npc đổi vàng
    Bởi Superman trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 6
    Bài viết cuối: 28-08-12, 05:35 PM
  2. [JX] Một script nho nhỏ
    Bởi DarkOfTheMoon trong diễn đàn Scripts
    Trả lời: 3
    Bài viết cuối: 20-07-12, 01:31 PM
  3. 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
  4. Giúp mình với. Thư mục Script không nhận
    Bởi cagevn trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 08-09-10, 08:34 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à 11:33 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ệ.