Maus Mapping auf eien Tilemapp

Übersicht

BlitzBasic

Beginners-Corner

	FWeinb ehemals "ich" Betreff: Maus Mapping auf eien Tilemapp	So, Dez 17, 2006 21:16 Antworten mit Zitat
Hallo ich bin zu blöd ich weis nicht wie ich eien Mouse Mapping schreieben soll also ich will einfach das die maus in meien 32*32 großen Tiles durch genehn kann und wenn ich eins anklick soll das gewechselt werden ich bin so dumm Habe das aber auch durch die suche nicht gefunden Danke im Vorraus
"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955) "If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs

FWeinb

ehemals "ich"

Betreff: Maus Mapping auf eien Tilemapp

So, Dez 17, 2006 21:16
Antworten mit Zitat

Hallo ich bin zu blöd ich weis nicht wie ich eien Mouse Mapping schreieben soll also ich will einfach das die maus in meien 32*32 großen Tiles durch genehn kann und wenn ich eins anklick soll das gewechselt werden ich bin so dumm

Habe das aber auch durch die suche nicht gefunden

Danke im Vorraus

"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955)
"If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs

	DerHase	So, Dez 17, 2006 21:18 Antworten mit Zitat
Hmm, MausX / 32 und Mausy / 32, so hast Du die Position in dem Dim-Feld. Diese Werte nimmst Du, wenn Du brauchst * 32 und hast die Position des jeweiligen Tiles wo Dein Mauszeiger drauf ist. Edit: Hier ich hab nen Code dazu gebaut: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 320, 200, 0, 2 SetBuffer(BackBuffer()) While Not KeyHit(1) Rect (MouseX() / 32) * 32, (MouseY() / 32) * 32, 32 ,32 ,0 Flip:Cls Wend

DerHase

So, Dez 17, 2006 21:18
Antworten mit Zitat

Hmm, MausX / 32 und Mausy / 32, so hast Du die Position in dem Dim-Feld. Diese Werte nimmst Du, wenn Du brauchst * 32 und hast die Position des jeweiligen Tiles wo Dein Mauszeiger drauf ist.

Edit: Hier ich hab nen Code dazu gebaut:
Code: [AUSKLAPPEN]

Graphics 320, 200, 0, 2
SetBuffer(BackBuffer())

While Not KeyHit(1)

Rect (MouseX() / 32) * 32, (MouseY() / 32) * 32, 32 ,32 ,0
Flip:Cls

Wend

	FWeinb ehemals "ich"	So, Dez 17, 2006 21:34 Antworten mit Zitat
JA genau das suche ich aber kann ich aus dem wert auch die position des Tiles In dem DIM feld bestimmen Danke im Voraus
"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955) "If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs

FWeinb

ehemals "ich"

So, Dez 17, 2006 21:34
Antworten mit Zitat

JA genau das suche ich aber kann ich aus dem wert auch die position des Tiles

In dem DIM feld bestimmen

Danke im Voraus

	BladeRunner Moderator	So, Dez 17, 2006 21:38 Antworten mit Zitat
Also wenn du des Hasen Code auch nur im Ansatz verstanden hast weisst Du wie man auf die Koordinaten im Dim-feld kommt.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

So, Dez 17, 2006 21:38
Antworten mit Zitat

Also wenn du des Hasen Code auch nur im Ansatz verstanden hast weisst Du wie man auf die Koordinaten im Dim-feld kommt.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	skey-z	So, Dez 17, 2006 21:40 Antworten mit Zitat
ich habe mir mal erlaubt, den code von Hase zu nehmen: Zitat: Graphics 320, 200, 0, 2 SetBuffer(BackBuffer()) While Not KeyHit(1) mx = MouseX() my = MouseY() x = mx / 32 ;<- X-Wert der Map y = my / 32 ;<- Y-Wert der Map Rect (mx / 32) * 32, (my / 32) * 32, 32 ,32 ,0 Flip:Cls Wend
Awards: Coffee's Monatswettbewerb Feb. 08: 1. Platz BAC#57: 2. Platz Twitter

skey-z

So, Dez 17, 2006 21:40
Antworten mit Zitat

ich habe mir mal erlaubt, den code von Hase zu nehmen:

Zitat:

Graphics 320, 200, 0, 2
SetBuffer(BackBuffer())

While Not KeyHit(1)

mx = MouseX()
my = MouseY()

x = mx / 32 ;<- X-Wert der Map
y = my / 32 ;<- Y-Wert der Map

Rect (mx / 32) * 32, (my / 32) * 32, 32 ,32 ,0
Flip:Cls

Wend

Awards:
Coffee's Monatswettbewerb Feb. 08: 1. Platz
BAC#57: 2. Platz
Twitter

	DerHase	So, Dez 17, 2006 21:42 Antworten mit Zitat
DerHase hat Folgendes geschrieben: Hmm, MausX / 32 und Mausy / 32, so hast Du die Position in dem Dim-Feld.
Play Satyr!

DerHase

So, Dez 17, 2006 21:42
Antworten mit Zitat

DerHase hat Folgendes geschrieben:

Hmm, MausX / 32 und Mausy / 32, so hast Du die Position in dem Dim-Feld.

Play Satyr!

	FWeinb ehemals "ich"	So, Dez 17, 2006 21:43 Antworten mit Zitat
Sorry bin ich daneben ich bin voll nebeb der Spur heute ich kanns nicht mehr aber gut ich leg micht für heute hin Aber jetzt habe ichs vertanden gut nacht
"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955) "If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs

FWeinb

ehemals "ich"

So, Dez 17, 2006 21:43
Antworten mit Zitat

Sorry bin ich daneben ich bin voll nebeb der Spur heute ich kanns nicht mehr aber gut ich leg micht für heute hin Aber jetzt habe ichs vertanden gut nacht

	FWeinb ehemals "ich"	Mo, Dez 18, 2006 15:50 Antworten mit Zitat
Habe da noch mal ne frage ich will das level jetzt speicher und ich habe es so geladen Code: [AUSKLAPPEN] [EINKLAPPEN] Dim Level$ (64,31) map=OpenFile("map.txt") For Zeile = 0 To 64 A$ = ReadLine(map) For Spalte = 0 To 31 Level$ (Zeile,Spalte) = Mid$(A$,Spalte+1,1) Next Next CloseFile map aber wie kann ich das weider speicher als mein ansatz währe so in etwa Code: [AUSKLAPPEN] [EINKLAPPEN] map1=WriteFile("map1.txt") For zeile=0 To 64 If Len(tmp$)=31 Then WriteLine map1,tmp$ EndIf For Spalte=0 To 31 tmp$=Level(Zeile,Spalte)+tmp Next Next
"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955) "If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs

FWeinb

ehemals "ich"

Mo, Dez 18, 2006 15:50
Antworten mit Zitat

Habe da noch mal ne frage ich will das level jetzt speicher und ich habe es so geladen
Code: [AUSKLAPPEN]

Dim Level$ (64,31)

map=OpenFile("map.txt")

For Zeile = 0 To 64
A$ = ReadLine(map)
For Spalte = 0 To 31
Level$ (Zeile,Spalte) = Mid$(A$,Spalte+1,1)
Next
Next CloseFile map

aber wie kann ich das weider speicher als mein ansatz währe so in etwa
Code: [AUSKLAPPEN]

map1=WriteFile("map1.txt")

For zeile=0 To 64
If Len(tmp$)=31 Then
WriteLine map1,tmp$
EndIf
For Spalte=0 To 31
tmp$=Level(Zeile,Spalte)+tmp
Next
Next

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Maus Mapping auf eien Tilemapp

Betreff: Maus Mapping auf eien Tilemapp