\n";} if(!@include("../inc/sql.inc")){@myDie("SQL",2);} if(!@include("../inc/cnf.inc")){@myDie("CNF",2);} if(!@include("../inc/lang.inc")){@myDie("LANG",2);} if(!@include("../inc/sess.inc")){@myDie("SESS",2);} if(!in_array($hl, $AHL)){ $hl=$AHL[0]; } // --- GO ON --- if(!@include($ft_root."mod/tzolkin/_mayanames.inc")){@myDie("MayaNames",2);} $ndLabs=getHlLab('lb_moon,lb_day,lb_animalfig,lb_affirmation,lb_oracle,lb_guide,lb_antipode,lb_analogue,lb_occult,lb_tone,lb_seal,lb_13mooncal'); if(!@include($ft_root."inc/tzolkin_$hl.inc")){@myDie("Tzolkin.$hl",2);} if(!@include($ft_root."inc/date_$hl.inc")){@myDie("date.$hl",2);} if(!@include($ft_root."mod/tzolkin/_mudate.inc")){@myDie("MultyDate",2);} $ttKst=""; $ttKin=0; $crKin=0; $daYear=2013; $daYnr=217; // ------- Func. Tzolkin ------- $crGds=0; $gidsO=Array(); $a=10;$b=1;$c=19; for($g=0; $g<20; $g++){ $gidsO[$g]=Array($a, $b, $c); $a++;$b--;$c--; if($a>19){$a=0;} if($b<0){$b=19;} if($c<0){$c=19;} } function getAllDtInf($tm){ global $daYear, $daYnr, $MonthNr, $gidsO; $day = date("d",$tm); $month = date("m",$tm); $year = date("Y",$tm); if($month==2 && $day>28){$day=28;} // uhu :-) $daMyn=$daYnr; if($year>$daYear){ for($y=$daYear; $y<$year; $y++){ $daMyn+=105; if($daMyn>260){ $daMyn-=260; } } }else if($year<$daYear){ for($y=$daYear; $y>$year; $y--){ $daMyn-=105; if($daMyn<1){ $daMyn+=260; } } } $myKin = $day + $MonthNr[$month-1] + $daMyn; if($myKin>260){ $myKin-=260; } $myTcel=0; $myTone=0; $mySeal=0; $myColr=0; $cL=0; $Lc=0; $cT=1; $cS=1; $cC=0; for($t=0; $t<$myKin; $t++){ $myTone=$cT; $cT++; if($cT>13){$cT=1;} $mySeal=$cS; $cS++; if($cS>20){$cS=1;} $myColr=$cC; $cC++; if($cC>3){$cC=0;} $myTcel=$Lc; $cL++; if($cL>3){ $cL=0; $Lc++; if($Lc>4){$Lc=0;} } } if($mySeal>19){$mySeal=0;} // --- gidsen --- $gM=$mySeal; $gZ=$myTone; if($gZ == 2 || $gZ == 7 || $gZ == 12){$gM -= 8;}else if ($gZ == 3 || $gZ == 8 || $gZ == 13){$gM += 4;}else if ($gZ == 4 || $gZ == 9){$gM -= 4;}else if ($gZ == 5 || $gZ == 10){$gM += 8;} if($gM>19){$gM -= 20;}else if ($gM<0){$gM += 20;} $crGds = $gM; return Array($day,$month,$year,$myKin,$myTcel,$myTone,$mySeal,$myColr,$crGds); } list($day,$month,$year,$myKin,$myTcel,$myTone,$mySeal,$myColr,$crGds)=getAllDtInf($time); if($mySeal>19){$mySeal=0;} if($L<1){$crKin=$myKin;} function dagVanJaar($y, $m, $d) { $fid = mktime(0,0,0,1,1,$y); $nid = mktime(0,0,0,$m,$d,$y); return round(($nid-$fid)/86400); } $XMLout_ico ="$ht_root"."img/s/o$mySeal.jpg"; $XMLout_fnm =htmlentities($windColo[$myColr][0]." ".$ToneName[$myTone-1]." ".$SealName[$mySeal]); if(in_array($hl,Array('fr','it'))){ $XMLout_fnm =htmlentities($SealName[$mySeal]." ".$windColo[$myColr][0]." ".$ToneName[$myTone-1]); } $XMLout_mnm =htmlentities($ToneMaya[$myTone-1]." ".$SealMaya[$mySeal]); // -- 13 moons -- $gd=date("d",$time); $gm=date("m",$time); $gy=date("Y",$time); $stgMD = dagVanJaar($gy,7,26); $alD = dagVanJaar($gy+1, 12, 32); $maD = 1; $denD = dagVanJaar($gy, $gm, $gd); if($denD>$stgMD){ $maD += ($denD-$stgMD); }else if ($denD<$stgMD){ $maD += $alD+($denD-$stgMD); } $maan = ceil($maD/28); $dag = $maD-(($maan-1)*28); $cha = 0; for ($l=0; $l<7; $l++) {if(in_array($dag, $PlasmD[$l])){$cha = $l;}} if($maan>13){ $rwMoo="".setHlLab('lb_dayoutoftime').""; }else{ $rwMoo=$ndLabs['lb_moon']." $maan ".$ndLabs['lb_day']." $dag"; } $dow=date("w"); $guidy=""; if($iO>0){$guidy="\n