Discussion :

[Mainopposee]

Bonsoir à tous,

Je commence tout juste à utiliser perl, je suis donc encore débutant.

Le but de mon truc c'est de créer un mini rpg (c'est pas moi qui l'ai voulu ^^). donc là pour l'instant je cherche à faire en sorte que lorsque l'utilisateur choisisse sa classe, la machine lui sorte un récapitulatif de ce qu'il a choisi. c'est à dire que je veux avoir un truc dans le genre au final:

"<Classe du perso>, <Caractéristiques du perso>"

Donc voici mon code que j'ai pour l'instant:

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
	my @character = ();
	print "Quel type de personnage souhaitez vous jouer ?\n";
	print "1 pour Elfe\n";	
	print "2 pour Orc\n";
	print "3 pour Nain\n";		
	print "4 pour Humain\n";
	$type=<STDIN>;	 
	chomp ($type);
	while ($type !=1 and $type !=2 and $type !=3 and $type !=4)
{	
	print "Classe pas disponible\n";
	print "Entrez à nouveau le type de personnage désiré:\n";
	$type= <STDIN>;
	chomp ($type);
}
 
	if ($type= "1")
{
	$character[0]= Elfe;
	$character[1]= 40;	
	$character[2]= 10;		
	$character[3]= 10;
}
	elsif ($type= "2")
{
	$character[0]= Orc;
	$character[1]= 10;	
	$character[2]= 40;		
	$character[3]= 10;
}
	elsif ($type= "3")
{
	$character[0]= Nain;
	$character[1]= 10;	
	$character[2]= 10;		
	$character[3]= 40;
}
	else ($type= "4")
{
	$character[0]= Humain;
	$character[1]= 20;	
	$character[2]= 20;		
	$character[3]= 20;
}
	print "Votre personnage: @character\n";

Il marche, pour même pas 10 lignes. Le problème c'est que, quelque soit la valeur que l'utilisateur rentre pour $type, la machine va au final me ressortir les résultats comme si j'avais rentré 1, et ce dans tout les cas.

Donc est ce que quelqu'un pourrait me dire où se trouve l'erreur, et comment la résoudre, parce que ça m'embete de bloquer déjà sur ça ^^

Merci d'avance et bonne soirée

[Mainopposee]

Oké en fait on peut fermer le topic, passer en use warning et réfléchir un peu m'a grandement aider à trouver l'erreur ^^

[Perl53]

déja dans les if c'est "==" et non "="