Author Topic: ACPC, Auto Clan Privacy Changer  (Read 711 times)

ArticWolve

  • Global Moderators
  • Hero Member
  • *****
  • Posts: 636
    • View Profile
    • http://
ACPC, Auto Clan Privacy Changer
« on: November 05, 2008, 04:37:07 PM »
This plugin was originally made by The-Black-Ninja, but she forgot to separate the checking timer into two parts: The Open and Closing timers.

[div class='codetop']CODE[/div][div class='codemain' style='height:200px;white-space:pre;overflow:auto']'ACPC
'1.1
'& Automated Clan Privacy Changer:The-Black-Ninja; Modified by Shadow
'&
'&
'& This script will Open and Close your clan channel at pre-set times. This is also integrated into ACFD by Shadow.

'// 24-hour time breakdown:
'//  Time        Setting          |        Time        Setting
'//  Midnight    0:00:00         |      12 = Noon    12:00:00
'//  1AM        1:00:00         |      13 = 1PM        13:00:00
'//  2AM        2:00:00         |      14 = 2PM        14:00:00
'//  3AM        3:00:00       |      15 = 3PM        15:00:00
'//  4AM        4:00:00         |      16 = 4PM        16:00:00
'//  5AM        5:00:00          |      17 = 5PM        17:00:00
'//  6AM        6:00:00       |      18 = 6PM        18:00:00
'//  7AM        7:00:00          |      19 = 7PM        19:00:00
'//  8AM        8:00:00        |      20 = 8PM        20:00:00
'//  9AM        9:00:00          |      21 = 9PM        21:00:00
'//  10AM        10:00:00      |      22 = 10PM    22:00:00
'//  11AM        11:00:00      |      23 = 11PM     23:00:00
'// Change these settings for the clan opening and closing times!
'// Time to open channel
Public Const ACPC_time_open = 7
'// Time to close channel
Public Const ACPC_time_close = 22

Sub ACPC_Event_Load()

    TimerInterval "ACPC", "CheckTimeOpen", 1
    TimerEnabled "ACPC", "CheckTimeOpen", False
    TimerInterval "ACPC", "CheckTimeClose", 1
    TimerEnabled "ACPC", "CheckTimeClose", True

End Sub

Sub ACPC_CheckTimeOpen_Timer()

h = hour(time)
m = minute(time)
s = second(time)

    If Int(h) = ACPC_time_open AND Int(h) < ACPC_time_close AND Int(m) = 0 AND Int(s) = 0 Then
        Command BotVars.Username, "/c public", True
        AddQ "[ACPC] Clan is now Public"
        TimerEnabled "ACPC", "CheckTimeOpen", False
        TimerEnabled "ACPC", "CheckTimeClose", True
    End If
   
End Sub

Sub ACPC_CheckTimeClose_Timer()

h = hour(time)
m = minute(time)
s = second(time)

    If Int(h) = ACPC_time_close AND Int(h) > ACPC_time_open AND Int(m) = 0 AND Int(s) = 0 Then
        Command BotVars.Username, "/c private", True
        AddQ "[ACPC] Clan is now Private"
        TimerEnabled "ACPC", "CheckTimeOpen", True
        TimerEnabled "ACPC", "CheckTimeClose", False
    End If

End Sub[/div]
« Last Edit: November 08, 2008, 12:28:59 PM by Shadow »
Quote
Darker then the darkest shade of night...
    A Rebel at heart... A criminal by mind
    All in the eyes of the beholder... is the truth to life
    But Th---The Only---The One and Only True Master of Death is the Reaper itself
[/color]
[/color]
[div align=\'center\'][img]http://img261.imageshack.us/img261/9411/mydesktopce6.jpg\" border=\"0\" class=\"linked-sig-image\" /][img]http://www.danasoft.com/sig/238153.jpg\" border=\"0\" class=\"linked-sig-image\" /][/div]                     [div align=\'center\']    Click ME for my forums. You know you want to click ME. Come on CLICK ME DAMN IT! But don't click THIS!![/div]