Isometric Engine Problem

Hi!
I have a big problem. I have an Isometric Engine. My problem is that I dont know how to make that when I click on a tile, that then the Tile gets an other Texture. Can you help me?? I hope so. Thanks

Elessar


P.S. Here is my code of the Engine:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then arret = 1
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then arret = 1
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Droite = False: Gauche = False: Haut = False: Bas = False
If X > 600 Then Droite = True
If Y > 450 Then Bas = True
If X < 40 Then Gauche = True
If Y < 50 Then Haut = True

End Sub

Public DirectX As New DirectX7
Public DD As DirectDraw7
Public Primary As DirectDrawSurface7
Public Backbuffer As DirectDrawSurface7
Public Display As DirectDrawSurface7
Public Tile(50) As DirectDrawSurface7

Public T(50, 50) As Integer
Public xpos, ypos, arret

Public Gauche As Boolean, Droite As Boolean, Haut As Boolean, Bas As Boolean
Sub AfficheEcran(xa, ya) 'Display tiles (grass and paths)
On Error Resume Next
Backbuffer.BltColorFill DDRect(0, 400, 1024, 768), 0
Display.BltColorFill DDRect(0, 0, 1024, 768), 0
Display.SetFontTransparency True
Display.SetForeColor RGB(256, 256, 0)

For Y = -20 To 80
For X = 0 To 40
xd = (X * 31) - (Y * 31)
yd = (Y * 16) + (X * 16)
Display.BltFast xd, yd, Tile(T(X + xa, Y + ya + 10)), DDRect(0, 0, 63, 63), DDBLTFAST_SRCCOLORKEY Or DDBLTFAST_WAIT
' " Display.DrawText xd, yd, CStr(X - 15 + xa) + " " + CStr(Y - 15 + ya), False


Next X
Next Y
'
' On a besoin de faire ça parce que si on blitte quelque chose avec une position x ou y négative
' ça ne marche pas. Donc c'est pour faire joli.
'
' You needs do this, because if you "blit" something with a negativ x or y position, it don't run.
'
Backbuffer.BltFast 0, 0, Display, DDRect(30, 30, 980, 700), DDBLTFAST_WAIT

Backbuffer.SetForeColor RGB(256, 0, 0)


End Sub

Function DDRect(X, Y, x1, y1) As RECT
DDRect.Bottom = y1
DDRect.Top = Y
DDRect.Left = X
DDRect.Right = x1
End Function

Sub Main()
Set DD = DirectX.DirectDrawCreate("")
DD.SetCooperativeLevel FS.hWnd, DDSCL_ALLOWREBOOT Or DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN
DD.SetDisplayMode 1024, 768, 16, 0, DDSDM_DEFAULT

Dim ddsd As DDSURFACEDESC2
ddsd.lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
ddsd.lBackBufferCount = 1
ddsd.ddscaps.lCaps = DDSCAPS_COMPLEX Or DDSCAPS_FLIP Or DDSCAPS_PRIMARYSURFACE Or DDSCAPS_VIDEOMEMORY
Set Primary = DD.CreateSurface(ddsd)

Dim ddscaps As DDSCAPS2
ddscaps.lCaps = DDSCAPS_BACKBUFFER
Set Backbuffer = Primary.GetAttachedSurface(ddscaps)

Backbuffer.BltColorFill DDRect(0, 0, 1024, 768), 0
Dim ddsd2 As DDSURFACEDESC2
ddsd2.ddscaps.lCaps = DDSCAPS_OFFSCREENPLAIN Or DDSCAPS_VIDEOMEMORY
ddsd2.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
ddsd2.lWidth = 1024
ddsd2.lHeight = 768
Set Display = DD.CreateSurface(ddsd2)
Display.BltColorFill DDRect(0, 0, 1024, 768), 0
Dim ddr As DDSURFACEDESC2
Dim ddrec As RECT
ddrec.Bottom = 64
ddrec.Left = 0
ddrec.Right = 64
ddrec.Top = 0

Dim ck As DDCOLORKEY
ck.high = RGB(256, 256, 256)
ck.low = RGB(256, 256, 256)
For i = 1 To 6

Set Tile(i) = DD.CreateSurfaceFromFile(App.Path + "\tile" + CStr(i) + ".bmp", ddr)
Tile(i).SetColorKey DDCKEY_SRCBLT, ck

Next i
Randomize
'Fill the area with the filedata.
Open App.Path + "\iso.dat" For Input As 1
For Y = 1 To 50
Line Input #1, li$
For X = 1 To 50
T(X, Y) = Val(Mid(li$, X, 1))
Next X
Next Y

AfficheEcran 0, 0

' Boucle / looping
ok% = 1
Do
DoEvents
AfficheEcran xpos, ypos
If ok% = 0 Then

If Gauche = True Then
ok% = 1: xpos = xpos - 1
End If
If Droite = True Then
ok% = 1: xpos = xpos + 1
End If
If Haut = True Then
ok% = 1: ypos = ypos - 1
End If
If Bas = True Then
ok% = 1: ypos = ypos + 1
End If

End If
If anc + 50 < DirectX.TickCount Then
ok% = 0
anc = DirectX.TickCount
End If

Primary.Flip Nothing, DDFLIP_WAIT
Loop Until arret = 1

Set Primary = Nothing
Set Backbuffer = Nothing
Set DD = Nothing
Set DirectX = Nothing
End
End Sub

Sorry, but I don't understand your question. Please restate it and i'll see if I can help you.

Zach

i believe that he wants the player to be able to click a tile and then the tile changes its texture...

Yeah, exactly thats my problem.

i have the same problem :S

Quote:

---

Originally posted by nareth
i have the same problem :S

---

Post a screenshot of the tiles, and i'll see if i can come up with anything.

<><>
><><

If these are tiles (but joined together), i'd need to know the angle that the lines were at.

Code for how you draw them to the screen would be helpfull as well.

VB Code:

1   Let tX = Header.Width * TILE_WIDTH / 2
          
2   For L = 0 To LayerMax
3       For X = 0 To Header.Width
4           Let dX = tX
5           Let dY = tY
                  
6           For Y = 0 To Header.Height
7               Let oRect.Left = Tiles(L, X, Y).X * TILE_WIDTH
8               Let oRect.Right = oRect.Left + TILE_WIDTH
9               Let oRect.Top = Tiles(L, X, Y).Y * TILE_HEIGHT
10              Let oRect.Bottom = oRect.Top + TILE_HEIGHT
                      
11              Call DDSTiles.BlitFast(DDSDest, dX, dY, oRect)
                      
12              Let dX = dX + TILE_WIDTH / 2
13              Let dY = dY + TILE_BASE_HEIGHT / 2
14          Next Y
                  
15          Let tX = tX - TILE_WIDTH / 2
16          Let tY = tY + TILE_BASE_HEIGHT / 2
17      Next X
18  Next L

and dont please make a comment about me using let :p

http://www.vbforums.com/attachment.p...postid=1793513

Right, you'll need to make a function to hilight/indicate the tile that we're selecting for debugging purposes.

Once you've done that try this as a start:

First we'll try and work out what tile the mouse is in (ignoring the fact that it's part transparent).

I think it'll be something like this:

Tile(Mouse.X/TILE_WIDTH +1, Mouse.Y/TILE_HEIGHT + 1)

Assuming tile(1,1) is the top-left most tile.

What you then need to do, is work out a way of telling when the mouse is in the transparent part of the tile (and which transparent part). This will be done by getting the x and y position of the mouse relative to the centre of the tile, then using an if statement using those values (not exactly sure what it'll be).
Once you can work out if the mouse is in a transparent part, then you add/subtract a number from the index you've just calculated accordingly (so you select the appropriate tile (that is on the transparent area of our current one)).

why +1? and why no int()? :S

+1 if your array starts at (1,1) and because VB rounds down (i think). - you may have to play around with it, but if you make your function to change/highlight a tile you should easily be able to alter it so it works.

I didn't use int because i havn't used VB in a while. :P

my array is defined:

VB Code:

ReDim Tiles(LayerMax, Header.Width, Header.Height) As TileType

In that case it depends on the options you've got set in VB (since you don't explicitly say whether it starts from 0 or from 1).

Looking at your drawing code i guess it starts from 0, so you may not need the +1, but you'd have easily discovered that yourself if you had just tried my code. :)

i just talked to merri and i dont use masks so i cant decided trans part...

You could work it out using a formula though. While i puzzle over that i suggest making a function to test it.

If the cursor is in the position shaded grey in the pic (indicating we need the tile immediatly below and to the right of the tile found) then this will be true:

y > tileheight/2 + abs(x-tilewidth/2)/tilewidth*tileheight/2

EDIT: If X is +ve then it;'s in the grey area, otherwise it's in bottom-left.

X and Y are relative to the centre of the tile.

http://www.vbforums.com/attachment.p...postid=1793559


Y must be greater than tileheight/2, that's obvious, it must then be below that diagonal line. The amount y must be lower than tileheight/2 varies between 0 and tileheight/2 as x varies between tilewidth/2 and 0. Hence the last bit of that formula.

hmm when i decide a rect. i can use mouse y to decide if it is on the actual rhomb or not. does that makes sense?

each y from the center is 2 pixels away from rhomb.
and i think its the same with x...

please tell me that i got it right! :D

what's rhomb??

you posted just before me..

abs :confused:

you know thast diamond shaped thing. but i think your formula is better. i think i get it . but i dont know what abs does

Quote:

---

Originally posted by nareth
you posted just before me..

abs :confused:

---

A VB function to find the absolute value of it's parameter.

i.e. abs(1) = 1
abs(-1) = 1

err i dont really get that

abs returns the size of the number it's given.

Here's an equivilent:

if (Number < 0) then return Number * (-1) else return Number

More examples:

abs(136) = 136
abs(6209) = 6209
abs(-26) = 26
abs(-9832) = 9832

aaaah ok i get that.

another problem the map is daimond shaped so how do i get the right rect? :P

rect.left = int(Mouse.X/TILE_WIDTH) * TILE_WIDTH
rect.right = (int(Mouse.X/TILE_WIDTH)+1) * TILE_WIDTH
rect.top = int(Mouse.Y/TILE_HEIGHT) * TILE_HEIGHT
rect.bottom = (int(Mouse.Y/TILE_HEIGHT)+1) * TILE_HEIGHT

I think.

Actually, you could use this:

Tiles(L, X, Y).X * TILE_WIDTH
oRect.Left + TILE_WIDTH
Tiles(L, X, Y).Y * TILE_HEIGHT
oRect.Top + TILE_HEIGHT

since we've just worked out X and Y.

nonono.. what i mean is. if you look at my screenshot you see the daimond shaped map. if you click at x 10 y 10 it will say that the clicked rect is 0,0 and x 70 y 70 rect 1,1

but rect 0, 0 is supose to start at the top corner

i just copy and pasted your code to test it

VB Code:

Let RegY = TILE_BASE_HEIGHT / 2 + Abs(X - TILE_WIDTH / 2) / TILE_WIDTH * TILE_BASE_HEIGHT / 2
        
        MsgBox Regy

and it coems up with the numbers 20and21 and 22

Quote:

---

Originally posted by nareth
and it coems up with the numbers 20and21 and 22

---

Can't tell if that's correct or not since it depends on where you clicked, and the values of tile height/width.

Quote:

---

Originally posted by nareth
nonono.. what i mean is. if you look at my screenshot you see the daimond shaped map. if you click at x 10 y 10 it will say that the clicked rect is 0,0 and x 70 y 70 rect 1,1

but rect 0, 0 is supose to start at the top corner

---

Ok, you've lost me.

If you could edit your screenshot writing the index if each/a few tiles that'd help my understanding of how your tiles are arranged.

i tried with a map of size 0,0 and it gave those numbers.

ok i dont know if you get this but the arrows show in what order its drawn. and the grey sqaures are the rects. wich i need to get and then look at what triangle is clicked. but you see no rect at the top left. so when the user clicks there the rect will be calculated as rect 0,0.

http://www.vbforums.com/attachment.p...postid=1793597

So (1,0) would be the tile below and to the left of the one marked and (0,1) would be the one below and to the right of the one marked, or is it the other way round?


I gtg now, but if no-one else can help, i'll have another go later. :wave:

arg ok :| cya

Quote:

---

Originally posted by SLH
So (1,0) would be the tile below and to the left of the one marked and (0,1) would be the one below and to the right of the one marked, or is it the other way round?

---

Is this correct?

hmm x goes first. so i think the right is 1,0 and below is 1,0 yep...


but . when you click on the black it would calc those as rects instead of the actual map

Quote:

---

Originally posted by nareth
but . when you click on the black it would calc those as rects instead of the actual map

---

I don't understand what you mean.

A good way for doing it is this: Make a picture of one tile and use a different color for each side, like this: http://home.hccnet.nl/w.meelker/images/tilemask.gif
Now, when a user clicks on your form/picturebox or whatever you are using, you can simply calculate on which of these tiles it is, and then look at the color to see the exact tile.
Hope that helps

Quote:

---

Originally posted by Shell
A good way for doing it is this: Make a picture of one tile and use a different color for each side, like this: http://www.vbforums.com/images/ieimages/2004/09/1.gif
Now, when a user clicks on your form/picturebox or whatever you are using, you can simply calculate on which of these tiles it is, and then look at the color to see the exact tile.
Hope that helps

---

That is probably the easiest way (as opposed to the formula method i gave), however it's calculating the tile the mouse is over to begin with that's the problem.

this sounbds impossible but games actually do it.

its just so hard and you cant expect a 15 year old to just poof make it...

Well, calculating the tile it's over is not that hard, in this case:

Code:

---

tileX = int (mouseX / 62)
tileY = int (mouseY / 29)
relativeX = mouseX - (tileX * 62)
relativeY = mouseY - (tileY * 29)

---

Now tileX and tileY are the coordinates of the tile, and relativeX and relativeY is the position within that tile.

Wouldn't that only work for a flat grid, as opposed to isometric, where the tiles are not arranged vertically and horizontally?

You are right, my bad, didn't look at the picture :)

that wont work because the map is daimond shaped.

Not sure if this is the best in practice but I would do everything as if the map was square then just the rendering stage would convert that to dimond shape for the drawing part only.

Quote:

---

Originally posted by Electroman
Not sure if this is the best in practice but I would do everything as if the map was square then just the rendering stage would convert that to dimond shape for the drawing part only.

---

But then you have the problem we're having which is allowing the user to click a tile where it's drawn. :confused:

Also, isn't that what he's done??

But if thats what you've done isn't it a simple process of running an X,Y position though the same function but backwards. Then you use the X,Y position given out from that and use a simple grid to find out which square it lies on then?

*brambel brambel brambel*

woulndt work. and if it would please show me

Quote:

---

Originally posted by Electroman
But if thats what you've done isn't it a simple process of running an X,Y position though the same function but backwards. Then you use the X,Y position given out from that and use a simple grid to find out which square it lies on then?

---

That's what i've been puzzling over once i realized my previous suggestion, and shell's wouldn't work.

So I would say you would use this Function to get the Io position on your map (Where ZeroPos is the Origin on the iso view)

VB Code:

Private Type PointXY
    X As Integer
    Y As Integer
End Type
 
Private Function GetIsoPos(ByRef ZeroPos As PointXY, ByRef NormPos As PointXY) As PointXY
Dim Retn As PointXY
    
    Retn.X = ZeroPos.X + (NormPos.X / 2) + (NormPos.Y / 2)
    Retn.Y = ZeroPos.Y + (NormPos.Y / 2) - (NormPos.X / 2)
    
    GetIsoPos = Retn
End Function

Then all you need is a function to work this backwards?

what? i dont get it :|

do what backwords?

and how would that help

because the mouse position is gonna be in Iso and you want to know what it is in normal space. To Convert a point from Normal to Iso you would use the above function. For example:

If you put the position (TILE_WIDTH, TILE_HEIGHT) into the function it would point to here on your picture:
http://www.vbforums.com/attachment.p...postid=1793820

Assuming the Red circle marks the ZeroPosition,

i dont want to convert the mousecords to iso.
i want to determine what tile you click.

i dont really know what you mean

But once you have the Mouse position in Normal coords you can then use a very simple method to determine which tile the position is on.....

pff can you write an example project, i still dont get it

yea, just noticed your grid is based on 0,0 being the topmost position so the Function I posted above woill be a little different (chnage the minus sign to a plus ;))

Will make a example in a sec....

Quote:

---

Originally posted by Electroman
yea, just noticed your grid is based on 0,0 being the topmost position so the Function I posted above woill be a little different (chnage the minus sign to a plus ;))

Will make a example in a sec....

---

i apriciated your help alot :bigyello:
and thanks slh and merri too

Here you go, I've missed out the GetNormPos() Function but I'm still thinking of the best way to do it. The project demonstrates how to use the function above to convert a normal position to Iso then the mouse position back to Normal Position and then select the appropriate tile.

*** thats wierd. how can that help

Guess you need the GetNormPos() function completed before you'll understand :doh: