Discussion :

[Eric Boisvert]

Ben en dessous de ce commentaire je vais devoir réécrire le code avec lequel j'ai un problème, non?

effectivement...
et j'imagine que c'est avec ceci que tu positionne tes carottes non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
acar[1] := -1; bcar[1] := -1; ccar[1] := -1;
for i := 1 to MAX_CAROTTES-1  do
begin
   acar[i+1] := acar[i] - 1;
   bcar[i+1] := bcar[i];
   ccar[i+1] := ccar[i];
end;

Edit: J'ai oublié de préciser que j'ai dû demander à la fonction distance de me rendre un glfloat au lieu d'un integer car le cas contraire j'ai:

bon alors distance() retourne un single... et la constante est defini à 3.0...
c'est pourtant pas ce que dit ton message d'erreur...

verifie que distance() est bien comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
function distance(i: integer) : single; // ou extended ou glfloat
begin
  result := Power((a - acar[i]), 2) + Power((b - bcar[i]), 2) + Power((c - ccar[i]), 2);
end;

et que la constante est bien 0.0,1.0,2.0 ou 3.0....

[SpiceGuid]

Undeclared identifier Power.

, ou bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function Sqr(x:Extended):Extended;
begin
  Result := x * x
end;

Edit: grillé

[Eric Boisvert]

oui , ou bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function Sqr(x:Extended):Extended;
begin
  Result := x * x
end;

Ce serait pas un power(x,2) ca?

un sqr() c'est une racine carré non?

[User Name]

bon alors distance() retourne un single... et la constante est defini à 3.0...
c'est pourtant pas ce que dit ton message d'erreur...

verifie que distance() est bien comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
function distance(i: integer) : single; // ou extended ou glfloat
begin
  result := Power((a - acar[i]), 2) + Power((b - bcar[i]), 2) + Power((c - ccar[i]), 2);
end;

et que la constante est bien 0.0,1.0,2.0 ou 3.0....

Je viens de vérifier ça, j'ai bien mis que distance retourne un single et j'ai mis en plus les a,b,c en single et j'ai mis le 0 après virgule sur DISTANCE_MIN. Toujours le même message!

[User Name]

Bon y a juste un truc que je trouve louche:

a,b et c sont des GLFloat.

acar, bcar et ccar sont des array of integer.

Vous ne trouvez pas bizarre qu'il n'y ait rien à ce propos dans distance?
Comment est-ce que Delphi peut soustraire des integer à des GLFloat alors qu'il n'est pas foutu faire fonctionner ensemble des single et des integer???

[Eric Boisvert]

Delphi peut soustraitre des integer et des float sans problème...
la reponse sera automatiquement des float....
je crois qu'il nous manque d'autre information pour comprendre
ce qui se passe....

[User Name]

Je peux envoyer le .pas à qui me le réclame, mais je vous dis dès maintenant que vous verrez les pires horreurs de votre vie de programmeurs dedans, nous sommes une équipe de super débutants et notre projet est un peu fait à l'arrache...

Par contre, merci de ne vous attarder que sur le problème évoqué si vous prenez le .pas car on manque de temps pour terminer le projet. Merci.

[Eric Boisvert]

il y a une variable i global définit en single...
et je n'avais pas définit i en integer dans la fonction...

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
Procedure cars;
Const
  DISTANCE_MIN = 1; //<- ICI A toi de trouver la bonne valeur!
var
  i:integer;
Begin
  //== Verifie la distance avec chaqu'une des carottes ==
  For i := 1 To MAX_CAROTTES Do
  Begin
    If distance(i) <= DISTANCE_MIN Then
    Begin
      //Fait monter la carotte
      ccar[i] := ccar[i] + 7;
      //donne un point au joueur
      ate := ate + 1;
      //fait un bruit...
      FSOUND_PlaySound(7, burpsound);
      If ate >= MAX_CAROTTES Then Exit := 1;
    End;
  End;
End;

voilà

[User Name]

C'est bon ça marche, merci Eric pour ton aide. Seulement un dernier petit problème: Le jeu se referme tout de suite après compilation. Pourquoi?
Tu pourrais me donner un dernier petit coup de main puisque tu as mon .pas?
A noter que j'ai effacé cette partie:

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
25
26
27
28
29
30
31
32
//carottes
acar[1] := -1; bcar[1] := -1; ccar[1] := -1;
for i := 1 to 5 do
  begin
   acar[i+1] := acar[i] - 1;
   bcar[i+1] := bcar[i];
   ccar[i+1] := ccar[i];
   if ((a < acar[i] + 1.2) and (a > acar[i] + 0.8) and (b > bcar[i] - 0.2) and (b < bcar[i] + 0.2) and
      (c < ccar[i] + 1.1)) {and (c > ccar[i] - 0.1)} then //YIIIIIIIIIIHAAAA! CAROTTES, CA MARCHE!!!
     begin
        ccar[i] := ccar[i] + 7;
        //ccar[i+1] := ccar[i];
        FSOUND_PlaySound(6,burpsound);
        ate := ate + 1;
       end;
  end;
 
acar[6] := -3; bcar[1] := 2; ccar[1] := -1;
for i := 6 to 15 do
  begin
   acar[i+1] := acar[i] - 1;
   bcar[i+1] := 2;
   ccar[i+1] := -1;
   if ((a < acar[i] + 1.2) and (a > acar[i] + 0.8) and (b > bcar[i] - 0.2) and (b < bcar[i] + 0.2) and
      (c < ccar[i] + 1.1)) {and (c > ccar[i] - 0.1)} then //YIIIIIIIIIIHAAAA! CAROTTES, CA MARCHE!!!
       begin
        ccar[i] := ccar[i] + 7;
        //ccar[i+1] := ccar[i];
        FSOUND_PlaySound(6,burpsound);
        ate := ate + 1;
       end;
  end;

(vers la ligne 616).

[User Name]

Ca marche!
En fait il fallait juste que je fasse la distinction entre la boucle principale de jeu et ce que je dois initialiser avant, notamment remplissage_de_tableau.
Voilà, avec mes remerciements à quelqu'un qui se reconnaitra!