Coordinates for 2D game
I'm making a 2D game where i need a coordinate system to move the player, and i have no idea how to do it.
The system needs this requirements:
1. clickable coordinates, so when i click a coordinate, i will have a picture move to that specific coordinate.
2. Different images for different coordinates, and ability to check what image they have.
And just for the record, I dont want to create 94 buttons or something to make this work...
For mine i use a 2 dimensional array of points.
Dim X, Y AsInteger
X = Loc.X
Y = Loc.Y
For Lp AsInteger = 0 To Gloc.GetLength(0) - 1
Y = Loc.Y
For lP2 AsInteger = 0 To Gloc.GetLength(1) - 1
Gloc(Lp, lP2) = New Point(X, Y)
Y += Height
X += Width
Loc is the start location of the grid, Gloc is my array holding the points, X would be the 0 dimesion, and Y the 1 dimension
now that we have this we need to know which tile has been clicked so lets look at that now
Function Return_Tile(ByVal FrmPoint As Point) As Point
Dim FrmX, FrmY AsDouble
'if the point is within the grid
If Is_Within(FrmPoint, Loc, Bounding_Rectangle.Height, Bounding_Rectangle.Width) = TrueThen
'adjust the point so that on the amount that it intersect with the grid is used to calulate the tile
FrmX = (FrmPoint.X - Loc.X) / (Tile_Width)
FrmY = (FrmPoint.Y - Loc.Y) / (Tile_Height)
'Since this is alway a value of 5.5 would return 6 we must round down for all decimals places
FrmX = Decimal.Floor(FrmX)
FrmY = Decimal.Floor(FrmY)
' If not in grid the select first tile, looking of a better way to handle this mabye just return it current location.
FrmX = 0
FrmY = 0
ReturnNew Point(FrmX, FrmY)
You can use cursor.postion if you grid use screen coordiinates or the E from the control you using on the mouse click event E.location as FRMPoint
with these this you should be able to create a grid formed from points and find the out which tile was clicked.
also you will need this function to use the one above simple really just check to see if a point is within a rectangle
PublicFunction Is_Within(ByVal Loc1 As Point, ByVal Loc2 As Point, ByVal Height AsInteger, ByVal Width AsInteger) AsBoolean
If Loc1.X >= Loc2.X And Loc1.X <= Loc2.X + Width And Loc1.Y >= Loc2.Y And Loc1.Y <= Loc2.Y + Height Then
Last edited by Drowjam; 10-31-2011 at 11:56 PM.
Reason: wanted to add another function
Thanks! I've been looking at the code, at it seems to make sense
Anyway, there is no declaration for bounding_rectangle and Tile_Width... What should I declare them as or are they some kind of miss-spelled function?
Thanks for the reply!
I tried to dim Tile_width as integer and set it to 30, to make the tiles 30 pixels wide. Then i realized that bounding_rectangle.width was basically the same as tile_width, so i replaced it with that. I made a test by trying to move a label to the tiles i clicked, but it always ended up in the upper left corner
I'm sorry, but i just can't make it work at all...
But i've got the concept of how to do it, and if I find the solution, i will post it here later
Tags for this Thread