odoborn

Verfasste Forenbeiträge

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)
  • Autor
    Beiträge
  • als Antwort auf: Probleme mit Hangman #43137
    odoborn
    Teilnehmer

    Grazie mille,

    es funktioniert!

    als Antwort auf: Probleme mit Hangman #43132
    odoborn
    Teilnehmer
    global ratewort,buchstabe,fehler
    
    on ermittleWort
       put "Autobahn Zahnbürste Fotografie Waldmeister Hundeleine Oberarzt Fensterbrett Lautsprecher" into wortliste
       put the number of words of wortliste into anzahl
       put random(anzahl) into zufall
       put word zufall of wortliste into ratewort
       put toUpper (ratewort) into ratewort
       put 0 into fehler
       set the icon of btn "hangman" to empty
    end ermittleWort
    
    on zeileAnzeigen
       put empty into fld "dasWort"
       repeat for each char c in ratewort
          put "_ " after fld "dasWort"
       end repeat
    end zeileAnzeigen
    
    on auswertung
       put the mousechar into buchstabe
       if buchstabe is in ratewort then
          buchstabeZeigen
       else
          galgenZeichnen
       end if
       endauswertung
    end auswertung
    
    on buchstabeZeigen
       put the number of chars of ratewort into anzahl
       repeat with x = 1 to anzahl
          if (char x of ratewort) = buchstabe then
             put buchstabe into char (x*2-1) of fld "dasWort" 
          end if
       end repeat
    end buchstabeZeigen
    
    on galgenZeichnen
       add 1 to fehler
       set the icon of btn "hangman" to the id of img ("hangman"&fehler)
    end galgenZeichnen
    
    on endauswertung
       if fehler = 6 then
          answer "Leider gescheitert! Das richtige Wort war : "&ratewort
       end if
       if "_" is not in fld "dasWort" then
          answer "Glückwunsch! Das Wort ist komplett!"
       end if
    end endauswertung
    
    on openStack
       ermittleWort
       zeileAnzeigen
    end openStack
    als Antwort auf: Probleme mit Hangman #43129
    odoborn
    Teilnehmer

    Danke für den Tipp. Klappt leider nicht, ich probiers weiter.

Ansicht von 3 Beiträgen - 1 bis 3 (von insgesamt 3)