Sorry your browser is not supported!

Ive been trying to convert ScouseKnight's pacman tutorial to 2d. I got the pacman moving and the maze drawn and everything until it came to checking whether the walls were solid. Then my pacman stopped moving. The code is attached here and at the bottom.

set display mode 640,480,32
sync on : sync rate 60

rem declare global variables
global playerx#
global playery#
global playerup
global playerdown
global playerleft
global playeright
global playercangoup
global playercangodown
global playercangoleft
global playercangoright

dim maze#(20,16)

rem load all media for the game
loadmedia()

rem load the maze
loadmaze()

rem setup the variables
startlevel()

do

rem check if player is in the centre of a cell
centrex# = (playerx# - 2) / 16
centrey# = (playery# - 8) / 16
centrex = Int(centrex#)
centrey = Int(centrey#)

centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if the player is in the centre
if centre = 1

rem initilaise all possible directions
   playercangoup = 0
   playercangodown = 0
   playercangoleft = 0
   playercangonright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey + 1, centrex)
   mazedown = maze#(centrey - 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      playercangoup = 1
   else
      playerup = 0
   endif

if mazdown = 0 or mazedown >= 3
      playercangodown = 1
   else
      playerdown = 0
   endif

if mazeleft = 0 or mazeleft >= 3
      playercangoleft = 1
   else
      playerleft = 0
   endif

if mazeright = 0 or mazeright >= 3
      playercangoleft = 1
   else
      playeright = 0
   endif

playerturn()
endif

showplayer()
playermove()
sync
loop

remstart
1 is wall
2 is gate
3 is pill
4 is power pill
0 is gap
remend

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,3,3,1,1,1,1,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,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,2,2,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   0,3,1,3,1,3,3,3,3,3,3,1,3,1,3,0
Data   1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,1,3,1,1,1,1,1,1,1,1,1,1,3,1,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,3,3,3,3,3,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,0,3,3,3,3,1,3,1
Data   1,3,1,1,1,3,1,1,1,1,3,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

function loadmedia

load image "media\wall.bmp",1
load image "media\gate.bmp",2
load image "media\pill.bmp",3
load image "media\power.bmp",4
load image "media\blank.bmp",5
load image "media\pacman.bmp",6

endfunction

function loadmaze

sprite 1,190,75,5

t=3

For Y = 0 to 19
   For X = 0 to 15

Read maze

Maze#(mazey,mazex) = Maze

if maze> 0
      Sprite t,190+X*16,75+Y*16,maze
      endif

Inc t

Next X
Next Y

endfunction

function startlevel

playerx# = 318
playery# = 331
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

function showplayer

sprite 2,playerx#,playery#,6

endfunction

function playermove

if playerup then playery# = playery# - 1
if playerdown then playery# = playery# + 1
if playerleft then playerx# = playerx# - 1
if playeright then playerx# = playerx# + 1

endfunction

function playerturn

if upkey() and playercangoup =1
reset_player_direction()
playerup = 1
endif

if downkey() and playercangodown = 1
reset_player_direction()
playerdown = 1
endif

if leftkey() and playercangoleft= 1
reset_player_direction()
playerleft = 1
endif

if rightkey() and playercangoright = 1
reset_player_direction()
playeright = 1
endif

endfunction

function reset_player_direction
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

set display mode 640,480,32
sync on : sync rate 60

rem declare global variables
global playerx#
global playery#
global playerup
global playerdown
global playerleft
global playeright
global playercangoup
global playercangodown
global playercangoleft
global playercangoright

dim maze#(20,16)

rem load all media for the game
loadmedia()

rem load the maze
loadmaze()

rem setup the variables
startlevel()




do

rem check if player is in the centre of a cell
centrex# = (playerx# - 2) / 16
centrey# = (playery# - 8) / 16
centrex = Int(centrex#)
centrey = Int(centrey#)

centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if the player is in the centre
if centre = 1

rem initilaise all possible directions
   playercangoup = 0
   playercangodown = 0
   playercangoleft = 0
   playercangonright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey + 1, centrex)
   mazedown = maze#(centrey - 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      playercangoup = 1
   else
      playerup = 0
   endif

   if mazdown = 0 or mazedown >= 3
      playercangodown = 1
   else
      playerdown = 0
   endif

   if mazeleft = 0 or mazeleft >= 3
      playercangoleft = 1
   else
      playerleft = 0
   endif

   if mazeright = 0 or mazeright >= 3
      playercangoleft = 1
   else
      playeright = 0
   endif

playerturn()
endif


showplayer()
playermove()
sync
loop

remstart
1 is wall
2 is gate
3 is pill
4 is power pill
0 is gap
remend

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,3,3,1,1,1,1,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,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,2,2,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   0,3,1,3,1,3,3,3,3,3,3,1,3,1,3,0
Data   1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,1,3,1,1,1,1,1,1,1,1,1,1,3,1,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,3,3,3,3,3,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,0,3,3,3,3,1,3,1
Data   1,3,1,1,1,3,1,1,1,1,3,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


function loadmedia

load image "media\wall.bmp",1
load image "media\gate.bmp",2
load image "media\pill.bmp",3
load image "media\power.bmp",4
load image "media\blank.bmp",5
load image "media\pacman.bmp",6

endfunction

function loadmaze

sprite 1,190,75,5

t=3

For Y = 0 to 19
   For X = 0 to 15


      Read maze

      Maze#(mazey,mazex) = Maze

      if maze> 0
      Sprite t,190+X*16,75+Y*16,maze
      endif

      Inc t

   Next X
Next Y

endfunction

function startlevel


playerx# = 318
playery# = 331
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

function showplayer

sprite 2,playerx#,playery#,6

endfunction

function playermove


if playerup then playery# = playery# - 1
if playerdown then playery# = playery# + 1
if playerleft then playerx# = playerx# - 1
if playeright then playerx# = playerx# + 1

endfunction

function playerturn

if upkey() and playercangoup =1
reset_player_direction()
playerup = 1
endif

if downkey() and playercangodown = 1
reset_player_direction()
playerdown = 1
endif

if leftkey() and playercangoleft= 1
reset_player_direction()
playerleft = 1
endif

if rightkey() and playercangoright = 1
reset_player_direction()
playeright = 1
endif

endfunction

function reset_player_direction
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

Any help would be greatly apreciated,

Michael

Ps my tiles are 16 * 16 just incase anyone wanted to know

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 14th Apr 2004 17:46

try this

do
oldx=x
oldy=y

if sprite collision(pac-man,walls)>0
x=oldx
y=oldy

sprite 1,x,y,1
endif
loop

That what I made in my Pac-Man game theat i'm making.

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 14th Apr 2004 20:50

That doesnt really fitin with the tutorilaimdoing but thanks anyway. I'd really apreciate some help on this.

Cheers,

Michael

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 14th Apr 2004 23:05

Check that the player starts in a coordinate that is the centre of a cell - this is usually the cause of this sort of problem - the player is not in the centre of a cell to begin with and none of the directions allowed are triggered hence it won't budge.

Secondly, I seem to recall having to add 1 to X and Y coordinate worked out as well in my own 2D version of the game.

If your still having problems after this I'll have a more thorough look at it - I won't have time this evening sadly (I'm on a 6am start for a few weeks at work).

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 15th Apr 2004 00:43

Thanks for your help. I'll try that now.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 15th Apr 2004 12:14

I tried what you said Scouseknight and it still didnt work. If anyonecan see any problems with the code their help would be greatly apreciated.

Cheers,

Michael

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 15th Apr 2004 12:30

If nobody has replied by the time I have finished work I will have a good look.

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 15th Apr 2004 17:00

Thanks ScouseKnight!

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 15th Apr 2004 17:38

OK Michael - I think we have this cracked now.

The first problem was the player's X and Y coordinates were not converting back to maze array elements - the reason for this was the maze was drawn in the center of the screen which meant a larger adjustment was needed to the playerx# and playery# values before dividing them by 16 :

rem check if player is in the centre of a cell
centrex# = (playerx# - 174) / 16
centrey# = (playery# - 59) / 16
centrex = Int(centrex#)
centrey = Int(centrey#)

Now, the player's start position in terms of array cells is 17 down by 9 across which is spot on - and the player is also dead center of this cell now too - which means center = 1 will be true and we can kick off moving our player.

The next thing was the code to construct the maze - the values of X and Y were being used in the for..next loop - but mazex and mazey were being used to populate the array - this meant the maze# array was filled with zeros hence no movement was possible - I also added 1 to the X and Y because the maze loop was 0 to 19, and 0 to 15 respectively - the elements would be 1 to 20 and 1 to 16 - the new code is here :

For Y = 0 to 19
   For X = 0 to 15


      Read maze

      Maze#(Y+1,X+1) = Maze

      if maze> 0
      Sprite t,190+X*16,75+Y*16,maze
      endif

      Inc t

   Next X
Next Y

The other things were just minor easy-to-make errors - the basic concept of what you wanted was there!

playercangonright=0 should have read playercangoright=0 - the effect of this is once the player have moved right he will always be able to move right because that value was never being set to 0.

if mazdown = 0 should have read if mazedown=0.

Finally, the mazeup and mazedown had + 1 for mazeup and - 1 for mazedown - it should have been the other way around.

The full correct code is as follows :

set display mode 640,480,32
sync on : sync rate 60

rem declare global variables
global playerx#
global playery#
global playerup
global playerdown
global playerleft
global playeright
global playercangoup
global playercangodown
global playercangoleft
global playercangoright

dim maze#(20,16)

rem load all media for the game
loadmedia()

rem load the maze
loadmaze()

rem setup the variables
startlevel()

do

rem check if player is in the centre of a cell
centrex# = (playerx# - 174) / 16
centrey# = (playery# - 59) / 16
centrex = Int(centrex#)
centrey = Int(centrey#)

centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if the player is in the centre
if centre = 1

rem initilaise all possible directions
   playercangoup = 0
   playercangodown = 0
   playercangoleft = 0
   playercangoright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey - 1, centrex)
   mazedown = maze#(centrey + 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      playercangoup = 1
   else
      playerup = 0
   endif

if mazedown = 0 or mazedown >= 3
      playercangodown = 1
   else
      playerdown = 0
   endif

if mazeleft = 0 or mazeleft >= 3
      playercangoleft = 1
   else
      playerleft = 0
   endif

if mazeright = 0 or mazeright >= 3
      playercangoright = 1
   else
      playeright = 0
   endif

playerturn()
endif

showplayer()
playermove()
sync
loop

remstart
1 is wall
2 is gate
3 is pill
4 is power pill
0 is gap
remend

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,3,3,1,1,1,1,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,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,2,2,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   0,3,1,3,1,3,3,3,3,3,3,1,3,1,3,0
Data   1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,1,3,1,1,1,1,1,1,1,1,1,1,3,1,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,3,3,3,3,3,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,0,3,3,3,3,1,3,1
Data   1,3,1,1,1,3,1,1,1,1,3,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

function loadmedia

load image "media\wall.bmp",1
load image "media\gate.bmp",2
load image "media\pill.bmp",3
load image "media\power.bmp",4
load image "media\blank.bmp",5
load image "media\pacman.bmp",6

endfunction

function loadmaze

sprite 1,190,75,5

t=3

For Y = 0 to 19
   For X = 0 to 15

Read maze

Maze#(Y+1,X+1) = Maze

if maze> 0
      Sprite t,190+X*16,75+Y*16,maze
      endif

Inc t

Next X
Next Y

endfunction

function startlevel

playerx# = 318
playery# = 331
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

function showplayer

sprite 2,playerx#,playery#,6

endfunction

function playermove

if playerup then playery# = playery# - 1
if playerdown then playery# = playery# + 1
if playerleft then playerx# = playerx# - 1
if playeright then playerx# = playerx# + 1

endfunction

function playerturn

if upkey() and playercangoup =1
reset_player_direction()
playerup = 1
endif

if downkey() and playercangodown = 1
reset_player_direction()
playerdown = 1
endif

if leftkey() and playercangoleft= 1
reset_player_direction()
playerleft = 1
endif

if rightkey() and playercangoright = 1
reset_player_direction()
playeright = 1
endif

endfunction

function reset_player_direction
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

set display mode 640,480,32
sync on : sync rate 60

rem declare global variables
global playerx#
global playery#
global playerup
global playerdown
global playerleft
global playeright
global playercangoup
global playercangodown
global playercangoleft
global playercangoright

dim maze#(20,16)

rem load all media for the game
loadmedia()

rem load the maze
loadmaze()

rem setup the variables
startlevel()

do

rem check if player is in the centre of a cell
centrex# = (playerx# - 174) / 16
centrey# = (playery# - 59) / 16
centrex = Int(centrex#)
centrey = Int(centrey#)

centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if the player is in the centre
if centre = 1

rem initilaise all possible directions
   playercangoup = 0
   playercangodown = 0
   playercangoleft = 0
   playercangoright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey - 1, centrex)
   mazedown = maze#(centrey + 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      playercangoup = 1
   else
      playerup = 0
   endif

   if mazedown = 0 or mazedown >= 3
      playercangodown = 1
   else
      playerdown = 0
   endif

   if mazeleft = 0 or mazeleft >= 3
      playercangoleft = 1
   else
      playerleft = 0
   endif

   if mazeright = 0 or mazeright >= 3
      playercangoright = 1
   else
      playeright = 0
   endif

playerturn()
endif


showplayer()
playermove()
sync
loop

remstart
1 is wall
2 is gate
3 is pill
4 is power pill
0 is gap
remend

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,3,3,1,1,1,1,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,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,2,2,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   0,3,1,3,1,3,3,3,3,3,3,1,3,1,3,0
Data   1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,1,3,1,1,1,1,1,1,1,1,1,1,3,1,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,3,3,3,3,3,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,0,3,3,3,3,1,3,1
Data   1,3,1,1,1,3,1,1,1,1,3,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


function loadmedia

load image "media\wall.bmp",1
load image "media\gate.bmp",2
load image "media\pill.bmp",3
load image "media\power.bmp",4
load image "media\blank.bmp",5
load image "media\pacman.bmp",6

endfunction

function loadmaze

sprite 1,190,75,5

t=3

For Y = 0 to 19
   For X = 0 to 15


      Read maze

      Maze#(Y+1,X+1) = Maze

      if maze> 0
      Sprite t,190+X*16,75+Y*16,maze
      endif

      Inc t

   Next X
Next Y

endfunction

function startlevel


playerx# = 318
playery# = 331
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

function showplayer

sprite 2,playerx#,playery#,6

endfunction

function playermove


if playerup then playery# = playery# - 1
if playerdown then playery# = playery# + 1
if playerleft then playerx# = playerx# - 1
if playeright then playerx# = playerx# + 1

endfunction

function playerturn

if upkey() and playercangoup =1
reset_player_direction()
playerup = 1
endif

if downkey() and playercangodown = 1
reset_player_direction()
playerdown = 1
endif

if leftkey() and playercangoleft= 1
reset_player_direction()
playerleft = 1
endif

if rightkey() and playercangoright = 1
reset_player_direction()
playeright = 1
endif

endfunction

function reset_player_direction
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

Like I said though don't be too bothered about any of that - the concept was right - the conversion from the 3D to 2D was there and would have worked - I'm always having to go back and correct things I do!!

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 15th Apr 2004 18:25

Thats brilliant Scouseknight. I can't thankyou enough.

Cheers,

michael

PS. Great tutorial by the way. I just wish the mods would sticky it.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 15th Apr 2004 19:49

Cheers Michael glad you found it useful

Back to top

Profile PM Email Website

indi

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 16th Apr 2004 03:39 Edited at: 16th Apr 2004 03:45

bling stuckified!

now help me find the 3d tutorial link and ill make that sticky as well

fall down seven times, stand up eight

Back to top

Profile PM Email

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 16th Apr 2004 21:44

Heres a link to the tutorial thread.
No poing having two stickies for the same tut.

http://www.thegamecreators.com/?m=forum_view&t=28865&b=7

you ain't the cops

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 16th Apr 2004 22:04

Nope

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 17th Apr 2004 01:51

I have another question. Is it possible touse the sprite collision commands in DBPro to make pacmaneat thepills. I wanted to use thesprite command so it returned the number of the sprite that it collided with and stored it in a variable. If this number was oneof the pills then it would delete that sprite. This is how i think it should be done but it doesnt work. (this is not the actual code i tried)

if sprite collision (6,0) and then set the variable to the number of the sprite it collided with (pac_collide)
if pac_collide > 200 and pac_collide < 500 (my pill numbers) then delete sprite pac_collide

If anybody knoshow to implement that into DBP then their help would be greatly apreciated.

Cheers,

Michael

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 17th Apr 2004 04:19

I made this in my Pac-Man game that I'm making

for pillsate=start pill to the last number of pills(the sprite no.)
if sprite collision(pac-man,pillsate)>0 then hide sprite pillsate
next pillsate

I hope that helps

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 17th Apr 2004 14:22

Thanks for your help commando 300. Thats exactly what i meant but all it does it produce an error saying that that sprite doesn't exist. My pill numbers start from 200 and i have 143 pills. So i used this code:

for pillstate = 200 to 343
   if sprite collision (6,pillstate) > 0 then hide sprite pillstate
next pillstate

My full source code is at the bottom. Cheers,

Michael

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 17th Apr 2004 20:49

is the same thing I told you

But I'm glad I help you

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 17th Apr 2004 20:51 Edited at: 17th Apr 2004 20:52

Yes i know thats the code you told me. What i was saying was that it didn't work, it just produced the sprite doesnt exist error, even when i substituted in the orrect values and variable names. I still havnt got it working yet.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 18th Apr 2004 01:12

I've found the problem. I was using pacmans image number instead of his sprite number.

Thanks for your help commando 300 with the code sample. I tried using the built in sprite collision commands but they arn't that brilliant so i decided to use the pixel perfect collision example in the codebase. Thanks evryone for all their help.

Cheers,

Michael

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 18th Apr 2004 01:48

Is that the one by Freddix incidentally?

I am using that in my current project - really is the dog's nads is that function

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 18th Apr 2004 01:52

The function i am using is made by IanM. Nice function if your reading. lol.

Cheers,

Michael

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 18th Apr 2004 02:04

Cheers Michael I'll have a look at that one - although Freddix's one is doing a good job in my game I'll probably stick with it this time.

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 19th Apr 2004 23:27

Just posting some progress. I've been working on the ghost over the weekend and tonight. I finished all the code in the tutorial about the ghost movement and AI however there is a problem somewhere inmy code. I have spent ages lookingfor itbuti can't seem to find it. Sometimes the ghosts stop completely andother times they manage to move diagonaly throught the walls of a junction. The Ai doesnt seem to be working either as the ghosts pay no attentionto the player whatsoever. If anyone couldhavea quicklook throughmy codethen i'd be really grateful.

Cheers,

Michael

set display mode 640,480,32
sync on : sync rate 60

rem randomize timer
Randomize timer()

rem declare global variables
global playerx#
global playery#
global playerup
global playerdown
global playerleft
global playeright
global playercangoup
global playercangodown
global playercangoleft
global playercangoright
global score

dim maze#(20,16)

rem ghost array
dim ghosts#(4,11)

remstart
1 = x co-ordinate
2 = y co-ordinate
3 = going up?
4 = going down?
5 = going left?
6 = going right?
7 = can go up?
8 =  can go down?
9 =  can go left?
10 =  can go right?
11 = state (alive,eaten,under influenece of pills, in pen etc)
remend

rem load all media for the game
loadmedia()

rem load the maze
loadmaze()

rem setup the variables
startlevel()

do

rem check if player is in the centre of a cell
centrex# = (playerx# - 174) / 16
centrey# = (playery# - 59) / 16
centrex = Int(centrex#)
centrey = Int(centrey#)

centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if the player is in the centre
if centre = 1

rem initilaise all possible directions
   playercangoup = 0
   playercangodown = 0
   playercangoleft = 0
   playercangoright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey - 1, centrex)
   mazedown = maze#(centrey + 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      playercangoup = 1
   else
      playerup = 0
   endif

if mazedown = 0 or mazedown >= 3
      playercangodown = 1
   else
      playerdown = 0
   endif

if mazeleft = 0 or mazeleft >= 3
      playercangoleft = 1
   else
      playerleft = 0
   endif

if mazeright = 0 or mazeright >= 3
      playercangoright = 1
   else
      playeright = 0
   endif

rem allow quick about turn
if playerup = 1 and downkey() = 1
   reset_player_direction()
   playerdown = 1
endif

if playerdown = 1 and upkey() = 1
   reset_player_direction()
   playerup = 1
endif

if playerleft = 1 and rightkey() = 1
   reset_player_direction()
   playeright = 1
endif

if playerright = 1 and leftkey() = 1
   reset_player_direction()
   playerleft = 1
endif

playerturn()
endif

showplayer()
playermove()
eatpills()
showghost()
ghostmove()
checkghost()
sync
loop

remstart
1 is wall
2 is gate
3 is pill
4 is power pill
0 is gap
remend

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,3,3,1,1,1,1,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,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,2,2,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   0,3,1,3,1,3,3,3,3,3,3,1,3,1,3,0
Data   1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,1,1,1,1,1,1,1,1,1,1,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,3,3,3,3,3,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,0,3,3,3,3,1,3,1
Data   1,3,1,1,1,3,1,1,1,1,3,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

function loadmedia

load image "media\wall.bmp",1
load image "media\gate.bmp",2
load image "media\pill.bmp",3
load image "media\power.bmp",4
load image "media\blank.bmp",5
load image "media\pacman.bmp",6
load image "media\pacplace.bmp",7
load image "media\redghost.bmp",8
load image "media\blueghost.bmp",9
load image "media\pinkghost.bmp",10
load image "media\greenghost.bmp",11

endfunction

function loadmaze

sprite 1,190,75,5

mazewall = 10
mazepill = 200
mazepower = 500

For Y = 0 to 19
   For X = 0 to 15

Read maze

Maze#(Y+1,X+1) = Maze

if maze = 1
         sprite mazewall,190+x*16,75+y*16,1
         inc mazewall
      endif

if maze = 2
         sprite mazewall,190+x*16,75+y*16,2
         inc mazewall
      endif

if maze = 3
         sprite mazepill,190+x*16,75+y*16,3
         inc mazepill
      endif

if maze = 4
         sprite mazepower,190+x*16,75+y*16,4
         inc mazepower
      endif

Next X
Next Y

endfunction

function startlevel

playerx# = 318
playery# = 331
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

resetghosts()

endfunction

function showplayer

sprite 2,playerx#,playery#,6
sprite 3,playerx#,playery#,7

endfunction

function playermove

if playerup then playery# = playery# - 1
if playerdown then playery# = playery# + 1
if playerleft then playerx# = playerx# - 1
if playeright then playerx# = playerx# + 1

rem if player leaves the maze
if playerx# < 190 and playerleft = 1
   playerx# = 439
endif

if playerx# > 428 and playeright = 1
   playerx# = 190
endif

endfunction

function playerturn

if upkey() and playercangoup =1
reset_player_direction()
playerup = 1
endif

if downkey() and playercangodown = 1
reset_player_direction()
playerdown = 1
endif

if leftkey() and playercangoleft= 1
reset_player_direction()
playerleft = 1
endif

if rightkey() and playercangoright = 1
reset_player_direction()
playeright = 1
endif

endfunction

function reset_player_direction
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

function eatpills

for pillstate = 200 to 343
   if spritepixelcollision (2,pillstate) > 0 then delete sprite pillstate : score = score + 10
next pillstate

set cursor 310,400
print score

endfunction

function resetghosts

rem reset ghost directions

for ghost = 1 to 4
   ghosts#(ghost,3) = 0
   ghosts#(ghost,4) = 0
   ghosts#(ghost,5) = 0
   ghosts#(ghost,6) = 0
   ghosts#(ghost,7) = 0
   ghosts#(ghost,8) = 0
   ghosts#(ghost,9) = 0
   ghosts#(ghost,10) = 0
next ghost

rem red ghost starts at top of pen

ghosts#(1,1) = 286
ghosts#(1,2) = 123
ghosts#(1,11) = 0

rem blue ghost starts in pen
ghosts#(2,1) = 302
ghosts#(2,2) = 171
ghosts#(2,11) = 1

rem pink ghost starts in pen
ghosts#(3,1) = 318
ghosts#(3,2) = 171
ghosts#(3,11) = 1

rem green ghost starts at top of pen
ghosts#(4,1) = 334
ghosts#(4,2) = 123
ghosts#(4,11) = 0

rem give each ghost a starting direction
Ghosts#(1,5) = 1
Ghosts#(2,3) = 1
Ghosts#(3,3) = 1
Ghosts#(4,6) = 1

endfunction

function showghost

for ghost = 1 to 4
   ghostsprite = 1000 + ghost
   ghostx# = ghosts#(ghost,1)
   ghosty# = ghosts#(ghost,2)
   ghostimage = ghost + 7

sprite ghostsprite,ghostx#,ghosty#,ghostimage

next ghost

endfunction

function ghostmove

for ghost = 1 to 4

ghostx# = ghosts#(ghost,1)
   ghosty# = ghosts#(ghost,2)
   ghostup = ghosts#(ghost,3)
   ghostdown = ghosts#(ghost,4)
   ghostleft = ghosts#(ghost,5)
   ghostright = ghosts#(ghost,6)

rem check to see if the ghost is at the edge of the maze

if ghostx# < 190
      ghostx# = 428
   endif

if ghostx# > 428
      ghostx# = 190
   endif

if ghostup = 1 then ghosty# = ghosty# - 1
   if ghostdown = 1 then ghosty# = ghosty# + 1
   if ghostleft = 1 then ghostx# = ghostx# - 1
   if ghostright = 1 then ghostx# = ghostx# + 1

ghosts#(ghost,1) = ghostx#
   ghosts#(ghost,2) = ghosty#

next ghost

endfunction

function checkghost

for ghost = 1 to 4

ghostx# = ghosts#(ghost,1)
   ghosty# = ghosts#(ghost,2)
   ghostup = ghosts#(ghost,3)
   ghostdown = ghosts#(ghost,4)
   ghostleft = ghosts#(ghost,5)
   ghostright = ghosts#(ghost,6)

rem check if the ghost is in the centre of a cell
   centrex# = (ghostx# - 174) / 16
   centrey# = (ghosty# - 59) / 16
   centrex = Int(centrex#)
   centrey = Int(centrey#)

centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if ghost is in centre of cell
if centre = 1

rem initialise all possible directions

ghostcangoup = 0
   ghostcangodown = 0
   ghostcangoleft = 0
   ghostcangoright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey - 1, centrex)
   mazedown = maze#(centrey + 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem store current directions

ghostwasup = ghostup
ghostwasdown = ghostdown
ghostwasleft = ghostleft
ghostwasright = ghostright

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      ghostcangoup = 1
   else
      ghostup = 0
   endif

if mazedown = 0 or mazedown >= 3
      ghostcangodown = 1
   else
      ghostdown = 0
   endif

if mazeleft = 0 or mazeleft >= 3
      ghostcangoleft = 1
   else
      ghostleft = 0
   endif

if mazeright = 0 or mazeright >= 3
      ghostcangoright = 1
   else
      ghostright = 0
   endif

ghosts#(ghost,3) = ghostup
   ghosts#(ghost,4) = ghostdown
   ghosts#(ghost,5) = ghostleft
   ghosts#(ghost,6) = ghostright
   ghosts#(ghost,7) = ghostcangoup
   ghosts#(ghost,8) = ghostcangodown
   ghosts#(ghost,9) = ghostcangoleft
   ghosts#(ghost,10) = ghostcangoright

rem if ghost isn't moving

if ghostup + ghostdown + ghostright + ghostleft = 0
      turnghost(ghost)
   endif

endif

if ghostwasup = 1
      if ghostcangoleft = 1 or ghostcangoright = 1
         ghostcangodown = 0
         ghostup = 0
      endif
   endif

if ghostwasdown = 1
      if ghostcangoleft = 1 or ghostcangoright = 1
         ghostcangoup = 0
         ghostdown = 0
      endif
   endif

if ghostwasleft = 1
      if ghostcangoup = 1 or ghostcangodown = 1
         ghostcangoright = 0
         ghostleft = 0
      endif
   endif

if ghostwasright = 1
      if ghostcangoup = 1 or ghostcangodown = 1
         ghostcangoleft = 0
         ghostright = 0
      endif
   endif

next ghost

endfunction

function turnghost(ghost)

dim Turn$(4)

Turn = 0
ghostcangoup = ghosts#(ghost,7)
ghostcangodown = ghosts#(ghost,8)
ghostcangoleft = ghosts#(ghost,9)
ghostcangoright = ghosts#(ghost,10)

if ghostup + ghostdown + ghostleft + ghostright = 0

if ghostcangoup = 1
   inc turn
   Turn$(turn) = "U"
endif

if ghostcangodown = 1
   inc turn
   Turn$(turn) = "D"
endif

if ghostcangoleft = 1
   inc turn
   Turn$(turn) = "L"
endif

if ghostcangoright = 1
   inc turn
   Turn$(turn) = "R"
endif

Direction$ = Turn$(Rnd(Turn) + 1)
if Direction$ = "U" then ghostup = 1
if Direction$ = "D" then ghostdown = 1
if Direction$ = "L" then ghostleft = 1
if Direction$ = "R" then ghostright = 1

endif

rem see where the player is in relation to the ghost
playerxdiff# = playerx# - ghosts#(ghost,1)
playerydiff# = playery - ghosts#(ghost,2)

rem see whether the ghost should be goin horizontally or vertically
if abs(playerxdiff#) > abs(playerydiff#)
   xbias = 1
   ybias = 0
else
   xbias = 0
   ybias = 1
endif

if xbias = 1
   if playerxdiff# > 0
      if ghostcangoleft = 1
         ghostleft = 1
      endif
   else
      if ghostcangoright = 1
         ghostright = 1
      endif
   endif
endif

if ybias = 1
   if playerydiff# > 0
      if ghostcangodown = 1
         ghostdown = 1
      endif
   else
      if ghostcangoup = 1
         ghostup = 1
      endif
   endif
endif

ghosts#(ghost,3) = ghostup
ghosts#(ghost,4) = ghostdown
ghosts#(ghost,5) = ghostleft
ghosts#(ghost,6) = ghostright

endfunction

rem pixel perfect collision code taken from the codebase

function SpritePixelCollision(sprite1 as integer, sprite2 as integer)
   local Sprite1Base as dword
   local Sprite2Base as dword
   local Sprite1Addr as dword
   local Sprite2Addr as dword
   local V as dword

if sprite collision (sprite1, sprite2) > 0

make memblock from image 255,sprite image(sprite1)
      make memblock from image 256,sprite image(sprite2)

Sprite1Base=get memblock ptr(255)
      Sprite2Base=get memblock ptr(256)

XPos1=sprite x(sprite1)-sprite offset x(sprite1)
      YPos1=sprite y(sprite1)-sprite offset y(sprite2)
      Width1=*Sprite1Base
      inc Sprite1Base, 4
      Height1=*Sprite1Base
      inc Sprite1Base, 11

XPos2=sprite x(sprite2)-sprite offset x(sprite2)
      YPos2=sprite y(sprite2)-sprite offset y(sprite2)
      Width2=*Sprite2Base
      inc Sprite2Base, 4
      Height2=*Sprite2Base
      inc Sprite2Base, 11

if XPos2 > XPos1
         XStart1=XPos2-XPos1
         XStart2=0
         XOverlapSize=(Width1-XStart1)-1
         if XOverlapSize >= Width2 then XOverlapSize=Width2-1
      else
         XStart2=XPos1-XPos2
         XStart1=0
         XOverlapSize=(Width2-XStart2)-1
         if XOverlapSize >= Width1 then XOverlapSize=Width1-1
      endif

if YPos2 > YPos1
         YStart1=YPos2-YPos1
         YStart2=0
         YOverlapSize=(Height1-YStart1)-1
         if YOverlapSize >= Height2 then YOverlapSize=Height2-1
      else
         YStart2=YPos1-YPos2
         YStart1=0
         YOverlapSize=(Height2-YStart2)-1
         if YOverlapSize >= Height1 then YOperlapSize=Height1-1
      endif

XStart1=XStart1*4
      XStart2=XStart2*4
      Width1=Width1*4
      Width2=Width2*4
      for YOffset=YOverlapSize to 0 step -1
         Sprite1Addr=Sprite1Base + ((YOffset+YStart1)*Width1) + XStart1
         Sprite2Addr=Sprite2Base + ((YOffset+YStart2)*Width2) + XStart2
         for XOffset=XOverlapSize to 0 step -1
            v=*Sprite1Addr
            if (v && 0xff000000) <> 0
               v=*Sprite2Addr
               if (v && 0xff000000) <> 0
                  delete memblock 255
                  delete memblock 256
                  exitfunction 1
               endif
            endif
            inc Sprite1Addr, 4
            inc Sprite2Addr, 4
         next XOffset
      next YOffset

delete memblock 255
      delete memblock 256
   endif
endFunction 0

set display mode 640,480,32
sync on : sync rate 60

rem randomize timer
Randomize timer()

rem declare global variables
global playerx#
global playery#
global playerup
global playerdown
global playerleft
global playeright
global playercangoup
global playercangodown
global playercangoleft
global playercangoright
global score

dim maze#(20,16)

rem ghost array
dim ghosts#(4,11)

remstart
1 = x co-ordinate
2 = y co-ordinate
3 = going up?
4 = going down?
5 = going left?
6 = going right?
7 = can go up?
8 =  can go down?
9 =  can go left?
10 =  can go right?
11 = state (alive,eaten,under influenece of pills, in pen etc)
remend

rem load all media for the game
loadmedia()

rem load the maze
loadmaze()

rem setup the variables
startlevel()

do

rem check if player is in the centre of a cell
centrex# = (playerx# - 174) / 16
centrey# = (playery# - 59) / 16
centrex = Int(centrex#)
centrey = Int(centrey#)

centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if the player is in the centre
if centre = 1

rem initilaise all possible directions
   playercangoup = 0
   playercangodown = 0
   playercangoleft = 0
   playercangoright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey - 1, centrex)
   mazedown = maze#(centrey + 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      playercangoup = 1
   else
      playerup = 0
   endif

   if mazedown = 0 or mazedown >= 3
      playercangodown = 1
   else
      playerdown = 0
   endif

   if mazeleft = 0 or mazeleft >= 3
      playercangoleft = 1
   else
      playerleft = 0
   endif

   if mazeright = 0 or mazeright >= 3
      playercangoright = 1
   else
      playeright = 0
   endif

rem allow quick about turn
if playerup = 1 and downkey() = 1
   reset_player_direction()
   playerdown = 1
endif

if playerdown = 1 and upkey() = 1
   reset_player_direction()
   playerup = 1
endif

if playerleft = 1 and rightkey() = 1
   reset_player_direction()
   playeright = 1
endif

if playerright = 1 and leftkey() = 1
   reset_player_direction()
   playerleft = 1
endif


playerturn()
endif


showplayer()
playermove()
eatpills()
showghost()
ghostmove()
checkghost()
sync
loop

remstart
1 is wall
2 is gate
3 is pill
4 is power pill
0 is gap
remend

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,3,3,1,1,1,1,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,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,2,2,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,0,0,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   0,3,1,3,1,3,3,3,3,3,3,1,3,1,3,0
Data   1,3,1,3,1,1,1,1,1,1,1,1,3,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,1,1,1,1,1,1,1,1,1,1,1,3,1
Data   1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1
Data   1,3,1,3,1,3,1,1,1,1,3,1,3,1,3,1
Data   1,3,1,3,1,3,3,3,3,3,3,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,0,3,3,3,3,1,3,1
Data   1,3,1,1,1,3,1,1,1,1,3,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


function loadmedia

load image "media\wall.bmp",1
load image "media\gate.bmp",2
load image "media\pill.bmp",3
load image "media\power.bmp",4
load image "media\blank.bmp",5
load image "media\pacman.bmp",6
load image "media\pacplace.bmp",7
load image "media\redghost.bmp",8
load image "media\blueghost.bmp",9
load image "media\pinkghost.bmp",10
load image "media\greenghost.bmp",11

endfunction

function loadmaze

sprite 1,190,75,5

mazewall = 10
mazepill = 200
mazepower = 500

For Y = 0 to 19
   For X = 0 to 15


      Read maze

      Maze#(Y+1,X+1) = Maze

      if maze = 1
         sprite mazewall,190+x*16,75+y*16,1
         inc mazewall
      endif

      if maze = 2
         sprite mazewall,190+x*16,75+y*16,2
         inc mazewall
      endif

      if maze = 3
         sprite mazepill,190+x*16,75+y*16,3
         inc mazepill
      endif

      if maze = 4
         sprite mazepower,190+x*16,75+y*16,4
         inc mazepower
      endif

      Next X
Next Y

endfunction

function startlevel


playerx# = 318
playery# = 331
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

resetghosts()

endfunction

function showplayer

sprite 2,playerx#,playery#,6
sprite 3,playerx#,playery#,7

endfunction

function playermove


if playerup then playery# = playery# - 1
if playerdown then playery# = playery# + 1
if playerleft then playerx# = playerx# - 1
if playeright then playerx# = playerx# + 1

rem if player leaves the maze
if playerx# < 190 and playerleft = 1
   playerx# = 439
endif

if playerx# > 428 and playeright = 1
   playerx# = 190
endif

endfunction

function playerturn

if upkey() and playercangoup =1
reset_player_direction()
playerup = 1
endif

if downkey() and playercangodown = 1
reset_player_direction()
playerdown = 1
endif

if leftkey() and playercangoleft= 1
reset_player_direction()
playerleft = 1
endif

if rightkey() and playercangoright = 1
reset_player_direction()
playeright = 1
endif

endfunction

function reset_player_direction
playerup = 0
playerdown = 0
playerleft = 0
playeright = 0

endfunction

function eatpills

for pillstate = 200 to 343
   if spritepixelcollision (2,pillstate) > 0 then delete sprite pillstate : score = score + 10
next pillstate

set cursor 310,400
print score


endfunction

function resetghosts

rem reset ghost directions

for ghost = 1 to 4
   ghosts#(ghost,3) = 0
   ghosts#(ghost,4) = 0
   ghosts#(ghost,5) = 0
   ghosts#(ghost,6) = 0
   ghosts#(ghost,7) = 0
   ghosts#(ghost,8) = 0
   ghosts#(ghost,9) = 0
   ghosts#(ghost,10) = 0
next ghost

rem red ghost starts at top of pen

ghosts#(1,1) = 286
ghosts#(1,2) = 123
ghosts#(1,11) = 0

rem blue ghost starts in pen
ghosts#(2,1) = 302
ghosts#(2,2) = 171
ghosts#(2,11) = 1

rem pink ghost starts in pen
ghosts#(3,1) = 318
ghosts#(3,2) = 171
ghosts#(3,11) = 1

rem green ghost starts at top of pen
ghosts#(4,1) = 334
ghosts#(4,2) = 123
ghosts#(4,11) = 0

rem give each ghost a starting direction
Ghosts#(1,5) = 1
Ghosts#(2,3) = 1
Ghosts#(3,3) = 1
Ghosts#(4,6) = 1

endfunction

function showghost

for ghost = 1 to 4
   ghostsprite = 1000 + ghost
   ghostx# = ghosts#(ghost,1)
   ghosty# = ghosts#(ghost,2)
   ghostimage = ghost + 7

   sprite ghostsprite,ghostx#,ghosty#,ghostimage

next ghost

endfunction

function ghostmove

for ghost = 1 to 4

   ghostx# = ghosts#(ghost,1)
   ghosty# = ghosts#(ghost,2)
   ghostup = ghosts#(ghost,3)
   ghostdown = ghosts#(ghost,4)
   ghostleft = ghosts#(ghost,5)
   ghostright = ghosts#(ghost,6)

   rem check to see if the ghost is at the edge of the maze

   if ghostx# < 190
      ghostx# = 428
   endif

   if ghostx# > 428
      ghostx# = 190
   endif

   if ghostup = 1 then ghosty# = ghosty# - 1
   if ghostdown = 1 then ghosty# = ghosty# + 1
   if ghostleft = 1 then ghostx# = ghostx# - 1
   if ghostright = 1 then ghostx# = ghostx# + 1

   ghosts#(ghost,1) = ghostx#
   ghosts#(ghost,2) = ghosty#

next ghost

endfunction

function checkghost

for ghost = 1 to 4

   ghostx# = ghosts#(ghost,1)
   ghosty# = ghosts#(ghost,2)
   ghostup = ghosts#(ghost,3)
   ghostdown = ghosts#(ghost,4)
   ghostleft = ghosts#(ghost,5)
   ghostright = ghosts#(ghost,6)

   rem check if the ghost is in the centre of a cell
   centrex# = (ghostx# - 174) / 16
   centrey# = (ghosty# - 59) / 16
   centrex = Int(centrex#)
   centrey = Int(centrey#)

   centre = 0

if centrex# = centrex and centrey# = centrey
   centre = 1
endif

rem if ghost is in centre of cell
if centre = 1

   rem initialise all possible directions

   ghostcangoup = 0
   ghostcangodown = 0
   ghostcangoleft = 0
   ghostcangoright = 0

rem check what is imediately up,down,left and right
   mazeup = maze#(centrey - 1, centrex)
   mazedown = maze#(centrey + 1, centrex)
   mazeleft = maze#(centrey, centrex - 1)
   mazeright = maze#(centrey, centrex + 1)

rem store current directions

ghostwasup = ghostup
ghostwasdown = ghostdown
ghostwasleft = ghostleft
ghostwasright = ghostright

rem determine whether it is possible for the player tomake a move
   If mazeup = 0 or mazeup >= 3
      ghostcangoup = 1
   else
      ghostup = 0
   endif

   if mazedown = 0 or mazedown >= 3
      ghostcangodown = 1
   else
      ghostdown = 0
   endif

   if mazeleft = 0 or mazeleft >= 3
      ghostcangoleft = 1
   else
      ghostleft = 0
   endif

   if mazeright = 0 or mazeright >= 3
      ghostcangoright = 1
   else
      ghostright = 0
   endif

   ghosts#(ghost,3) = ghostup
   ghosts#(ghost,4) = ghostdown
   ghosts#(ghost,5) = ghostleft
   ghosts#(ghost,6) = ghostright
   ghosts#(ghost,7) = ghostcangoup
   ghosts#(ghost,8) = ghostcangodown
   ghosts#(ghost,9) = ghostcangoleft
   ghosts#(ghost,10) = ghostcangoright

   rem if ghost isn't moving

   if ghostup + ghostdown + ghostright + ghostleft = 0
      turnghost(ghost)
   endif

   endif

   if ghostwasup = 1
      if ghostcangoleft = 1 or ghostcangoright = 1
         ghostcangodown = 0
         ghostup = 0
      endif
   endif

   if ghostwasdown = 1
      if ghostcangoleft = 1 or ghostcangoright = 1
         ghostcangoup = 0
         ghostdown = 0
      endif
   endif

   if ghostwasleft = 1
      if ghostcangoup = 1 or ghostcangodown = 1
         ghostcangoright = 0
         ghostleft = 0
      endif
   endif

   if ghostwasright = 1
      if ghostcangoup = 1 or ghostcangodown = 1
         ghostcangoleft = 0
         ghostright = 0
      endif
   endif

next ghost

endfunction

function turnghost(ghost)

dim Turn$(4)

Turn = 0
ghostcangoup = ghosts#(ghost,7)
ghostcangodown = ghosts#(ghost,8)
ghostcangoleft = ghosts#(ghost,9)
ghostcangoright = ghosts#(ghost,10)

if ghostup + ghostdown + ghostleft + ghostright = 0

if ghostcangoup = 1
   inc turn
   Turn$(turn) = "U"
endif

if ghostcangodown = 1
   inc turn
   Turn$(turn) = "D"
endif

if ghostcangoleft = 1
   inc turn
   Turn$(turn) = "L"
endif

if ghostcangoright = 1
   inc turn
   Turn$(turn) = "R"
endif

Direction$ = Turn$(Rnd(Turn) + 1)
if Direction$ = "U" then ghostup = 1
if Direction$ = "D" then ghostdown = 1
if Direction$ = "L" then ghostleft = 1
if Direction$ = "R" then ghostright = 1

endif

rem see where the player is in relation to the ghost
playerxdiff# = playerx# - ghosts#(ghost,1)
playerydiff# = playery - ghosts#(ghost,2)

rem see whether the ghost should be goin horizontally or vertically
if abs(playerxdiff#) > abs(playerydiff#)
   xbias = 1
   ybias = 0
else
   xbias = 0
   ybias = 1
endif

if xbias = 1
   if playerxdiff# > 0
      if ghostcangoleft = 1
         ghostleft = 1
      endif
   else
      if ghostcangoright = 1
         ghostright = 1
      endif
   endif
endif

if ybias = 1
   if playerydiff# > 0
      if ghostcangodown = 1
         ghostdown = 1
      endif
   else
      if ghostcangoup = 1
         ghostup = 1
      endif
   endif
endif

ghosts#(ghost,3) = ghostup
ghosts#(ghost,4) = ghostdown
ghosts#(ghost,5) = ghostleft
ghosts#(ghost,6) = ghostright

endfunction


rem pixel perfect collision code taken from the codebase

function SpritePixelCollision(sprite1 as integer, sprite2 as integer)
   local Sprite1Base as dword
   local Sprite2Base as dword
   local Sprite1Addr as dword
   local Sprite2Addr as dword
   local V as dword

   if sprite collision (sprite1, sprite2) > 0

      make memblock from image 255,sprite image(sprite1)
      make memblock from image 256,sprite image(sprite2)

      Sprite1Base=get memblock ptr(255)
      Sprite2Base=get memblock ptr(256)

      XPos1=sprite x(sprite1)-sprite offset x(sprite1)
      YPos1=sprite y(sprite1)-sprite offset y(sprite2)
      Width1=*Sprite1Base
      inc Sprite1Base, 4
      Height1=*Sprite1Base
      inc Sprite1Base, 11

      XPos2=sprite x(sprite2)-sprite offset x(sprite2)
      YPos2=sprite y(sprite2)-sprite offset y(sprite2)
      Width2=*Sprite2Base
      inc Sprite2Base, 4
      Height2=*Sprite2Base
      inc Sprite2Base, 11

      if XPos2 > XPos1
         XStart1=XPos2-XPos1
         XStart2=0
         XOverlapSize=(Width1-XStart1)-1
         if XOverlapSize >= Width2 then XOverlapSize=Width2-1
      else
         XStart2=XPos1-XPos2
         XStart1=0
         XOverlapSize=(Width2-XStart2)-1
         if XOverlapSize >= Width1 then XOverlapSize=Width1-1
      endif

      if YPos2 > YPos1
         YStart1=YPos2-YPos1
         YStart2=0
         YOverlapSize=(Height1-YStart1)-1
         if YOverlapSize >= Height2 then YOverlapSize=Height2-1
      else
         YStart2=YPos1-YPos2
         YStart1=0
         YOverlapSize=(Height2-YStart2)-1
         if YOverlapSize >= Height1 then YOperlapSize=Height1-1
      endif

      XStart1=XStart1*4
      XStart2=XStart2*4
      Width1=Width1*4
      Width2=Width2*4
      for YOffset=YOverlapSize to 0 step -1
         Sprite1Addr=Sprite1Base + ((YOffset+YStart1)*Width1) + XStart1
         Sprite2Addr=Sprite2Base + ((YOffset+YStart2)*Width2) + XStart2
         for XOffset=XOverlapSize to 0 step -1
            v=*Sprite1Addr
            if (v && 0xff000000) <> 0
               v=*Sprite2Addr
               if (v && 0xff000000) <> 0
                  delete memblock 255
                  delete memblock 256
                  exitfunction 1
               endif
            endif
            inc Sprite1Addr, 4
            inc Sprite2Addr, 4
         next XOffset
      next YOffset

      delete memblock 255
      delete memblock 256
   endif
endFunction 0

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 20th Apr 2004 01:30

*off topic*

Just a little question, how many points do you gain for each pill pac-man eat?

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 20th Apr 2004 01:43

I set them to 10 im my game. I'd also be interested to know the correct amount for ghosts, fruit, powerpills etc.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 20th Apr 2004 01:50

I think Ghosts are 100 for the first, 200 for the second, 400 for the third and 800 for the fourth if you get them all before the power pill runs out - that's what I tend to do anyhow.

I'll have a shuftie at the code when I get time probably tomorrow - in the meantime, perhaps some kind soul can help.

Back to top

Profile PM Email Website

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 20th Apr 2004 01:53

thanks!

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 20th Apr 2004 21:19

That'd be great. thanks.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 21st Apr 2004 19:26

Have you had chance to have a look through the code anyone?

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 21st Apr 2004 20:57

Michael any chance you could zip what you have up and e-mail it along to me so I can have all the media to work with e.t.c.?

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 21st Apr 2004 21:38

I've sent the email now. Thanks for your help. BTW it's a.rar file. Can you open these? If not just give us a shout.

Cheers,

Michael

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 21st Apr 2004 21:46

Aye I can open rar files no bother - I'll take a look as soon as I can - sorry for delays!

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 21st Apr 2004 22:08

Thats fine. Thanks for your help.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 21st Apr 2004 23:34

Sorry Scouseknight it hasn't sent. You can download it here at http://codemonkeydownloads.dbspot.com/Pacman.rar

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 22nd Apr 2004 00:36

Michael the reason the ghosts are moving diagonally and sticking sometimes is that on occasions, more than one direction is set to 1.

I amended the code after the ghostturn function was called :

Direction$ = Turn$(Rnd(Turn) + 1)

if Direction$ = "U"
   ghostup = 1
   ghostdown = 0
   ghostleft = 0
   ghostright = 0
endif

if Direction$ = "D"
   ghostdown = 1
   ghostup = 0
   ghostleft = 0
   ghostright = 0
endif
if Direction$ = "L"
   ghostleft = 1
   ghostup = 0
   ghostdown = 0
   ghostright = 0
endif
if Direction$ = "R"
   ghostright = 1
   ghostup = 0
   ghostdown = 0
   ghostright = 0
endif

And also amended the code that checks for the player position :

if xbias = 1
   if playerxdiff# > 0
      if ghostcangoleft = 1 and ghostwasright = 0
         ghostleft = 1
      endif
   else
      if ghostcangoright = 1 and ghostwasleft = 0
         ghostright = 1
      endif
   endif
endif

if ybias = 1
   if playerydiff# > 0
      if ghostcangodown = 1 and ghostwasup = 0
         ghostdown = 1
         ghostleft = 0
         ghostright = 0
         ghostup = 0
      endif
   else
      if ghostcangoup = 1 and ghostwasdown = 0
         ghostup = 1
         ghostdown = 0
         ghostleft = 0
         ghosttight = 0
      endif
   endif
endif

Although this did stop the diagonals and stuck ghosts - the ghosts were doubling back on themselves all the time - the turorial game also had this problem and did address it - my head is chocker at the moment (these 5am starts at work are killing me!!) - see if you can get to the bottom of it - if not, I will have a look tomorrow evening when I am fresher.

Back to top

Profile PM Email Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 22nd Apr 2004 01:03

Thanks for your help Scouseknight. I'll re-read the tutorial on that bit now.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

Scouseknight

20

Years of Service

User Offline

Joined: 15th Mar 2004

Location: Bootle, Merseyside, UK

Posted: 22nd Apr 2004 01:34

I'm sure you'll sort it - you've done a marvellous job of coverting the 3D to 2D so far - I might hold back on my 2D Pac Man tutorial now and let you do it

Seriously..

Back to top

Profile PM Email Website

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 22nd Apr 2004 02:32 Edited at: 22nd Apr 2004 02:33

I have to tell you something Code Monkey, the function to know which pill was ate will not work if u are going to make the score, I discovered by myself, use offset sprite instead of hide sprite

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 22nd Apr 2004 19:39 Edited at: 22nd Apr 2004 19:40

@ commando 300: Why won't it work. I have it working. All you have to do is declare the score value as a global variable.

@ Scouseknight: Were you serious. I'd be glad to do it.

Visit the Code Monkey's website at http://www.freewebs.com/codemonkeystudios

Back to top

Profile PM Email

comando 300

20

Years of Service

User Offline

Joined: 23rd Nov 2003

Location:

Posted: 22nd Apr 2004 20:51

oh! This tutorial is for DBPro I'm using DBC Enhanted and I can't set the variables as global

CURRENT PROJECT: RETRO PAC-MAN

Back to top

Profile PM Website

Blue Shadow

20

Years of Service

User Offline

Joined: 6th Feb 2004

Location:

Posted: 22nd Apr 2004 20:56