begin process at 2008 07 04 23:41:50
1 204 994 membres
509 nouveaux aujourd'hui
14 118 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

LE JEU PONG MAIS EN 2D


Information sur la source

Catégorie :Jeux Classé sous : pong2d, jeux, delphi, amusement, ordinateur Niveau : Initié Date de création : 25/02/2006 Date de mise à jour : 26/02/2006 14:47:04 Vu / téléchargé: 2 679 / 638

Note :
8 / 10 - par 2 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

mon code est un jeu pong !! vous pouvez jouer contre l'ordinateur !! ou à deux !! les touches pour le joueur1 les flèches haut bas et joueur2 les touches ctrl et shift !! vous pouvez choisir le jeu normal gagner trois sets pour remporter la partie en 11 points ou tout simplement choisir les points d'une partie !! il possède trois niveux de difficulté !!! des effets de sons ont été apportés !!! bon amusement !!
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

26 février 2006 14:27:30 :
correction d'un bug !! et on peut maintenant enlevé le son ou le mettre !!!
26 février 2006 14:47:04 :
correction de bug !!!
  • signaler à un administrateur
    Commentaire de f0xi le 03/03/2006 07:01:37 administrateur CS

    nombreuse optimisation a faire :




    remplacer de maniere generale :
    if (valeur = 1) or (valeur = 2) or (valeur = 3) or (valeur =4) then ok := true;
    if jouerordi = 1 then timerordi.Enabled := true;
    if nombrept.Checked = true then enbpt.Enabled := true;

    par :
    ok := (valeur in [1..4]);
    timerordi.Enabled := (jouerordi = 1);
    enbpt.Enabled := nombrept.Checked;
    ___________________________________

    grace a l'unité Math, remplacer d'une maniere generale :
    if (place1 >= 100) and (place1 <=200) and (place2>=100) and (place2 <= 200) then ok2 := true;

    par :
    ok2 := (inrange(place1,100,200) and inrange(place2,100,200));
    ___________________________________

    remplacer d'une maniere generale  :
    if valeur = 1 then
    begin
    cl1 := -4;
    cl2 := 4 ;
    end;
    if valeur = 2 then
    begin
    cl1 := 4;
    cl2 := 4 ;
    end;
    if valeur = 3 then
    begin
    cl1 := -4;
    cl2 := -4 ;
    end;
    if valeur = 4 then
    begin
    cl1 := 4;
    cl2 := -4 ;
    end;

    par :
    case Valeur of
      1 : begin cl1 :=-4; cl2 := 4; end;
      2 : begin cl1 := 4; cl2 := 4; end;
      3 : begin cl1 :=-4; cl2 :=-4; end;
      4 : begin cl1 := 4; cl2 :=-4; end;
    end;
    ___________________________________

    remplacer de maniere generale :
    while ok2 <> true do ...
    if btniv1.Checked = true then ...

    par :
    while not ok2 do ...
    if btniv1.Checked then ...
    ___________________________________

    remplacer :
    if contreordi.Checked = true then begin
    lordinateur.visible := true;
    lj2.Visible := false;
    end;

    par :
    lordinateur.visible := contreordi.Checked;
    lj2.Visible := not contreordi.Checked;
    ___________________________________

    remplacer (grace a l'unité math) :
    if ordi.Top <= 0 then ordi.Top := 0;
    if ordi.Top >= 240 then ordi.Top := 240;

    if joueur.Top <= 0 then joueur.Top:=0;
    if joueur.top >= 232 then joueur.Top:=232;

    par :
    ordi.Top := Max(Min(Ordi.Top, 240), 0);
    joueur.Top := Max(Min(Ordi.Top, 232), 0);
    ___________________________________

    voila ... bonne optimisations.

  • signaler à un administrateur
    Commentaire de djfeeler le 03/03/2006 10:12:51

    merci beaucoup !!! sinon tu en penses quoi de mon jeux ?

  • signaler à un administrateur
    Commentaire de tyazer95880 le 25/11/2006 16:57:33

    Moi, je n'arrive pas à faire démarrer le programme à cause d'une soit disant erreur.
    On m'indique qu'il y a une erreur avec 'messages' au début du programme...
    Quelqu'un pourrait-il m'aidé?

  • signaler à un administrateur
    Commentaire de Also know as le 01/05/2007 00:25:01

    Euh...
    Il est passé ou le jeu ainsi que ces sources ???

Ajouter un commentaire

Pub



Appels d'offres

Snippets en rapport

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS