Ein kleines HangMan

[glkgereon]

Hi

ich habe in letzter Zeit ein kleines Hangman programmiert.

Was dieses Programm macht sollte bekannt sein...Ein normales HangMan-Ratespiel eben

Was kann dieses Programm was andere Event. nicht können/haben/sind?

• Einfach zu bearbeitende Wortliste
• komplett anpassbare Zeichnung (siehe Draw.txt)
• Es ist selbstgeschrieben :)
• Es ist komplett Objektorientiert

Der Source kommt, sobald ich ihn etwas durchkommentiert hab...

ihr könnt ja mal was damit rumspielen...und natürlich Bugs und verbesserungen posten!

vielleicht hat ja auch einer ne Idee wie man es optisch etwas ansprechender machen könnte? da bin ich nämlich immer zu faul mir was zu überlegen :(

Fixed:

• Hangman wird gelöscht
• Neue Runde-Button
• Fehler-Handling bei fehlender Datei
• Buttons werden Enabled bei neuer Runde
• AV bei Fehlender Datei
• Fehler bei neuer Runde

Add:

• Hintergrundfarbe
• Farbe für einzelne Elemente
• Rahmenfarbe
• Füllen von Elementen
• Skins
• Auswahl: Zeichnung oder Bilder

Und Jetzt endlich hänge ich auch mal meinen Quellcode an..ihr dürft mich jetzt auseinandernehmen :)

[freak4fun]

So auf den ersten Blick: Du solltest den Hangman wieder weg machen, wenn man das Wort erraten hat und ein neues kommt. ;)

MfG
freak

[glkgereon]

Upps...da fehlte wohl ein Clear;....lade sofort neu hoch....

[Thorben77]

Morgen.

Ein paar kleine Fehler/Verbesserungsvorschläge:

• Bau noch einen Button für eine neue Runde ein.
• Der Galgen sollte wieder verschwinden, wenn man gewonnen hat. (Hat sich erledigt.)
• Und vielleicht nch ein bisschen Farbe rein :wink:
• Das Programm sollte nicht starten, wenn die Wörterliste und die andere Datei nicht vorhanden sind.

MfG

[glkgereon]

erstmal danke für die anregungen
[quote="Thorben77"]

Zitat:

Zitat von Thorben77

Bau noch einen Button für eine neue Runde ein.

Gute idee...

Zitat:

Zitat von Thorben77

Und vielleicht nch ein bisschen Farbe rein :wink:

Da tu ich mir wie gesagt immer was schwer mit.
Was soll farbig werden?
wie farbig?

Zitat:

Zitat von Thorben77

Das Programm sollte nicht starten, wenn die Wörterliste und die andere Datei nicht vorhanden sind.

hmpf, vergessen, is jetzt drin :)

[Thorben77]

Zitat:

Zitat von glkgereon

Was soll farbig werden?
wie farbig?

Überleg dir was :idea: :wink: Kannst z. B. den Hintergrund der Zeichenfläche weiß und den Galgen blau machen. Das könnte man ja auch in der "Draw.txt" selber festlegen können.

-----

Das mit der neuen Runde funktioniert noch nicht so ganz:

• Der Galgen verschwindet immer noch nicht, wenn man gewonnen hat.
• Die Buchstaben-Buttons werden nicht "geenabled".

-----

Wenn die beiden Dateien fehlen, kommt zwar eine Fehlermeldung, aber das Programm startet trotzdem und man kann es dann nicht ohne Gewalt beenden :wall: .

MfG

[glkgereon]

Zitat:

Zitat von Thorben77

Zitat:

Zitat von glkgereon

Was soll farbig werden?
wie farbig?

Überleg dir was :idea: :wink: Kannst z. B. den Hintergrund der Zeichenfläche weiß und den Galgen blau machen. Das könnte man ja auch in der "Draw.txt" selber festlegen können.

ja, das wär ne idee....

Zitat:

Zitat von Thorben77

Das mit der neuen Runde funktioniert noch nicht so ganz:

• Der Galgen verschwindet immer noch nicht, wenn man gewonnen hat.
• Die Buchstaben-Buttons werden nicht "geenabled".

das erste konnte ich nicht feststellen :?:
das zweite stimmt, is gefixt

Zitat:

Zitat von Thorben77

Wenn die beiden Dateien fehlen, kommt zwar eine Fehlermeldung, aber das Programm startet trotzdem und man kann es dann nicht ohne Gewalt beenden :wall: .

hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier :twisted:

[Thorben77]

Zitat:

Zitat von glkgereon

das erste konnte ich nicht feststellen :?:

Nicht? Hm, also wenn ich ein Wort erraten habe, kommt "You won", das Wort verschwindet aus dem Edit, aber der Galgen nicht. :gruebel:

Zitat:

Zitat von glkgereon

hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier :twisted:

Das könntest du schon in der Projektdatei machen, bevor das Fenster überhaupt erstellt wir, dann brauchst du auch kein Terminate:

Delphi-Quellcode:

program HangMan;

uses
  Forms,
  SysUtils,
  YourUnit in 'YourUnit.pas' {YourForm};

begin
  if FileExists(ExtractFilePath(ParamStr(0)) + 'Draw.txt') then
  begin
    Application.Initialize;
    Application.CreateForm(TYourForm, YourForm);
    Application.Run;
  end
  else
    // Die Fehlermeldung...
end.

Mir ist noch aufgefallen, dass nach den Start unten keine Unterstriche in dem Edit sind :wink:

MfG

[glkgereon]

[quote="Thorben77"]

Zitat:

Zitat von glkgereon

das erste konnte ich nicht feststellen :?:

Nicht? Hm, also wenn ich ein Wort erraten habe, kommt "You won", das Wort verschwindet aus dem Edit, aber der Galgen nicht. :gruebel: [quote="Thorben77"]
Ooops, jetzt seh ichs auch...gefixed

Zitat:

Zitat von Thorben77

Zitat:

Zitat von glkgereon

hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier :twisted:

Das könntest du schon in der Projektdatei machen, bevor das Fenster überhaupt erstellt wir, dann brauchst du auch kein Terminate:

Delphi-Quellcode:

program HangMan;

uses
  Forms,
  SysUtils,
  YourUnit in 'YourUnit.pas' {YourForm};

begin
  if FileExists(ExtractFilePath(ParamStr(0)) + 'Draw.txt') then
  begin
    Application.Initialize;
    Application.CreateForm(TYourForm, YourForm);
    Application.Run;
  end
  else
    // Die Fehlermeldung...
end.

stimmt....ginge auch

Zitat:

Zitat von Thorben77

Mir ist noch aufgefallen, dass nach den Start unten keine Unterstriche in dem Edit sind :wink:

stimmt, bei der rumbastelei mit der Fehlermeldung wegen der Dateien hab ich da weas vertauscht...wird gefixt...

[BrunoT]

Hi

ich habe eine Fehlermeldung erhalten, sobald ich einen falschen Buchstaben angeklickt habe. :mrgreen:

[glkgereon]

Zitat:

Zitat von BrunoT

Hi

ich habe eine Fehlermeldung erhalten, sobald ich einen falschen Buchstaben angeklickt habe. :mrgreen:

du musst mal deine Draw.txt updaten ;)
da ist ne neue Eigenschaft "Color" hinzugekommen, die in deiner Version der Datei offensichtlich noch nicht drin ist....

Edit:
Bitte grundsätzlich immer bei ner neuen Version erst mal in die Draw.txt gucken ob sich was verändert hat :)

[glkgereon]

Es ist eine neue Version raus...

man kann Skins machen, sowie Statt der Zeichnungen auch Bilder einfügen.

Ich hoffe ihr findet keine großen Bugs ^^


vielleicht macht sich ja mal einer die Mühe und bastelt ein nettes Skin.

Wer will kann auch eine 4MB-Wortliste haben dazu. ist sogar "Dropkick" und "Lippenspalte" drin :lol:


noch mehr vorschläge?

[Luckie]

Zitat:

---------------------------
Hangman
---------------------------
Eine dringend benötigte Datei (WordList.txt oder Draw.txt) konnte nicht gefunden werden.
Stellen sie die Dateien wieder her um dieses Programm zu benutzen.
---------------------------
OK
---------------------------

Beide dateien sind aber nach dem entpacken des Archives mit Verzeichnisstruktur vorhanden. Wordlist.txt im Anwendungsverzeichnis und die Draw.txt im Verzeichnis Skins/Test. Auch ein kopieren der datei Draw.txt in das Anwendungsverzeichnis hat nichts geholfen.

[glkgereon]

Zitat:

Zitat von Luckie

Zitat:

---------------------------
Hangman
---------------------------
Eine dringend benötigte Datei (WordList.txt oder Draw.txt) konnte nicht gefunden werden.
Stellen sie die Dateien wieder her um dieses Programm zu benutzen.
---------------------------
OK
---------------------------

Beide dateien sind aber nach dem entpacken des Archives mit Verzeichnisstruktur vorhanden. Wordlist.txt im Anwendungsverzeichnis und die Draw.txt im Verzeichnis Skins/Test. Auch ein kopieren der datei Draw.txt in das Anwendungsverzeichnis hat nichts geholfen.

hmm...man sollte nie dateien löschen ohne es danach noch mal zu testen
ausserdem hat sich noch eine leere WordList eingeschlichen.

bitte ein paar wörter in die Liste einfügen, zb:

Zitat:

woerterbuch
taschentuch
lautsprecher
aktenordner

und in der Settings.txt "Aktuell" in "Test" ändern...


oder einfach in 2 minuten eine neue version nehmen :)

[Luckie]

Jetzt geht es, oder aber auch nicht:

Zitat:

---------------------------
Hangman
---------------------------
You Lost!!!
It was "W O E R T E R B U C H "
---------------------------
OK
---------------------------

Nach dem ich auf das "E" geklickt hatte. Wie soll man mit einem Versuch mit einem Buchstaben das Wort erraten können? Passiert wohl nur, wenn der erste Buchstabe, den man anklickt auch om Wort vorkommt. Fange ich mit einem Buchstaben an, der nicht vorkommt, scheint es zu gehen.

[PierreB]

Zitat:

Nach dem ich auf das "E" geklickt hatte. Wie soll man mit einem Versuch mit einem Buchstaben das Wort erraten können? Passiert wohl nur, wenn der erste Buchstabe, den man anklickt auch om Wort vorkommt. Fange ich mit einem Buchstaben an, der nicht vorkommt, scheint es zu gehen.

War bei mir erst auch so, mit nem Klick auf "Neue Runde" ging es dann aber richtig.

//Edit: Nach zweimal neu gestarteter Runde ging es auch wenn der erste Buchstaben drin vorkommt, jetzt aufeinmal bekom ich wieder diesen You Lost - Fehler... :gruebel:

[glkgereon]

Zitat:

Zitat von Luckie

Nach dem ich auf das "E" geklickt hatte. Wie soll man mit einem Versuch mit einem Buchstaben das Wort erraten können? Passiert wohl nur, wenn der erste Buchstabe, den man anklickt auch om Wort vorkommt. Fange ich mit einem Buchstaben an, der nicht vorkommt, scheint es zu gehen.

oh, jetzt gerate ich aber echt ins grübeln... :gruebel:
ich meld mich wenn ich weiss worans liegt.....

Argh, ein LowerCase vergessen...

[jmit]

Zitat:

Zitat von PierreB

Zitat:

Nach dem ich auf das "E" geklickt hatte. Wie soll man mit einem Versuch mit einem Buchstaben das Wort erraten können? Passiert wohl nur, wenn der erste Buchstabe, den man anklickt auch om Wort vorkommt. Fange ich mit einem Buchstaben an, der nicht vorkommt, scheint es zu gehen.

War bei mir erst auch so, mit nem Klick auf "Neue Runde" ging es dann aber richtig.

//Edit: Nach zweimal neu gestarteter Runde ging es auch wenn der erste Buchstaben drin vorkommt, jetzt aufeinmal bekom ich wieder diesen You Lost - Fehler... :gruebel:

Hallo,

Ein Klick auf Neue Runde brachte bei mir aber auch keinen Erfolg. Es passiert bei jeder Runde.

Gruß Jörg

[Coldice111]

Hi!
LOL mann kann auch einfach die Wordlist.txt Datei öffnen und dann schummeln.
Kann mann die nicht in das Programm reincomplieren?
cu coldice111

// Man könnte noch als Buchstabe ' # + - * ' nehmen.

[glkgereon]

Zitat:

Zitat von Coldice111

Hi!
LOL mann kann auch einfach die Wordlist.txt Datei öffnen und dann schummeln.
Kann mann die nicht in das Programm reincomplieren?
cu coldice111

// Man könnte noch als Buchstabe ' # + - * ' nehmen.

Es ist so gedacht das man per hand editieren kann...
wer schummeln will soll das tuen.

es wäre allerdings ne möglichkeit zu verhindern das du mit nem normalen editor rankommst und ein beiprogramm zum editieren zu schreiben. dann musst du das öffnen um die wörter zu sehen...


also irgendwie alles keine lösung...

[Coldice111]

Asoo so ist das gemeint.