What the **** is wrong with this?

Author

Message

Shadow Crusader

19

Years of Service

User Offline

Joined: 23rd May 2006

Location:

Posted: 22nd Jun 2006 03:08

Link

rem *****************************************
rem *|------------Black Heart--------------|*
rem *|-------------------------------------|*
rem *|----------------By-------------------|*
rem *|---------------Joel------------------|*
rem *|---------------Levi------------------|*
rem *|-------------------------------------|*
rem *****************************************

rem start music
LOAD MUSIC "music/Oceans Apart.mid",1
Play MUSIC 1

rem main menu
load bitmap "bitmaps/Splash Screen",1

rem intro video
rem load animation "avi\demo1.avi",1
rem PLAY ANIMATION 1

rem the sound changing system/ MUSIC PLAYER
rem *********************************************************

rem Load music files
LOAD MUSIC "music/Field.mid",4
LOAD MUSIC "music/Impatien.mid",5
LOAD MUSIC "music/Northern Lights.mid",6

rem Pressing key '1' will play sound 4
IF KEYSTATE(2)=1 THEN PLAY MUSIC 4

rem Pressing key '2' will play sound 5
IF KEYSTATE(3)=1 THEN PLAY MUSIC 5

rem Pressing key '3' will play sound 6
IF KEYSTATE(4)=1 THEN PLAY MUSIC 6

rem *********************************************************

rem ------------THE GAME!-----------------------------

REM WINDOWS COMMANDS
set window title "Black Heart"
disable systemkeys
disable escapekey

rem Load textures/grass08 bitmap into image
LOAD BITMAP "textures/grass09.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1

rem sync on
SYNC ON

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

rem Randomise landscape
RANDOMIZE MATRIX 1,100.0

rem Activate and distance fogging
FOG ON
FOG COLOR 89
FOG DISTANCE 5000

rem Begin loop
DO

rem Control camera turret
if upkey()=1 then move camera 10.0
if downkey()=1 then move camera -8.0
IF LEFTKEY()=1 THEN angle#=angle#-3.0
IF RIGHTKEY()=1 THEN angle#=angle#+3.0

rem Ensure angle stays within range
angle#=wrapvalue(angle#)

rem Update camera
YROTATE CAMERA angle#

rem Refresh screen
SYNC

rem End loop
LOOP

+ Code Snippet

rem *****************************************
rem *|------------Black Heart--------------|*
rem *|-------------------------------------|*
rem *|----------------By-------------------|*
rem *|---------------Joel------------------|*
rem *|---------------Levi------------------|*
rem *|-------------------------------------|*
rem *****************************************

rem start music
LOAD MUSIC "music/Oceans Apart.mid",1
Play MUSIC 1

rem main menu
load bitmap "bitmaps/Splash Screen",1


rem intro video
rem load animation "avi\demo1.avi",1
rem PLAY ANIMATION 1

rem the sound changing system/ MUSIC PLAYER
rem *********************************************************

rem Load music files
LOAD MUSIC "music/Field.mid",4
LOAD MUSIC "music/Impatien.mid",5
LOAD MUSIC "music/Northern Lights.mid",6

rem Pressing key '1' will play sound 4
IF KEYSTATE(2)=1 THEN PLAY MUSIC 4

rem Pressing key '2' will play sound 5
IF KEYSTATE(3)=1 THEN PLAY MUSIC 5

rem Pressing key '3' will play sound 6
IF KEYSTATE(4)=1 THEN PLAY MUSIC 6





rem *********************************************************

rem ------------THE GAME!-----------------------------

REM WINDOWS COMMANDS
set window title "Black Heart"
disable systemkeys
disable escapekey

rem Load textures/grass08 bitmap into image
LOAD BITMAP "textures/grass09.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1

rem sync on
SYNC ON

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

rem Randomise landscape
RANDOMIZE MATRIX 1,100.0

rem Activate and distance fogging
FOG ON
FOG COLOR 89
FOG DISTANCE 5000

rem Begin loop
DO

rem Control camera turret
if upkey()=1 then move camera 10.0
if downkey()=1 then move camera -8.0
IF LEFTKEY()=1 THEN angle#=angle#-3.0
IF RIGHTKEY()=1 THEN angle#=angle#+3.0

rem Ensure angle stays within range
angle#=wrapvalue(angle#)


rem Update camera
YROTATE CAMERA angle#

rem Refresh screen
SYNC

rem End loop
LOOP

PLEASE HELP!!!!!!

The world is at peril, only i can stop it.

Back to top

Profile PM Email Website

dab

20

Years of Service

User Offline

Joined: 22nd Sep 2004

Location: Your Temp Folder!

Posted: 22nd Jun 2006 07:44

Link

We need to know what's wrong (what's not working)

Vist DaB Games for free games and more!

Back to top

Profile PM Email Website

Wandering Swordsman

18

Years of Service

User Offline

Joined: 14th Jun 2006

Location:

Posted: 22nd Jun 2006 07:51

Link

Have you tried stepping through it to find the problem? (DBP will do this, for DBC to do it you need DarkEDIT.)

If you already know what area of code is messed then please include that information.

When I dream,
I carry a sword in one hand,
a gun in the other...

Back to top

Profile PM

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 22nd Jun 2006 10:30

Link

The music probably doesn't change because it is not in a loop, and even if it was in a loop, it would crash DB, because the keystate being held down would replay the music 50+ times, and that crashes DB.

Back to top

Profile PM Email Website

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd Jun 2006 12:49 Edited at: 22nd Jun 2006 12:49

Link

Probably...

I'd use in the loop

+ Code Snippet

if keystate(2)=1 then stop music CMusic : CMusic = 4
if keystate(3)=1 then stop music CMusic : CMusic = 5
if keystate(4)=1 then stop music CMusic : CMusic = 6

if CMusic > 0
   if music playing(CMusic) = 0 then play music CMusic
endif

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Shadow Crusader

19

Years of Service

User Offline

Joined: 23rd May 2006

Location:

Posted: 27th Jun 2006 20:29

Link

want to know whats not working? all of it. it doesnt do anything the screen just goes black, and it doesnt say any errors or anything.

The world is at peril, only i can stop it.

Back to top

Profile PM Email Website

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 27th Jun 2006 20:45

Link

I'm not helping you until you learn to talk like a descent person.

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 28th Jun 2006 11:00

Link

Well

+ Code Snippet

rem main menu
load bitmap "bitmaps/Splash Screen",1


rem intro video
rem load animation "avi\demo1.avi",1
rem PLAY ANIMATION 1

rem the sound changing system/ MUSIC PLAYER
rem *********************************************************

and

+ Code Snippet

rem Pressing key '1' will play sound 4
IF KEYSTATE(2)=1 THEN PLAY MUSIC 4

rem Pressing key '2' will play sound 5
IF KEYSTATE(3)=1 THEN PLAY MUSIC 5

rem Pressing key '3' will play sound 6
IF KEYSTATE(4)=1 THEN PLAY MUSIC 6

can be left out since it doesn't do anything. Which leaves:

rem *****************************************
rem *|------------Black Heart--------------|*
rem *|-------------------------------------|*
rem *|----------------By-------------------|*
rem *|---------------Joel------------------|*
rem *|---------------Levi------------------|*
rem *|-------------------------------------|*
rem *****************************************

rem start music
LOAD MUSIC "music/Oceans Apart.mid",1
Play MUSIC 1

rem *********************************************************

rem Load music files
LOAD MUSIC "music/Field.mid",4
LOAD MUSIC "music/Impatien.mid",5
LOAD MUSIC "music/Northern Lights.mid",6

rem *********************************************************

rem ------------THE GAME!-----------------------------

REM WINDOWS COMMANDS
set window title "Black Heart"
disable systemkeys
disable escapekey

rem Load textures/grass08 bitmap into image
LOAD BITMAP "textures/grass09.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1

rem sync on
SYNC ON

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

rem Randomise landscape
RANDOMIZE MATRIX 1,100.0

rem Activate and distance fogging
FOG ON
FOG COLOR 89
FOG DISTANCE 5000

rem Begin loop
DO

rem Control camera turret
if upkey()=1 then move camera 10.0
if downkey()=1 then move camera -8.0
IF LEFTKEY()=1 THEN angle#=angle#-3.0
IF RIGHTKEY()=1 THEN angle#=angle#+3.0

rem Ensure angle stays within range
angle#=wrapvalue(angle#)

rem Update camera
YROTATE CAMERA angle#

rem Refresh screen
SYNC

rem End loop
LOOP

+ Code Snippet

rem *****************************************
rem *|------------Black Heart--------------|*
rem *|-------------------------------------|*
rem *|----------------By-------------------|*
rem *|---------------Joel------------------|*
rem *|---------------Levi------------------|*
rem *|-------------------------------------|*
rem *****************************************

rem start music
LOAD MUSIC "music/Oceans Apart.mid",1
Play MUSIC 1

rem *********************************************************

rem Load music files
LOAD MUSIC "music/Field.mid",4
LOAD MUSIC "music/Impatien.mid",5
LOAD MUSIC "music/Northern Lights.mid",6

rem *********************************************************

rem ------------THE GAME!-----------------------------

REM WINDOWS COMMANDS
set window title "Black Heart"
disable systemkeys
disable escapekey

rem Load textures/grass08 bitmap into image
LOAD BITMAP "textures/grass09.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1

rem sync on
SYNC ON

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

rem Randomise landscape
RANDOMIZE MATRIX 1,100.0

rem Activate and distance fogging
FOG ON
FOG COLOR 89
FOG DISTANCE 5000

rem Begin loop
DO

rem Control camera turret
if upkey()=1 then move camera 10.0
if downkey()=1 then move camera -8.0
IF LEFTKEY()=1 THEN angle#=angle#-3.0
IF RIGHTKEY()=1 THEN angle#=angle#+3.0

rem Ensure angle stays within range
angle#=wrapvalue(angle#)


rem Update camera
YROTATE CAMERA angle#

rem Refresh screen
SYNC

rem End loop
LOOP

Worked fine with me if I left out all the media.

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Dave J

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Feb 2003

Location: Secret Military Pub, Down Under

Posted: 28th Jun 2006 15:41

Link

Shadow Crusader, in future, could you please not use profainity on the forums (and that includes using asterixes to bleep it). Thank you.

"Computers are useless, they can only give you answers."

Back to top

Profile PM Email

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 28th Jun 2006 17:11

Link

See this line....

load bitmap "bitmaps/Splash Screen",1

Well when you use load bitmap, specify the extension too, guessing...

load bitmap "bitmaps/Splash Screen.BMP",1

Shadow Crusaders next thread will be far better constructed I'm sure, he just needs to learn to tell us more and be less stroppy with DBPro.

Aegrescit medendo

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / What the **** is wrong with this?