[Débutant] Problème dans mon code
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:
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 :)
