Re-Bonjour,
Les changements effectuer :
1. Remplacer "GetTickCount_()" par "ElapsedMilliseconds()" --> [Il y en a environ 50]
2. Présentement le code original ne compile même pas, j'ai un "Accès Mémoire Invalide" sur la commande "DisplayTranslucentSprite()". Pour le faire fonctionner, j'ai dû faire
Code:
If StartSpecialFX()
DisplayTranslucentSprite(1,(scr_w-SpriteWidth(1)) >> 1,(scr_h - SpriteHeight(1)) >> 1, i)
StopSpecialFX()
EndIf
À noter que je fais afficher le Sprite centré à l'écran.
Problèmes :
1. LoadModule(1, "zik" + #PathSep +"0.mod") ne fonctionne pas, sous Linux, les extensions de fichier sont sensible à la casse. ".mod" est différent de ".MOD". Un petit coup de :
Code:
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
#PathSep = "\"
; Autres éléments spécifique à Windows
; ...
CompilerCase #PB_OS_Linux
#PathSep = "/"
; Autres éléments spécifique à Linux
; ...
CompilerCase #PB_OS_MacOS
#PathSep = "/"
; Autres éléments spécifique à MacOS
; ...
CompilerEndSelect
If ExamineDirectory(0, "zik", "*.MOD") <> 0
While NextDirectoryEntry(0) <> 0
FileName.s = DirectoryEntryName(0)
If Left(FileName, 1) <> "."
FilePart.s = StringField(FileName, 1, ".")
Extension.s = LCase(StringField(FileName, 2, "."))
RenameFile("zik" + #PathSep + FileName, "zik" + #PathSep + FilePart + "." + Extension)
EndIf
Wend
EndIf
Corrige le problème.
2. Le curseur ne bouge pas, c'est un bogue qui remonte à plusieurs mois sous Linux et il n'a pas été corrigé.
A+
Guimauve