/*
CustomDate
by Anachron
local CustomDate cd = CustomDate.create()
call cd.setTime(10, 0, 0) // Sets time to 10 am.
call cd.setDate(2010, 2, 2) // Sets the date to 2nd of January 2010
// Prints for example: 2nd of January 2010 - 10:00:00
call BJDebugMsg(cd.getDate("D") + " of " + cd.getDate("M y") + " - " + cd.getTime("H:M:S"))
call cd.addDays(2) // Will add 2 days to the current date
call cd.subMonths(2) // Will remove 2 months from the current date
// This will print: 4th of October 2009 - 10:00:00
call BJDebugMsg(cd.getDate("D") + " of " + cd.getDate("M y") + " - " + cd.getTime("H:M:S"))
*/
library CustomDate initializer init
globals
private array monthDays[12]
private array monthNames[12]
private array dayNames[12]
private string curFormat = null
endglobals
struct CustomDate
private integer second = 0
private integer minute = 0
private integer hour = 0
private integer day = 0
private integer month = 0
private integer year = 0
method operator s takes nothing returns integer
return .second
endfunction
method operator m takes nothing returns integer
return .minute
endfunction
method operator h takes nothing returns integer
return .hour
endfunction
method operator D takes nothing returns integer
return .day
endfunction
method operator M takes nothing returns integer
return .month
endfunction
method operator Y takes nothing returns integer
return .year
endfunction
public function setDate takes integer y, integer m, integer d returns nothing
set .year = y
set .month = m
set .day = d
endfunction
public function setTime takes integer h, integer m, integer s returns nothing
set .hour = h
set .minute = m
set .second = s
endfunction
private function subDay takes nothing returns nothing
set .day = .day -1
if .day < 0 then
set .month = .month -1
if .month < 0 then
set .month = 12
set .year = .year -1
endif
set .day = monthDays[.month] -1
endif
endfunction
private function addDay takes nothing returns nothing
set .day = .day +1
if .day >= monthDays[.month] then
set .day = 0
set .month = .month +1
if .month => 12 then
set .month = 0
set .year = .year +1
endif
endif
endfunction
public function addDays takes integer i returns nothing
loop
exitwhen i == 0
call .addDay()
set i = i -1
endloop
endfunction
public function subDays takes integer i returns nothing
loop
exitwhen i == 0
call .subDay()
set i = i -1
endloop
endfunction
public function addWeeks takes integer i returns nothing
loop
exitwhen i == 0
call .addDays(7)
set i = i -1
endloop
endfunction
public function subWeeks takes integer i returns nothing
loop
exitwhen i == 0
call .subDays(7)
set i = i -1
endloop
endfunction
public function addMonths takes integer i returns nothing
loop
exitwhen i == 0
call .addDays(monthDays[month])
set i = i -1
endloop
endfunction
public function subMonths takes integer i returns nothing
loop
exitwhen i == 0
call .subDays(monthDays[.month])
set i = i -1
endloop
endfunction
public function addYears takes integer i returns nothing
set year = year +i
endfunction
public function subYears takes integer i returns nothing
set year = year -i
endfunction
public function getDate takes string format returns string
local integer i = 0
local integer stop = StringLength(format)
local string s = null
set curFormat = null
loop
exitwhen i >= stop
set s = SubString(format, i, i +1)
if s == "d" then
if .day < 9 then
set curFormat = curFormat + "0"
endif
set curFormat = curFormat + I2S(.day)
elseif s == "D" then
set curFormat = curFormat + dayNames[.day] + I2S(.day)
elseif s == "m" then
if .month < 9 then
set curFormat = curFormat + "0"
endif
set curFormat = curFormat + I2S(.month)
elseif s == "M" then
set curFormat = curFormat + SubString(monthNames[.day], 0, 2)
elseif s == "N" then
set curFormat = curFormat + monthNames[.day]
elseif s == "y" then
set curFormat = curFormat + I2S(.year)
else
set curFormat = curFormat + s
endif
set i = i +1
endloop
set s = null
return curFormat
endfunction
public function getTime takes string format returns string
local integer i = 0
local integer stop = StringLength(format)
local string s = null
set curFormat = null
loop
exitwhen i >= stop
set s = SubString(format, i, i +1)
if s == "s" then
if .second < 9 then
set curFormat = curFormat + "0"
endif
set curFormat = curFormat + I2S(.second)
elseif s == "m" then
if .minute < 9 then
set curFormat = curFormat + "0"
endif
set curFormat = curFormat + I2S(.minute)
elseif s == "h" then
if .hour < 9 then
set curFormat = curFormat + "0"
endif
set curFormat = curFormat + I2S(.hour)
else
set curFormat = curFormat + s
endif
set i = i +1
endloop
set s = null
return curFormat
endfunction
endstruct
private function init takes nothing returns nothing
local integer i = 0
set monthDays[0] = 31
set monthDays[1] = 28
set monthDays[2] = 31
set monthDays[3] = 30
set monthDays[4] = 31
set monthDays[5] = 30
set monthDays[6] = 31
set monthDays[7] = 31
set monthDays[8] = 30
set monthDays[9] = 31
set monthDays[10] = 30
set monthDays[11] = 31
set monthNames[0] = "January"
set monthNames[1] = "February"
set monthNames[2] = "March"
set monthNames[3] = "April"
set monthNames[4] = "May"
set monthNames[5] = "June"
set monthNames[6] = "July"
set monthNames[7] = "August"
set monthNames[8] = "September"
set monthNames[9] = "October"
set monthNames[10] = "November"
set monthNames[11] = "December"
loop
exitwhen i >= 31
if i == 0 then
set dayNames[i] = "st"
elseif i == 1 then
set dayNames[i] = "nd"
elseif i == 2 then
set dayNames[i] = "rd"
else
set dayNames[i] = "th"
endif
endloop
endfunction
endlibrary
NewDay
Events
Player - Player 1 (Red) types a chat message containing -date as An exact match
Time - Elapsed game time is 5.00 seconds
Conditions
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
Set Day = 1
Wait 2.00 seconds
Game - Display to (All players) the text: ((|cff7777aaToday is + DayName[Day]) + (, + (MonthName[Month] + ( + ((String(Day)) + ( + ((String(Year)) + |r)))))))
Trigger - Run NewDay <gen> (ignoring conditions)
