Hi,

Ich probiere im Moment ein kleines MiniSpiel (nichts ernstes nur zum rumprobieren usw.) zu programmieren, aber leider habe ich einige Probleme.

Das ganze sieht ca so aus...

(So wird die "Map" erzeugt)

arr: array[0..4, 0..4] of integer = ( (3, 3, 3, 3, 3),
(3, 1, 0, 0, 0),
(3, 2, 4, 3, 3),
(4, 2, 5, 3, 3),
(3, 2, 4, 3, 3));
-----
for x := 0 to 4 do begin
for y := 0 to 4 do begin
case arr[x, y] of

0: PaintBox1.Canvas.CopyRect(Rect(x*30, y*30, (x*30)+30, (y*30)+30),
S1.Canvas, Rect(0, 0, 30, 30));
usw.... das sind die Landschaftsbilder (z.B. ein Haus)

Mit den Pfeiltasten kann man ein kleines Bild (Spielfigur) bewegen nun das Problem:
Ich möchte das wenn z.B. die Spielfigur(SF) auf das Feld 0 kommt eine gewisse Aktion ausgeführt wird (z.B. ShowMessage('BlaBlaBla')) mit der Maus hab ich es hinbekommen

Maus:
///
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
mousex := X div 30;
mousey := Y div 30;

SantaImg.Left := mousex * 30;
SantaImg.Top := mousey * 30;

if arr[mousex, mousey] = 2 then
ShowMessage('BlaBlaBla');
end;
///

Mit den Pfeiltasten schaff ichs einfach nicht - weis einer wie das gehen könnte ?

Ich weis das ganze was ich geschrieben habe is bissl schwer zu verstehen =P

Thx for help

Hi
ich programmiere zwar noch nicht lange in Delphi aber ich versuch dir trotzdem mal zu helfen, weil es ja eigentlich in allen Sprachen gleich ist.

Also erstmal wenn du ja mit der tastatur dein "männchen" bewegst machst du ja warscheinlich

if key = vk_left then
begin
x:= x -5;
end;

das dann für die anderen Tasten auch.
so wenn du jetzt auf Feld zwei kommst mach das doch so:

if x = Feld2x an y = Feld2y then
begin
ShowMessage("getroffen oder sonstwas");
end;

oder hab ich deine Frage jetzt nicht verstanden?
bei weiteren Fragen frag einfach!!!

Visit our 500er Gamer Lan
@ www.evil-lanparty.de or
@ www.evil-havoc.com
Visit the HaVoc Lanparty Community
@ www.havoc-lanparty.com

Das Problem ist das es nicht nur 1 Feld Nummer "2" gibt sondern 10 oder mehr gibt deswegen funtzt
if x = Feld2x an y = Feld2y then
begin
ShowMessage("getroffen oder sonstwas");
end;
nicht

Dann musste das wohl mit "or" abfragen...

Hm ne wenn das z.B. eine 100x100 Felder große Map ist und davon z.B. 500 Tiles Wasser sind dann wird das mit or bisschen viel =P

Hm? Du kannst das doch dann mit div und so weiter genauso machen wie bei der Maus-Steuerung, oder?
Du hast doch die aktuelle Position, die teilst du durch die Plattengröße und nimmst den int-Wert davon. Dann hast du die Platte, auf der man gerade ist. Und dann im Array nachgucken, was das nun für ne Platte ist.

Oder versteh ich da was falsch?

TheTinySteini
Coder Poke646
"Don't Panic" - Hitchhiker's Guide to the Galaxy

oder mach doch ne switch verzweigung!! also

case feld of

1: begin
//anweisung
end;
2: begin
//anweisung
end;
....
....

das ist natürlich jetzt eine ergänzung zu dem was ich als erstes geschrieben hab, anstatt if .. then

oder versteh ich jetzt was falsch?

Visit our 500er Gamer Lan
@ www.evil-lanparty.de or
@ www.evil-havoc.com
Visit the HaVoc Lanparty Community
@ www.havoc-lanparty.com

jo, genau wie TTT es sagt:

Du hast:
- Playerposition (X,Y)
- Spielfelddaten (als array, (EinFeldWeite, EinFeldHöhe))
- Spielfeldgröße (in pixel oder was auch immer, (width,height))

Du brauchst:
- Spiel'platte' auf der sich der spieler befindet

so, wo is das problem?

Another1

...relaxing..atm =)
... und Schweiz suckt!

Danke ! Habs hinbekommen - war eigentlich sehr leicht... bin wohl auf der Leitung gestanden =P