Isometric game question. - GameCreators Forum

Author

Message

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 15th Aug 2003 20:26

Link

Would it be possible to make this code so the game knows what tile/plain the mouse is over?

`load image "land.bmp",1
`load image "dessert.bmp",2
`load image "water.bmp",3
`load image "forrest.bmp",4
hide mouse
b = 1
sync on
backdrop on
color backdrop 0
for x = 0 to 9
for z = 0 to 9
read a
make object plain b,50,50 ; position object b,x*50,0,z*50 ; xrotate object b,90
`texture object b,a
b = b + 1
next z
next x
position camera 250,100,250
turn camera right 45
pitch camera down 20
do
x# = camera position x()
z# = camera position z()
if mousey() = 479 then x# = x# - 1 ; z# = z# - 1
if mousey() = 0 then x# = x# + 1 ; z# = z# + 1
if mousex() = 639 then x# = x# + 1 ; z# = z# - 1
if mousex() = 0 then x# = x# - 1 ; z# = z# + 1
position camera x#,100,z#
ink rgb(255,255,255),0
circle mousex(),mousey(),5
ink 0,0
dot mousex(),mousey()
sync
loop
data 3,3,3,3,4,4,4,4,4,4
data 3,1,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,1,1,1,1,1,1
data 3,4,3,3,1,2,2,2,2,2
data 3,1,3,3,1,2,2,2,2,2
data 3,3,3,3,1,2,2,2,2,2

+ Code Snippet

`load image "land.bmp",1
`load image "dessert.bmp",2
`load image "water.bmp",3
`load image "forrest.bmp",4
hide mouse
b = 1
sync on
backdrop on
color backdrop 0
for x = 0 to 9
for z = 0 to 9
read a
make object plain b,50,50 ; position object b,x*50,0,z*50 ; xrotate object b,90
`texture object b,a
b = b + 1
next z
next x
position camera 250,100,250
turn camera right 45
pitch camera down 20
do
x# = camera position x()
z# = camera position z()
if mousey() = 479 then x# = x# - 1 ; z# = z# - 1
if mousey() = 0 then x# = x# + 1 ; z# = z# + 1
if mousex() = 639 then x# = x# + 1 ; z# = z# - 1
if mousex() = 0 then x# = x# - 1 ; z# = z# + 1
position camera x#,100,z#
ink rgb(255,255,255),0
circle mousex(),mousey(),5
ink 0,0
dot mousex(),mousey()
sync
loop
data 3,3,3,3,4,4,4,4,4,4
data 3,1,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,1,1,1,1,1,1
data 3,4,3,3,1,2,2,2,2,2
data 3,1,3,3,1,2,2,2,2,2
data 3,3,3,3,1,2,2,2,2,2

"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 17th Aug 2003 07:01

Link

Fixed up the code a bit, can anyone help me?

`load image commands(not used)
`load image "land.bmp",1
`load image "dessert.bmp",2
`load image "water.bmp",3
`load image "forrest.bmp",4

`hide the mouse
hide mouse

`declare object variable
b = 1

`turn sync on
sync on

`set the backdrop to black
backdrop on
color backdrop 0

`begin the loop making the x tiles of the game
for x = 0 to 9
	
	`begin the loop making the z tiles of the game
	for z = 0 to 9

`read the data
		read a
		
		`make and rotate the object
		make object plain b,50,50 ; position object b,x*50,0,z*50 ; xrotate object b,90
		
		`texture the object the specified color(not used)
		`texture object b,a
		
		`increment the object variable
		b = b + 1
	
	next z

next x

`get the camera positioned correctly
position camera 250,100,250
turn camera right 45
pitch camera down 20

`begin the main loop
do
	
	`make the camera variable
	x# = camera position x()
	z# = camera position z()

`check to see if the mouse has gone off the edge
	`if so moves the camera
	if mousey() = 479 then x# = x# - 1 ; z# = z# - 1
	if mousey() = 0 then x# = x# + 1 ; z# = z# + 1
	if mousex() = 639 then x# = x# + 1 ; z# = z# - 1
	if mousex() = 0 then x# = x# - 1 ; z# = z# + 1

`reposition the camera
	position camera x#,100,z#
	
	`make the cursor
	ink rgb(255,255,255),0
	circle mousex(),mousey(),5
	ink 0,0
	dot mousex(),mousey()
	
	`sychronize
	sync

`end main loop
loop

`data used for generating the tiles(barely used)
data 3,3,3,3,4,4,4,4,4,4
data 3,1,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,1,1,1,1,1,1
data 3,4,3,3,1,2,2,2,2,2
data 3,1,3,3,1,2,2,2,2,2
data 3,3,3,3,1,2,2,2,2,2

+ Code Snippet

`load image commands(not used)
`load image "land.bmp",1
`load image "dessert.bmp",2
`load image "water.bmp",3
`load image "forrest.bmp",4

`hide the mouse
hide mouse

`declare object variable
b = 1

`turn sync on
sync on

`set the backdrop to black
backdrop on
color backdrop 0

`begin the loop making the x tiles of the game
for x = 0 to 9
	
	`begin the loop making the z tiles of the game
	for z = 0 to 9

		`read the data
		read a
		
		`make and rotate the object
		make object plain b,50,50 ; position object b,x*50,0,z*50 ; xrotate object b,90
		
		`texture the object the specified color(not used)
		`texture object b,a
		
		`increment the object variable
		b = b + 1
	
	next z

next x

`get the camera positioned correctly
position camera 250,100,250
turn camera right 45
pitch camera down 20

`begin the main loop
do
	
	`make the camera variable
	x# = camera position x()
	z# = camera position z()

	`check to see if the mouse has gone off the edge
	`if so moves the camera
	if mousey() = 479 then x# = x# - 1 ; z# = z# - 1
	if mousey() = 0 then x# = x# + 1 ; z# = z# + 1
	if mousex() = 639 then x# = x# + 1 ; z# = z# - 1
	if mousex() = 0 then x# = x# - 1 ; z# = z# + 1

	`reposition the camera
	position camera x#,100,z#
	
	`make the cursor
	ink rgb(255,255,255),0
	circle mousex(),mousey(),5
	ink 0,0
	dot mousex(),mousey()
	
	`sychronize
	sync

`end main loop
loop

`data used for generating the tiles(barely used)
data 3,3,3,3,4,4,4,4,4,4
data 3,1,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,1,1,1,1,1,1
data 3,4,3,3,1,2,2,2,2,2
data 3,1,3,3,1,2,2,2,2,2
data 3,3,3,3,1,2,2,2,2,2

"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 22nd Aug 2003 02:34 Edited at: 23rd Aug 2003 08:00

Link

Please can anyone help me? I want to know how to let the game know what plain the mouse is pointing to. By the way I am using DarkBASIC Classic. This code might make it easier to see:

`load image commands(not used)
`load image "land.bmp",1
`load image "dessert.bmp",2
`load image "water.bmp",3
`load image "forrest.bmp",4

`hide the mouse
hide mouse

`declare object variable
b = 1

`turn sync on
sync on

`set the backdrop to black
backdrop on
color backdrop 0

`begin the loop making the x tiles of the game
for x = 0 to 9
	
	`begin the loop making the z tiles of the game
	for z = 0 to 9

`read the data
		read a
		
		`make and rotate the object
		make object plain b,50,50 ; position object b,x*50,0,z*50 ; xrotate object b,90
		
		`texture the object the specified color(not used)
		color object b,rgb(a*50,a*50,a*50)
		
		`increment the object variable
		b = b + 1
	
	next z

next x

`get the camera positioned correctly
position camera 250,100,250
turn camera right 45
pitch camera down 20

`begin the main loop
do
	
	`make the camera variable
	x# = camera position x()
	z# = camera position z()

`check to see if the mouse has gone off the edge
	`if so moves the camera
	if mousey() = 479 then x# = x# - 1 ; z# = z# - 1
	if mousey() = 0 then x# = x# + 1 ; z# = z# + 1
	if mousex() = 639 then x# = x# + 1 ; z# = z# - 1
	if mousex() = 0 then x# = x# - 1 ; z# = z# + 1

`reposition the camera
	position camera x#,100,z#
	
	`make the cursor
	ink rgb(255,255,255),0
	circle mousex(),mousey(),5
	ink 0,0
	dot mousex(),mousey()
	
	`sychronize
	sync

`end main loop
loop

`data used for generating the tiles(barely used)
data 3,3,3,3,4,4,4,4,4,4
data 3,1,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,1,1,1,1,1,1
data 3,4,3,3,1,2,2,2,2,2
data 3,1,3,3,1,2,2,2,2,2
data 3,3,3,3,1,2,2,2,2,2

+ Code Snippet

`load image commands(not used)
`load image "land.bmp",1
`load image "dessert.bmp",2
`load image "water.bmp",3
`load image "forrest.bmp",4

`hide the mouse
hide mouse

`declare object variable
b = 1

`turn sync on
sync on

`set the backdrop to black
backdrop on
color backdrop 0

`begin the loop making the x tiles of the game
for x = 0 to 9
	
	`begin the loop making the z tiles of the game
	for z = 0 to 9

		`read the data
		read a
		
		`make and rotate the object
		make object plain b,50,50 ; position object b,x*50,0,z*50 ; xrotate object b,90
		
		`texture the object the specified color(not used)
		color object b,rgb(a*50,a*50,a*50)
		
		`increment the object variable
		b = b + 1
	
	next z

next x

`get the camera positioned correctly
position camera 250,100,250
turn camera right 45
pitch camera down 20

`begin the main loop
do
	
	`make the camera variable
	x# = camera position x()
	z# = camera position z()

	`check to see if the mouse has gone off the edge
	`if so moves the camera
	if mousey() = 479 then x# = x# - 1 ; z# = z# - 1
	if mousey() = 0 then x# = x# + 1 ; z# = z# + 1
	if mousex() = 639 then x# = x# + 1 ; z# = z# - 1
	if mousex() = 0 then x# = x# - 1 ; z# = z# + 1

	`reposition the camera
	position camera x#,100,z#
	
	`make the cursor
	ink rgb(255,255,255),0
	circle mousex(),mousey(),5
	ink 0,0
	dot mousex(),mousey()
	
	`sychronize
	sync

`end main loop
loop

`data used for generating the tiles(barely used)
data 3,3,3,3,4,4,4,4,4,4
data 3,1,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,4,4,4,4,4,4
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,3,3,3,3,3,3
data 3,4,3,3,1,1,1,1,1,1
data 3,4,3,3,1,2,2,2,2,2
data 3,1,3,3,1,2,2,2,2,2
data 3,3,3,3,1,2,2,2,2,2

"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 23rd Aug 2003 21:01

Link

Why isn't anyone helping me?

"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 24th Aug 2003 21:06

Link

Please, can anyone help me with my problem?

"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949

Back to top

Profile PM

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 24th Aug 2003 21:47 Edited at: 25th Aug 2003 00:33

Link

if you had Pro you could use the pick object command, but since you ain`t you have a much harder problem and thats why it all went quite all of a sudden

,some of the things you could do are to move an object at z1000 so that it has screenx and screeny the same as the pointer, then have a long box that is pointed at the object and positioned at the pointers position, so any object it hits would be under the pointer, then just check for that object colliding with a tile number, if it has then you have the tile you pointed to, you can move the far object with a binary search of the correct screen value, it`s not that easy to do, the other way would be to rethink tile selection and highlight the tiles as you move the mouse, I assume you have the tiles in ranks like this

123
456
789

so when you move the mouse up/down you add/subtract (in this example) 3 to the position, when you go left/right then you just add or subtract 1, this would give you the number of the tile and you could then swap it for a lighter coloured tile to make it look highlighted, so when you move the mouse the tiles lighten and darken as you move forwards/backwards, and that shows what tile is selected (like block select in Dungeon Keeper), another way would be to use the object screen x and object screen y commands to find the screen position of the center of the tile and then check for the pointer being close to that position, or place VERY small triangles at the four edges of the tiles just underneath and the check their screen positions compared to the pointer, any of those will work, just a matter of what you want, cheers.

Mentor.

Back to top

Profile PM

koshi

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Cyberspace

Posted: 25th Aug 2003 00:26 Edited at: 25th Aug 2003 00:27

Link

[edited]

Famous last words -
Pull the pin and count to what?

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 25th Aug 2003 19:18 Edited at: 25th Aug 2003 19:24

Link

OK, I think I understand. Thanks.
EDIT: I downloaded the DBPro Trial, could you tell me the syntax for the pick object command? I can't find it in the help document. Thanks.

"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949

Back to top

Profile PM

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 25th Aug 2003 19:44 Edited at: 25th Aug 2003 19:45

Link

pick object came in with patch 5, I am not sure if it is on the demo, but the syntax is

selected=pick object screenx,screeny,start,end

where selected is the number of the object at the screen co-ordinates screenx and screeny, start and end allow you to have objects ignored, for example if you had tiles from object number 1 to 50 then start would be 1 and end would be 50, that way you only select the tiles and not any objects that may be stood on them, if there was no object in range stood there then you would get a return of 0, you would use it like this

if mouseclick()=1 then tile_selected=pick object cursorx,cursory,first_tile_number,last_tile_number

that would return the number of the tile you clicked on, it`s a realy welcome function and pixel perfect, you can select right on the edge of an irregular object and it detects it every time, and much easier than having to code a pick object routine.

Mentor.

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 26th Aug 2003 19:44

Link

Thanks, I think I'm going to save for DBPro.

"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Isometric game question.