;-- Creates Weekly array table
if !$hget(FFXI.VanaDay) {
hmake FFXI.VanaDay 9
hadd FFXI.VanaDay n0 Fire
hadd FFXI.VanaDay n1 Earth
hadd FFXI.VanaDay n2 Water
hadd FFXI.VanaDay n3 Wind
hadd FFXI.VanaDay n4 Ice
hadd FFXI.VanaDay n5 Thunder
hadd FFXI.VanaDay n6 Light
hadd FFXI.VanaDay n7 Darkness
hadd FFXI.VanaDay n8 Fire
}
; -- Get's curent and vlocal time
var %vlocaltime = $calc((898 * 360 + 30) * 24 * 60 * 60 * 1000 / 25)
var %Bday = $calc($ctime(23/06/2002 8:00:03) * 1000 + %p.msec.inc)
var %diff = $calc(%vlocaltime - %Bday)
var %eTime = $calc($ctime * 1000 + %p.msec.inc)
; -- difference between earth time a Vanatime
var %vTime = $calc((%eTime + %Diff) * 25)
; -- calculates the year/month/day etc
var %vYear = $base($floor($calc(%vTime / (360 * 24 * 60 * 60 * 1000))),10,10,4)
var %vMon = $base($floor($calc((%vTime % (360 * 24 * 60 * 60 * 1000)) / (30 * 24 * 60 * 60 * 1000) + 1)),10,10,2)
var %vDate = $base($floor($calc((%vTime % (30 * 24 * 60 * 60 * 1000)) / (24 * 60 * 60 * 1000) + 1)),10,10,2)
var %vHour = $base($floor($calc((%vTime % (24 * 60 * 60 * 1000)) / (60 * 60 * 1000))),10,10,2)
var %vMin = $base($floor($calc((%vTime % (60 * 60 * 1000)) / (60 * 1000))),10,10,2)
var %vSec = $base($floor($calc((%vTime % (60 * 1000)) / 1000)),10,10,2)
var %vDay = $floor($calc((%vTime % (8 * 24 * 60 * 60 * 1000)) / (24 * 60 * 60 * 1000)))
; -- output text
var %VanaTxt = $+(%vYear,/,%vMon,/,%vDate,$chr(40),$hget(FFXI.VanaDay,$+(n,%vDay)),$chr(41)) $+(%vHour,:,%vMin,:,%vSec)
;-- appends output variable
%p.tb = %p.tb - $+([,%VanaTxt,])