Du bist nicht angemeldet.

Stilllegung des Forums
Das Forum wurde am 05.06.2023 nach über 20 Jahren stillgelegt (weitere Informationen und ein kleiner Rückblick).
Registrierungen, Anmeldungen und Postings sind nicht mehr möglich. Öffentliche Inhalte sind weiterhin zugänglich.
Das Team von spieleprogrammierer.de bedankt sich bei der Community für die vielen schönen Jahre.
Wenn du eine deutschsprachige Spieleentwickler-Community suchst, schau doch mal im Discord und auf ZFX vorbei!

Isometrische Karte - Mouse nach Tile-Koords

Werbeanzeige

killer999

Frischling

  • »killer999« ist der Autor dieses Themas

Beiträge: 2

  • Private Nachricht senden

1

06.03.2016, 14:36

Isometrische Karte - Mouse nach Tile-Koords

Hallo,
bin recht neu hier und habe mal eine Frage.

Ich möchte ein Spiel erstellen, was auf einer isometrischen Karte basiert.
Das Darstellen klappt schon ganz gut.


(Link)


Nun zu meinem Problem. Wie bekomme ich die Mauskoordinaten meines Cursors wieder einem Tile zugeordnet?
Seiten mit höherer Mathematik habe ich genug gefunden, wurde aber nicht schlau daraus.

Vielleicht gibt mir jemand ein Beispiel oder einen Denkanstoß.

Liebe Grüße René

dot

Supermoderator

Beiträge: 9 757

Wohnort: Graz

  • Private Nachricht senden

2

06.03.2016, 16:53

Wir hatten gerade gestern hier eine ähnliche Frage, in den dort verlinkten Artikeln wirst du sicher schnell fündig... ;)
m4studios

killer999

Frischling

  • »killer999« ist der Autor dieses Themas

Beiträge: 2

  • Private Nachricht senden

3

06.03.2016, 18:46

bin woanders pfündig geworden.

Für Interessierte:

Quellcode

 
1
2
3
4
5
6
7
8
9

        Dim TilePosX As Integer
        Dim TilePosY As Integer

        TilePosX = (cursorPos.X / 16 + cursorPos.Y / 8) / 2
        TilePosY = (cursorPos.Y / 8 - (cursorPos.X / 16)) / 2

        cursorPos.X = Fix(cursorPos.X)
        cursorPos.Y = Fix(cursorPos.Y)
        game.Window.Title = "X: " & TilePosX & "   Y: " & TilePosY

Koschi

Alter Hase

Beiträge: 657

  • Private Nachricht senden

4

06.03.2016, 18:54

Zitat von »killer999«

bin woanders pfündig geworden.

Für Interessierte:

Quellcode

 
1
2
3
4
5
6
7
8
9

        Dim TilePosX As Integer
        Dim TilePosY As Integer

        TilePosX = (cursorPos.X / 16 + cursorPos.Y / 8) / 2
        TilePosY = (cursorPos.Y / 8 - (cursorPos.X / 16)) / 2

        cursorPos.X = Fix(cursorPos.X)
        cursorPos.Y = Fix(cursorPos.Y)
        game.Window.Title = "X: " & TilePosX & "   Y: " & TilePosY


Du solltest aber für die Interessierten noch die Magicnumbers 8 und 16 erklären, jemand desen Tileset eine andere Größe hat bekommen falsche Ergebnisse.
Wer aufhört besser werden zu wollen hört auf gut zu sein!

aktuelles Projekt:Rickety Racquet

Werbeanzeige

Ähnliche Themen