Ryzom

Code: Select all

IRL => IG :

// tableaux utilisés pour les chaines de caractères
$tabdays = array('Prima', 'Dua', 'Tria', 'Quarta', 'Quinteth', 'Holeth');
$tabmonths = array('Winderly', 'Germinally', 'Folially', 'Floris', 'Medis', 'Thermis', 'Harvestor', 'Frutor', 'Fallenor', 'Pluvia', 'Mystia', 'Nivia');
$tabseasons = array('Printemps', 'Eté', 'Automne', 'Hiver');
$tabcycles = array('1er', '2e', '3e', '4e');

$courant = time(); // date actuelle
$time = 1096171288; // date d'origine = probablement fausse :)

// calcul des secondes écoulées dans le jeu, 1 seconde IRL = 20 secondes IG 
$secondes = ($courant-$time) * 20;

// calcul des secondes pour l'heure IG	
$s = $secondes % 60;
$minutes = floor($secondes / 60);

// calcul des minutes pour l'heure IG, 60 secondes par minute
$i = $minutes % 60;
$heures = floor($minutes / 60);

// calcul des heures pour l'heure IG, 24 heures par jour	
$h = $heures % 24;
$jours = floor($heures / 24);

// calcul du jour pour la date IG, 30 jours par mois
$j = ($jours % 30)+1;
$mois = floor($jours / 30);

// calcul du mois pour la date IG, 12 mois par cycle
$m = ($mois % 12)+1;
$cycles = floor($mois / 12);

// calcul du cycle pour la date IG, 4 cycles par Année de Jena (JY)
$c = ($cycles % 4)+1;
$annees = floor($cycles / 4);

// calcul de l'année
$a = $annees + 2525;
	
// format de date complet
print $tabdays[$jours % 6].", ".$tabmonths[$mois % 12]." $j, ".$tabcycles[$cycles % 4]." CA $a (JY) à $h:$i:$s<br/>\n";

Code: Select all

IG => IRL :

$time = 1096171288; // date d'origine = probablement fausse :)

$jy = 2532; // Jena Year
$ac = 1; // Atys Cycles
$m = 1; // mois
$d = 25; // jour
$h = 0; // heures
$i = 0; // minutes
$s = 0; // secondes

// calcul des secondes écoulées IRL, 1 seconde IRL = 20 secondes IG 
$secondes = $time + ($s + 60 * ($i + 60 * ($h + 24 * (($d-1) + 30 * (($m-1) + 12 * (($ac-1) + ($jy-2525) * 4 )))))) / 20; 

print "Date IRL : ".date("d/m/Y \à H:i:s", $secondes)."<br/>\n";

Code: Select all

$AFR_large = DllStructCreate("int64")
$AFR_ulong = DllStructCreate("udword")

DllCall( "kernel32.dll", "none", "GetSystemTimeAsFileTime", _
	"ptr", DllStructGetPtr($AFR_large) )

$AFO_ret = DllCall( "ntdll.dll", "int", "RtlTimeToSecondsSince1970", _
	"ptr",DllStructGetPtr($AFR_large), _
	"ptr",DllStructGetPtr($AFR_ulong) )
$secondes = DllStructGetData($AFR_ulong, 1)

$downtime = (9 * 24 * 3600)		; 9 jours de downtime
	
$secondes -= 1095285600			; au 16/09/2004 1095285600 secondes depuis 00:00:00 1970-01-01 UTC
$secondes += $downtime
$minutes = $secondes / 60		
$heures = $minutes / 3			; 1 heure vaut 3 minutes (72 / 24)
$jours = $minutes / 72			; 1 jour est un jour (72 minutes soit 1h12) 
$semaines = $jours / 6			; 1 semaine est composée de 6 jours (432 minutes soit 7h12)
$mois = $semaines / 5			; 1 mois dure 5 semaines soit 30 jours (36 heures soit 1,5 jours temps réel)
$saisons = $mois / 3			; 1 saison dure 3 mois (108 heures soit 4,5 jours temps réel)
$cycles = $saisons / 4			; 1 cycle atysien (CA) dure 4 saisons soit 12 mois (2,57 semaines soit 18 jours temps réel)
$annees = Int( $cycles / 4 )	; 1 année de Jena (JY pour Jena Year) dure 4 cycles (2 mois temps réel)

$heures  = ( $jours - Int( $jours ) ) * 24
$minutes = ( $heures - Int( $heures ) ) * 60
$secondes = Int ( ( $minutes - Int( $minutes ) ) * 60 )
$heures = Int( $heures )
$minutes = Int( $minutes )

$cycles = Int( Mod( $cycles, 4 ) ) + 1
$saisons = Int( Mod( $saisons, 4 ) )+1
$mois = Int( Mod( $mois, 12 ) ) + 1
$jours = Int( Mod( $jours, 30 ) ) + 1
$nsemaines = Int( $jours / 6 )		; nombre de semaines révolues dans le mois en cours

$ryzomdate = "JY " & Number($annees + 2525) & " AC " & Number($cycles) & ", " & $AMois[$mois] & " (" & $ASaisons[$saisons] & ", " & $mois & "e mois), "	& $jours & " " & $AJours[$jours - ($nsemaines * 6)] & " (" & Number($jours - ($nsemaines * 6)) & "e jour de la semaine) - " & $heures & ":" & $minutes & ":" & $secondes
MsgBox(0, "Date Ryzom", $ryzomdate)