Sorry your browser is not supported!

y does my program clode strait-away?

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync On : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)
Maxcubes=Mapsize
Cubesize=32

Rem load textures
Load image "Floor.jpg",1,1
Load image "Wall.jpg",2,1

Do
	LoadMap("Level1.txt",Mapsize)
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="#"
				Make Object Cube z,16
				Position Object z,x*32,0,z*32
				texture Object z,1
			endif
		next x
	next z
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="."
				Make Object Plain z+Mapsize,32,32
				Position Object z+Mapsize,x*32,0,z*32
				texture Object z+Mapsize,2
			endif
		next x
	Next z
	Sync
Loop
wait key

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync On : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)
Maxcubes=Mapsize
Cubesize=32

Rem load textures
Load image "Floor.jpg",1,1
Load image "Wall.jpg",2,1

Do
	LoadMap("Level1.txt",Mapsize)
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="#"
				Make Object Cube z,16
				Position Object z,x*32,0,z*32
				texture Object z,1
			endif
		next x
	next z
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="."
				Make Object Plain z+Mapsize,32,32
				Position Object z+Mapsize,x*32,0,z*32
				texture Object z+Mapsize,2
			endif
		next x
	Next z
	Sync
Loop
wait key

Back to top

Profile PM Email Website

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 9th Jul 2004 06:34

Okay, that's an easy mistake...

Move the Function code to the END of the program. Many folks make the mistake of putting functions too high in their listing.

S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 9th Jul 2004 06:46

I know says object aready exists at line 28

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync on : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)
Cubesize=32

Rem load textures
Load image "Floor.jpg",1,1
Load image "Wall.jpg",2,1

Do
	LoadMap("Level1.txt",Mapsize)
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="#"
				Make Object Cube z,16
				Position Object z,x*32,0,z*32
				texture Object z,1
			endif
		next x
	next z
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="."
				Make Object Plain z+Mapsize,32,32
				Position Object z+Mapsize,x*32,0,z*32
				texture Object z+Mapsize,2
			endif
		next x
	Next z
	Sync
Loop

Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync on : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)
Cubesize=32

Rem load textures
Load image "Floor.jpg",1,1
Load image "Wall.jpg",2,1

Do
	LoadMap("Level1.txt",Mapsize)
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="#"
				Make Object Cube z,16
				Position Object z,x*32,0,z*32
				texture Object z,1
			endif
		next x
	next z
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="."
				Make Object Plain z+Mapsize,32,32
				Position Object z+Mapsize,x*32,0,z*32
				texture Object z+Mapsize,2
			endif
		next x
	Next z
	Sync
Loop

Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction

Back to top

Profile PM Email Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 9th Jul 2004 07:09 Edited at: 9th Jul 2004 07:09

if your do loop executes more than once, that will happen because you have Make Object Cube Z,16 in there. Z is based on a for-next loop which will repeat its numbers every time the code executes it

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 9th Jul 2004 07:21

sorry but it still say object already exists. i've deleted the loop

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync on : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)
Cubesize=32

Rem load textures
Load image "Floor.jpg",1
Load image "Wall.jpg",2

	LoadMap("Level1.txt",Mapsize)
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="#"
				Make Object Cube x,32
				Position Object x,x*32,0,z*32
				texture Object x,1
			endif
		next x
	next z
	For z=1 to Mapsize
		For x=1 to Mapsize
			If Map$(x,z)="."
				Make Object Plain x+Mapsize,32,32
				Position Object x+Mapsize,x*32,0,z*32
				texture Object x+Mapsize,2
			endif
		next x
	Next z
Wait key
Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction

Back to top

Profile PM Email Website

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 9th Jul 2004 07:51

aha, your cubes and your planes are stepping on each other

both loops that create them both use the same numbers starting at 1

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 9th Jul 2004 10:09

Yeah, given the code you're using, and the fact that both loops step through the Z value Mapsize number of times, you're going to need a more complex formula to define object numbers. Something like X+Mapsize*Z for the first loop, and X+Mapsize*z*2 for the second. (I think my math is right there, but don't count on it!)

Remember, these are just the object numbers...
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 9th Jul 2004 10:12

or better yet, make a GetFreeObj() function that returns the next free object number...now theres a little challenge for ya

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 9th Jul 2004 10:16

hehehe. Yeah, I thought about that... but I'm assuming he'd try to reference the objects by map location numbers, so a computed form might be better. (Depends on what you're doing--like anything else.)
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 9th Jul 2004 10:39

true Sandra

in case he wants a function, theres one in here:

function GetFreeObjNum(iMaxObj as integer)

    `//returns an Integer representing the next free object number

    local iObj as integer
    local iRet as integer

    for iObj=1 to iMaxObj
        if not object exist(iObj)
            iRet=iObj
            exitfunction iRet
        endif
    next iObj

EndFunction iRet

* DBP_NETLIB_v1.4.3 - July, 2004 * Click Logo

Back to top

Profile PM

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 10th Jul 2004 02:07

I've tried most thing that i can think of with my noob kwnoledge it still say object already exists

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync On : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)

Rem load textures
Load image "Floor.jpg",1,1
Load image "Wall.jpg",2,1

LoadMap("Level1.txt",Mapsize)
	For ObjectNumber=1 to 529
		For z=1 to Mapsize
			For x=1 to Mapsize
				If Map$(x,z)="#"
					Make Object Cube ObjectNumber,16
					Position Object ObjectNumber,x*32,0,z*32
					Texture Object ObjectNumber,1
				endif
			next x
		next z
	Next ObjectNumber
	For ObjectNumber=530 to 1060
		For z=1 to Mapsize
			For x=1 to Mapsize
				If Map$(x,z)="."
					Make Object Plain ObjectNumber,32,32
					Position Object ObjectNumber,x*32,0,z*32
					Texture Object ObjectNumber,2
				endif
			next x
		Next z
	Next ObjectNumber
	If EscapeKey()=1 then end
Wait Key

Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync On : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)

Rem load textures
Load image "Floor.jpg",1,1
Load image "Wall.jpg",2,1

	LoadMap("Level1.txt",Mapsize)
	For ObjectNumber=1 to 529
		For z=1 to Mapsize
			For x=1 to Mapsize
				If Map$(x,z)="#"
					Make Object Cube ObjectNumber,16
					Position Object ObjectNumber,x*32,0,z*32
					Texture Object ObjectNumber,1
				endif
			next x
		next z
	Next ObjectNumber
	For ObjectNumber=530 to 1060
		For z=1 to Mapsize
			For x=1 to Mapsize
				If Map$(x,z)="."
					Make Object Plain ObjectNumber,32,32
					Position Object ObjectNumber,x*32,0,z*32
					Texture Object ObjectNumber,2
				endif
			next x
		Next z
	Next ObjectNumber
	If EscapeKey()=1 then end
Wait Key

Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction

Back to top

Profile PM Email Website

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 10th Jul 2004 04:58

Okay, let's do it the EASY way then....

TRY This code instead;

Remstart
Aurthor: Beehive Studios
Date Started: 08/07/2004
Date Last modified: 08/07/2004
Product Name: 3D Pacman
Product Version: v0.1
Remend

Rem Initialization
Set Display Mode 800,600,32
Hide Mouse : Sync On : Sync Rate 40
Backdrop On : Color Backdrop RGB(0,0,0) : CLS

Rem Setup map vairables
Mapsize=23
Dim Map$(Mapsize,Mapsize)

Rem load textures
Load image "Floor.jpg",1,1
Load image "Wall.jpg",2,1

objectnumber = 1
	LoadMap("Level1.txt",Mapsize)
		For z=1 to Mapsize
			For x=1 to Mapsize
				If Map$(x,z)="#"
					Make Object Cube ObjectNumber,16
                                        objectnumber = objectnumber + 1
					Position Object ObjectNumber,x*32,0,z*32
					Texture Object ObjectNumber,1
				endif
			next x
		next z
		For z=1 to Mapsize
			For x=1 to Mapsize
				If Map$(x,z)="."
					Make Object Plain ObjectNumber,32,32
                                        objectnumber = objectnumber + 1
					Position Object ObjectNumber,x*32,0,z*32
					Texture Object ObjectNumber,2
				endif
			next x
		Next z
	If EscapeKey()=1 then end
Wait Key

Function LoadMap(Filename$,Size)
	Open to read 1,Filename$
	For x=1 to Size
	For y=1 to Size
		Read Byte 1,tmp
		map$(x,y)=chr$(tmp)
	next y
	next x
	Close File 1
Endfunction