AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Nicht noch ein Snake Klon ...
Thema durchsuchen
Ansicht
Themen-Optionen

Nicht noch ein Snake Klon ...

Ein Thema von MrMooed · begonnen am 11. Apr 2012 · letzter Beitrag vom 16. Apr 2012
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von MrMooed
MrMooed
Registriert seit: 18. Feb 2012
...werden einige von eich jetzt vllt. denken. Trotzdem muss ich sagen:

DOCH



Spaß bei Seite. Nachdem ich hier im Forum einige Tipps und Ideen erhalten habe möchte ich mein Projekt natürlich auch hier vorstellen.

Zum Projekt:

Das ganze ist zu einem Ferienprojekt geworden, da mir vorher einfach die Zeit für sowas gefehlt hat obwohl ich Snake schon lange mal geplant hatte. Das ganze Projekt wurde allein von mir Erstellt (ein Paar Ideen verdanke ich euch natürlich ) Wenn es jemanden Interessiert werde ich noch eine Dokumentation veröffentlichen und/ oder den Source Code veröffentlichen. Freue mich schon auf Kritik/ Verbesserungen/ neue Ideen

Features:
  • 2 Spielmodi
    • Klassisch
    • gegen die Zeit (Punkte werden jede sek. abgezogen)
  • Bewegung mittels WASD
  • Pause/ Weiter
  • Einstellungen um den Wurm und seine Umgebung zu verändern
  • Highscore
    • Dessen Verschlüsselung mittels xor-Technik (kein wirklicher Schutz ich weiß )
  • Speicherung des letzten Spielers
  • Random-Levelgestaltung (soll heißen: Die Wände werden mit zufälliger Länge/ Richtung/ Position auf der Welt "gespawnt")
  • Äpfel verschwinden nach 7sek (Dadurch Punkte abzug)

Bugs/ Komisches Verhalten:
  • Mit Windows Aero treten Fehler mit den Farben auf -> alle Panels bekommen die Farbe vom Formular und lassen sich nicht mehr färben .. (wie stellt man etwas wie ParentColor aus ???) gefixt
  • sporadisches Fehlverhalten wenn die Einstellungen verstellt werden nicht reproduzierbar

Geplant:
  • Wurmlöcher (Achtung Wortspiel ^^)
  • Weitere Spielmodi
  • Anregungen von euch
    • bisher:
    • Veränderbare Steuerung (in Arbeit/ fast fertig)


/Edit 11.4.2012-17:15: Da hat es mir irgendwie die Steuerung zerschossen gehabt gefixt
/Edit 14.4.2012-18:02: Einige Bugs behoben/ unnützes entfernt

##### Bitte stets die Version mit dem letzten Datum herunterladen, da alte als Entwicklungsverlauf erhalten werden sollen####
Angehängte Dateien
Dateityp: zip QSnake.zip (245,3 KB, 31x aufgerufen)
Dateityp: zip QSnake 14-04-2012.zip (238,2 KB, 28x aufgerufen)

Geändert von MrMooed (20. Apr 2012 um 21:09 Uhr)
 
Benutzerbild von MrMooed
MrMooed

 
Delphi 7 Enterprise
 
#2
  Alt 11. Apr 2012, 15:52
Verdammt .. Die .Exe vergessen hochzladen

Kann man die nicht nachträglich im ersten Post reinstellen ?

Jedenfalls hier ist sie:


//Edit:
Hab es gefunden

Geändert von MrMooed (11. Apr 2012 um 16:16 Uhr) Grund: Editier Funktion gefunden :D
  Mit Zitat antworten Zitat
Benutzerbild von SimplySimon
SimplySimon

 
Delphi 11 Alexandria
 
#3
  Alt 13. Apr 2012, 21:36
Gefällt mir! Diesmal mit einem wirklichen Wurm und nicht so'nem Standartstrich
Am besten finde ich die Oberflächengestaltung

Die Lösung für das "Panel-Problem":
Panel1.ParentBackground := false; Damit müsste es gehen

Kleine Verbesserung zu der Highscore löschen-Funktion:
Willst du den Highscore wirklich zurück setzen? Ja Nein Abbrechen
Ich glaube ein Ja und ein Nein reichen

Sonst habe ich keine Fehler festgestellt. Das Problem mit den Einstellungen kann ich nicht bestätigen, ansonsten versuch mal das Einstellumgsformular erst zur Laufzeit zu erzeugen:

Delphi-Quellcode:
Einstellungen := TEinstellungen.Create(Self);
Einstellungen.ShowModal;
Einstellungen.Free;
Ich glaube aktuell sieht es bei dir eventuell nur so aus:

Einstellungen.ShowModal;
Simon
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

 
Turbo Delphi für Win32
 
#4
  Alt 13. Apr 2012, 22:41
Zitat von MrMooed:
Dessen Verschlüsselung mittels xor-Technik (kein wirklicher Schutz ich weiß )
Jo.. ist im nu genkackt:

Delphi-Quellcode:
procedure SnakeScoreEntschlüsseln(const SnakeScoreDateiname: String);
var
  i: Integer;
  m: TMemoryStream;
  p: PByte;
begin
  m := TMemoryStream.Create;
  try
    m.LoadFromFile(SnakeScoreDateiname);
    p := m.Memory;
    for i := 0 to m.Size - 1 do
    begin
      p^ := p^ xor 7 * ((i mod 6) + 1);
      inc(p);
    end;
    m.SaveToFile(SnakeScoreDateiname + '.entschlüsselt.ini');
  finally
    m.Free;
  end;
end;
  SnakeScoreEntschlüsseln('C:\Users\aphton\Downloads\QSnake\QSnake.score');
  Mit Zitat antworten Zitat
Benutzerbild von MrMooed
MrMooed

 
Delphi 7 Enterprise
 
#5
  Alt 14. Apr 2012, 17:25
Gefällt mir! Diesmal mit einem wirklichen Wurm und nicht so'nem Standartstrich
Danke Habe mich bei den meisten anderen Snakes gewundert, dass niemand Kreise statt Rechtecken verwendet hat, ist ja überhaupt kein Aufwand statt Canvas.Rectangle Canvas.Ellipse zu schreiben

Kleine Verbesserung zu der Highscore löschen-Funktion:
Willst du den Highscore wirklich zurück setzen? Ja Nein Abbrechen
Ich glaube ein Ja und ein Nein reichen
ups ein Abbrechen ist in der Tat sinnlos. Habe es raus genommen

Das Problem mit den Einstellungen kann ich nicht bestätigen [...]
Komischer Weise kann das niemand mehr .. hat sich wohl in Luft aufgelöst der bug


Jo.. ist im nu genkackt:
Wie gesagt, soll auch mehr die kleinen Cheater unter euch stoppen und nicht der NSA stand halten können

P.S.: Den Quelltext veröffentliche ich vllt. mal mit ner neuen Version, bin noch etwas wackelig auf den Beinen was Delphi angeht (habe es erst ein halbes Jahr ) Daher ist der Code an manchen Stellen etwas "Suboptimal" aber zum lernen war dieses Projekt mehr als geeignet. Aber das nächste Snake mit OpenGL ist schon geplant, aber bis ich da alles mit Matrizen, Vektoren und was weiß ich noch gerafft habe .. das dauert. Zumal mir das alles erst nächstes Jahr in Mathe bevorsteht

Geändert von MrMooed (14. Apr 2012 um 17:29 Uhr) Grund: an die deutsche Sprache angepasst ;)
  Mit Zitat antworten Zitat
Popov
 
#6
  Alt 14. Apr 2012, 23:00
Ich würde zusätzlich die Cursortasten zur Steuerung nehmen. Die Tasten die du nimmst sind vielleicht bei 3D Shooter üblich, wo man mit der linken Hand die Tasten bedient und mit der rechten die Maus. Trotz dem, so richtig steuern tut man links nicht.
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

 
Turbo Delphi für Win32
 
#7
  Alt 14. Apr 2012, 23:23
Ich kann mich noch erinnern, dass beim unsterstörbaren Nokia 3310 per 3 und 7 auch gesteuert werden konnte. Wäre auch fein, wenn du diese Steuerung implementieren könntest
  Mit Zitat antworten Zitat
Benutzerbild von MrMooed
MrMooed

 
Delphi 7 Enterprise
 
#8
  Alt 14. Apr 2012, 23:53
Ich würde zusätzlich die Cursortasten zur Steuerung nehmen. Die Tasten die du nimmst sind vielleicht bei 3D Shooter üblich, wo man mit der linken Hand die Tasten bedient und mit der rechten die Maus. Trotz dem, so richtig steuern tut man links nicht.
Ursprünglich hatte ich die nur gewählt, weil ich es mit Pfeiltasten nicht hinbekommen habe. (Tastendruck wurde nicht an die Form geleitet)

Ich kann mich noch erinnern, dass beim unsterstörbaren Nokia 3310 per 3 und 7 auch gesteuert werden konnte. Wäre auch fein, wenn du diese Steuerung implementieren könntest
3 und 7 was hat Nokia bitte für ergonomische Tastenfelder ?
Du meinst nicht zufällig 1 und 3 oder 7 und 9 ? das würde mehr Sinn machen nach meinem Nummernblock an der Tastatur

Werde mich morgen mal dran machen, dass die Steuerung aus einer Reihe vordefinierter Optionen gewählt werden kann, oder selbst definiert werden kann. Aber bin zu müde und habe morgen ne lange Heimfahrt vor mir
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

 
Turbo Delphi für Win32
 
#9
  Alt 15. Apr 2012, 00:02
Ne, ist schon richtig so.. aber wenn mans nicht kenn

Die Richtungsänderungstabelle sieht so aus~
Code:
  | links  rauf   rechts  runter
--+-------------------------------
3 | rauf   rechts rauf    rechts
7 | runter links  runter  links
  Mit Zitat antworten Zitat
Benutzerbild von MrMooed
MrMooed

 
Delphi 7 Enterprise
 
#10
  Alt 15. Apr 2012, 00:12
Ne, ist schon richtig so.. aber wenn mans nicht kenn

Die Richtungsänderungstabelle sieht so aus~
Code:
  | links  rauf   rechts  runter
--+-------------------------------
3 | rauf   rechts rauf    rechts
7 | runter links  runter  links
Hmmm.. Das ist Clever! Ok so sind 3 und 7 wirklich gut gewählt ich nenne diese Eingabe Methode dann "Nokia 3310 Style"

Spaß beiseite, wenn man einmal die Funktion weiß ist das echt eine nette Idee. Aber war nicht ganz meine Generation mit Nokia
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz