Build 163

RaoulInterface/main.pas

@@ -185,7 +185,9 @@ procedure TMainForm.DelayedStartTimer(Sender: TObject);
       else BootDelayed.Enabled := True
   end;
   { --- Si éventuellement l'avertissement est ouvert }
-  TSplashWaitForm.SplashHide
+  TSplashWaitForm.SplashHide;
+  { --- Vérifie la cohérence de EyeXMouse pour la visu }
+  TAppComplementUpdater.Process;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);

RaoulInterface/uRaoulUpdater.pas

@@ -28,6 +28,15 @@   TAppUpdater = class
     class function TryGrammarUpdate:Boolean;
   end;
 
+  TAppComplementUpdater = class
+  private
+    function  LocalFilenameExists(const AFileName: string; const InFolder: string): Boolean;
+    function  LoadEyeXFile(const AFileName: string): Boolean;
+    procedure UpdateEyeXMouse;
+  public
+    class procedure Process;
+  end;
+
 function RaoulKey: string;
 
 implementation
@@ -92,6 +101,11 @@ procedure FileReplace(const OldName, NewName: string);
   Delay(50);
 end;
 
+function LocalAppFolder: string;
+begin
+  Result := ExtractFileDir(Application.ExeName)
+end;
+
 function GrammarFolder:string;
 begin
   Result := Format('%s\Grammar', [ExtractFileDir(Application.ExeName)])
@@ -102,6 +116,11 @@ function GrammarWebFolder:string;
   Result := Format('%s/raoul/grammar', [UrlForUpdate])
 end;
 
+function EyeXWebFolder:string;
+begin
+  Result := Format('%s/raoul/eyexmouse', [UrlForUpdate])
+end;
+
 type
   TGrUpdateAction = (gua_none, gua_partial, gua_full);
 
@@ -212,4 +231,40 @@ class procedure TAppUpdater.TryToUpdate;
   end
 end;
 
+{ TAppComplementUpdater }
+
+function TAppComplementUpdater.LoadEyeXFile(const AFileName: string): Boolean;
+begin
+  Result := TWebTools.DownloadFromHttp(
+    Format('%s/%s', [EyeXWebFolder,  AFileName]) ,
+    Format('%s\%s', [LocalAppFolder, AFileName]) );
+end;
+
+function TAppComplementUpdater.LocalFilenameExists(const AFileName: string; const InFolder: string): Boolean;
+var
+  FileName: string;
+begin
+  if InFolder = EmptyStr then FileName := Format('%s\%s', [ExtractFileDir(Application.ExeName), AFileName])
+    else FileName := Format('%s\%s\%s', [ExtractFileDir(Application.ExeName), InFolder, AFileName]);
+  Result :=  FileExists(FileName)
+end;
+
+class procedure TAppComplementUpdater.Process;
+begin
+  with TAppComplementUpdater.Create do
+  try
+    UpdateEyeXMouse;
+  finally
+    Free
+  end
+end;
+
+procedure TAppComplementUpdater.UpdateEyeXMouse;
+begin
+  if not LocalFilenameExists('Tobii.EyeX.Client.dll', '') then
+    LoadEyeXFile('Tobii.EyeX.Client.dll');
+  if not LocalFilenameExists('EyeXMouse.exe', '') then
+    LoadEyeXFile('EyeXMouse.exe');
+end;
+
 end.

bin/Help/OdysseyRoot.roo

@@ -0,0 +1,22 @@
+Au sol#"G�n�ral";"Utiliser un Tobii";"Piloter le tobii vocalement"
+Au sol Mouvements#"Avancer";"Reculer";"Stopper";"Avancer par incr�ments";"Reculer par incr�ments";"Lat�ral par incr�ments"; 
+Au sol Mouvements snpier#"G�n�ral";"T�te mouvement horizontal";"T�te mouvement vertical"
+Gestuelle#"Courrir";"Marcher";"S'accroupir";"Sauter";"Viser mettre en joue";"Corps � corps"
+Actions#"La torche";"La vision nocturne";"Le bouclier";"Niveau d'accr�ditation"
+les armes#"S�lection";"Tirer";"Tir continu";"Tir en rafale";"Stopper le tir";"Recharger";"Rengainer"
+les outils#"Energiseur";"Analyseur profil";"Arc cutter";"Mode outils";"Utilisation"
+les grenades#"S�lection";"Lancer";"Macros"
+Utiliser un consommable#"M�dikit";"Cellule d'�nergie"
+Interactions primaires#"Pr�sentation";"Commandes";"Sp�cialisation"
+Interactions secondaires#"liste"
+Macro : La Fuite#"En avant";"En arri�re"
+Macro : L'ascenseur#"Pr�sentation/commandes"
+Macro : Le d�placement#"Initier un d�placement";"D�placement en combat"
+Macro : Embarquer#"Pr�sentation/commandes"
+Macro : PNJ interaction#"Pr�sentation/commandes"
+Macro : Frontline#"Pr�sentation";"Primes";"Enr�lement"
+Macro : Boutique d'armes#"Pr�sentation";"Le stock";"Les consommables"
+Macro : Mode sniper#"Pr�sentation/Commandes"
+Au sol modes#"Carte de la galaxie";"Carte du syst�me";"Panneau de communication";"Menu insight";"Panneau de stat de combat"
+Tobii manager#"Mise en route";"Pause";"Configuration combat";"Configuration station";"Configuration explo";"Configuration arc cutter";"Configuration divers 1";"Configuration divers 2";"mode menu"
+Tobii configuration#"Charger la visu";"R�gler la sensibilit�";"R�gler la pr�cision";"Sauver un r�glage"

bin/session.txt

@@ -1,3 +1,4 @@
 oui
 hey fumier referme-toi
+hey fumier affiche la version
 r�veille-toi