Discussion :

[forum]

Bonjour,

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

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





Qu'en pensez-vous ?

[Roland Chastain]

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;