Tous les téléchargements de EpiTouille

Voilà les sources ainsi que les exécutables du Tetris developpé dans le cadre du défi pascal 2011.
(règlement)

Voila un jeu tout simple réalisé avec la SDL, un jeu de labyrinthe où Donkey Kong doit aller manger les bananes (j'ai volé l'idée sur un TP du sdz).
C'est un code commenté (150 lignes de commentaires sur 200 lignes de code), afin de proposer une initiation à la SDL sur un exemple concret.
Les images sont dans le zip, le code est compilé avec Free-Pascal.
Pour le faire marcher, assurez-vous de posséder les librairies de la SDL (les .dll sous Windows et les .so sous Linux).
Bonne lecture et faites moi part de vos avis.

Un jeu du Snake banal avec la SDL et compilé avec Lazarus sous Win XP.

Points Positifs :

• Gestion des événements, du son et de la SDL (pointeurs...) et algorithme du Snake;
• Programme structuré (je m'étais lancé dans la POO au début mais sans succès);
• Graphique pas mal :) fait sous Paint ^^ (c'est pas évident du 16x16 pixels sous Paint);
• La SDL est portable donc, logiquement, le code est portable.

Points à finir :

• Quand vous perdez, obligation de quitter pour relancer le jeu;
• Pas de gestion du score;
• Pas de gestion d'erreurs (s'il y a un problème, le programme se plante en utilisant les messages classiques de Windows);
• Pas de gestion du temps (au début, ... Voir la suite

Biblothèque permettant d'utiliser et de manipuler des listes chainée XOR.
Cette bibliothèque permet notament la création, suppression, recherche, trie .. des listes XOR.

J'ai également mis dans le zip les pages générée par Doxygène.

Contactez moi pour toutes suggestions

Une unité bien pratique qui contient les fonctions

function StringToInt(s : string) : integer;
function IntToString(i : integer) : string;
procedure fenetre(X1 : integer; Y1 : integer; X2 : integer; Y2 : integer); (fenetre a double bordure)
procedure dec(i : integer; a : integer); decrementer
procedure centrer(s : string; y : integer); centre une chaine pour un y donné
procedure instcolorln(i :string;e : byte;b : byte); couleur sur une ligne e=nouvelle couleur et b = ancienne couleur
procedure instcolor(i :string;e : byte;b:byte); la même chose sans aller à la ligne
procedure pleinecran;
function on_click_button(x1,y1,x2,y2:integer):boolean; a faire marcher ^^
pr ... Voir la suite

Défi Pascal 2014 - SSFirework

Description

SSFirework est un économiseur d'écran créé par Epitouille dans le cadre du défi pascal 2015. L'économiseur reproduit l'effet de feux d'artifices (firework) en utilisant un moteur de particules très léger.
Il utilise OpenGL et SDL pour le contexte et gère lui-même les évènements ce qui le rend autonome et multi-plateforme.
Le projet comporte 2 unités ainsi que le fichier source principal :

• UWindow.pas : unité permettant de gérer la fenêtre et ses interactions ;
• UFirework.pas : unité contenant la classe Firework et permettant de gérer un feu d'artifice ;
• main.pas : fichier source principal qui appelle la logique du jeu.

Con ... Voir la suite