Patcheur des Sims

[Heis Spiter]

Pour ceux qui ont Les Sims et Windows XP, vous connaissez la galère pour lancer le jeu, etc... Ben voici un patch permettant de faire cequ'il ya d'écris dans la FAQ mais ce de facon autonome et rapide !

Code : Tout sélectionner

;###############################################################################
;# Patcheur pour les sims sous Windows XP par Heis Spiter                    #                                      #
;###############################################################################
Enumeration
  #ac3audio
  #iviaudio
EndEnumeration
OS = OSVersion() 
If OS <> #PB_OS_Windows_XP
  MessageRequester("Erreur", "Ce programme n'est fait que pour fonctionner sous Windows XP !", #MB_ICONERROR)
  End
EndIf  
System32$ = GetSysPath()
System32$ = System32$ + "\"
If ReadFile(#ac3audio, System32$ + "ac3audio.ax")
  CloseFile(#ac3audio)
  If RenameFile(System32$ + "ac3audio.ax", System32$ + "ac3audio.ax.bak")
    MessageRequester("Information", "Les Sims(tm) peux maintenant fonctionner sur votre ordinateur !", #MB_ICONINFORMATION)
  Else
    MessageRequester("Erreur", "Impossible de patcher 'ac3audio.ax'", #MB_ICONERROR)
    End
  EndIf
ElseIf ReadFile(#iviaudio, System32$ + "iviaudio.ax")
  CloseFile(#iviaudio)
  If RenameFile(System32$ + "iviaudio.ax", System32$ + "iviaudio.ax.bak")
    MessageRequester("Information", "Les Sims(tm) peux maintenant fonctionner sur votre ordinateur !", #MB_ICONINFORMATION)
  Else
    MessageRequester("Erreur", "Impossible de patcher 'iviaudio.ax'", #MB_ICONERROR)
    End
  EndIf
Else
  MessageRequester("Erreur", "Impossible de patcher votre version de DirectX ! Vérifiez qu'elle n'est pas déjà été patchée ou que votre version de DirectX est supérieur à la 7.", #MB_ICONERROR)
  End
EndIf
Reponse = MessageRequester("Question", "Désirez vous lancer Les Sims(tm) ?", #MB_ICONQUESTION)
If Reponse = #IdNo
  End
ElseIf Reponse = #IdYes
  Path$ = ReadStringfromRegistry(#HKEY_LOCAL_MACHINE,"SOFTWARE\Maxis\The Sims","SIMS_MUSIC")
  If RunProgram(Path$ + "Start.exe")
    End
  Else
    MessageRequester("Erreur", "Impossible de lancer Les Sims(tm) ! Assurez-vous d'avoir inseré votre CD dans le lecteur.", #MB_ICONERROR)
    End
  EndIf
EndIf

Pour ceux qui n'ont pas la librairie Setup, voici un lien de téléchargement direct : http://heisspiter.free.fr/Patch.exe