Pacman - GameCreators Forum

Author

Message

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 12th Mar 2004 15:58

Link

yes this was a good maze to help trouble shoot the db collision problem
but not what i was looking for in a maze.if you could retake the helm of this tutorial now izzy it would be great.i wouldnt know what to do next to finish the game.we need pellets,ghosts,monster ai,and a proper maze.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Izzy545

20

Years of Service

User Offline

Joined: 18th Feb 2004

Location:

Posted: 12th Mar 2004 19:00

Link

Okay. I'll show y'all what I've done with the maze as soon as I can, all I have right now is the four outside walls, just need to make the inner ones and the maze should be done. BTW, I was using NGlorys collision DLL, it's friggin sweet. You should check out the code I posted under Nuclear Glory Collision Tutorials, or something like that, in the newcomers section. It's basically this pacman, but using the demo of NG collision. You can download the trial on his website. Enough of that, I'll show y'all the maze tonight, as soon as I get it done.

Back to top

Profile PM

GameMaker Jason

20

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 12th Mar 2004 19:28

Link

sorry but that code dont work

doen't understand the commands

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 12th Mar 2004 23:49

Link

what code doesnt work? my collison is still buggy in db when your at a corner
its perfect in dbpro.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 13th Mar 2004 00:14

Link

are talking about the code for the dll?

Back to top

Profile PM Email Website

nuclear glory

20

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 13th Mar 2004 00:18

Link

I think you'll be interested in this thread (the one Izzy545 is talking about)

http://darkbasicpro.thegamecreators.com/?m=forum_view&t=27531&b=10

My last post has runnable code.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 13th Mar 2004 06:07 Edited at: 13th Mar 2004 06:08

Link

this is the biggest crapper ever .there has to be a way to make this code work in db WITHOUT using nuclear glory or anyone elses dll.this is no complex multi-million dollar nasa project.this is pac-man.i know you might be just looking to learn nuclear glory izzy.but for everyone else who reads this ,i challenge you to find a way without a dll to fix this collision in db (not dbpro).

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 13th Mar 2004 06:26

Link

good luck

Back to top

Profile PM Email Website

Izzy545

20

Years of Service

User Offline

Joined: 18th Feb 2004

Location:

Posted: 13th Mar 2004 07:31

Link

Hey... What you gave me was working fine, no problems here. All I'm saying is it's a bit bouncy, and NG DLL doesn't do that. So what you gave me is fine...

Back to top

Profile PM

GameMaker Jason

20

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 12:37

Link

any chance of the next tut soon?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

GameMaker Jason

20

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 15:28

Link

how are we goin to make the levels?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 13th Mar 2004 16:03 Edited at: 13th Mar 2004 16:25

Link

I can't be bothered to read the code but collision for pacman should be fairly simple.
Just split the game area into squares then use an array to represent the squares. I the array has a 0 in then pacman can move into the square if it doesn't then pacman can't.
Using inbuilt db collision commands shouldn't be nessicary and will proberly be more difficult.

edit:

some hopefully useful code that shows the principles in 2d

`get a white square for the walls and a red one for the player
box 0,0,32,32
get image 1,0,0,32,32,1
ink rgb(255,0,0),0
box 0,0,32,32
get image 5,0,0,32,32,1
ink rgb(255,255,255),0
cls

sync rate 30

`map size is 20x15 as each tile is 32x32 this fills a 640x480 screen
dim map(19,14)as integer

x as integer : y as integer
xx as integer : yy as integer

`put some data in the array

`border around play area
y = 0
for x = 0 to 19
  map(x,y) = 1
next x
y = 14
for x = 0 to 19
  map(x,y) = 1
next x
x = 0
for y = 0 to 14
  map(x,y) = 1
next y
x = 19
for y = 0 to 14
  map(x,y) = 1
next y
`draw some vertical lines
x = 10
for y = 0 to 5
  map(x,y) = 1
next y
x = 17
for y = 10 to 14
  map(x,y) = 1
next y
x = 5
for y = 0 to 10
  map(x,y) = 1
next y
`and some horzontal lines
y = 5
for x = 15 to 19
  map(x,y) = 1
next x
y = 8
for x = 8 to 19
  map(x,y) = 1
next x

px as integer : `x pos of player
px = 10
py as integer : `y pos of player
py = 7
pd as integer : `direction of player, 1 = up, 2 = down, 3 = left, 4 = right
pd = 3

do
  cls
  `draw the map
  xx = 0 : yy = 0
  for y = 0 to 14
    for x = 0 to 19
      if map(x,y) = 1 then paste image 1,xx,yy
      inc xx,32
    next x
    xx = 0
    inc yy,32
  next y
  `control the player
  if upkey() then pd = 1
  if downkey() then pd = 2
  if leftkey() then pd = 3
  if rightkey() then pd = 4
  `move the player
  if pd = 1 : `up
    if map(px,py-1) = 0 then dec py
  endif
  if pd = 2 : `down
    if map(px,py+1) = 0 then inc py
  endif
  if pd = 3 : `left
    if map(px-1,py) = 0 then dec px
  endif
  if pd = 4 : `right
    if map(px+1,py) = 0 then inc px
  endif
  `draw the player
  paste image 5,px*32,py*32
loop

+ Code Snippet

`get a white square for the walls and a red one for the player
box 0,0,32,32
get image 1,0,0,32,32,1
ink rgb(255,0,0),0
box 0,0,32,32
get image 5,0,0,32,32,1
ink rgb(255,255,255),0
cls

sync rate 30

`map size is 20x15 as each tile is 32x32 this fills a 640x480 screen
dim map(19,14)as integer

x as integer : y as integer
xx as integer : yy as integer

`put some data in the array

`border around play area
y = 0
for x = 0 to 19
  map(x,y) = 1
next x
y = 14
for x = 0 to 19
  map(x,y) = 1
next x
x = 0
for y = 0 to 14
  map(x,y) = 1
next y
x = 19
for y = 0 to 14
  map(x,y) = 1
next y
`draw some vertical lines
x = 10
for y = 0 to 5
  map(x,y) = 1
next y
x = 17
for y = 10 to 14
  map(x,y) = 1
next y
x = 5
for y = 0 to 10
  map(x,y) = 1
next y
`and some horzontal lines
y = 5
for x = 15 to 19
  map(x,y) = 1
next x
y = 8
for x = 8 to 19
  map(x,y) = 1
next x

px as integer : `x pos of player
px = 10
py as integer : `y pos of player
py = 7
pd as integer : `direction of player, 1 = up, 2 = down, 3 = left, 4 = right
pd = 3


do
  cls
  `draw the map
  xx = 0 : yy = 0
  for y = 0 to 14
    for x = 0 to 19
      if map(x,y) = 1 then paste image 1,xx,yy
      inc xx,32
    next x
    xx = 0
    inc yy,32
  next y
  `control the player
  if upkey() then pd = 1
  if downkey() then pd = 2
  if leftkey() then pd = 3
  if rightkey() then pd = 4
  `move the player
  if pd = 1 : `up
    if map(px,py-1) = 0 then dec py
  endif
  if pd = 2 : `down
    if map(px,py+1) = 0 then inc py
  endif
  if pd = 3 : `left
    if map(px-1,py) = 0 then dec px
  endif
  if pd = 4 : `right
    if map(px+1,py) = 0 then inc px
  endif
  `draw the player
  paste image 5,px*32,py*32
loop

Back to top

Profile PM Website

GameMaker Jason

20

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 16:30 Edited at: 13th Mar 2004 16:31

Link

thanx but i'm usin Nuclear Glory and i'll post the code

Sync on
sync rate 0
hide mouse

#include "NGCollision.dba"

Load Image "floor.png",1

TYPE_NGC_ELLIP=1
TYPE_NGC_MESH=2

ELLIP_2_ELLIP=1
ELLIP_2_POLY=2

RESP_STICK=1
RESP_SLIDE=2
RESP_SLIDE_NO_SLOPES=3
RESP_SLIDE_NO_GRAV=4
RESP_NONE=5

DYN_NO_RESP=1
DYN_RESP=2
DYN_RESP_LOCK=3
DYN_RESP_LOCK_NOTURN=4

PLAYER_OBJ = 1
WALL_OBJ = 2

StartCollisionPRO(000000000,000000000,000000000)

StartCollisionDebugPRO()

SetCollisionsPRO( PLAYER_OBJ, WALL_OBJ, ELLIP_2_POLY, RESP_SLIDE, DYN_RESP )

make object sphere 1,7
color object 1, RGB(247,252,44)

make object box 2,8,8, 165
color object 2,rgb(255,0,0)

make object box 3,8,8, 165
color object 3,rgb(255,0,0)

make object box 4,8,8, 155
color object 4,rgb(255,0,0)
yrotate object 4,90

make object box 5,8,8, 155
color object 5,rgb(255,0,0)
yrotate object 5,90

make object box 6,8,8, 145
color object 6,rgb(255,0,0)

make object box 7,8,8, 60
color object 7,rgb(255,0,0)

make object box 8,8,8, 50
color object 8,rgb(255,0,0)
yrotate object 8,90

make object box 9,8,8, 60
color object 9,rgb(255,0,0)

make object box 10,8,8, 50
color object 10,rgb(255,0,0)
yrotate object 10,90

make object box 11,8,8, 67
color object 11,rgb(255,0,0)
yrotate object 11,90

make object box 12,8,8, 67
color object 12,rgb(255,0,0)
yrotate object 12,90

make object box 13,8,8, 67
color object 13,rgb(255,0,0)
yrotate object 13,90

make object box 14,8,8, 67
color object 14,rgb(255,0,0)
yrotate object 14,90

make object box 15,8,8, 67
color object 15,rgb(255,0,0)
yrotate object 15,90

make object box 16,8,8, 67
color object 16,rgb(255,0,0)
yrotate object 16,90

make object box 17,8,8, 60
color object 17,rgb(255,0,0)

make object box 18,8,8, 60
color object 18,rgb(255,0,0)

make object box 19,8,8, 50
color object 19,rgb(255,0,0)
yrotate object 19,90

make object box 20,8,8, 50
color object 20,rgb(255,0,0)
yrotate object 20,90

make object box 21,8,8, 40
color object 21,rgb(255,0,0)

make object box 22,8,8, 40
color object 22,rgb(255,0,0)

make matrix 1, 175, 175, 8, 8
Prepare Matrix texture 1,1,1,1
fill matrix 1,0,1

position object 2, 8, get ground height(1,8,8)-2, 87.5
position object 3, 167, get ground height(1,8,8)-2, 87.5
position object 4, 87, get ground height(1,8,8)-2, 9
position object 5, 87, get ground height(1,8,8)-2, 166
position object 6, 87, get ground height(1,8,8)-2, 95
position object 7, 25, get ground height(1,8,8)-2, 122
position object 8, 48, get ground height(1,8,8)-2, 148
position object 9, 71, get ground height(1,8,8)-2, 122
position object 10, 48, get ground height(1,8,8)-2, 96
position object 11, 41, get ground height(1,8,8)-2, 79
position object 12, 54, get ground height(1,8,8)-2, 63
position object 13, 120, get ground height(1,8,8)-2, 63
position object 14, 133, get ground height(1,8,8)-2, 79
position object 15, 54, get ground height(1,8,8)-2, 26.5
position object 16, 120, get ground height(1,8,8)-2, 26.5
position object 17, 150, get ground height(1,8,8)-2, 122
position object 18, 103, get ground height(1,8,8)-2, 122
position object 19, 125, get ground height(1,8,8)-2, 148
position object 20, 125, get ground height(1,8,8)-2, 96
position object 21, 24.5, get ground height(1,8,8)-2, 45
position object 22, 149.5, get ground height(1,8,8)-2, 45

X# = 79
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,X#,get ground height(1, 87, 87),Z#

position camera 87, 150, 87
point camera 87,0,87

CollisionTypePRO( 1, PLAYER_OBJ )
SetObjRadiusPRO( 1, 3.5, 3.5, 3.5 )
ResetObjPRO( 1 )

for wallobj=2 to 22
   CollisionTypePRO( wallobj, WALL_OBJ )
   ResetObjPRO( wallobj )
next wallobj

do

If escapekey()=1 then end

if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# + 0.6
   endif
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# - 0.6
   endif
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0
      X# = X# - 0.6
   endif
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0
      X# = X# + 0.6
   endif

Position object 1,X#, get ground height(1, X#, Z#), Z#

RunCollisionPRO()

X# = object position x( 1 )
   Z# = object position z( 1 )

sync

loop

+ Code Snippet

Sync on
sync rate 0
hide mouse

#include "NGCollision.dba"

Load Image "floor.png",1


TYPE_NGC_ELLIP=1
TYPE_NGC_MESH=2

ELLIP_2_ELLIP=1
ELLIP_2_POLY=2

RESP_STICK=1
RESP_SLIDE=2
RESP_SLIDE_NO_SLOPES=3
RESP_SLIDE_NO_GRAV=4
RESP_NONE=5

DYN_NO_RESP=1
DYN_RESP=2
DYN_RESP_LOCK=3
DYN_RESP_LOCK_NOTURN=4

PLAYER_OBJ = 1
WALL_OBJ = 2


StartCollisionPRO(000000000,000000000,000000000)

StartCollisionDebugPRO()

SetCollisionsPRO( PLAYER_OBJ, WALL_OBJ, ELLIP_2_POLY, RESP_SLIDE, DYN_RESP )


make object sphere 1,7
color object 1, RGB(247,252,44)

make object box 2,8,8, 165
color object 2,rgb(255,0,0)

make object box 3,8,8, 165
color object 3,rgb(255,0,0)

make object box 4,8,8, 155
color object 4,rgb(255,0,0)
yrotate object 4,90

make object box 5,8,8, 155
color object 5,rgb(255,0,0)
yrotate object 5,90

make object box 6,8,8, 145
color object 6,rgb(255,0,0)

make object box 7,8,8, 60
color object 7,rgb(255,0,0)

make object box 8,8,8, 50
color object 8,rgb(255,0,0)
yrotate object 8,90

make object box 9,8,8, 60
color object 9,rgb(255,0,0)

make object box 10,8,8, 50
color object 10,rgb(255,0,0)
yrotate object 10,90

make object box 11,8,8, 67
color object 11,rgb(255,0,0)
yrotate object 11,90

make object box 12,8,8, 67
color object 12,rgb(255,0,0)
yrotate object 12,90

make object box 13,8,8, 67
color object 13,rgb(255,0,0)
yrotate object 13,90

make object box 14,8,8, 67
color object 14,rgb(255,0,0)
yrotate object 14,90

make object box 15,8,8, 67
color object 15,rgb(255,0,0)
yrotate object 15,90

make object box 16,8,8, 67
color object 16,rgb(255,0,0)
yrotate object 16,90

make object box 17,8,8, 60
color object 17,rgb(255,0,0)

make object box 18,8,8, 60
color object 18,rgb(255,0,0)

make object box 19,8,8, 50
color object 19,rgb(255,0,0)
yrotate object 19,90

make object box 20,8,8, 50
color object 20,rgb(255,0,0)
yrotate object 20,90

make object box 21,8,8, 40
color object 21,rgb(255,0,0)

make object box 22,8,8, 40
color object 22,rgb(255,0,0)

make matrix 1, 175, 175, 8, 8
Prepare Matrix texture 1,1,1,1
fill matrix 1,0,1

position object 2, 8, get ground height(1,8,8)-2, 87.5
position object 3, 167, get ground height(1,8,8)-2, 87.5
position object 4, 87, get ground height(1,8,8)-2, 9
position object 5, 87, get ground height(1,8,8)-2, 166
position object 6, 87, get ground height(1,8,8)-2, 95
position object 7, 25, get ground height(1,8,8)-2, 122
position object 8, 48, get ground height(1,8,8)-2, 148
position object 9, 71, get ground height(1,8,8)-2, 122
position object 10, 48, get ground height(1,8,8)-2, 96
position object 11, 41, get ground height(1,8,8)-2, 79
position object 12, 54, get ground height(1,8,8)-2, 63
position object 13, 120, get ground height(1,8,8)-2, 63
position object 14, 133, get ground height(1,8,8)-2, 79
position object 15, 54, get ground height(1,8,8)-2, 26.5
position object 16, 120, get ground height(1,8,8)-2, 26.5
position object 17, 150, get ground height(1,8,8)-2, 122
position object 18, 103, get ground height(1,8,8)-2, 122
position object 19, 125, get ground height(1,8,8)-2, 148
position object 20, 125, get ground height(1,8,8)-2, 96
position object 21, 24.5, get ground height(1,8,8)-2, 45
position object 22, 149.5, get ground height(1,8,8)-2, 45

X# = 79
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,X#,get ground height(1, 87, 87),Z#

position camera 87, 150, 87
point camera 87,0,87

CollisionTypePRO( 1, PLAYER_OBJ )
SetObjRadiusPRO( 1, 3.5, 3.5, 3.5 )
ResetObjPRO( 1 )

for wallobj=2 to 22
   CollisionTypePRO( wallobj, WALL_OBJ )
   ResetObjPRO( wallobj )
next wallobj

do

   If escapekey()=1 then end

   if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# + 0.6
   endif
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# - 0.6
   endif
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0
      X# = X# - 0.6
   endif
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0
      X# = X# + 0.6
   endif

   Position object 1,X#, get ground height(1, X#, Z#), Z#

   RunCollisionPRO()

   X# = object position x( 1 )
   Z# = object position z( 1 )

   sync

loop

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 13th Mar 2004 20:47

Link

thank you thank you the_winch i knew it could be done.i have some faith in db.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

GameMaker Jason

20

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 14th Mar 2004 13:23

Link

will the next tut be here before next year?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

Izzy545

20

Years of Service

User Offline

Joined: 18th Feb 2004

Location:

Posted: 14th Mar 2004 18:26

Link

Guys, I'm doing this in my own time. Sometimes that means that I have to shirk this to do things that I have to do. I am not solely working on this tutorial. There are many other things in my life that I have to actively work on, meaning that the next tutorial could be a little while. Yes, I'm still working on this, but remember, I'm using my own time doing this, and if I can't get something done, then you'll just have to wait...

Back to top

Profile PM

nuclear glory

20

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 14th Mar 2004 19:40

Link

Out of my pure curiosity, what are these tutorials that you're making in your spare time?

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

20

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 14th Mar 2004 20:57

Link

the_winch could you do a step by step tut on how to make the 2D pacman game i'm a bit confused with your code. btw when i compiled your code the player moved in a jerky way it was hard to move accuratly.

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 14th Mar 2004 21:08

Link

GameMaker Jason give these guys a chance.i know izzy i keep trying to find time to work more on this but its tuff.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

Izzy545

20

Years of Service

User Offline

Joined: 18th Feb 2004

Location:

Posted: 15th Mar 2004 00:35

Link

NG, I'm doing a step by step pacman game like Chris Knott did for pong. I'll show you the basic four outer walls that I have done right now tonight, then I'll see if I can get done with the entire maze in a few days.

Back to top

Profile PM

nuclear glory

20

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 15th Mar 2004 00:46

Link

@Izzy545
I'm thinking your tutorial would make a very good tutorial for people trying to learn the basics. It would also make a nice primer for those interested in using our collision DLL.

With some consideration, and your permission, I would be interested in making your pac-man tutorial available in the "Tutorials" section of our website to serve the purposes I mentioned above. I would, of course, make sure you were appropriately credited and such.

Let me know if you're cool with that and we'll roll with it.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

Izzy545

20

Years of Service

User Offline

Joined: 18th Feb 2004

Location:

Posted: 15th Mar 2004 01:20

Link

Sure, you can put it on your website, I'd be fine with that.

So yea, BTW, to y'all following this tutorial, I'll be using the NG collision DLL from now on, if you want to use the other collision just reply here and I'll probably just show you code for both.

Back to top

Profile PM

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 15th Mar 2004 02:43

Link

YES i dont want to use it

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 17th Mar 2004 06:34 Edited at: 17th Mar 2004 07:32

Link

ok this works great guys try this code out

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to polygons 1

Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1

X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87

rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i

position camera 87, 150, 87
point camera 87,0,87
do

REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

`-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1

if object collision(1, 0)
      Colliding = 1
      if goingdown = 1 
         z# = PrevZ# +1
         GoingDown = 0
         Colliding = 0
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#+5
      endif
      if goingleft = 1
        X# = PrevX#+1
         GoingLeft = 0
         Colliding = 0
position object 1,prevX#+5, get ground height(1, X#, Z#),prevZ#
      endif
      if goingright= 1
       X# = PrevX#-1 
position object 1,prevX#-5, get ground height(1, X#, Z#),prevZ#
         GoingRight = 0
         Colliding = 0
      endif
      if goingup= 1
         Z# = PrevZ#-1
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#-5
         GoingUp = 0
         Colliding = 0
      endif
   endif

Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

+ Code Snippet

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to polygons 1



Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1





X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87



rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i




position camera 87, 150, 87
point camera 87,0,87
do


   REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

      GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

      GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

      GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

      GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif


 `-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1


if object collision(1, 0)
      Colliding = 1
      if goingdown = 1 
         z# = PrevZ# +1
         GoingDown = 0
         Colliding = 0
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#+5
      endif
      if goingleft = 1
        X# = PrevX#+1
         GoingLeft = 0
         Colliding = 0
position object 1,prevX#+5, get ground height(1, X#, Z#),prevZ#
      endif
      if goingright= 1
       X# = PrevX#-1 
position object 1,prevX#-5, get ground height(1, X#, Z#),prevZ#
         GoingRight = 0
         Colliding = 0
      endif
      if goingup= 1
         Z# = PrevZ#-1
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#-5
         GoingUp = 0
         Colliding = 0
      endif
   endif



   Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 18th Mar 2004 23:27

Link

lol nobody reads this thread anymore

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 22nd Mar 2004 08:13

Link

i just bought a joystick and if you look at this code i added it in.

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to polygons 1

Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1

X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87

rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i

position camera 87, 150, 87
point camera 87,0,87
do

REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

`-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1

if object collision(1, 0)
      Colliding = 1
      if goingdown = 1
         z# = PrevZ# +1
         GoingDown = 0
         Colliding = 0
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#+5
      endif
      if goingleft = 1
        X# = PrevX#+1
         GoingLeft = 0
         Colliding = 0
position object 1,prevX#+5, get ground height(1, X#, Z#),prevZ#
      endif
      if goingright= 1
       X# = PrevX#-1
position object 1,prevX#-5, get ground height(1, X#, Z#),prevZ#
         GoingRight = 0
         Colliding = 0
      endif
      if goingup= 1
         Z# = PrevZ#-1
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#-5
         GoingUp = 0
         Colliding = 0
      endif
   endif

Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

+ Code Snippet

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to polygons 1



Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1





X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87



rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i




position camera 87, 150, 87
point camera 87,0,87
do


   REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

      GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

      GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

      GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

      GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif


 `-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1


if object collision(1, 0)
      Colliding = 1
      if goingdown = 1
         z# = PrevZ# +1
         GoingDown = 0
         Colliding = 0
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#+5
      endif
      if goingleft = 1
        X# = PrevX#+1
         GoingLeft = 0
         Colliding = 0
position object 1,prevX#+5, get ground height(1, X#, Z#),prevZ#
      endif
      if goingright= 1
       X# = PrevX#-1
position object 1,prevX#-5, get ground height(1, X#, Z#),prevZ#
         GoingRight = 0
         Colliding = 0
      endif
      if goingup= 1
         Z# = PrevZ#-1
position object 1,prevX#, get ground height(1, X#, Z#),prevZ#-5
         GoingUp = 0
         Colliding = 0
      endif
   endif



   Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 23rd Mar 2004 07:54 Edited at: 23rd Mar 2004 07:55

Link

sorry i haven't had much time to think about this lately.But i never give up on this .The game must go on.i have had a break through.i came up with the best collision idea yet without useing a dll.here it is.
what i call this is pacman antennea and of course anyone with this collision problem can use this solution.i added 4 spheres north south east and west.then i changed the collision around alot.all that was needed was a check for the antennea collision in each direction.if it is found then that direction becomes blocked.this way you dont have to bounce off the walls and you still can move in the other direction.here is the new code.

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to spheres 1
rem antennea
make object sphere 101,1
make object sphere 102,1
make object sphere 103,1
make object sphere 104,1
for i = 101 to 104
rem hide object i
set object collision to spheres i
next i

Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1

X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87

rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i

position camera 87, 150, 87
point camera 87,0,87
do

REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

if object collision(101, 0)
GoingDown = 0
endif

if object collision(102, 0)
GoingLeft = 0
endif

if object collision(103, 0)
GoingRight = 0
endif

if object collision(104, 0)
GoingUp = 0
endif

`-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1

Position object 101,X#, get ground height(1, X#, Z#), Z#-4
Position object 102,X#-4, get ground height(1, X#, Z#), Z#
Position object 103,X#+4, get ground height(1, X#, Z#), Z#
Position object 104,X#, get ground height(1, X#, Z#), Z#+4

Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

+ Code Snippet

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to spheres 1
rem antennea
make object sphere 101,1
make object sphere 102,1
make object sphere 103,1
make object sphere 104,1
for i = 101 to 104
rem hide object i
set object collision to spheres i
next i


Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1





X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87



rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i




position camera 87, 150, 87
point camera 87,0,87
do


   REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

      GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

      GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

      GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

      GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

if object collision(101, 0)
GoingDown = 0
endif

if object collision(102, 0)
GoingLeft = 0
endif

if object collision(103, 0)
GoingRight = 0
endif

if object collision(104, 0)
GoingUp = 0
endif


`-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1

Position object 101,X#, get ground height(1, X#, Z#), Z#-4
Position object 102,X#-4, get ground height(1, X#, Z#), Z#
Position object 103,X#+4, get ground height(1, X#, Z#), Z#
Position object 104,X#, get ground height(1, X#, Z#), Z#+4

   Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

you can see the antennea i did this so you could get the idea. now we will hide them yet the collision will still work.

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to spheres 1
rem antennea
make object sphere 101,1
make object sphere 102,1
make object sphere 103,1
make object sphere 104,1
for i = 101 to 104
hide object i
set object collision to spheres i
next i

Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1

X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87

rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i

position camera 87, 150, 87
point camera 87,0,87
do

REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

if object collision(101, 0)
GoingDown = 0
endif

if object collision(102, 0)
GoingLeft = 0
endif

if object collision(103, 0)
GoingRight = 0
endif

if object collision(104, 0)
GoingUp = 0
endif

`-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1

Position object 101,X#, get ground height(1, X#, Z#), Z#-4
Position object 102,X#-4, get ground height(1, X#, Z#), Z#
Position object 103,X#+4, get ground height(1, X#, Z#), Z#
Position object 104,X#, get ground height(1, X#, Z#), Z#+4

Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

+ Code Snippet

Sync on
hide mouse
`sync rate 32
make object sphere 1,6
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to spheres 1
rem antennea
make object sphere 101,1
make object sphere 102,1
make object sphere 103,1
make object sphere 104,1
for i = 101 to 104
hide object i
set object collision to spheres i
next i


Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1





X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87



rem make level
rem sides
for i= 7 to 15
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 1+ii),1+ii
next i

for i= 16 to 21
ii=ii+10
make object box i,5,8,10
position object i,170,get ground height(1, 170, 15+ii),15+ii
next i

ii=0

for i=22 to 30
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 1+ii),1+ii
next i

for i= 31 to 36
ii=ii+10
make object box i,5,8,10
position object i,2,get ground height(1, 2, 15+ii),15+ii
next i
ii=0
rem top and bottom
for i=37 to 53
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 5),5
next i
make object box 54,10,8,5
position object 54,168,get ground height(1, 168, 5),5

ii=0
for i=55 to 71
ii=ii+10
make object box i,10,8,5
position object i,-5+ii,get ground height(1, -5+ii, 170),170
next i
make object box 72,10,8,5
position object 72,168,get ground height(1, 168, 170),170
for i= 7 to 72
color object i,rgb(255,0,0)
next i

for i=7 to 72
set object collision to boxes i
next i




position camera 87, 150, 87
point camera 87,0,87
do


   REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

      GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

      GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

      GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

      GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

if object collision(101, 0)
GoingDown = 0
endif

if object collision(102, 0)
GoingLeft = 0
endif

if object collision(103, 0)
GoingRight = 0
endif

if object collision(104, 0)
GoingUp = 0
endif


`-------------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`-----------------------------------------------------

if GoingRight = 1 and X# < 167  then PrevX# = X# : X# = X# + 1

if GoingLeft = 1 and X# > 6  then PrevX# = X# : X# = X# - 1

if GoingUp = 1 and Z# < 167  then PrevZ# = Z# : Z# = Z# + 1

if GoingDown = 1 and Z# > 7  then PrevZ# = Z# : Z# = Z# -1

Position object 101,X#, get ground height(1, X#, Z#), Z#-4
Position object 102,X#-4, get ground height(1, X#, Z#), Z#
Position object 103,X#+4, get ground height(1, X#, Z#), Z#
Position object 104,X#, get ground height(1, X#, Z#), Z#+4

   Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+2.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+2.5,zi1#
   Sync
loop

one thing i will need help with remind me that later that the collision for antennea says (101,0) which checks object 101 with anything .we will not want that later. because we will need to eat ghosts and pellets.so we will use a FOR-NEXT loop to check antennea with walls only.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 23rd Mar 2004 07:59 Edited at: 23rd Mar 2004 08:35

Link

next i would like to place the rest of the walls up.i would like to make them close to the original arcade look.
then we should do the monsters i guess since i have a working collision we can use for them as well.

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 23rd Mar 2004 08:35 Edited at: 23rd Mar 2004 08:39

Link

screen shot can be seen here

http://images.rottentomatoes.com/images/games/coverg/13/617213.jpg

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 25th Mar 2004 05:17 Edited at: 25th Mar 2004 05:17

Link

ok i cleaned up code and added lots of walls.i think this is all i can do tonight.

Sync on
hide mouse
sync rate 32
make object sphere 1,10
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to spheres 1
rem antennea
make object sphere 101,3
make object sphere 102,3
make object sphere 103,3
make object sphere 104,3
for i = 101 to 104
hide object i
set object collision to spheres i
next i

Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1

X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87

rem make level
gosub makelevel

do
rem no diagnal move
gosub diagnal

if object collision(101, 0) then GoingDown = 0
if object collision(102, 0) then GoingLeft = 0
if object collision(103, 0) then GoingRight = 0
if object collision(104, 0) then GoingUp = 0

rem eyes move-----------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`rem changes values to new positions--------------------

if GoingRight = 1 and X# < 167 then X# = X# + 1
if GoingLeft = 1 and X# > 6 then  X# = X# - 1
if GoingUp = 1 and Z# < 167 then  Z# = Z# + 1
if GoingDown = 1 and Z# > 7  then Z# = Z# -1

Position object 101,X#, get ground height(1, X#, Z#), Z#-7
Position object 102,X#-7, get ground height(1, X#, Z#), Z#
Position object 103,X#+7, get ground height(1, X#, Z#), Z#
Position object 104,X#, get ground height(1, X#, Z#), Z#+7

Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+4.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+4.5,zi1#
   Sync
loop
diagnal:
REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif
   return

makelevel:
rem sides
rem right
make object box 7,5,8,85
position object 7,171,get ground height(1, 171, 45),45

make object box 8,5,8,75
position object 8,171,get ground height(1, 171, 135),135
rem left
make object box 9,5,8,85
position object 9,2,get ground height(1, 2, 45),45

make object box 10,5,8,75
position object 10,2,get ground height(1, 2, 135),135

rem bottom

make object box 11,167,8,5
position object 11,85,get ground height(1, 85, 5),5
rem top
make object box 12,167,8,5
position object 12,85,get ground height(1, 85, 170),170
rem inside top boxes
make object box 13,5,8,35
position object 13,87,get ground height(1, 85, 150),150

make object cube 14,20
position object 14,113,get ground height(1, 113, 143)-5,143

make object cube 15,20
position object 15,145,get ground height(1, 145, 143)-5,143

make object cube 16,20
position object 16,61,get ground height(1, 61, 143)-5,143

make object cube 17,20
position object 17,29,get ground height(1, 29, 143)-5,143
rem second boxes down
make object box 18,20,7,10
position object 18,29,get ground height(1, 29, 117),117

make object box 19,30,7,10
position object 19,87,get ground height(1, 87, 117),117

make object box 20,20,7,10
position object 20,145,get ground height(1, 29, 145),117
rem side boxes
make object box 21,39,10,4
position object 21,20,get ground height(1, 22, 99),99

make object box 22,39,10,4
position object 22,153,get ground height(1, 155, 99),99

make object box 23,39,10,4
position object 23,20,get ground height(1, 20, 86),86

make object box 24,39,10,4
position object 24,153,get ground height(1, 153, 86),86
rem inside hard stuff
make object box 25,4,10,39
position object 25,53,get ground height(1, 53, 99),99

make object box 26,4,10,39
position object 26,121,get ground height(1, 121, 99),99

make object box 27,5,8,10
position object 27,87,get ground height(1, 87, 117),110
`for i= 7 to 72
`color object i,rgb(255,0,0)
`next i

`for i=7 to 72
`set object collision to boxes i
`next i
position camera 87, 150, 87
point camera 87,0,87
return

+ Code Snippet

Sync on
hide mouse
sync rate 32
make object sphere 1,10
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to spheres 1
rem antennea
make object sphere 101,3
make object sphere 102,3
make object sphere 103,3
make object sphere 104,3
for i = 101 to 104
hide object i
set object collision to spheres i
next i

Load image "steel.bmp",1

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1

X# = 87
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,87,get ground height(1, 87, 87),87

rem make level
gosub makelevel

do
rem no diagnal move
gosub diagnal

if object collision(101, 0) then GoingDown = 0
if object collision(102, 0) then GoingLeft = 0
if object collision(103, 0) then GoingRight = 0
if object collision(104, 0) then GoingUp = 0

rem eyes move-----------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-1
if goingdown=1 then zi1#=z#-1 : xi1#=x#+1
if goingright=1 then xi1#=x#+1 : zi1#=z#-1
if goingleft=1 then xi1#=x#-1 : zi1#=z#+1
`rem changes values to new positions--------------------

if GoingRight = 1 and X# < 167 then X# = X# + 1
if GoingLeft = 1 and X# > 6 then  X# = X# - 1
if GoingUp = 1 and Z# < 167 then  Z# = Z# + 1
if GoingDown = 1 and Z# > 7  then Z# = Z# -1

Position object 101,X#, get ground height(1, X#, Z#), Z#-7
Position object 102,X#-7, get ground height(1, X#, Z#), Z#
Position object 103,X#+7, get ground height(1, X#, Z#), Z#
Position object 104,X#, get ground height(1, X#, Z#), Z#+7

   Position object 1,X#, get ground height(1, X#, Z#), Z#
   position object 5,xi#, get ground height(1,xi#,zi#)+4.5,zi#
   position object 4,xi1#, get ground height(1,xi#,zi#)+4.5,zi1#
   Sync
loop
diagnal:
REM Check to see if we're pressing up, and nothing else.
   if Upkey()=1 or joystick up()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      REM Set variables to show we're going up and nowhere else.

      GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing down, and nothing else.
   if Downkey()=1 or joystick down()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.

      GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   REM Check to see if we're pressing left, and nothing else.
   if Leftkey()=1 or joystick left()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.

      GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   REM Check to see if we're pressing right and nothing else.
   if Rightkey()=1 or joystick right()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.

      GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif
   return

makelevel:
rem sides
rem right
make object box 7,5,8,85
position object 7,171,get ground height(1, 171, 45),45

make object box 8,5,8,75
position object 8,171,get ground height(1, 171, 135),135
rem left
make object box 9,5,8,85
position object 9,2,get ground height(1, 2, 45),45

make object box 10,5,8,75
position object 10,2,get ground height(1, 2, 135),135

rem bottom

make object box 11,167,8,5
position object 11,85,get ground height(1, 85, 5),5
rem top
make object box 12,167,8,5
position object 12,85,get ground height(1, 85, 170),170
rem inside top boxes
make object box 13,5,8,35
position object 13,87,get ground height(1, 85, 150),150

make object cube 14,20
position object 14,113,get ground height(1, 113, 143)-5,143

make object cube 15,20
position object 15,145,get ground height(1, 145, 143)-5,143

make object cube 16,20
position object 16,61,get ground height(1, 61, 143)-5,143

make object cube 17,20
position object 17,29,get ground height(1, 29, 143)-5,143
rem second boxes down
make object box 18,20,7,10
position object 18,29,get ground height(1, 29, 117),117

make object box 19,30,7,10
position object 19,87,get ground height(1, 87, 117),117

make object box 20,20,7,10
position object 20,145,get ground height(1, 29, 145),117
rem side boxes
make object box 21,39,10,4
position object 21,20,get ground height(1, 22, 99),99

make object box 22,39,10,4
position object 22,153,get ground height(1, 155, 99),99

make object box 23,39,10,4
position object 23,20,get ground height(1, 20, 86),86

make object box 24,39,10,4
position object 24,153,get ground height(1, 153, 86),86
rem inside hard stuff
make object box 25,4,10,39
position object 25,53,get ground height(1, 53, 99),99

make object box 26,4,10,39
position object 26,121,get ground height(1, 121, 99),99

make object box 27,5,8,10
position object 27,87,get ground height(1, 87, 117),110
`for i= 7 to 72
`color object i,rgb(255,0,0)
`next i

`for i=7 to 72
`set object collision to boxes i
`next i
position camera 87, 150, 87
point camera 87,0,87
return

please dont make fun of my spelling,or sentence structure.Id rather study math or programming

Back to top

Profile PM Email Website

diablo fan

20

Years of Service

User Offline

Joined: 7th Jan 2004

Location: michigan usa

Posted: 26th Mar 2004 06:21

Link

ok i now have the maze complete and the game tuned up alot.i took out the background texture to make this easier to quickly try.now you won't need outside media at all.i also tuned up the collision to perfect.
here is my code now.

Sync on
cls rgb (0,0,0)
get image 1,1,1,100,100
hide mouse
sync rate 35
make object sphere 1,8
make object sphere 5,2
set object collision off 5
make object sphere 4,2
set object collision off 4
color object 4, RGB(0,0,0)
color object 5, RGB(0,0,0)
color object 1, RGB(247,252,44)
set object collision to spheres 1
rem antennea
make object sphere 101,1
make object sphere 102,1
make object sphere 103,1
make object sphere 104,1
for i = 101 to 104
hide object i
set object collision to spheres i
next i

make matrix 1, 175, 175, 8, 8
Prepare matrix texture 1,1,1,1
Fill Matrix 1,0,1

X# = 87
Z# = 47
position object 1,87,get ground height(1, 87, 87),87

rem make level
gosub makelevel

do
rem no diagnal move
gosub diagnal

if object collision(101, 0) then GoingDown = 0:z#=z#+1
if object collision(102, 0) then GoingLeft = 0:x#=x#+1
if object collision(103, 0) then GoingRight = 0:x#=x#-1
if object collision(104, 0) then GoingUp = 0:z#=z#-1

rem eyes move-----------------------
if goingup=1 then zi#=z#+1 : xi#=x#+1
if goingdown=1 then zi#=z#-1 : xi#=x#-1
if goingright=1 then xi#=x#+1 : zi#=z#+1
if goingleft=1 then xi#=x#-1 : zi#=z#-1

if goingup=1 then zi1#=z#+1 : xi1#=x#-.5
if goingdown=1 then zi1#=z#-1 : xi1#=x#+.5
if goingright=1 then xi1#=x#+1 : zi1#=z#-.5
if goingleft=1 then xi1#=x#-1 : zi1#=z#+.5
`rem changes values to new positions--------------------

if GoingRight = 1 and X# < 167 then X# = X# + 1
if GoingLeft = 1 and X# > 6 then  X# = X# - 1
if GoingUp = 1 and Z# < 167 then  Z# = Z# + 1
if GoingDown = 1 and Z# > 7  then Z# = Z# -1

Position object 101,X#, get ground height(1, X#, Z#), Z#-5
Position object 102,X#-5, get ground height(1, X#, Z#), Z#
Position object 103,X#+5, get ground height(1, X#, Z#), Z#
Position object 104,X#, get ground height(1, X#, Z#), Z#+5