Hey, I am doing a pacman tutorial for dbpro I found.
I have followed the tutorial so far and I should Have a nice maze , But my blocks just go in a diagonal.
Code:
Rem Project: pactut
Rem Created: 30/04/2005 22:04:46
Rem ***** Main Source File *****
hide mouse
sync off
Cls
_Load_Level()
Do
Position camera 87, 150, 87
Point camera 87, 0, 87
Sync
Loop
Function _load_Level()
MazePill = 200
MazePower = 500
MazeWall = 0
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
Maze#(MazeY, MazeX) = 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
Make Object Collision Box MazePill, -.5, -.5, -.5, -.5, -.5, -.5,1
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
Make Object Collision Box MazePower, -.5, -.5, -.5, -.5, -.5, -.5,1
Endif
Next MazeX
Next MazeY
EndFunction
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,3,3,3,3,1,3,3,3,3,1,3,3,3,3,1
Data 1,4,1,1,3,3,3,1,1,3,3,3,1,1,4,1
Data 1,3,1,1,1,1,3,3,3,3,1,1,1,1,3,1
Data 1,3,3,3,3,3,3,1,1,3,3,3,3,3,3,1
Data 1,1,1,3,1,1,1,1,1,1,1,1,3,1,1,1
Data 1,3,3,3,3,3,3,0,0,3,3,3,3,3,3,1
Data 1,3,1,3,1,1,1,1,1,1,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,3,3,3,3,3,3,3,3,3,3,1,3,1
Data 1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data 1,3,3,3,1,3,1,0,0,1,3,1,3,3,3,1
Data 1,1,1,3,1,3,1,2,2,1,3,1,3,1,1,1
Data 0,0,0,3,3,3,0,0,0,0,3,3,3,0,0,0
Data 1,1,1,3,1,1,1,1,1,1,1,1,3,1,1,1
Data 1,3,3,3,3,3,3,1,1,3,3,3,3,3,3,1
Data 1,3,1,1,1,1,3,3,3,3,1,1,1,1,3,1
Data 1,4,1,1,3,3,3,1,1,3,3,3,1,1,4,1
Data 1,3,3,3,3,1,3,3,3,3,1,3,3,3,3,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
If you need any more infomation then just ask.
Please Help
Thanks Eddie
