AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Ideen/Anregungen für mein Spiel
Thema durchsuchen
Ansicht
Themen-Optionen

Ideen/Anregungen für mein Spiel

Ein Thema von SemmelRoth · begonnen am 16. Apr 2008 · letzter Beitrag vom 18. Apr 2009
Antwort Antwort
SemmelRoth

Registriert seit: 27. Mär 2008
38 Beiträge
 
#1

Re: Ideen/Anregungen für mein Spiel

  Alt 20. Apr 2008, 21:00
naja wenn du willst kann ich dir auch meinen Code Hochladen also das Projeckt und dann kannste da auch nochn paar Sachen nach gucken aber ich muss halt dazu sagen das es sehr durcheinander ist weil ich mit dem Hauptprogramm angefangen habe und dann die ganze Zeit Funktionen einfüge
Also ich hab ja bei mir alle Türme als Bild mit den Maßen von 60*50px und da habe ich es so gemacht:
In meiner DoMove procedure vom Turm steht:

Delphi-Quellcode:
if CanMove then begin
    while 25+Form1.ScreenToClient(Mouse.CursorPos).X<sX do begin sX:=sX-25; end;
    while Form1.ScreenToClient(Mouse.CursorPos).X>sX+25 do begin sX:=sX+25; end;
    while 30+Form1.ScreenToClient(Mouse.CursorPos).Y<sY do begin sY:=sY-30; end;
    while Form1.ScreenToClient(Mouse.CursorPos).Y>sY+30 do begin sY:=sY+30; end;
    X:= sX-25;
    Y:= sY-30;
    Z:= Round(Y);
    canBuild:=true;
    collision;
    if canBuild then Image := Form1.AdImageList1.Find('build');
    if not canBuild then Image := Form1.AdImageList1.Find('nobuild');
end;
Ich habe eine Bool var genommen die am Anfang auf True steht und nachdem man den Turm gebaut hat auf False gesetzt wird (halt einfach nur damit der Turm sich dann nicht mehr Bewegt) und dann einfach viele kleine while Schleifen (If würde es auch tun aber so ist es besser) und wenn die Maus sich dann halt über 25px in X Richtung Bewegt oder 30px auf Y dann wird je nachdem sX und sY um den Raster Wert erhöt/veringert (in sX und sY habe ich beim erstellen des Sprites/Bildes die Kordinaten gespeichert).
Da wo dann dem X der Wert von sX übergeben wird hab ich einfach noch 25 abgezogen sodass sich der Cursor in der Mitte befindet.
Ja gut Z=Y sollte klar sein denn das was weiter oben auf der Y Achse ist ist weiter entfernt.
Und der Rest bestimmt nur ob man an diesem Ort bauen kann und welches Bild gezeigt wird.
Ich hoffe ich konnte dir Helfen..

naja aber die anderen wollen es ja vergrößern (oder besser gesagt einfach größer haben)... deswegen
  Mit Zitat antworten Zitat
Antwort Antwort


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 04:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz