Coloring problems with 3d max man tutorial

Author

Message

Mr Monkey Man

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: UK

Posted: 11th Apr 2004 15:36

Link

I dont know if youve gone through this tutorial but I have but when I have placed the objects (walls etc.) you color the objects. The code is correct as far as I can see but when I execute the program all the objects are white. I dont know if this has anything to do with the problem but I had to add a (#) after the variables in the for next loops. I have Dbpro if this also helps.

Rem - Setup Screen
hide mouse
set Display mode 1024,768,32
Sync on
Autocam on
Cls

Rem - Load the first level
_Load_Level()

Do
   Position Camera 87, 150, 87
   Point Camera 87,0,87
   Sync
Loop

Rem - Setup loading of levels
Function _Load_Level()
   MazePill# = 200
   MazePower# = 500
   Make matrix 1, 128, 160, 16, 20
   Position matrix 1, 24,0,0
   For Mazey# = 1 to 20
      For Mazex# = 1 to 16
         Read Maze#
         If Maze# = 1
            Inc MazeWall#
            Make Object Cube MazeWall#,8
            Color Object MazeWall#,rgb(0,0,255)
            Position Object MazeWall#, (Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif
         If Maze# = 2
            Inc MazeWall#
            Make object Cube MazeWall#,8
            Color object MazeWall#, RGB(255,0,255)
            Position object MazeWall#,(Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif
         If Maze# = 3
            Inc MazePill#
            Inc Pills#
            Make object sphere MazePill#,2
            Color object MazePill#, RGB(255,255,0)
            Position Object MazePill#, (Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif
         If Maze# = 4
            Inc MazePower#
            Make Object Sphere MazePower#,4
            Color Object MazePower#, RGB(255,255,0)
            Position Object MazePower#, (Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif

Next Mazex#
   Next Mazey#
   Color Object MazePower#, RGB(255,255,0)

EndFunction

Rem - Level one

Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,4,3,3,3,3,3,3,3,3,3,3,3,3,4,1
Data 1,3,1,1,1,1,1,1,1,1,1,1,1,1,3,1
Data 1,3,1,4,3,3,3,3,3,3,3,3,4,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,3,3,3,3,3,3,3,3,3,3,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,3,3,3,3,3,3,3,3,3,3,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,4,3,3,3,3,3,3,3,3,3,3,3,3,4,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,3,3,3,3,3,3,3,3,3,3,1,3,1
Data 1,3,1,3,1,0,0,0,0,0,0,1,3,1,3,1
Data 1,3,1,3,1,1,0,2,2,0,1,1,3,1,3,1
Data 1,3,1,3,1,1,0,0,0,0,1,1,3,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,4,3,3,3,3,3,3,3,3,4,1,3,1
Data 1,3,1,1,1,1,1,1,1,1,1,1,1,1,3,1
Data 1,4,3,3,3,3,3,3,3,3,3,3,3,3,4,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

Rem - Setup Screen
hide mouse
set Display mode 1024,768,32
Sync on
Autocam on
Cls

Rem - Load the first level
_Load_Level()

Do
   Position Camera 87, 150, 87
   Point Camera 87,0,87
   Sync
Loop

Rem - Setup loading of levels
Function _Load_Level()
   MazePill# = 200
   MazePower# = 500
   Make matrix 1, 128, 160, 16, 20
   Position matrix 1, 24,0,0
   For Mazey# = 1 to 20
      For Mazex# = 1 to 16
         Read Maze#
         If Maze# = 1
            Inc MazeWall#
            Make Object Cube MazeWall#,8
            Color Object MazeWall#,rgb(0,0,255)
            Position Object MazeWall#, (Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif
         If Maze# = 2
            Inc MazeWall#
            Make object Cube MazeWall#,8
            Color object MazeWall#, RGB(255,0,255)
            Position object MazeWall#,(Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif
         If Maze# = 3
            Inc MazePill#
            Inc Pills#
            Make object sphere MazePill#,2
            Color object MazePill#, RGB(255,255,0)
            Position Object MazePill#, (Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif
         If Maze# = 4
            Inc MazePower#
            Make Object Sphere MazePower#,4
            Color Object MazePower#, RGB(255,255,0)
            Position Object MazePower#, (Mazex# * 8) + 20, GroundHeight, (Mazey# * 8) - 4
         Endif


      Next Mazex#
   Next Mazey#
   Color Object MazePower#, RGB(255,255,0)



EndFunction

Rem - Level one

Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,4,3,3,3,3,3,3,3,3,3,3,3,3,4,1
Data 1,3,1,1,1,1,1,1,1,1,1,1,1,1,3,1
Data 1,3,1,4,3,3,3,3,3,3,3,3,4,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,3,3,3,3,3,3,3,3,3,3,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,3,3,3,3,3,3,3,3,3,3,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,4,3,3,3,3,3,3,3,3,3,3,3,3,4,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,3,3,3,3,3,3,3,3,3,3,1,3,1
Data 1,3,1,3,1,0,0,0,0,0,0,1,3,1,3,1
Data 1,3,1,3,1,1,0,2,2,0,1,1,3,1,3,1
Data 1,3,1,3,1,1,0,0,0,0,1,1,3,1,3,1
Data 1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data 1,3,1,4,3,3,3,3,3,3,3,3,4,1,3,1
Data 1,3,1,1,1,1,1,1,1,1,1,1,1,1,3,1
Data 1,4,3,3,3,3,3,3,3,3,3,3,3,3,4,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Thanks in advance for any help you may give me

Daniel

*For every problem you come across you gain something from correcting it, I hope.

Back to top

Profile PM

Twisted Demon

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location:

Posted: 12th Apr 2004 16:45

Link

Next Mazex#
Next Mazey#
Color Object MazePower#, RGB(255,255,0) *** do you need this??!!

EndFunction

Rem - Level one

Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

i dnt know if it would make any difference, but i dont think you need that.

Back to top

Profile PM Website

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 13th Apr 2004 13:30 Edited at: 13th Apr 2004 13:31

Link

The function itself to load the level should look like the one attached if the tutorial is being followed letter for letter (comment lines optional of course

).

Function _Load_Level
   MazeWall = 0
   MazePill = 200
   MazePower = 500

Make Matrix 1, 128, 160, 16, 20
   Position Matrix 1, 24,0,0

GroundHeight = Get Ground Height(1,87,87)

For MazeY = 1 To 20

For MazeX = 1 To 16

Read Maze

`
         ` If a wall is detected
         `
         If Maze = 1
            Inc MazeWall
            Make Object Cube MazeWall,8
            Color Object MazeWall, Rgb(0,0,255)
            Position Object MazeWall,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
         Endif

`
         ` If a pen gate is detected
         `
         If Maze = 2
            Inc MazeWall
            Make Object Cube MazeWall,8
            Color Object MazeWall, Rgb(255,0,255)
            Position Object MazeWall,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
         Endif

`
         ` If a Pill is detected
         `
         If Maze = 3
            Inc MazePill
            Inc Pills
            Make Object Sphere MazePill,2
            Color Object MazePill, Rgb(255,255,0)
            Position Object MazePill,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
            Make Object Collision Box MazePill, -.5, -.5, -.5, -.5, -.5, -.5,1
         Endif

`
         ` If a Power Pill is detected
         `
         If Maze = 4
            Inc MazePower
            Make Object Sphere MazePower,4
            Color Object MazePower, Rgb(255,255,0)
            Position Object MazePower,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
            Make Object Collision Box MazePower, -.5, -.5, -.5, -.5, -.5, -.5,1
         Endif

Next MazeX

Next MazeY

EndFunction

+ Code Snippet

Function _Load_Level
   MazeWall = 0
   MazePill = 200
   MazePower = 500

   Make Matrix 1, 128, 160, 16, 20
   Position Matrix 1, 24,0,0

   GroundHeight = Get Ground Height(1,87,87)

   For MazeY = 1 To 20

      For MazeX = 1 To 16

         Read Maze

         `
         ` If a wall is detected
         `
         If Maze = 1
            Inc MazeWall
            Make Object Cube MazeWall,8
            Color Object MazeWall, Rgb(0,0,255)
            Position Object MazeWall,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
         Endif

         `
         ` If a pen gate is detected
         `
         If Maze = 2
            Inc MazeWall
            Make Object Cube MazeWall,8
            Color Object MazeWall, Rgb(255,0,255)
            Position Object MazeWall,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
         Endif

         `
         ` If a Pill is detected
         `
         If Maze = 3
            Inc MazePill
            Inc Pills
            Make Object Sphere MazePill,2
            Color Object MazePill, Rgb(255,255,0)
            Position Object MazePill,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
            Make Object Collision Box MazePill, -.5, -.5, -.5, -.5, -.5, -.5,1
         Endif

         `
         ` If a Power Pill is detected
         `
         If Maze = 4
            Inc MazePower
            Make Object Sphere MazePower,4
            Color Object MazePower, Rgb(255,255,0)
            Position Object MazePower,(MazeX * 8) + 20, GroundHeight, (MazeY * 8) - 4
            Make Object Collision Box MazePower, -.5, -.5, -.5, -.5, -.5, -.5,1
         Endif


      Next MazeX

   Next MazeY

EndFunction

The GroundHeight variable is not being assigned in your code snippet which is the only obvious thing I can spot - adding the # on the variable names shouldn't be interfering but I am not sure why it was necessary as those variables are integers.

http://www.scouseknight.com

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Coloring problems with 3d max man tutorial