Discussion :

[Pack_of_the_Night]

Bonjour à tous, notre team est en train de développer un petit jeu en pascal et nous avons un problème dans une procédure. Nous devons comparer 2 strings avec une structure if mais problème : le compilateur renvoie comme erreur que les strings ne sont pas des valeurs booléennes, ce que nous savons. Comment fait-on pour valider ces strings ?

merci de votre aide

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
procedure Cheat_code;
begin
   vide_ecran;
   case langue of
     1:writeln('Please enter your cheat code');
     2:writeln('S''il-vous-plait entrer votre code de triche');
   end;
   readln(entercheat);
   entercheat:=uppercase(entercheat);
   if (entercheat):=(all_guns) then choix = 1
   else if (entercheat):=(gods) then choix = 2
        else if (entercheat):=(clip) then choix = 3
             else choix = 0;
   vide_ecran;
   case langue of
     1:
       begin
         case choix of
           1:
             begin
               cheaton.all_gun:=1;
               writeln('!!! LOCK AND LOADED !!!');
             end;
           2:
             begin
               cheaton.god:=1;
               writeln('You are now as powerful as the gods');
             end;
           3:
             begin
               cheaton.clipping:=1;
               writeln('Walls are now made of air...hehehe');
             end;
           else writeln('!!! INVALID CHEAT CODE !!!')
       end;
       end;
     2:
       begin
         case choix of
           1:
             begin
               cheaton.all_gun:=1;
               writeln('Vous etes pret et tres bien equipper');
             end;
           2:
             begin
               cheaton.god:=1;
               writeln('Vous etes aussi puissant que les Dieux');
             end;
           3:
             begin
               cheaton.clipping:=1;
               writeln('Les murs ne sont plus un obstacle pour vous...hehehe');
             end;
           else writeln('!!! CODE DE TRICHE INVALIDE !!!')
       end;
   end;
  //potnkfa      : All gun
  //potndqd      : God
  //potnSPISPOPD : No clipping
end;
end;

[Clandestino]

Je vois surtout une grosse erreur dans la syntaxe de ce type d'expressions :

if (entercheat):=(all_guns) then choix = 1

il faudrait plutot ecrire...

if a=b then c:=valeur...

[Alcatîz]

Bonjour et bienvenue !

C'est juste que vous confondez l'instruction d'assignation := avec l'opérateur = !
En les intervertissant dans la portion de code

Code :

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

1
2
3
4
if (entercheat):=(all_guns) then choix = 1 
   else if (entercheat):=(gods) then choix = 2 
        else if (entercheat):=(clip) then choix = 3 
             else choix = 0;

ça devrait mieux compiler...

Tiens, ce sont des cheat-codes d'un jeu d'Id Software, non ?