types and user defined types, little help please

Author

Message

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 27th Oct 2012 17:09

Link

Ok just like the title says! I hope I don't sound dumb here. I have read about them in a book, done searches on the forum and somewhat have a small understanding but a lot of the time books are hard to understand so could someone give a quick explanation in easy to understand words?

what is the purpose? how used, when to use, ways to use etc...

Thanks
Dragonslayer

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 27th Oct 2012 17:21

Link

http://forum.thegamecreators.com/?m=forum_view&t=110324&b=7

That might help. Use them all the time and wherever possible. They help create a hierarchy in your program and it helps a great deal to structure your code much more.

TheComet

+ Code Snippet

Private CARROT() As Char = {"^"c}

- The codebase

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 27th Oct 2012 17:50

Link

Well that helped some. I will keep digging into it!

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 27th Oct 2012 18:13

Link

Also, a small tip that not many know of, you can have types inside types as well:

+ Code Snippet

rem positions UDT
type vec2
   x as integer
   y as integer
endtype

rem player UDT
type Player_t
   Position as vec2
endtype

rem entity UDT
type Entity_t
   Player as Player_t
endtype

rem define all entities
global Entity as Entity_t

rem set player positions
Entity.Player.Position.x = 5
Entity.Player.Position.y = 3

As you can see, very structured.

TheComet

+ Code Snippet

Private CARROT() As Char = {"^"c}

- The codebase

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 27th Oct 2012 19:05

Link

Yes I knew that but thanks for the code snippet. It will give me something to study and go by!

I hate to be a pain in the ass but I started a piece of code and need to know if it is somewhat correct.

+ Code Snippet

type FaaMap
    TileType as interger
    #constant EmptyTile     0
    #constant DirtTile      1
    #constant GrassTile     2
    #constant StreetTile    3
    #Constant BuildingTile  4
end type

Rem Define the array
dim Faa (29, 29) as FaaMap
Faa(0,0).TileType = BuildingTile
Faa(0,1).TileType = GrassTile

and on and on until all 900 locations are put into the array (is that correct?)

I kind of went by some code comet showed me. The tile type are as integer and a constant such as grasstile = 0 so when placing them in the array do I have to write out

Faa(0,1).TileType = GrassTile? what is the purpose of the numbers by each tile type?

Why can't it be like this?

Faa(0,1).TileType = 2

Also I am figuring of all of these tiles I may want a building type so this may be where I can do a type inside of a type. would that be right or should I make the building type separate?

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 27th Oct 2012 19:31

Link

First of all, constants need to be outside type definitions.

+ Code Snippet

#constant EmptyTile     0
#constant DirtTile      1
#constant GrassTile     2
#constant StreetTile    3
#Constant BuildingTile  4

type FaaMap
    TileType as integer
endtype

Rem Define the array
dim Faa (29, 29) as FaaMap

Secondly, populating the array can be done much less painfully. Here's a method using data statements (although this is a little more structured, it's still pretty painful to edit your map):

rem setup screen
sync on
sync rate 0
backdrop on
color backdrop 0
hide mouse

rem constants
#constant EmptyTile     0
#constant DirtTile      1
#constant GrassTile     2
#constant StreetTile    3
#Constant BuildingTile  4

type FaaMap
    TileType as integer
endtype

Rem Define the array
dim Faa(29, 29) as FaaMap

rem load map data
restore map1
for y = 0 to 29
	for x = 0 to 29
		read i
		Faa( x, y ).TileType = i
	next x
next y

rem main loop
do
        
        rem draw the map to the screen
        render_map()
        
        rem screen fps
        text 10, 630, "screen fps: " + str$(screen fps())
        
        rem refresh screen
        sync
        
rem end of main loop
loop

rem functions ---------------------------------------------------
function render_map()
        
	rem render map
	for x = 0 to 29
		for y = 0 to 29

rem tile type
			select Faa( x, y ).tileType

rem dirt
				case DirtTile:
					ink 0xFF703030, 0
					box x*20, y*20, x*20+18, y*20+18
				endcase

rem etc...

endselect
		next y
	next x

endfunction

rem data statements ----------------------------

map1:
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  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,  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,  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,  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,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  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,  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,  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,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  0,  1,  1,  1,  0,  0,  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,  0,  0,  0,  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,  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,  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,  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,  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,  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,  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,  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,  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,  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,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1

+ Code Snippet

rem setup screen
sync on
sync rate 0
backdrop on
color backdrop 0
hide mouse

rem constants
#constant EmptyTile     0
#constant DirtTile      1
#constant GrassTile     2
#constant StreetTile    3
#Constant BuildingTile  4

type FaaMap
    TileType as integer
endtype

Rem Define the array
dim Faa(29, 29) as FaaMap

rem load map data
restore map1
for y = 0 to 29
	for x = 0 to 29
		read i
		Faa( x, y ).TileType = i
	next x
next y

rem main loop
do
        
        rem draw the map to the screen
        render_map()
        
        rem screen fps
        text 10, 630, "screen fps: " + str$(screen fps())
        
        rem refresh screen
        sync
        
rem end of main loop
loop

rem functions ---------------------------------------------------
function render_map()
        
	rem render map
	for x = 0 to 29
		for y = 0 to 29

			rem tile type
			select Faa( x, y ).tileType

				rem dirt
				case DirtTile:
					ink 0xFF703030, 0
					box x*20, y*20, x*20+18, y*20+18
				endcase

				rem etc...

			endselect
		next y
	next x

endfunction

rem data statements ----------------------------

map1:
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  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,  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,  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,  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,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  0,  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,  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,  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,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  0,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1
data 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  0,  0,  1,  1,  1,  0,  0,  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,  0,  0,  0,  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,  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,  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,  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,  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,  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,  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,  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,  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,  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,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1

Your best bet is to create a simple level editor which saves your maps to a file. The file can then be loaded and fill the map array.

TheComet

+ Code Snippet

Private CARROT() As Char = {"^"c}

- The codebase

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 28th Oct 2012 01:19

Link

If I knew how to do a level editor I would. I am very new at programming even though I have been around here a long time. I am pretty sure I am thinking too far ahead. I think I need to take much smaller steps.

I changed it around, populated the array with about 6 elements and tried to print one out and could not even get it to print. I am thinking about getting back into the Hands on DBP vol 1 book. That gets quite boring. Maybe when it tells me to make a certain program for the stuff I just learned I can make the program but make it with what I want in it, something relating to a game out of my head. Maybe then it will not be so boring.

Back to top

Profile PM

The Weeping Corpse

14

Years of Service

User Offline

Joined: 19th Sep 2011

Location: United Kingdom

Posted: 28th Oct 2012 01:33

Link

Just found out that UDT's can't contain arrays. Why Lee? Why?

THIS is a massive pain in the ass and my program is turning into spaghetti code.

/RANT

www.youtube.com/user/TheWeepingCorpse

www.theweepingcorpse.com

Back to top

Profile PM Email

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 28th Oct 2012 01:41

Link

No but I think you can make one outside the udt and use what you defined in the udt in the array. Not real sure I must learn more.

Back to top

Profile PM

Dar13

18

Years of Service

User Offline

Joined: 12th May 2008

Location: Microsoft VisualStudio 2010 Professional

Posted: 28th Oct 2012 02:35

Link

Quote: "THIS is a massive pain in the ass and my program is turning into spaghetti code."

That reason is the #1 reason I most most of my active development to C++. Classes/structs are awesome compared to UDTs.

Follow WTLD's progress on Twitter
Git repository for WasTeLanD

Back to top

Profile PM Email

Burning Feet Man

18

Years of Service

User Offline

Joined: 4th Jan 2008

Location: Sydney, Australia

Posted: 28th Oct 2012 10:27

Link

I heard that there was a work around, using pointers, to get around the limitation of being unable to use arrays within a UDT. I believe that Ian's Matrix1 Utilities had to be used.

Could someone post an example if they've got one handy?

Help build an online DarkBASIC Professional help archive.
DarkBasic Help Wikia

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / types and user defined types, little help please