IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Téléchargez Pascal Discussion :

Fairtris [Sources]


Sujet :

Téléchargez Pascal

  1. #1
    Robot Forum
    Avatar de forum
    Inscrit en
    novembre 1999
    Messages
    2 387
    Détails du profil
    Informations forums :
    Inscription : novembre 1999
    Messages : 2 387
    Points : 2 495
    Points
    2 495
    Par défaut Fairtris
    Bonjour,

    Je vous propose un nouvel élément à utiliser : Fairtris

    Clone de Tetris basé sur la bibliothèque SDL2.

    Nom : fairtris1.png
Affichages : 98
Taille : 8,3 Ko

    Nom : fairtris2.png
Affichages : 88
Taille : 7,9 Ko

    Qu'en pensez-vous ?

  2. #2
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    3 883
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 3 883
    Points : 13 907
    Points
    13 907
    Billets dans le blog
    8
    Par défaut
    Pour information, le jeu fonctionne aussi sous Linux. Il y a simplement une petite modification à faire, que l'auteur indique dans ce message.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    function TClock.GetCounterFrequency(): Int64;
    begin
      {$IFDEF WINDOWS}
      Result := 0;
      QueryPerformanceFrequency(Result);
      {$ELSE}
      Result := 1000000000;
      {$ENDIF}
    end;
     
    function TClock.GetCounterValue(): Int64;
    {$IFDEF UNIX}
    var
      Counter: TTimeVal;
    {$ENDIF}
    begin
      {$IFDEF WINDOWS}
      Result := 0;
      QueryPerformanceCounter(Result);
      {$ELSE}
      FPGetTimeOfDay(@Counter, nil);
      Result := Int64(Counter.tv_sec) * 1000000000 + Int64(Counter.tv_usec) * 1000;
      {$ENDIF}
    end;

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo