Das wohl beste Schlange der Welt

[himitsu]

Moin ihr, :angel:

hier habt ihr mal das vermutlich allerbeste Schlange-Spiel (Snake, falls es wer nicht kennt) der Welt.


Ich denk mir, daß es vorallem wegen der extrem vielen Kommentare vorallem für lernwillige Schüler bestens geeignet ist.
Dazu kommen noch die voll aussagekräftigen Objekt- und Variablennamen
und auch die sehr verständlich beschrifteten Buttons.

Ansonsten besteht es auch nur einem Label, 2 Buttons, 3 4 Timern (mir fällt bestimmt noch was für Weitere ein) und 2561 3102 Images.

Und einer knuffigen nur ~15 MB kleinen DFM ... wobei die Bilder selber nur je 2-3 KB sind.
(schon erstaunlich, wie gut 7-Zip komprimieren kann :roll: )
Es gibt aber inzwischen auch ein paar "optimiertere" Versionen. (siehe #38)



Aber ihr müßt zugeben, die Grafik ist doch erstklassig, oder? :angel2:


:duck: schnell weg hier




PS: mit neueren Delphis gibt es ein klitzekleines Problemchen

Zitat:

---------------------------
Project1
---------------------------
Systemfehler. Code: 87.

Falscher Parameter.
---------------------------
OK
---------------------------

diesen ist anscheinend die Form zu leer. :angel2:
Aber dafür soll es ja ein Fixup geben > Systemfehler Code 87

Falls noch wer weitere Ideen für weitere Verschlimmbesserungen hat ... sagt es ruhig.
Und ja, ich hatte grad etwas Lange Weile und mir fehlt der Negierenthread. :cry:

[add]
ach ja, mein letztes richtiges Snake hatte ich noch in QBasic programmiert :angel:

[add]
Weitere Infos, zu den einzelnen Versionen, sind im Beitrag #38 zu finden.

[turboPASCAL]

http://fnse.de/S01/0MI.gif

Sound und Musike fehlt !
Da könnte man noch ein paar MB verbrutzeln oder 2²³ Timer verwenden.

Irgenwie hat sich mein Delphi gerade http://fnse.de/S01/17P.gif.

[himitsu]

OK, hab mir grad die Original Nibbles-Sounds besorgt ... jetzt muß ich sie nur noch in Windows.Beep übersetzen und je in 'nen Timer verpacken X'D

PLAY "MBT160O1L8CDEDCDL4ECC"
PLAY "T160O1>L20CDEDCDL10ECC"
PLAY "MBO0L16>CCCE"
PLAY "MBO0L32EFGEFDC"

[patti]

Ehrlich gesagt verstehe ich gerade den Sinn nicht ganz :oops:

Habs mir jetzt nicht angeschaut, aber was bitte sollen 3 Timer und 2561 Images?
Den Anfängern erklärt man immer, dass man sowas nicht machen soll und dann findet man in der OpenSource-Sparte sowas :gruebel:

Bin auf die ersten Threads gespannt, wo es heißt: "Habs genauso wie ->hier<- gemacht, aber irgendwie funktionierts nicht" ;-)

Patti

[Matze]

Den Sinn kann ich dir nennen: Himi ist mal wieder langweilig und macht daher irgendeinen Blödsinn. :mrgreen:

Lustige Idee und für die paar Images recht performant.

[p80286]

hallo Patti,

nichts für ungut, Du hast's nicht verstanden,
Genau so sollte man's nicht machen.

Zitat:

Ich denk mir, daß es vorallem wegen der extrem vielen Kommentare vorallem für lernwillige Schüler bestens geeignet ist.
Dazu kommen noch die voll aussagekräftigen Objekt- und Variablennamen
und auch die sehr verständlich beschrifteten Buttons.

Aber irgendwie hatte ich ein Dejaoooooooooooooooooooooooooooooooooooooooooooooo ooooooooooooooooooooooooooooooooo

Gruß
K-H

P.s.
und alles in Handarbeit?

[DeddyH]

Schön finde ich auch:

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  winexec(pchar(paramstr(0)), 0);
  close;
end;

*Schauder* :stupid:

[himitsu]

Nja, vielleicht hab ich es noch nicht ironisch genug angepriesen :lol:

Es ist praktisch 'ne Antipatterndesignstudie. (Design Pattern)
Also genau so, wie man es nicht machen sollte.

Zitat:

Zitat von DeddyH

*Schauder* :stupid:

cool wa?
die Idee ist mir Aufgrund eines gewissen "Programm zurücksetzen"-Threads gekommen :)

Eigentlich wollte ich auch noch die ganzen Einrückungen aus dem Code entfernen, aber ich hab's dann doch gelassen :nerd:
Kann ja jeder selber noch machen > Strg+A Strg+Shift+UUUU

Zitat:

Zitat von Matze

Lustige Idee und für die paar Images recht performant.

eigentlich schade irgendwie ... aber ich schaff es bestimmt noch, die CPU etwas zum Glühen zu bekommen :stupid:

Zitat:

Zitat von p80286

P.s. und alles in Handarbeit?

ja ... hab 'ne gute Stunde gebraucht, bis ich es in D7 nochmals erstellt hab, nachdem D2009 aufgegeben hatte.
Nur blöd, daß ich es dann nicht direkt übernehmen konnte, da D7 die ganzen GIFs aus den Images gelöscht hatte :?

[patti]

Zitat:

Zitat von p80286

hallo Patti,

nichts für ungut, Du hast's nicht verstanden,
Genau so sollte man's nicht machen.

Naja, dass das nicht ernst gemeint sein kann von jemandem, der über 11.000 Beiträge verfasst hat und dass es ein Beispiel sein soll, wie man es nicht machen soll, ist mir schon bewusst.

Ich frage mich nur, ob man seine Zeit vielleicht nicht NOCH sinnvoller nutzen könnte :gruebel: :mrgreen:

Frage: Wo sind denn bitte die 2561 Images? Selbst wenn ich für jedes Feld, das auf dem Screenshot zu sehen ist, 1 Image rechne, komme ich nur auf 640 Stück :gruebel:

Patti

[himitsu]

1 für den Hintergrund und dann sind nochmals je mehrer Images hintereinander/übereinander
(pro Bild/Feld Eines ... also aktuell je 4 Images)