[R] Système d'avatar

[floriande26]

Comme certains l'on su , blacksoul305 et moi travaillons sur un projet de Mini RPG ...

Sachant que blacksoul n'est pas souvent connecté je ne pas lui faire pars de mon problème alors je m'adresse à vous
Voila une partie du code

Code : Tout sélectionner

$Nom = IniRead(@ScriptDir &"\saves\log.ini","Personnage","Nom",0)
$Photo = _Avatar(IniRead(@ScriptDir &"\saves\log.ini","Personnage","Avatar",0))
$Pic1 = GUICtrlCreatePic($Photo, 56, 80, 153, 169)
$Label4 = GUICtrlCreateLabel($Nom, 64, 48, 141, 29)
GUICtrlSetFont(-1, 14, 800, 0, "Segoe UI")
 

Et la fonction que j'ai créer pour trouver l'avatar

Code : Tout sélectionner

Func _Avatar($Avatar)
    If $Avatar = "DarkVador" Then
        $Photo = @ScriptDir & "\images\faces\drkvd.jpg"
        Return $Photo
    ElseIf $Avatar = "Anakin" Then
        $Photo = @ScriptDir & "\images\faces\anakin.jpg"
        Return $Photo
    ElseIf "Obiwan" Then
$Photo = @ScriptDir & "\images\faces\obiwan.jpg"
        Return $Photo
    ElseIf $Avatar = "Windou" Then
    $Phot = @ScriptDir & "\images\faces\windou.jpg"
        Return $Photo
    ElseIf $Avatar = "Cloud" Then
        $Photo =@ScriptDir & "\images\faces\cloud.jpg"
        Return $Photo
    ElseIf $Avatar = "Sephiroth" Then
    $Photo = @ScriptDir &  "\images\faces\sephi.jpg"
        Return $Photo
    ElseIf $Avatar = "Rude" Then
        $Photo = @ScriptDir &  "\images\faces\rude.jpg"
        Return $Photo
    ElseIf $Avatar = "Reno" Then
        $Photo = @ScriptDir &  "\images\faces\reno.jpg"
        Return $Photo
    ElseIf $Avatar = "Naruto" Then
        $Photo = @ScriptDir &  "\images\faces\naruto.jpg"
        Return $Photo
    ElseIf $Avatar = "Sasuke" Then
        $Photo = @ScriptDir &  "\images\faces\sasuke.jpg"
        Return $Photo
    ElseIf $Avatar = "Sakura" Then
        $Photo = @ScriptDir &  "\images\faces\sakura.jpg"
        Return $Photo
    ElseIf $Avatar = "Kakashi" Then
        $Photo = @ScriptDir &  "\images\faces\kakashi.jpg"
        Return $Photo
    ElseIf $Avatar = "Itachi" Then
        $Photo = @ScriptDir &  "\images\faces\itachi.jpg"
        Return $Photo
    ElseIf $Avatar = "Kisame" Then
        $Photo = @ScriptDir &  "\images\faces\kisame.jpg"
        Return $Photo
    ElseIf $Avatar = "Bulbizar" Then
        $Photo = @ScriptDir &  "\images\faces\bulbizar.jpg"
        Return $Photo
    ElseIf $Avatar = "Salamèche" Then
        $Photo = @ScriptDir &  "\images\faces\salameche.jpg"
        Return $Photo
    ElseIf $Avatar = "Carapuce" Then
        $Photo = @ScriptDir &  "\images\faces\carapuce.jpg"
        Return $Photo
    ElseIf $Avatar = "Pikachu" Then
        $Photo = @ScriptDir &  "\images\faces\pikachu.jpg"
        Return $Photo
    EndIf

EndFunc
 

Voila la fonction me renvoi toujours la même image , celle de Obiawan, alors que je voit pas ma faute

Si quelqu'un pourrais m'aider et me dire car même après de longues ré-lecture je trouve pas ma faute
Rien ne vaut un conseil ou une vision neutre
Merci d'avance
Si je trouve avant je posterais mon résultat

[alex1205]

Bonjour,

Au lieu de :

Code : Tout sélectionner

    ElseIf "Obiwan" Then
$Photo = @ScriptDir & "\images\faces\obiwan.jpg"
        Return $Photo

Essaie

Code : Tout sélectionner

    ElseIf $Avatar = "Obiwan" Then
$Photo = @ScriptDir & "\images\faces\obiwan.jpg"
        Return $Photo

Parce que Obiwan sera vrai à tout les coups.
Et tu as oublié le "o" à

Code : Tout sélectionner

    ElseIf $Avatar = "Windou" Then
    $Phot[color=#FF0000]o[/color] = @ScriptDir & "\images\faces\windou.jpg"
        Return $Photo

Voilà, en espèrant t'avoir aidé.

[mikell]

Un peu d'optimisation te simplifierait la vie (en donnant le même nom aux images qu'aux avatars)

Code : Tout sélectionner

Dim $noms[...] = ["DarkVador", "Anakin", "Obiwan", ...etc]
$imagepath = @ScriptDir & "\images\faces\"

Func _Avatar($Avatar)
For $i = 0 to UBound($noms)-1
    If $Avatar = $noms[$i] Then
        $Photo = $imagepath & $noms[$i] & ".jpg"
        Return $Photo
    EndIf
Next
EndFunc

[floriande26]

ElseIf $Avatar = "Obiwan" Then

Ah oui effectivement j'avais oublié de remettre la variable
Merci sinon pour le "o" de Photo je l'avasi corrigéer déjà

et merci a mikell même si je préfère ne pas utiliser de arrays

[GaRydelaMer]

bonjour,

et pour plus de clarté dans ton code un Switch Case serait plus lisible

Code : Tout sélectionner

Local $Photo = @ScriptDir & "\images\faces\"
Switch $Avavatar
    Case "Obiwan"
        $Photo &= "obiwan.jpg"
    ...
    Case Else
        $Photo &= "no_avatar.jpg"
End Swicth
Return $Photo

[floriande26]

Code : Tout sélectionner

Local $Photo = @ScriptDir & "\images\faces\"
Switch $Avavatar
    Case "Obiwan"
        $Photo &= "obiwan.jpg"
    ...
    Case Else
        $Photo &= "no_avatar.jpg"
End Swicth
Return $Photo

Pas bête j'y ai pas penser merci quand même
GaryDeLaMer tu es nouveau? Je t'ai jamais vu répondre ou créer des topics

[mikell]

GaryDeLaMer tu es nouveau? Je t'ai jamais vu répondre ou créer des topics

GaRydelaMer
Modérateur
Inscription: Mer 18 Mar 2009 23:12
Messages: 315

Vachement nouveau

[floriande26]

GaRydelaMer
Hors ligne
Modérateur
Modérateur
Inscription: Mer 18 Mar 2009 22:12
Messages: 40
Age: 40

Localisation: Montpellier

Sa me met ça , et 40 messages c’est nouveau pour un modo

[mikell]

http://www.autoitscript.fr/forum/member ... ile&u=1510