My code doesn't work please help!

Author

Message

DarkDISCUSSION

15

Years of Service

User Offline

Joined: 6th Jul 2011

Location: Ft Madison, IA

Posted: 15th Sep 2011 00:13 Edited at: 15th Sep 2011 00:40

Link

Hi,
My game demo will not run properly and will have a blank screen with a runtime error please help me find out and/or fix this problem. Any help would be greatly appreciated. Many thanks ahead of time!

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
load music "slayer_dance.mid",1
loop music 1

rem setup hud
Make object Plain 200,1.5,0.5
position object 200,-2.0,-1.9,4
Lock object on 200
load image "L1.bmp",200
texture object 200,200

Make object Plain 201,1,1
position object 201,0.0,-1.9,4
Lock object on 201
Load image "shot.bmp",201
Texture object 201,201

rem Setup scene
load image "sand1.bmp",1
load object "ml.3ds",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.3ds",3
scale object 3,5555,5555,5555
texture object 3,2
position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

do

rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#

rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1

rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#

sync

loop

+ Code Snippet

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
load music "slayer_dance.mid",1
loop music 1

rem setup hud
Make object Plain 200,1.5,0.5
position object 200,-2.0,-1.9,4
Lock object on 200
load image "L1.bmp",200
texture object 200,200


Make object Plain 201,1,1
position object 201,0.0,-1.9,4
Lock object on 201
Load image "shot.bmp",201
Texture object 201,201

rem Setup scene
load image "sand1.bmp",1
load object "ml.3ds",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.3ds",3
scale object 3,5555,5555,5555
texture object 3,2
position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10


do


rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#


rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1


rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#


sync

loop

Austin H Wicker
http://captainwicker.webs.com/

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 15th Sep 2011 00:41

Link

I've corrected your code tags for you. For future information, the tags are [[/b]code] to start your code, and [[b]/code] to end it.

Get the latest Matrix1Utility plug-ins (11-SEPT-2011)

Back to top

Profile PM Email Website

Pincho Paxton

23

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 15th Sep 2011 01:23

Link

So what's the runtime error?

Back to top

Profile PM Email Website

JackDawson

14

Years of Service

User Offline

Joined: 12th Jul 2011

Location:

Posted: 15th Sep 2011 01:50

Link

Quote: "So what's the run-time error?"

And also WHEN does the run-time error occur ? At the beginning when you try to start it or after or during ?

"Life is like a box of chocolates.. eat it before it melts."

Back to top

Profile PM

DarkDISCUSSION

15

Years of Service

User Offline

Joined: 6th Jul 2011

Location: Ft Madison, IA

Posted: 15th Sep 2011 03:46

Link

Ok i have fixed the runtime error but now when it runs it will have a blank black screen. I actually wrote the code in the original dark basic but I was quite disturbed by the ide and look of the program so I am running dbpro.

Austin H Wicker
http://captainwicker.webs.com/

Back to top

Profile PM Email

CumQuaT

AGK Master

16

Years of Service

User Offline

Joined: 28th Apr 2010

Location: Tasmania, Australia

Posted: 15th Sep 2011 07:35

Link

Try using sprites for your HUD rather than a 3D texture plane.

Malevolence: The Sword of Ahkranox
www.msoa-game.com
www.facebook.com/malevolencegame

Back to top

Profile PM Email

DarkDISCUSSION

15

Years of Service

User Offline

Joined: 6th Jul 2011

Location: Ft Madison, IA

Posted: 15th Sep 2011 21:40

Link

Alright now I have taken out the HUD but its no use. I try to run the program but my task manager opens and states that "DarkBASIC Pro Application.exe" has stopped responding. Could it be possible that I have not setup the code correctly? and can this be fixed?

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
load music "slayer_dance.mid",1
loop music 1
rem Setup scene
load image "sand1.bmp",1
load object "ml.3ds",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.3ds",3
scale object 3,5555,5555,5555
texture object 3,2
position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

do

rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#

rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1

rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#

sync

loop

+ Code Snippet

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
load music "slayer_dance.mid",1
loop music 1
rem Setup scene
load image "sand1.bmp",1
load object "ml.3ds",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.3ds",3
scale object 3,5555,5555,5555
texture object 3,2
position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10


do


rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#


rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1


rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#


sync

loop

You can download the complete project if it helps

Austin H Wicker
http://captainwicker.webs.com/

Back to top

Profile PM Email

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 16th Sep 2011 07:12 Edited at: 16th Sep 2011 07:27

Link

Hi DarkDISCUSSION

I see a problem with "color light 1,512,100,100"
The problem is don't use 512 for the color it only goes up to 255.

Try this see if it runs. If it runs good.

If Not you have a problem with windows 7 or something?

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
`load music "slayer_dance.mid",1
`loop music 1
rem Setup scene
`load image "sand1.bmp",1
`load object "ml.3ds",2
`scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
`prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
`prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
`load image "pyramid.tga",2
`load object "pyramid.3ds",3
`scale object 3,5555,5555,5555
`texture object 3,2
`position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "idle.x",1,20
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

do

rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#

rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1

rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#

sync

loop

+ Code Snippet


rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
`load music "slayer_dance.mid",1
`loop music 1
rem Setup scene
`load image "sand1.bmp",1
`load object "ml.3ds",2
`scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
`prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
`prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
`load image "pyramid.tga",2
`load object "pyramid.3ds",3
`scale object 3,5555,5555,5555
`texture object 3,2
`position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "idle.x",1,20
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10


do


rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#


rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1


rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#


sync

loop

I commented some stuff out so just un-comment them if you need it.

darkvee

Back to top

Profile PM Email

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 16th Sep 2011 07:26 Edited at: 16th Sep 2011 07:28

Link

Hi I downloaded you project file DarkDISCUSSION.

Looks like it's having problems loading up
"load object "pyramid.3ds",3"

I put that model in a empty dbp file and it took forever to load up with a black screen. I just closed it.

For one it's a 3ds which takes longer to load up than a dbo file or x file. I would convert that file to a dbo or x file. That should solve your problems.

darkvee

Back to top

Profile PM Email

Yodaman Jer

User Banned

Posted: 16th Sep 2011 08:33 Edited at: 16th Sep 2011 08:35

Link

Also, you're not setting up any graphics mode.

At the top of your program, before "Backdrop on", put "Set display mode [width], [height], [depth]". That might help with something.

^ Click for my Deviant page!

Back to top

Profile

DarkDISCUSSION

15

Years of Service

User Offline

Joined: 6th Jul 2011

Location: Ft Madison, IA

Posted: 16th Sep 2011 21:12

Link

Alright now I have the code working swell but am having horrible issues with collisions.It is as if my player will walk right through solid object. No matter what I do I just cannot seem to get it working correctly.

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Set display mode 1024,768,32
Sync On : Sync Rate 120
Backdrop On
make light 1
color light 1,512,512,512
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Set collisions
coll=1
Set Object Collision On coll
coll = Object Collision 1,3

rem Play a tune
load music "slayer_dance.mid",1
loop music 1
rem Setup scene
load image "sand1.bmp",1
load object "ml.x",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.x",3
scale object 3,5555,5555,5555
texture object 3,2
Rotate Object 3,90,0,180
position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "idle.x",1,20
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,20

do

rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#

rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1

rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,20
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,20
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#

sync

loop

+ Code Snippet

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
Set display mode 1024,768,32
Sync On : Sync Rate 120
Backdrop On
make light 1
color light 1,512,512,512
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Set collisions
coll=1
Set Object Collision On coll
coll = Object Collision 1,3

rem Play a tune
load music "slayer_dance.mid",1
loop music 1
rem Setup scene
load image "sand1.bmp",1
load object "ml.x",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.x",3
scale object 3,5555,5555,5555
texture object 3,2
Rotate Object 3,90,0,180
position object 3,0,0,9000

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "idle.x",1,20
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,20


do


rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#


rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1


rem If character action changes
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,20
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,20
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#


sync

loop

I have never been able to prevent objects from going through each other and it is quite the pest.

@darvee
Thanks, Your advice really helped out

Austin H Wicker
http://captainwicker.webs.com/

Back to top

Profile PM Email

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 17th Sep 2011 05:17

Link

Hi DarkDISCUSSION
Glad I could help.

Send your project file and folder with media again with your new models converted.

darkvee

Back to top

Profile PM Email

DarkDISCUSSION

15

Years of Service

User Offline

Joined: 6th Jul 2011

Location: Ft Madison, IA

Posted: 17th Sep 2011 19:19 Edited at: 17th Sep 2011 19:21

Link

@darkvee
Alright the Project is now converted. but I still cant get the animation to change from idle.x to walk.x with the cursor keys.

Austin H Wicker
http://captainwicker.webs.com/

Back to top

Profile PM Email

darkvee

20

Years of Service

User Offline

Joined: 18th Nov 2005

Location:

Posted: 18th Sep 2011 08:54 Edited at: 18th Sep 2011 08:55

Link

Hi DarkDISCUSSION,

I fixed the animation and now you can see the pyramid.

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
sync on
sync rate 60
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
load music "slayer_dance.mid",1
loop music 1

rem setup hud
Make object Plain 200,1.5,0.5
position object 200,-2.0,-1.9,4
Lock object on 200
load image "L1.bmp",200
texture object 200,200

Make object Plain 201,1,1
position object 201,0.0,-1.9,4
Lock object on 201
Load image "shot.bmp",201
Texture object 201,201

rem Setup scene
load image "sand1.bmp",1
load object "ml.x",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.x",3
scale object 3,5555,5555,5555
texture object 3,2
position object 3,0,0,9000
rotate object 3,90,180,180

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,total object frames(1)
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10

do

rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#

rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1

rem If character action changes
IF stage<>oldstage
   IF stage=0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      LOOP OBJECT 1,21,45
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#

sync
loop

+ Code Snippet

rem *************
rem **-Ed GOOF-**
rem *************

rem setup gfx
sync on
sync rate 60
Backdrop On
make light 1
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
set camera range 5,500000000000000

rem Play a tune
load music "slayer_dance.mid",1
loop music 1

rem setup hud
Make object Plain 200,1.5,0.5
position object 200,-2.0,-1.9,4
Lock object on 200
load image "L1.bmp",200
texture object 200,200


Make object Plain 201,1,1
position object 201,0.0,-1.9,4
Lock object on 201
Load image "shot.bmp",201
Texture object 201,201

rem Setup scene
load image "sand1.bmp",1
load object "ml.x",2
scale object 2,5555,5555,5555

make matrix 1,10000.0,10000.0,25,25
position matrix 1,-5000,0,-5000
prepare matrix texture 1,1,2,2
set matrix texture 1,0,1
update matrix 1

make matrix 2,10000.0,10000.0,25,25
position matrix 2,-5000,0,5000
prepare matrix texture 2,1,2,2
set matrix texture 2,0,1
update matrix 2

rem Load DB Pyramid
load image "pyramid.tga",2
load object "pyramid.x",3
scale object 3,5555,5555,5555
texture object 3,2
position object 3,0,0,9000
rotate object 3,90,180,180

rem Load 3D object and append walking data to it
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,total object frames(1)
SCALE OBJECT 1,250,250,250
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
position object 1,0,0,500

rem Loop 3D object animation from 0 to 20 (idle)
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10


do


rem Position camera to the back of the character
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#

rem Point camera at object
point camera x#,y#,z#


rem move player
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)

rem turn player
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,6) : z#=NEWZVALUE(z#,a#,6) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-6) : z#=NEWZVALUE(z#,a#,-6) : stage=1


rem If character action changes
IF stage<>oldstage
   IF stage=0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      LOOP OBJECT 1,21,45
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Update character position and angle
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#


sync
loop

However I didn't add collision. Collision is pretty easy in dbp check out this article.
http://www.thegamecreators.com/?m=view_product&id=2030&page=3d_tutorial_5

It explains dbp collision detection very good.

darkvee

Back to top

Profile PM Email

DarkDISCUSSION

15

Years of Service

User Offline

Joined: 6th Jul 2011

Location: Ft Madison, IA

Posted: 18th Sep 2011 18:47

Link

@darkvee
Do collisions prevent objects from like walking through other objects?

Thanks for this fix. Nice

Austin H Wicker
http://captainwicker.webs.com/

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / My code doesn't work please help!