Isometric tile engine - GameCreators Forum

Author

Message

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 12th Apr 2003 20:46

Link

I am working on an Isometric tile engine / tutorial. More specifically I am porting the code from the book "Isometric Game Programming with DirectX 7.0", by ernest Pazera , which was originally written in C++, to DarkBasic.

I am curious to find out if anybody (especially newbies) is interested in this. I know that I had a hard time moving from straight down tile maps to Isometric maps. If you are curious to see a basic example you can copy the following code snippet to see what I am talking about. You will just need to create 4 simple isometric tiles which are explained in the beginning of the code. This is just a sample demo. The actual engine will be seperated into functions, and come with an actual mapmaker, and other features such as fringes, height maps, scrolling, tilewalker, pathing AI etc...

please let me know if you are interested.

Rem Project: IsoHexDemo
Rem Created: 4/9/2003 7:25:35 PM

remstart
*******************************************************************************************
*  Isometric Tile Engine for DarkBasic Pro                                                *
*                                                                                         *
*  Translated by [Zenassem] Edward Jomisko                                                *
*  Adapted from the book: "Isometric Game Programming With DirectX 7.0" by Ernest Pazera  *
*                                                                                         *
*  Note: The original code was written in C++                                             *
*  This work is an attempt to port the code to the DarkBasic Programming language         *
*******************************************************************************************

Isometric [Diamond Type] Engine will contain the following components

TilePlotter:  Converts actual array indexes into Screen coordinates
MouseMap   :  Converts Screen Coordiates into actual array indexes
TileWalker :

remend

Rem ***** Main Source File *****
rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** I N I T I Al I Z A T I O N *****
init:
FL_Gamedone=0

rem ***** Load World Tiles *****
remstart
Tiles are created as follows:
size: 64x32  (0-63x0-31)
transparent pixels are represented as:   0
textured pixels are represented as:      1

Note!!!:
It is important that your .bmp images follow this pattern in order
to ensure that when the tiles are blitted, the connected edges line
up without any missing pixels.

Note!!!: The last row is left empty

For a demo
1. create 4 tiles of different color using the following pattern
2. save the tiles in you project directory as:
            land.bmp        (make this tile all light green)
            dessert.bmp     (make this tile all light brown)
            water.bmp       (make this tile all blue)
            forrest.bmp     (make this tile all dark green)

0123456789111111111122222222223333333333444444444455555555556666
              012345678901234567890123456789012345678901234567890123

0   0000000000000000000000000000001111000000000000000000000000000000
1   0000000000000000000000000000111111110000000000000000000000000000
2   0000000000000000000000000011111111111100000000000000000000000000
3   0000000000000000000000001111111111111111000000000000000000000000
4   0000000000000000000000111111111111111111110000000000000000000000
5   0000000000000000000011111111111111111111111100000000000000000000
6   0000000000000000001111111111111111111111111111000000000000000000
7   0000000000000000111111111111111111111111111111110000000000000000
8   0000000000000011111111111111111111111111111111111100000000000000
9   0000000000001111111111111111111111111111111111111111000000000000
10  0000000000111111111111111111111111111111111111111111110000000000
11  0000000011111111111111111111111111111111111111111111111100000000
12  0000001111111111111111111111111111111111111111111111111111000000
13  0000111111111111111111111111111111111111111111111111111111110000
14  0011111111111111111111111111111111111111111111111111111111111100
15  1111111111111111111111111111111111111111111111111111111111111111
16  0011111111111111111111111111111111111111111111111111111111111100
17  0000111111111111111111111111111111111111111111111111111111110000
18  0000001111111111111111111111111111111111111111111111111111000000
19  0000000011111111111111111111111111111111111111111111111100000000
20  0000000000111111111111111111111111111111111111111111110000000000
21  0000000000001111111111111111111111111111111111111111000000000000
22  0000000000000011111111111111111111111111111111111100000000000000
23  0000000000000000111111111111111111111111111111110000000000000000
24  0000000000000000001111111111111111111111111111000000000000000000
25  0000000000000000000011111111111111111111111100000000000000000000
26  0000000000000000000000111111111111111111110000000000000000000000
27  0000000000000000000000001111111111111111000000000000000000000000
28  0000000000000000000000000011111111111100000000000000000000000000
29  0000000000000000000000000000111111110000000000000000000000000000
30  0000000000000000000000000000001111000000000000000000000000000000
31  0000000000000000000000000000000000000000000000000000000000000000

remend

load image "land.bmp", 1
load image "dessert.bmp",2
load image "water.bmp",3
load image "forrest.bmp",4

rem ***** Initialize World Constants *****
TileWidth=64
TileHeight=32
WorldSizeX=20
WorldSizeY=20

rem ***** Initialize World Map *****
restore worlddata
dim Ar_World(WorldSizeX,WorldSizeY)

for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         read ImageNumber
         Ar_World(MapX,MapY) = ImageNumber
      next MapX
   next MapY

rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** M A I N  G A M E  L O O P *****
main:
while FL_GameDone1

rem ***** Tile Plotter *****
   for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         ImageNumber = Ar_World(MapX,MapY)
         ptMapX=MapX
         ptMapY=MapY
         ptScreenX=(ptMapX-ptMapY)*TileWidth/2+offsetx
         ptScreenY=(ptMapX+ptMapY)*TileHeight/2+offsety
         paste image ImageNumber , ptScreenX, ptScreenY, 1
      next MapX
   next MapY

wait key
FL_GameDone=1
endwhile

rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** D A T A *****
worlddata:
rem ****** Change these values to create different maps
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,2,2,2,2,2,1,1,4,4,1,1,1,1,1,1,1,1,1,1
data 1,2,2,3,3,2,2,1,1,4,4,1,1,1,1,1,1,1,1,1
data 1,2,3,3,3,2,1,1,1,4,4,4,1,1,1,1,1,1,1,1
data 1,2,3,3,3,2,2,2,1,1,4,4,1,1,1,1,1,1,1,1
data 1,2,3,3,3,3,3,2,2,1,4,1,1,1,1,1,1,1,1,1
data 1,2,2,3,3,3,3,3,2,2,1,1,1,1,1,1,1,1,1,1
data 1,1,2,2,3,3,3,3,2,2,1,1,1,1,1,1,1,1,1,1
data 1,4,4,2,2,3,3,2,2,1,1,1,1,1,1,1,1,1,1,1
data 1,4,4,4,2,2,2,2,1,1,4,1,1,1,1,1,1,1,1,1
data 1,1,4,4,4,1,1,1,1,4,4,1,1,1,1,1,1,1,1,1
data 1,1,4,4,4,4,4,1,4,4,4,1,1,1,1,1,1,1,1,1
data 1,1,1,1,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

Rem Project: IsoHexDemo
Rem Created: 4/9/2003 7:25:35 PM

remstart
*******************************************************************************************
*  Isometric Tile Engine for DarkBasic Pro                                                *
*                                                                                         *
*  Translated by [Zenassem] Edward Jomisko                                                *
*  Adapted from the book: "Isometric Game Programming With DirectX 7.0" by Ernest Pazera  *
*                                                                                         *
*  Note: The original code was written in C++                                             *
*  This work is an attempt to port the code to the DarkBasic Programming language         *
*******************************************************************************************

Isometric [Diamond Type] Engine will contain the following components

TilePlotter:  Converts actual array indexes into Screen coordinates
MouseMap   :  Converts Screen Coordiates into actual array indexes
TileWalker :

remend



Rem ***** Main Source File *****
rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** I N I T I Al I Z A T I O N *****
init:
FL_Gamedone=0

rem ***** Load World Tiles *****
remstart
Tiles are created as follows:
size: 64x32  (0-63x0-31)
transparent pixels are represented as:   0
textured pixels are represented as:      1

Note!!!:
It is important that your .bmp images follow this pattern in order
to ensure that when the tiles are blitted, the connected edges line
up without any missing pixels.

Note!!!: The last row is left empty

For a demo
1. create 4 tiles of different color using the following pattern
2. save the tiles in you project directory as:
            land.bmp        (make this tile all light green)
            dessert.bmp     (make this tile all light brown)
            water.bmp       (make this tile all blue)
            forrest.bmp     (make this tile all dark green)

    0123456789111111111122222222223333333333444444444455555555556666
              012345678901234567890123456789012345678901234567890123

0   0000000000000000000000000000001111000000000000000000000000000000
1   0000000000000000000000000000111111110000000000000000000000000000
2   0000000000000000000000000011111111111100000000000000000000000000
3   0000000000000000000000001111111111111111000000000000000000000000
4   0000000000000000000000111111111111111111110000000000000000000000
5   0000000000000000000011111111111111111111111100000000000000000000
6   0000000000000000001111111111111111111111111111000000000000000000
7   0000000000000000111111111111111111111111111111110000000000000000
8   0000000000000011111111111111111111111111111111111100000000000000
9   0000000000001111111111111111111111111111111111111111000000000000
10  0000000000111111111111111111111111111111111111111111110000000000
11  0000000011111111111111111111111111111111111111111111111100000000
12  0000001111111111111111111111111111111111111111111111111111000000
13  0000111111111111111111111111111111111111111111111111111111110000
14  0011111111111111111111111111111111111111111111111111111111111100
15  1111111111111111111111111111111111111111111111111111111111111111
16  0011111111111111111111111111111111111111111111111111111111111100
17  0000111111111111111111111111111111111111111111111111111111110000
18  0000001111111111111111111111111111111111111111111111111111000000
19  0000000011111111111111111111111111111111111111111111111100000000
20  0000000000111111111111111111111111111111111111111111110000000000
21  0000000000001111111111111111111111111111111111111111000000000000
22  0000000000000011111111111111111111111111111111111100000000000000
23  0000000000000000111111111111111111111111111111110000000000000000
24  0000000000000000001111111111111111111111111111000000000000000000
25  0000000000000000000011111111111111111111111100000000000000000000
26  0000000000000000000000111111111111111111110000000000000000000000
27  0000000000000000000000001111111111111111000000000000000000000000
28  0000000000000000000000000011111111111100000000000000000000000000
29  0000000000000000000000000000111111110000000000000000000000000000
30  0000000000000000000000000000001111000000000000000000000000000000
31  0000000000000000000000000000000000000000000000000000000000000000


remend


load image "land.bmp", 1
load image "dessert.bmp",2
load image "water.bmp",3
load image "forrest.bmp",4

rem ***** Initialize World Constants *****
TileWidth=64
TileHeight=32
WorldSizeX=20
WorldSizeY=20

rem ***** Initialize World Map *****
restore worlddata
dim Ar_World(WorldSizeX,WorldSizeY)

   for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         read ImageNumber
         Ar_World(MapX,MapY) = ImageNumber
      next MapX
   next MapY


rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** M A I N  G A M E  L O O P *****
main:
while FL_GameDone1

rem ***** Tile Plotter *****
   for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         ImageNumber = Ar_World(MapX,MapY)
         ptMapX=MapX
         ptMapY=MapY
         ptScreenX=(ptMapX-ptMapY)*TileWidth/2+offsetx
         ptScreenY=(ptMapX+ptMapY)*TileHeight/2+offsety
         paste image ImageNumber , ptScreenX, ptScreenY, 1
      next MapX
   next MapY

wait key
FL_GameDone=1
endwhile


rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** D A T A *****
worlddata:
rem ****** Change these values to create different maps
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,2,2,2,2,2,1,1,4,4,1,1,1,1,1,1,1,1,1,1
data 1,2,2,3,3,2,2,1,1,4,4,1,1,1,1,1,1,1,1,1
data 1,2,3,3,3,2,1,1,1,4,4,4,1,1,1,1,1,1,1,1
data 1,2,3,3,3,2,2,2,1,1,4,4,1,1,1,1,1,1,1,1
data 1,2,3,3,3,3,3,2,2,1,4,1,1,1,1,1,1,1,1,1
data 1,2,2,3,3,3,3,3,2,2,1,1,1,1,1,1,1,1,1,1
data 1,1,2,2,3,3,3,3,2,2,1,1,1,1,1,1,1,1,1,1
data 1,4,4,2,2,3,3,2,2,1,1,1,1,1,1,1,1,1,1,1
data 1,4,4,4,2,2,2,2,1,1,4,1,1,1,1,1,1,1,1,1
data 1,1,4,4,4,1,1,1,1,4,4,1,1,1,1,1,1,1,1,1
data 1,1,4,4,4,4,4,1,4,4,4,1,1,1,1,1,1,1,1,1
data 1,1,1,1,4,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Back to top

Profile PM Email

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 13th Apr 2003 02:54

Link

i am extemely interested. lol. it looks pretty cool

Just got DBPro. After a lots of small things to learn, i plan on creating an Isometric RPG
I consider myself: ABSOLUTE NEWB!!!!!!!!!!

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 13th Apr 2003 05:28

Link

Thanks Armeggadon! I will keep you updated on the progress of the engine. I plan to release with a full tutorial and demo game (real time strategy/tactics). I am also going to include a standard top-down tile-engine.

If I like the response, I will add a hexagon tile-engine as well.

Back to top

Profile PM Email

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 13th Apr 2003 16:00

Link

thats cool. im having fun just kind of playing around ith it. cant wait to see more progress.

Just got DBPro. After a lots of small things to learn, i plan on creating an Isometric RPG
I consider myself: ABSOLUTE NEWB!!!!!!!!!!

Back to top

Profile PM Email Website

Angeleyes

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location:

Posted: 13th Apr 2003 17:01 Edited at: 13th Apr 2003 17:01

Link

Wow, this takes me back a bit. ^_~

Many years ago I helped on a project called "Castles & Kings" which was an Iso-game for Amiga Format.

Here is a picture for you to see how it looked...

The idea was to build armies, cast magic and take over all 5 kingdoms from the computer AI characters.

I was a great game, and I have always wanted to try and convert it to Darkbasic....But that will not be going on yet as our WIP is MUCH more important than any personal projects.

Still..... I see your using something similar in the way of routines, to how we did our Iso-map.

It looks good so far.

Ta ta for now
Mary

Back to top

Profile PM Website

Angeleyes

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location:

Posted: 19th Apr 2003 23:57

Link

Zenassem, how is it going then?
Any updates??

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 20th Apr 2003 00:17

Link

Yes, i added mouse scroling ala "command and conquer" as well as code to omly draw what is in a worldview rectangle. i will post the source at 9:30pm eastern standard time, as I have to go to work right now.

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 20th Apr 2003 19:17

Link

Here is the updated code. Note": I removed the text on how to create the iso tiles, also you need to have a cursor.bmp file in this version.

Rem Project: IsoHexDemo
Rem Created: 4/9/2003 7:25:35 PM

remstart
*******************************************************************************************
*  Isometric Tile Engine for DarkBasic Pro                                                *
*                                                                                         *
*  Translated by [Zenassem] Edward Jomisko                                                *
*  Adapted from the book: "Isometric Game Programming With DirectX 7.0" by Ernest Pazera  *
*                                                                                         *
*  Note: The original code was written in C++                                             *
*  This work is an attempt to port the code to the DarkBasic Programming language         *
*******************************************************************************************

Isometric [Diamond Type] Engine will contain the following components

TilePlotter:  Converts actual array indexes into Screen coordinates
MouseMap   :  Converts Screen Coordiates into actual array indexes
TileWalker :

***** Tiles ******
Tiles are created as follows:
size: 64x32  (0-63x0-31)
transparent pixels are represented as:   0
textured pixels are represented as:      1
remend

Rem ***** Main Source File *****
rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** I N I T I Al I Z A T I O N *****

ink 0,0
sync rate 0
sync on
hide mouse

rem ***** Game Flags *****
FL_GameDone=0

rem ***** Load Cursor *****
load bitmap "cursor.bmp",1
get image 100,0,0,11,17
delete bitmap 1

rem ***** May try to use types need to find out if they can be passed to functions !!!!!e rect

rem ***** Load World Tiles *****
load image "land.bmp", 1
load image "dessert.bmp",2
load image "water.bmp",3
load image "forrest.bmp",4
load image "roadse.bmp",5
load image "roadsw.bmp",6
load image "road4.bmp",7
load image "road6.bmp",8
load image "rightpanel.bmp",200
rem ***** Initialize World Constants *****
global TileWidth=64
global TileHeight=32
global WorldSizeX=40
global WorldSizeY=40
global offsetx=0
global offsety=0
global cursorx=20
global cursory=20
global wx=480
global wy=416
global dim Ar_World(WorldSizeX,WorldSizeY)

rem ***** Initialize World Map *****
restore worlddata

for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         read ImageNumber
         Ar_World(MapX,MapY) = ImageNumber
      next MapX
   next MapY
goto main

rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** F U N C T I O N S *****

rem ******* Tile_Plotter()
function Tile_Plotter()
 for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         ImageNumber = Ar_World(MapX,MapY)
         ptMapX=MapX
         ptMapY=MapY
         ptScreenX=(ptMapX-ptMapY)*TileWidth/2
         ptScreenY=(ptMapX+ptMapY)*TileHeight/2
          if ptScreenX+offsetx < wx and ptScreenY+offsetY< wy
         paste image ImageNumber , ptScreenX+offsetX, ptScreenY+offsety, 1
         endif
      next MapX
   next MapY
endfunction

rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** M A I N  G A M E  L O O P *****
main:

sprite 1,320,240,100
while FL_GameDone<>1
cls 1

Tile_Plotter()

if escapekey()=1 then FL_GameDone=1
   if rightkey()=1 then offsetx=offsetx-32
   if leftkey()=1 then offsetx=offsetx+32
   if downkey()=1 then offsety=offsety-32
   if upkey()=1 then offsety=offsety+32
   gosub handle_mouse
   box 480,0,639,479
   box 0,416,481,479
   paste image 200,482,0
sync
endwhile
rem ***** E N D  O F  M A I N  L O O P ******
rem ////////////////////////////////////////////////////////////////////////////////////////

handle_mouse:
 cursorx=mousex()
 cursory=mousey()
   paste sprite 1,cursorx,cursory

rem ***** Scroll East *****
   if cursorx>630 and cursory>60 and cursory<420
      offsetx=offsetx-8
   endif

rem ***** Scroll West *****
   if cursorx<10 and cursory>60 and cursory<420
      offsetx=offsetx+8
   endif

rem ***** Scroll North *****
   if cursory<10 and cursorx>60 and cursorx<590
      offsety=offsety+8
   endif

rem ***** Scroll South *****
   if cursory>470 and cursorx>60 and cursorx<590
      offsety=offsety-8
   endif

rem ***** Scroll N.E. *****
   if cursorx>630 and cursory<60
      offsetx=offsetx-8
      offsety=offsety+8
   endif

rem ***** Scroll S.E. *****
   if cursorx>630 and cursory>420
      offsetx=offsetx-8
      offsety=offsety-8
   endif

rem ***** Scroll N.W. *****
   if cursorx<10 and cursory<60
      offsetx=offsetx+8
      offsety=offsety+8
   endif

rem ***** Scroll S.W. *****
   if cursorx<10 and cursory>420
      offsetx=offsetx+8
      offsety=offsety-8
   endif
return

rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** D A T A *****
worlddata:
rem ****** Change these values to create different maps

data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,4,4,2,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,7,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,2,2,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,3,3,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,2,3,3,3,3,3,4,2,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,2,3,3,3,3,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,2,2,3,3,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,2,2,2,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,8,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,4,4,2,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,7,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,2,2,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,3,3,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,2,3,3,3,3,3,4,2,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,2,3,3,3,3,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,2,2,3,3,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,2,2,2,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,8,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4

+ Code Snippet

Rem Project: IsoHexDemo
Rem Created: 4/9/2003 7:25:35 PM

remstart
*******************************************************************************************
*  Isometric Tile Engine for DarkBasic Pro                                                *
*                                                                                         *
*  Translated by [Zenassem] Edward Jomisko                                                *
*  Adapted from the book: "Isometric Game Programming With DirectX 7.0" by Ernest Pazera  *
*                                                                                         *
*  Note: The original code was written in C++                                             *
*  This work is an attempt to port the code to the DarkBasic Programming language         *
*******************************************************************************************

Isometric [Diamond Type] Engine will contain the following components

TilePlotter:  Converts actual array indexes into Screen coordinates
MouseMap   :  Converts Screen Coordiates into actual array indexes
TileWalker :

***** Tiles ******
Tiles are created as follows:
size: 64x32  (0-63x0-31)
transparent pixels are represented as:   0
textured pixels are represented as:      1
remend



Rem ***** Main Source File *****
rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** I N I T I Al I Z A T I O N *****

ink 0,0
sync rate 0
sync on
hide mouse

rem ***** Game Flags *****
FL_GameDone=0

rem ***** Load Cursor *****
load bitmap "cursor.bmp",1
get image 100,0,0,11,17
delete bitmap 1


rem ***** May try to use types need to find out if they can be passed to functions !!!!!e rect




rem ***** Load World Tiles *****
load image "land.bmp", 1
load image "dessert.bmp",2
load image "water.bmp",3
load image "forrest.bmp",4
load image "roadse.bmp",5
load image "roadsw.bmp",6
load image "road4.bmp",7
load image "road6.bmp",8
load image "rightpanel.bmp",200
rem ***** Initialize World Constants *****
global TileWidth=64
global TileHeight=32
global WorldSizeX=40
global WorldSizeY=40
global offsetx=0
global offsety=0
global cursorx=20
global cursory=20
global wx=480
global wy=416
global dim Ar_World(WorldSizeX,WorldSizeY)

rem ***** Initialize World Map *****
restore worlddata

   for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         read ImageNumber
         Ar_World(MapX,MapY) = ImageNumber
      next MapX
   next MapY
goto main


rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** F U N C T I O N S *****

rem ******* Tile_Plotter()
function Tile_Plotter()
 for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         ImageNumber = Ar_World(MapX,MapY)
         ptMapX=MapX
         ptMapY=MapY
         ptScreenX=(ptMapX-ptMapY)*TileWidth/2
         ptScreenY=(ptMapX+ptMapY)*TileHeight/2
          if ptScreenX+offsetx < wx and ptScreenY+offsetY< wy
         paste image ImageNumber , ptScreenX+offsetX, ptScreenY+offsety, 1
         endif
      next MapX
   next MapY
endfunction



rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** M A I N  G A M E  L O O P *****
main:

sprite 1,320,240,100
while FL_GameDone<>1
cls 1

Tile_Plotter()

   if escapekey()=1 then FL_GameDone=1
   if rightkey()=1 then offsetx=offsetx-32
   if leftkey()=1 then offsetx=offsetx+32
   if downkey()=1 then offsety=offsety-32
   if upkey()=1 then offsety=offsety+32
   gosub handle_mouse
   box 480,0,639,479
   box 0,416,481,479
   paste image 200,482,0
sync
endwhile
rem ***** E N D  O F  M A I N  L O O P ******
rem ////////////////////////////////////////////////////////////////////////////////////////



handle_mouse:
 cursorx=mousex()
 cursory=mousey()
   paste sprite 1,cursorx,cursory

   rem ***** Scroll East *****
   if cursorx>630 and cursory>60 and cursory<420
      offsetx=offsetx-8
   endif

   rem ***** Scroll West *****
   if cursorx<10 and cursory>60 and cursory<420
      offsetx=offsetx+8
   endif

   rem ***** Scroll North *****
   if cursory<10 and cursorx>60 and cursorx<590
      offsety=offsety+8
   endif

   rem ***** Scroll South *****
   if cursory>470 and cursorx>60 and cursorx<590
      offsety=offsety-8
   endif

   rem ***** Scroll N.E. *****
   if cursorx>630 and cursory<60
      offsetx=offsetx-8
      offsety=offsety+8
   endif

   rem ***** Scroll S.E. *****
   if cursorx>630 and cursory>420
      offsetx=offsetx-8
      offsety=offsety-8
   endif

   rem ***** Scroll N.W. *****
   if cursorx<10 and cursory<60
      offsetx=offsetx+8
      offsety=offsety+8
   endif

   rem ***** Scroll S.W. *****
   if cursorx<10 and cursory>420
      offsetx=offsetx+8
      offsety=offsety-8
   endif
return


rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** D A T A *****
worlddata:
rem ****** Change these values to create different maps

data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,4,4,2,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,7,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,2,2,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,3,3,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,2,3,3,3,3,3,4,2,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,2,3,3,3,3,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,2,2,3,3,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,2,2,2,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,8,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,4,4,2,4,4,4,4,4,4,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,7,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,2,2,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,3,3,3,3,3,2,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,2,2,3,3,3,3,3,4,2,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,2,2,3,3,3,3,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,2,2,3,3,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,2,2,2,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,5,5,5,5,5,5,5,5,8,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,6,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
data 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 20th Apr 2003 19:27 Edited at: 24th Apr 2003 03:49

Link

Here is a sample screenshot.

Note: these are not the final graphics, I am currently working on the fringeing layer, and building graphics.

And here is the beginning of a building...

http://www.geocities.com/ejomisko/mypage

Back to top

Profile PM Email

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 20th Apr 2003 19:29 Edited at: 20th Apr 2003 19:32

Link

wow haven't been here in a while. anywayz looks good so far. making good progress. itll be really kewl when its completly finished.

[edit} even though im a newb ill try to help with it if i can but right now im still trying to learn

Current Status: Learning DBPro

I consider myself: ULTRA NEWB!!!!!!!!!!!

Back to top

Profile PM Email Website

TeePee

21

Years of Service

User Offline

Joined: 18th Apr 2003

Location: Australia

Posted: 22nd Apr 2003 15:26

Link

zenassem!
When i saw the thread i just had to look because i have done some tile-based coding outside of DB. I had started to create an isometric, hexagonal game that involves detailed interaction with the surroundings. However as soon as i discovered the delights of DarkBasic I quickly forgot about the game. I would be intensely interested to see a hexagonal version of this game to help me so that i could pick up my game again. On top of that the game looks pretty good and I would like to see how it progresses.

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 22nd Apr 2003 17:45

Link

teepee,

Hey thanks for encouragement. btw, the final engine will contain the code to handle hexagonal and Isometric tiles. It will also have the capability to render slide, staggered, and diamond maps.

Also, anyone who can draw 2-d modern buildings and would like to see them in the game you can e-mail me at zenassem@hotmail.com. The buildings need to be drawn so that they can be broken up into isometric tiles and follow the pattern outlined in the 1st code snippet in this thread. the tile size is 64x32. Of course, all artists will receive credit if their design or image is used.

Back to top

Profile PM Email

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 25th Apr 2003 03:06 Edited at: 25th Apr 2003 03:14

Link

just a couple things that could be fixed

1)set up borders on the side so when you scroll it stops
2)lower the scroll speed(i set it to 10 and its manageable)

[edit} oh and im also gonna work on some buildings in spare time. what kind do you need.(i.e. skyscrapers, farm houses, barns, landmarks, etc..)

Current Status: small FPS project for a friend(if it looks good in the end may become a demo)
I consider myself: newb

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 25th Apr 2003 06:58 Edited at: 25th Apr 2003 07:03

Link

Armeggadon,
Thanks for your comments.
I am in the process of working on the scrolling limits. It's tied in with with the tilewalker, and mousemap functions.

I am looking for modern to (semi-futuristic like 2050) buildings/skyscrapers, labs, powerplants, landmarks, houses.
Also Super cities, like the Tokyo Sky City, that was part of "Extreme Engineering" on the Discovery Channel. I'll try to find the direct link, offhand I know it can be reached from...

http://www.discovery.com

here is Sky city
http://dsc.discovery.com/convergence/engineering/skycity/interactive/interactive.html

here is city in a pyra,id
http://dsc.discovery.com/convergence/engineering/pyramidcity/interactive/interactive.html

P.S. Even building sections or primatives that can be used to create complete buildings are welcome.

I am staring to wonder whether this thread should be moved to project announcemnts... given the direction it has taken.

Back to top

Profile PM Email

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 25th Apr 2003 23:06

Link

it might need to. ok ill try to help on the buildings(dont expect anythign super-d-duper amazing(im ok at drawing but not that good) oh well ill try my best

Current Status: small FPS project for a friend(if it looks good in the end may become a demo)
I consider myself: newb

Back to top

Profile PM Email Website

iac249

21

Years of Service

User Offline

Joined: 26th Mar 2003

Location: USA

Posted: 26th Apr 2003 10:05

Link

zenassem,

Good job! I own Isometric Game Programming with DirectX 7.0, but haven't gotten around to really checking it out. I'm happy to find someone taking this avenue!

Keep up the good work!

Back to top

Profile PM Email

indi

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 28th Apr 2003 09:39

Link

I have a free snippet on my site to render 3d models as 2d images with any rotation you would require.

this snippet would compliment a game shell like this

http://www.lunarpixel.com/code.htm

the 3ds to x snippet which is a little different isnt properly uploaded so just ask if u need the correct one for that different snippet.

I better fix that mistake

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 30th Apr 2003 03:25

Link

well i've been working on buildings(i have a basic home, skyscraper, and bridge concepts. ill put them up on my website in a downloadable zip but for now im still working on them. oh and im kinda fixing it up a little. i have no clue what the book says but i'll put some screenshots on my site of what i've done so far(its nothing fancy). ill load them up y the end of this week(i hope)

Current Status: learning MORE about dbpro
I consider myself: newb

Back to top

Profile PM Email Website

SpecTre1

21

Years of Service

User Offline

Joined: 24th Feb 2003

Location: United Kingdom

Posted: 30th Apr 2003 03:59

Link

Very cool, keep up the good work m8!!

Lookin forward to new updates!

New to DBPro comin from AMOS on the Amiga!

Back to top

Profile PM Email Website

Dostej

21

Years of Service

User Offline

Joined: 21st Jan 2003

Location: Switzerland

Posted: 2nd May 2003 15:59

Link

Looks great

I like that

Back to top

Profile PM Email Website

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 3rd May 2003 05:42 Edited at: 3rd May 2003 06:21

Link

wow ok the sky scraper is taking a little longer then i originally thought.(my first concept was more of a mall than a skyscraper) so i'll put up some pics of what have so far. ill edit this post once i upload the pics

[edit} http://www.geocities.com/treetopsite/screenshots.html for some reason the first screenshot doesn't work for me. it starts to load then stop. the third screen works for me and its pretty much the same spot as the first so you can see it. if the screens don't load then tell me and ill try to do something

Current Status: learning MORE about dbpro
I consider myself: newb

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th May 2003 00:45

Link

Hey, Good work. Sorry I haven't been around the last week. I've been pretty busy working out some issues with the mousemap and tilewalker code. Deciphering C++ & DirectX code get's ugly for me sometimes. It has really made me appreciate DB so much more. I'll be post the code sometime later this week hopefully.

~Zen

Back to top

Profile PM Email

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 6th May 2003 01:23 Edited at: 6th May 2003 01:33

Link

yah i know what you mean(well kinda th main thing i know is the difference in making it a windowed program or not. in C++ you have to make the handles and variables and stuff in db its a few commands or click a button. im not good at translating so i wont evev bother till i learn both languages(which im sure i will eventually) oh well. cant wait to see the progress. this is the source i have so far(i changed some of the images and also the screen so it fits in a 800x600 at the edges. im pretty sure the only images i changed were the rightpanel and cursor. i changed arounf the map a bit but thats it other than adding some images, oh and i aslo added code so that when you press the spacebar rightpanel.bmp comes up and if you press it agin it closes(you may need to change the coordinates of wher it comes up becasue yours probably isn't the same size as mine)

[edit} here are all my images for reference(i just zipped my whole tiles folder so this includes tiles not yet complete)
http://www.geocities.com/treetopsite/Tiles.zip
if it doesn't work try here
http://www.geocities.com/treetopsite/screenshots.html
in the downloads section

Current Status: learning MORE about dbpro
I consider myself: newb

Back to top

Profile PM Email Website

Loic_sephiroth

20

Years of Service

User Offline

Joined: 24th May 2003

Location:

Posted: 24th May 2003 16:10

Link

Hi there, i'm a newcomer to Dark Basic (non pro), and i have some problems with programming an iso "engine" map of my own for my civ-type game.
I'm trying to do it by myself, and so far i've done what is in the code snippet.

As i have conceived it, it should print the images loaded, but...it doesn't. It just gives me a black screen and the mouse cursor. Could someone point me what am i doing wrong?

Back to top

Profile PM

Cash Curtis III

20

Years of Service

User Offline

Joined: 12th May 2003

Location: Toronto, Canada

Posted: 24th May 2003 16:55

Link

well I don't really know what kind of buildings you need, cause the .png files i donloaded from ur link didn't work. If u want u can check out this site

http://www.sc3000.com/sc2000/scurk/fulltils2.cfm

It has lots of sprites and tile sets. Hope it helps.
p.s cool engine by the way

Back to top

Profile PM Email Website

Loic_sephiroth

20

Years of Service

User Offline

Joined: 24th May 2003

Location:

Posted: 26th May 2003 03:21

Link

zenassem , i have used your code to make an iso map maker (saving the maps in arrays, instead of the "read" and "data" style you used), but i'm stuck trying to make the program recognize what tile i'm putting the mouse in. I've tried various things but i just don't get it. Could you help me, please? I'll post the code i've done so far.

remstart
Proyecto: iso tiles map maker
Creado el: 24/5/2003

Los tiles son creados de la siguiente forma:
tamaño: 64x32
remend

sync rate 40
sync on

set display mode 1024,768,32
rem ***** contadores *****
end_game = 0

rem ***** load images *****

rem //tiles
   load image "imagenes/water.bmp", 1
   load image "imagenes/land.bmp",2
   load image "imagenes/dessert.bmp",3
   load image "imagenes/forrest.bmp",4

rem //interface
   load image "imagenes/rightpanel.bmp",300
   load image "imagenes/barra_interface_2.bmp",301
   load image "imagenes/boton_water_down.bmp",201
   load image "imagenes/boton_land_down.bmp",202
   load image "imagenes/boton_dessert_down.bmp",203
   load image "imagenes/boton_forrest_down.bmp",204

rem ***** init var*****

TileWidth=64
TileHeight=32
WorldSizeX=100
WorldSizeY=100
offsetx=0
offsety=0
cursorx=20
cursory=20
wx=864
wy=544
num_sprite = 1000
rem // variables para manejar el ratón y el cambio de tiles
posx_raton_down_1# = 0
posy_raton_down_1# = 0
posx_raton_down_2# = 0
posy_raton_down_2# = 0
posx_raton_down = 0
posy_raton_down = 0
valor_terreno = 1
dim interfaz_terrenos(4)

rem //map array
dim Ar_World(WorldSizeX,WorldSizeY)

rem ***** init the map aray *****

for MapY=0 to WorldSizeY-1

for MapX=0 to WorldSizeX-1

Ar_World(MapX,MapY) = 1

next MapX

next MapY

Ar_World(0,0) = 1
Ar_World(0,1) = 2
Ar_World(1,0) = 3
Ar_World(1,1) = 1
Ar_World(3,5) = 4
Ar_World(1,2) = 1
Ar_World(2,0) = 1
goto main

rem ***** M A I N  L O O P *****
main:

sprite 1,320,240,100
while juego_terminado = 0
cls 1

for MapY=0 to WorldSizeY-1
         for MapX=0 to WorldSizeX-1
            ImageNumber = Ar_World(MapX,MapY)
            ptMapX=MapX
            ptMapY=MapY
            ptScreenX=(ptMapX-ptMapY)*TileWidth/2
            ptScreenY=(ptMapX+ptMapY)*TileHeight/2
             if ptScreenX+offsetx < wx and ptScreenY+offsetY< wy
               paste image ImageNumber , ptScreenX+offsetX, ptScreenY+offsety, 1
               inc num_sprite
             endif
         next MapX
   next MapY

colocar_interface(scancode() )

if escapekey()=1 then juego_terminado=1
   if rightkey()=1 then offsetx=offsetx-32
   if leftkey()=1 then offsetx=offsetx+32
   if downkey()=1 then offsety=offsety-32
   if upkey()=1 then offsety=offsety+32
   if mouseclick() > 0 then modificar_tile(mouseclick(),offsetx,offsety )

gosub gestion_raton

set cursor 100,560; print mousex()
   set cursor 100,570; print mousey()
   set cursor 100,580; print offsetx
   set cursor 100,590; print offsety
   set cursor 100,600; print ptScreenX
   set cursor 100,610; print ptScreeny

sync
endwhile
rem ***** F I N  D E  M A I N  L O O P ******

gestion_raton:
 cursorx=mousex()
 cursory=mousey()
   paste sprite 1,cursorx,cursory

rem ***** Scroll East *****
   if cursorx>864 and cursory>60 and cursory<420
      offsetx=offsetx-8
   endif

rem ***** Scroll West *****
   if cursorx<10 and cursory>60 and cursory<544
      offsetx=offsetx+8
   endif

rem ***** Scroll North *****
   if cursory<10 and cursorx>60 and cursorx<864
      offsety=offsety+8
   endif

rem ***** Scroll South *****
   if cursory>544 and cursorx>60 and cursorx<864
      offsety=offsety-8
   endif

rem ***** Scroll N.E. *****
   if cursorx>864 and cursory<60
      offsetx=offsetx-8
      offsety=offsety+8
   endif

rem ***** Scroll S.E. *****
   if cursorx>864 and cursory>544
      offsetx=offsetx-8
      offsety=offsety-8
   endif

rem ***** Scroll N.W. *****
   if cursorx<10 and cursory<60
      offsetx=offsetx+8
      offsety=offsety+8
   endif

rem ***** Scroll S.W. *****
   if cursorx<10 and cursory>544
      offsetx=offsetx+8
      offsety=offsety-8
   endif

return

rem // tile swapping function

function modificar_tile(boton_cliqueado, posx_offset, posy_offset)

posx_raton_down = mousex()
   posy_raton_down = mousey()

select boton_cliqueado

case 1

rem //procedimiento para averiguar en qué casilla está el ratón
      posx_raton_down_1# = ((posx_raton_down - posx_offset)/32)
      posy_raton_down_1# = ((posy_raton_down - posy_offset)/16)

posx_raton_down_2# = posx_raton_down_1# - int((posx_raton_down - posx_offset)/32)
      posy_raton_down_2# = posy_raton_down_1# - int((posy_raton_down - posy_offset)/16)

if (posx_raton_down_2#*100 > 49) then posx_raton_down_1# = (posx_raton_down_1# + 1)
      if (posy_raton_down_2#*100 > 49) then posy_raton_down_1# = (posy_raton_down_1# + 1)

posx_raton_down = int(posx_raton_down_1#)
      posy_raton_down = int(posy_raton_down_1#)

rem //imprimir las corrdenadas de la casilla donde está el ratón
      set cursor 500, 560; print posx_raton_down
      set cursor 500, 570; print posy_raton_down

rem //cambiar el valor del terreno por el que esté seleccionado, en la casilla que apunta el ratón
      rem Ar_World(posx_raton_down,posy_raton_down) = valor_terreno

endcase
   case 2
      text 100,100,"le has dado al botón 2"
      endcase
endselect

endfunction

rem //interface function
function colocar_interface(tecla_presionada)

if ((tecla_presionada < 6) and (tecla_presionada > 1))
   valor_terreno = (tecla_presionada - 1)
endif

for i = 0 to 4 step 1

interfaz_terrenos(i) = i

next i

select valor_terreno

case 1
         interfaz_terrenos(1)=201
         endcase

case 2
         interfaz_terrenos(2)=202
         endcase

case 3
         interfaz_terrenos(3) = 203
         endcase

case 4
         interfaz_terrenos(4) = 204
         endcase

endselect

paste image 300,866,0
   paste image 301,0,544
   paste image interfaz_terrenos(1),913,50,1
   paste image interfaz_terrenos(2),913,100,1
   paste image interfaz_terrenos(3),913,150,1
   paste image interfaz_terrenos(4),913,200,1

endfunction

+ Code Snippet

remstart
Proyecto: iso tiles map maker
Creado el: 24/5/2003

Los tiles son creados de la siguiente forma:
tamaño: 64x32
remend


sync rate 40
sync on

set display mode 1024,768,32
rem ***** contadores *****
end_game = 0

rem ***** load images *****

   rem //tiles
   load image "imagenes/water.bmp", 1
   load image "imagenes/land.bmp",2
   load image "imagenes/dessert.bmp",3
   load image "imagenes/forrest.bmp",4

   rem //interface
   load image "imagenes/rightpanel.bmp",300
   load image "imagenes/barra_interface_2.bmp",301
   load image "imagenes/boton_water_down.bmp",201
   load image "imagenes/boton_land_down.bmp",202
   load image "imagenes/boton_dessert_down.bmp",203
   load image "imagenes/boton_forrest_down.bmp",204

rem ***** init var*****

TileWidth=64
TileHeight=32
WorldSizeX=100
WorldSizeY=100
offsetx=0
offsety=0
cursorx=20
cursory=20
wx=864
wy=544
num_sprite = 1000
rem // variables para manejar el ratón y el cambio de tiles
posx_raton_down_1# = 0
posy_raton_down_1# = 0
posx_raton_down_2# = 0
posy_raton_down_2# = 0
posx_raton_down = 0
posy_raton_down = 0
valor_terreno = 1
dim interfaz_terrenos(4)

rem //map array
dim Ar_World(WorldSizeX,WorldSizeY)

rem ***** init the map aray *****

for MapY=0 to WorldSizeY-1

   for MapX=0 to WorldSizeX-1

      Ar_World(MapX,MapY) = 1

   next MapX

next MapY

Ar_World(0,0) = 1
Ar_World(0,1) = 2
Ar_World(1,0) = 3
Ar_World(1,1) = 1
Ar_World(3,5) = 4
Ar_World(1,2) = 1
Ar_World(2,0) = 1
goto main




rem ***** M A I N  L O O P *****
main:

sprite 1,320,240,100
while juego_terminado = 0
cls 1

    for MapY=0 to WorldSizeY-1
         for MapX=0 to WorldSizeX-1
            ImageNumber = Ar_World(MapX,MapY)
            ptMapX=MapX
            ptMapY=MapY
            ptScreenX=(ptMapX-ptMapY)*TileWidth/2
            ptScreenY=(ptMapX+ptMapY)*TileHeight/2
             if ptScreenX+offsetx < wx and ptScreenY+offsetY< wy
               paste image ImageNumber , ptScreenX+offsetX, ptScreenY+offsety, 1
               inc num_sprite
             endif
         next MapX
   next MapY

   colocar_interface(scancode() )

   if escapekey()=1 then juego_terminado=1
   if rightkey()=1 then offsetx=offsetx-32
   if leftkey()=1 then offsetx=offsetx+32
   if downkey()=1 then offsety=offsety-32
   if upkey()=1 then offsety=offsety+32
   if mouseclick() > 0 then modificar_tile(mouseclick(),offsetx,offsety )

   gosub gestion_raton

   set cursor 100,560; print mousex()
   set cursor 100,570; print mousey()
   set cursor 100,580; print offsetx
   set cursor 100,590; print offsety
   set cursor 100,600; print ptScreenX
   set cursor 100,610; print ptScreeny




sync
endwhile
rem ***** F I N  D E  M A I N  L O O P ******

gestion_raton:
 cursorx=mousex()
 cursory=mousey()
   paste sprite 1,cursorx,cursory

   rem ***** Scroll East *****
   if cursorx>864 and cursory>60 and cursory<420
      offsetx=offsetx-8
   endif

   rem ***** Scroll West *****
   if cursorx<10 and cursory>60 and cursory<544
      offsetx=offsetx+8
   endif

   rem ***** Scroll North *****
   if cursory<10 and cursorx>60 and cursorx<864
      offsety=offsety+8
   endif

   rem ***** Scroll South *****
   if cursory>544 and cursorx>60 and cursorx<864
      offsety=offsety-8
   endif

   rem ***** Scroll N.E. *****
   if cursorx>864 and cursory<60
      offsetx=offsetx-8
      offsety=offsety+8
   endif

   rem ***** Scroll S.E. *****
   if cursorx>864 and cursory>544
      offsetx=offsetx-8
      offsety=offsety-8
   endif

   rem ***** Scroll N.W. *****
   if cursorx<10 and cursory<60
      offsetx=offsetx+8
      offsety=offsety+8
   endif

   rem ***** Scroll S.W. *****
   if cursorx<10 and cursory>544
      offsetx=offsetx+8
      offsety=offsety-8
   endif

return

rem // tile swapping function

function modificar_tile(boton_cliqueado, posx_offset, posy_offset)

   posx_raton_down = mousex()
   posy_raton_down = mousey()

select boton_cliqueado

   case 1

      rem //procedimiento para averiguar en qué casilla está el ratón
      posx_raton_down_1# = ((posx_raton_down - posx_offset)/32)
      posy_raton_down_1# = ((posy_raton_down - posy_offset)/16)

      posx_raton_down_2# = posx_raton_down_1# - int((posx_raton_down - posx_offset)/32)
      posy_raton_down_2# = posy_raton_down_1# - int((posy_raton_down - posy_offset)/16)

      if (posx_raton_down_2#*100 > 49) then posx_raton_down_1# = (posx_raton_down_1# + 1)
      if (posy_raton_down_2#*100 > 49) then posy_raton_down_1# = (posy_raton_down_1# + 1)

      posx_raton_down = int(posx_raton_down_1#)
      posy_raton_down = int(posy_raton_down_1#)

      rem //imprimir las corrdenadas de la casilla donde está el ratón
      set cursor 500, 560; print posx_raton_down
      set cursor 500, 570; print posy_raton_down

      rem //cambiar el valor del terreno por el que esté seleccionado, en la casilla que apunta el ratón
      rem Ar_World(posx_raton_down,posy_raton_down) = valor_terreno

      endcase
   case 2
      text 100,100,"le has dado al botón 2"
      endcase
endselect

endfunction

rem //interface function
function colocar_interface(tecla_presionada)


if ((tecla_presionada < 6) and (tecla_presionada > 1))
   valor_terreno = (tecla_presionada - 1)
endif

for i = 0 to 4 step 1

   interfaz_terrenos(i) = i

next i


   select valor_terreno

      case 1
         interfaz_terrenos(1)=201
         endcase

      case 2
         interfaz_terrenos(2)=202
         endcase

      case 3
         interfaz_terrenos(3) = 203
         endcase

      case 4
         interfaz_terrenos(4) = 204
         endcase

   endselect

   paste image 300,866,0
   paste image 301,0,544
   paste image interfaz_terrenos(1),913,50,1
   paste image interfaz_terrenos(2),913,100,1
   paste image interfaz_terrenos(3),913,150,1
   paste image interfaz_terrenos(4),913,200,1

endfunction

As you may have noticed, parts of the code are not in english but in spanish, if you have any doubt please ask away, but i think what the code does is understadable, aside of the spanish named variables.

thank you for your time, it does realley help newbies like myself to have some people making that kind of services.

Back to top

Profile PM

SelethD

20

Years of Service

User Offline

Joined: 1st Jun 2003

Location:

Posted: 1st Jun 2003 20:29

Link

I just ran into this discussion by accident, while trying to find some good resources for createing a RPG using isometric graphics with DirectX and VC++.
However I always enjoy hearing about the projects of fellow coders and it sounds your you are having fun with it.

Back when X-com was all the rage, I made a map editor for customizing mission maps, the editor uses isometric tiles, and contains lots of math routines for correctly rendering tiles and getting the tile under the mouse.

So if anyone would like the source(its about 8 years old and in Borland Turbo C++). Just send me an email SelethD@hotmail.com

happy coding.

Back to top

Profile PM

Wiggett

20

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 13th Jun 2003 19:40

Link

doh, i tried running the code after i made the tiles etc, but it says cant understand global, and then i realize its dbpro not classic

im not very savvy with this kind of coding, so any chance that maybe there is a db classic version around??

i need a copy of the 1.03 exe or i cant work on my game anymore

Back to top

Profile PM Website

Armeggadon

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location: United States

Posted: 18th Jun 2003 04:18

Link

well considering that he is porting this code i think that you will have to wait or make your own dbc version. sry

remember things can always be worse.
see for yourself

Back to top

Profile PM Email Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 5th Jul 2003 06:19

Link

SelethD,

Sorry I have been away form this thread for a while. I am looking over your code and will post back shortly. I had gotten busy with work and have just recently been able to get back to coding and such. I am still working on this project, and I have begun research on a Network Information Sytems simulation.

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 5th Jul 2003 06:23

Link

SelethD,
I am thinking that you have do not have the actual image tiles saved in your project. You need to draw these in a Bitmap editor. If you look at my first code snippet in this thread, you will see the instructions for drawing ISO graphic tiles. If you are still working on this project, and need the tiles, I will e-mail them to you.

Sorry for my absence.

BTW It feels good to be back again...

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 5th Jul 2003 06:33

Link

robx,

I don't think it would be too much for me to get the code working under DB Classic, as I own both. I will try to port it this week.

Loic*,

Thanks for taking time to improve the code. I will look through it over the weekend.

Megaton,

Thanks for the link. I will check out your site this weekend as well, and post back on Monday.

Back to top

Profile PM Email

Wiggett

20

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 6th Jul 2003 08:45

Link

groovy zen tnx. been tryin to get my head around teh iso system but my noob skills fizzle

i got some good graphics ready though

though they pretty much all stolen. but i can draw

yay i got db going again, now i can work on all these isometric games

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Jul 2003 17:15

Link

Robx,

I should have the DBC code done by Monday night.

Iso can be very confusing. And it's difficulty depends on how you plot your tiles, eg. (staggered,Diamond)

I will try to give you those two methods so that you can choose for yourself. sometimes Diamond doesn't work for rts games.

For your reference an example of a diamond map is SimCity, RollerCoaster tycoon. An example of a staggered map StarCraft, Command & Conquer : Red Alert2.

I'll post the code A.S.A.P.
Thanks for hanging in there robx

Back to top

Profile PM Email

Wiggett

20

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 6th Jul 2003 17:46

Link

lol thats cool tnx man, and im makin an iso rpg not rts

is about thsi messed up dream i had where i was with my gf walking the dog thru a shopping center after hours, and it was where all these kids hung out throwing firecrackers around, then we snuk behind some barrels and they kids turn cult like and executed this guy, then we ran and told the cops but they didnt believe us and a few days later they took us prisoner (the kids) then i rescued my gf from teh prison cells cause i hid a knife in my underwear, and then me and the other prisoners got swords from out of no where and fought the cult medieval style

and well thats pretty much gonna be my game. as i sai dit was a messed up dream

but yeah im more so looking for the diamond map as there will only be four diagonal angles for my character sprites.

yay i got db going again, now i can work on all these isometric games

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Jul 2003 19:01 Edited at: 6th Jul 2003 19:03

Link

robx,
Sound like mischevious fun!!!

BTW- I thought some of the same things about diamond maps and staggered. But the truth is that they both have the same amount of directions, and are actually made from the same exact tiles. Another fact is that you can't tell the difference as a player until you get to the edges of a map. I'll try to give you an example

+ Code Snippet

Note: each X represents a tile, in a rather small world
Diamond Map
                x
              x x x
             x x x x
            x x x x x 
           x x x x x x
            x x x x x 
             x x x x
              x x x
                x
Staggered Map
x x x x x x x x x x x
 x x x x x x x x x x 
x x x x x x x x x x x
 x x x x x x x x x x
x x x x x x x x x x x

in a diamond map any time you ge close to a corner you can tell you are heading to a point. The player can see the edge of the world.

In staggered you never diplay the jagged edge rows. The world always takes up the entire screeen no matter where you are on the map. Usually you pad the edges with boundary tiles such as ocean, Forest, Mountain etc. The player never sees the edge of your world

Both maps when in the middle of a world look exactly the same to a player. The only difference is apparent near the edges of a world.

Back to top

Profile PM Email

Wiggett

20

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 6th Jul 2003 19:49

Link

yeah i've researched iso games a bit, fallout uses the staggered approach but i wanna use the diamond, make sit feel more classic liek ultima 8.

yay i got db going again, now i can work on all these isometric games

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 6th Jul 2003 20:16

Link

Cool! I understand what you mean. That's why I decided on Diamond as well. Infact I wanted to give it that old Populous feel.

Diamond maps are a bit harder to work with when it comes to [mousemap] and [tilewalker] routines, and generally they are harder to conceptualize. With a little effort though it won't be too hard to get use to them.

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 8th Jul 2003 03:09

Link

I am working on the code for DBC right now.

Back to top

Profile PM Email

Wiggett

20

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 8th Jul 2003 15:50

Link

w00t cool. yell when its done

i wanna play with an iso engine badly

if only i could code my own :S

yay i got db going again, now i can work on all these isometric games

Back to top

Profile PM Website

Wiggett

20

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 9th Jul 2003 15:22

Link

hows it comin along?

yay i got db going again, now i can work on all these isometric games

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 9th Jul 2003 17:12

Link

I have ported all the code to the point that I have no compile errors and it runs displaying the GUI. The tiles are however not displaying. I am trying a few things.

I think it may have to do with the way DBC handles globals and access to them within functions. I should be able to get it to work today.

Back to top

Profile PM Email

Wiggett

20

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 9th Jul 2003 17:21

Link

yeah all u get is a black screen an dthe mouse pointer that does nothing

i screwed around with some bits in it a few days ago but couldnt get it much further than that

good luck with it (my fingers crossed

)

working on the game undead nazi pirates of the kungfoorabean. this game is random to the max.

Back to top

Profile PM Website

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 9th Jul 2003 18:28

Link

I was able to get it to work. I am going to post the code in about 5-10 minutes. I went through and commented every line to let you know exactly what it does. I am also adding back in the instructions for how to create the ISOtiles.

It is very important that you draw create these tiles exactly as shown. Use a paint program. You will also need to save the bitmaps to the same directory that the db code is in. You will also need to make sure that you use the same file name as the "load image "<filename>" statements. either change your filename to match mine, or change the code to the name of your file. If you cannot create these tiles let me know. I will email you two generic isotiles so that you can run the program.

If you want a gui (right panel) you will need to draw this as well and take out the "rem" statements that load and diaplay the panel. I have clearly marked each line with instructions on what to do.

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 9th Jul 2003 18:29

Link

here is the source code for DBC

Rem Project: IsoHexDemo
Rem Created: 7/10/2003 7:25:35 PM

remstart
*******************************************************************************************
*  Isometric Tile Engine for DarkBasic Classic                                               *
*                                                                                         *
*  Translated by [Zenassem] Edward Jomisko                                                *
*  Adapted from the book: "Isometric Game Programming With DirectX 7.0" by Ernest Pazera  *
*                                                                                         *
*  Note: The original code was written in C++                                             *
*  This work is an attempt to port the code to the DarkBasic Programming language         *
*******************************************************************************************

Isometric [Diamond Type] Engine will contain the following components

TilePlotter:  Converts actual array indexes into Screen coordinates
MouseMap   :  Converts Screen Coordiates into actual array indexes
TileWalker :

***** Tiles ******
Tiles are created as follows:
size: 64x32  (0-63x0-31)
transparent pixels are represented as:   0
textured pixels are represented as:      1

Note!!!:
It is important that your .bmp images follow this pattern in order
to ensure that when the tiles are blitted, the connected edges line
up without any missing pixels.

Note!!!: The last row is left empty

For a demo
1. create 4 tiles of different color using the following pattern
2. save the tiles in you project directory as:
            land.bmp        (make this tile all light green)
            dessert.bmp     (make this tile all light brown)
            water.bmp       (make this tile all blue)
            forrest.bmp     (make this tile all dark green)

0123456789111111111122222222223333333333444444444455555555556666
              012345678901234567890123456789012345678901234567890123

0   0000000000000000000000000000001111000000000000000000000000000000
1   0000000000000000000000000000111111110000000000000000000000000000
2   0000000000000000000000000011111111111100000000000000000000000000
3   0000000000000000000000001111111111111111000000000000000000000000
4   0000000000000000000000111111111111111111110000000000000000000000
5   0000000000000000000011111111111111111111111100000000000000000000
6   0000000000000000001111111111111111111111111111000000000000000000
7   0000000000000000111111111111111111111111111111110000000000000000
8   0000000000000011111111111111111111111111111111111100000000000000
9   0000000000001111111111111111111111111111111111111111000000000000
10  0000000000111111111111111111111111111111111111111111110000000000
11  0000000011111111111111111111111111111111111111111111111100000000
12  0000001111111111111111111111111111111111111111111111111111000000
13  0000111111111111111111111111111111111111111111111111111111110000
14  0011111111111111111111111111111111111111111111111111111111111100
15  1111111111111111111111111111111111111111111111111111111111111111
16  0011111111111111111111111111111111111111111111111111111111111100
17  0000111111111111111111111111111111111111111111111111111111110000
18  0000001111111111111111111111111111111111111111111111111111000000
19  0000000011111111111111111111111111111111111111111111111100000000
20  0000000000111111111111111111111111111111111111111111110000000000
21  0000000000001111111111111111111111111111111111111111000000000000
22  0000000000000011111111111111111111111111111111111100000000000000
23  0000000000000000111111111111111111111111111111110000000000000000
24  0000000000000000001111111111111111111111111111000000000000000000
25  0000000000000000000011111111111111111111111100000000000000000000
26  0000000000000000000000111111111111111111110000000000000000000000
27  0000000000000000000000001111111111111111000000000000000000000000
28  0000000000000000000000000011111111111100000000000000000000000000
29  0000000000000000000000000000111111110000000000000000000000000000
30  0000000000000000000000000000001111000000000000000000000000000000
31  0000000000000000000000000000000000000000000000000000000000000000

remend

Rem ***** Main Source File *****
rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** I N I T I Al I Z A T I O N *****

ink 0,0              rem  This sets the ink color to black
sync rate 60         rem  To have maximim refresh set this rate to 0
sync on

rem ***** Game Flags *****
FL_GameDone=0        rem  This is a flag to tell whether or not the game should exit (true=1, False=0)

rem ***** LOAD A CUSTOM MOUSE POINTER *****
rem THESE LINES WILL LOAD A MOUSE POINTER. MAKE SURE YOU INCLUDE A FILE "cursor.bmp" in your project
rem  **** If you load your own cursor remove the "rem" at the beginning of these lines
rem hide mouse
rem load bitmap "cursor.bmp",1
rem get image 100,0,0,11,17
rem delete bitmap 1

rem YOU NEED TO INCLUDE ANY TILES YOU WILL USE INTO THE PROJECTS DIRECTORY
rem MAKE SURE TO CHANGE THE NAME TO THE NAME OF YOUR FILE
rem ***** Load World Tiles *****
load image "land.bmp", 1
load image "dessert.bmp",2
rem load image "water.bmp",3
rem load image "forrest.bmp",4
rem load image "roadse.bmp",5
rem load image "roadsw.bmp",6
rem load image "road4.bmp",7
rem load image "road6.bmp",8
rem load image "trans.bmp",9
rem load image "build1.bmp",20
rem load image "build2.bmp",21
rem load image "build3.bmp",22
rem load image "build4.bmp",23
rem load image "build5.bmp",24
rem load image "build6.bmp",25
rem load image "build7.bmp",26
rem load image "build8.bmp",27

rem ///// GUI PANEL /////
rem THIS IS A GUI THAT FITS ALONG THE SIDE OF THE SCRENN ALA COMMAND & CONQUER YOU WILL NEED TO CREATE THIS
rem YOURSELF. THEN REMOVE THE "rem" statement on the nextline
rem load image "rightpanel.bmp",200

rem ***** Initialize World Constants *****
TileWidth=64   rem This is the Width of the rectangular bitmap including the transparent black
TileHeight=32  rem This is the Height of the rectangular bitmap including the transparent black
WorldSizeX=20  rem This is the Horizontal size of the world level. matches x elements Ar_World
WorldSizeY=20  rem This is the Vertical size of the world level. matcfhes y elements Ar_World
offsetx=0      rem This keeps track of where to plot each tile in the Tile_Plotter label x coordinate
offsety=0      rem This keeps track of where to plot each tile in the Tile_Plotter label y coordinate
cursorx=20     rem This sets the staring point of the Mouse Pointer X-coordinate
cursory=20     rem This sets the starting point of the Mouse Pointer y-coordinate

rem This is the array which will load in the world tiles.
dim Ar_World(WorldSizeX,WorldSizeY)

rem ***** Initialize World Map *****
restore worlddata    rem Begin to read in the map from worldata (at the end of this file)

rem This is the algorithm to read in all the worldata and store them in the Ar_Worls array
   for MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         read ImageNumber
         Ar_World(MapX,MapY) = ImageNumber
      next MapX
   next MapY

goto main rem Jump to the main label

rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** F U N C T I O N S *****

rem ******* Tile_Plotter()
rem this is the code that draws the world tiles
Tile_Plotter:
worldx=480
worldy=416
      for  MapY=0 to WorldSizeY-1
      for MapX=0 to WorldSizeX-1
         ImageNumber = Ar_World(MapX,MapY)
         ptMapX=MapX
         ptMapY=MapY
         ptScreenX=(ptMapX-ptMapY)*TileWidth/2
         ptScreenY=(ptMapX+ptMapY)*TileHeight/2
          if ptScreenX+offsetx < worldx and ptScreenY+offsety< worldy
         paste image ImageNumber , ptScreenX+offsetx, ptScreenY+offsety ,1
         endif
      next MapX
   next MapY
return

rem ////////////////////////////////////////////////////////////////////////////////////////
rem ***** M A I N  G A M E  L O O P *****
main:
set current bitmap 0

rem the next line would display your custom mouse pointer
rem sprite 1,320,240,100
while FL_GameDone<>1
cls 1

gosub Tile_Plotter rem Draw the world

if escapekey()=1 then FL_GameDone=1

rem This code allows you to scroll the world by using the arrow keys
   if rightkey()=1 then offsetx=offsetx-32
   if leftkey()=1 then offsetx=offsetx+32
   if downkey()=1 then offsety=offsety-32
   if upkey()=1 then offsety=offsety+32
   gosub handle_mouse
   box 480,0,639,479
   box 0,416,481,479

rem  The nex line would display your GUI if you created one. REMOVE the "rem" if you created a GUI rightpanel.bmp
rem  paste image 200,482,0

sync
endwhile
rem ***** E N D  O F  M A I N  L O O P ******
rem ////////////////////////////////////////////////////////////////////////////////////////

rem ***** Mouse Handling Function *****
rem this code keeps track of the mouse pointer location so that you can display your custom mouse pointer
handle_mouse:
 cursorx=mousex()
 cursory=mousey()

rem The nextline is needed if you create your custom mouse pointer.
 rem paste sprite 1,cursorx,cursory