Can someone tell me why my screen is black?

Author

Message

OneShot

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location:

Posted: 14th Jun 2007 06:33 Edited at: 14th Jun 2007 06:54

Link

I am really sorry..this is SUPER nooby. But im trying to get the basics down. If I keep copying off of guides I will never get it. For some reason...when I run this its black I don't see anything. I know im missing something, if you would be kind enough to help me out with my code! Please?

`Trying to get the basics down!
Set Window on
Set display mode 1024,768,32
Set window size 1024,768
Set window Title "Under Construction"
hide mouse

`Im hoping this allows me to looking around with the camera
Cameray#=Mousey()
Camerax#=Mousex()
Cameraz#=Mousez()

`This will display keycodes on screen, so I can make movement commands
ScanCode#=ScanCode()
ScanCode$=Str$(ScanCode#)

`Going to record variables of Object 1's position so I can position camera inside of it. Trying to do this
`on my own for practice.
PlayerX#=0
PlayerY#=0
PlayerZ#=0
CamX#=PlayerX#
CamY#=PlayerY#
CamZ#=PlayerZ#

LoadResources()

`Attempting to make the ground and texture it
Make Object Box 1,100,100,1
Position Object 1,0,0,0
Texture Object 1,1
color object 1,RGB(255,0,0)
show object 1

`Attempting to make player manually
Make Object Sphere 2,30
Position Object 1,PlayerX#,PlayerY#,PlayerZ#

Sync Off
do

`Putting the Scancode on the screen somewhere
Text Screen Width()-1000,Screen Height()-750,ScanCode$

`Hopefully these camera controls will work. Don't see why they shouldn't
Position Camera 0,CamX#,CamY#,CamZ#
Point Camera 0,Cameray#,Camerax#,Cameraz#

Sync
loop

Function LoadResources()

Load bitmap "ground.bmp",1

endfunction

+ Code Snippet

`Trying to get the basics down!
Set Window on
Set display mode 1024,768,32
Set window size 1024,768
Set window Title "Under Construction"
hide mouse

`Im hoping this allows me to looking around with the camera
Cameray#=Mousey()
Camerax#=Mousex()
Cameraz#=Mousez()

`This will display keycodes on screen, so I can make movement commands
ScanCode#=ScanCode()
ScanCode$=Str$(ScanCode#)

`Going to record variables of Object 1's position so I can position camera inside of it. Trying to do this
`on my own for practice.
PlayerX#=0
PlayerY#=0
PlayerZ#=0
CamX#=PlayerX#
CamY#=PlayerY#
CamZ#=PlayerZ#

LoadResources()

`Attempting to make the ground and texture it
Make Object Box 1,100,100,1
Position Object 1,0,0,0
Texture Object 1,1
color object 1,RGB(255,0,0)
show object 1



`Attempting to make player manually
Make Object Sphere 2,30
Position Object 1,PlayerX#,PlayerY#,PlayerZ#

Sync Off
do

`Putting the Scancode on the screen somewhere
Text Screen Width()-1000,Screen Height()-750,ScanCode$

`Hopefully these camera controls will work. Don't see why they shouldn't
Position Camera 0,CamX#,CamY#,CamZ#
Point Camera 0,Cameray#,Camerax#,Cameraz#



Sync
loop





Function LoadResources()

Load bitmap "ground.bmp",1


endfunction

*UPDATE* Part of the code was left out...so I updated it !

Just started! Help!!!!

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 14th Jun 2007 07:23

Link

There is a lot more involved to what you eventually want to do with the player and the camera, however its probably best to learn some parts first before trying to move on.

I rewrote your code as an example to show you, the clearer its laid out, the easier it will be to see the problems at hand, use the arrow keys to move your players ball around, as you can see the camera does not turn with the player etc.

I would do TDKS tutorials before trying to do anymore with this project, get to know the language first, the more commands you understand the better it will be to solve problems int he future.

Anyway I have tried to structure your code so its easier to manage.

Practice using arrays and explore types, they will allow you to manage a lot of data much easier.

Notice also in this example Im using integer based variables to control your 3d media numbers, this will follow on in practice when you get to types etc..

REM ------------------------------------------------------------------------------------------------------------
REM GAME NAME     -
REM DBP VERSION   -
REM DATE          -
REM GAME VERSION  -
REM NOTES         -
REM ------------------------------------------------------------------------------------------------------------

REM ------------------------------------------------------------------------------------------------------------
REM SETUP ENVIRONMENT
REM ------------------------------------------------------------------------------------------------------------
`Trying to get the basics down!
Set Window on
Set display mode 1024,768,32
Set window size 1024,768
Set window Title "Under Construction"
hide mouse
sync on : sync rate 60

REM ------------------------------------------------------------------------------------------------------------
REM DECLARE VARIABLES
REM ------------------------------------------------------------------------------------------------------------

REM GND = Ground Object
GND = 1

REM PLROBJ = Player Object
PLROBJ = 2

REM ------------------------------------------------------------------------------------------------------------
REM LOAD 2D MEDIA
REM ------------------------------------------------------------------------------------------------------------
LoadGroundTexture()

REM ------------------------------------------------------------------------------------------------------------
REM LOAD 3D MEDIA
REM ------------------------------------------------------------------------------------------------------------

`Attempting to make the ground and texture it
Make Object Box GND,100,5,100
Position Object GND,0,-5,0
`Texture Object GND,GND
color object GND,RGB(0,155,0)

`Attempting to make player manually
Make Object Sphere PLROBJ,10
Position Object PLROBJ,0,5,0

REM ------------------------------------------------------------------------------------------------------------
REM PRE MAIN LOOP
REM ------------------------------------------------------------------------------------------------------------

REM ------------------------------------------------------------------------------------------------------------
REM START MAIN LOOP
REM ------------------------------------------------------------------------------------------------------------
disable escapekey : while escapekey()=0

REM ------------------------------------------------------------------
      REM PLAYER CONTROLS
      REM ------------------------------------------------------------------
      if leftkey() = 1
      turn object left PLROBJ,1
      endif

if rightkey() = 1
      turn object right PLROBJ,1
      endif

if upkey() = 1
      move object PLROBJ,1
      endif

REM ------------------------------------------------------------------
      REM UPDATE CAMERA TO THE PLAYERS LOCATION
      REM ------------------------------------------------------------------
      position camera object position x(PLROBJ),object position y(PLROBJ)+20,object position z(PLROBJ)-50
      point camera object position x(PLROBJ),object position y(PLROBJ),object position z(PLROBJ)

REM ------------------------------------------------------------------
      REM UPDATE TEXT LAST IN MAIN LOOP AFTER EVERYTHING ELSE
      REM ------------------------------------------------------------------
      `Putting the Scancode on the screen somewhere
      Text 1,1,"scancode : "+STR$(ScanCode())
      Text 1,16,"fps     : "+STR$(screen fps())

REM ------------------------------------------------------------------------------------------------------------
REM END MAIN LOOP - UPDATE SYNC REFRESH
REM ------------------------------------------------------------------------------------------------------------
fastsync : endwhile

REM ------------------------------------------------------------------------------------------------------------
REM CLEANUP MEDIA
REM ------------------------------------------------------------------------------------------------------------

for i = 1 to 100
   if object exist(i)=1
      delete object i
   endif
next i

for i = 1 to 100
   if image exist(i)=1
      delete image i
   endif
next i

REM ------------------------------------------------------------------------------------------------------------
REM TERMINATE PROGRAM
REM ------------------------------------------------------------------------------------------------------------
END

REM ------------------------------------------------------------------------------------------------------------
REM FUNCTIONS AREA
REM ------------------------------------------------------------------------------------------------------------

Function LoadGroundTexture()
`Load bitmap "ground.bmp",1
endfunction

+ Code Snippet

REM ------------------------------------------------------------------------------------------------------------
REM GAME NAME     -
REM DBP VERSION   -
REM DATE          -
REM GAME VERSION  -
REM NOTES         -
REM ------------------------------------------------------------------------------------------------------------

REM ------------------------------------------------------------------------------------------------------------
REM SETUP ENVIRONMENT
REM ------------------------------------------------------------------------------------------------------------
`Trying to get the basics down!
Set Window on
Set display mode 1024,768,32
Set window size 1024,768
Set window Title "Under Construction"
hide mouse
sync on : sync rate 60



REM ------------------------------------------------------------------------------------------------------------
REM DECLARE VARIABLES
REM ------------------------------------------------------------------------------------------------------------

REM GND = Ground Object
GND = 1

REM PLROBJ = Player Object
PLROBJ = 2


REM ------------------------------------------------------------------------------------------------------------
REM LOAD 2D MEDIA
REM ------------------------------------------------------------------------------------------------------------
LoadGroundTexture()



REM ------------------------------------------------------------------------------------------------------------
REM LOAD 3D MEDIA
REM ------------------------------------------------------------------------------------------------------------

`Attempting to make the ground and texture it
Make Object Box GND,100,5,100
Position Object GND,0,-5,0
`Texture Object GND,GND
color object GND,RGB(0,155,0)




`Attempting to make player manually
Make Object Sphere PLROBJ,10
Position Object PLROBJ,0,5,0


REM ------------------------------------------------------------------------------------------------------------
REM PRE MAIN LOOP
REM ------------------------------------------------------------------------------------------------------------


REM ------------------------------------------------------------------------------------------------------------
REM START MAIN LOOP
REM ------------------------------------------------------------------------------------------------------------
disable escapekey : while escapekey()=0


      REM ------------------------------------------------------------------
      REM PLAYER CONTROLS
      REM ------------------------------------------------------------------
      if leftkey() = 1
      turn object left PLROBJ,1
      endif

      if rightkey() = 1
      turn object right PLROBJ,1
      endif

      if upkey() = 1
      move object PLROBJ,1
      endif


      REM ------------------------------------------------------------------
      REM UPDATE CAMERA TO THE PLAYERS LOCATION
      REM ------------------------------------------------------------------
      position camera object position x(PLROBJ),object position y(PLROBJ)+20,object position z(PLROBJ)-50
      point camera object position x(PLROBJ),object position y(PLROBJ),object position z(PLROBJ)


      REM ------------------------------------------------------------------
      REM UPDATE TEXT LAST IN MAIN LOOP AFTER EVERYTHING ELSE
      REM ------------------------------------------------------------------
      `Putting the Scancode on the screen somewhere
      Text 1,1,"scancode : "+STR$(ScanCode())
      Text 1,16,"fps     : "+STR$(screen fps())


REM ------------------------------------------------------------------------------------------------------------
REM END MAIN LOOP - UPDATE SYNC REFRESH
REM ------------------------------------------------------------------------------------------------------------
fastsync : endwhile

REM ------------------------------------------------------------------------------------------------------------
REM CLEANUP MEDIA
REM ------------------------------------------------------------------------------------------------------------

for i = 1 to 100
   if object exist(i)=1
      delete object i
   endif
next i

for i = 1 to 100
   if image exist(i)=1
      delete image i
   endif
next i


REM ------------------------------------------------------------------------------------------------------------
REM TERMINATE PROGRAM
REM ------------------------------------------------------------------------------------------------------------
END



REM ------------------------------------------------------------------------------------------------------------
REM FUNCTIONS AREA
REM ------------------------------------------------------------------------------------------------------------


Function LoadGroundTexture()
`Load bitmap "ground.bmp",1
endfunction

Back to top

Profile PM Email

OneShot

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location:

Posted: 14th Jun 2007 07:36

Link

Wow...that layout you have is amazing...I have been working on these codes for weeks. I just thought I would give me self a quiz and see how far I could get w/o refference. Otherwise..I will be looking off tutorials for the rest of my life! Excuse my newbieness if you will

Just started! Help!!!!

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 14th Jun 2007 07:41

Link

I wouldnt say the layout is amazing, however as you code more you will develop your own layout.
The neater it is the better it will be to read later on.

if that was a self quiz, you got some right and some wrong, however mistakes breeds success so keep at it.

Back to top

Profile PM Email

OneShot

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location:

Posted: 14th Jun 2007 07:41 Edited at: 14th Jun 2007 07:42

Link

BTW I just noticed...whenever I load image ground.bmp my screen goes black when I execute the code! Why does it do this?

Just started! Help!!!!

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 14th Jun 2007 07:54

Link

I can assume your using DARKBASIC PRO.

You need to create a MASTER folder for your game development.
You need to save the source file [DBA]
as well as the project file [DBPRO] into this folder.
Make sure as well on the right hand side in the options window
that your exe will be created in the same folder.
rename it to something like game.exe and resave your project file.

To be tidy, create another folder in your master folder and call it media.

Your texture should be square 32 x 32 64 x 64 etc , but it doesnt have to be in all cases.

To load it from here you would need to feed it the correct path

media/texturename.bmp

However the reason why your code is going black is to do with your sync off command

remove it all together, and right up the top like i have done in my example
set up your sync

sync on : sync rate 60
I set my demos to 60 frames a second.
now your world wont appear to be so black.

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 14th Jun 2007 08:20

Link

just to make it clearer as well.
here is a snippet showing you that a texture works as described with the snyc

+ Code Snippet

sync on : sync rate 60 : backdrop on
loadme()

disable escapekey : while escapekey()=0
   paste image 1,0,0
sync: endwhile

delete image 1
end

function loadme()
load image "ground.bmp",1
endfunction

Back to top

Profile PM Email

OneShot

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location:

Posted: 14th Jun 2007 08:20

Link

Could you just give me a quick refresh on a good process on texturing an object?

Just started! Help!!!!

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 14th Jun 2007 08:43 Edited at: 14th Jun 2007 08:45

Link

sticking with the last example, this is a simple method of loading a texture and applying it to a standard primitive, then rotating it on the screen.

+ Code Snippet

sync on : sync rate 60

load image "ground.bmp",1
make object cube 1,1
texture object 1,1

disable escapekey : while escapekey()=0

   r = wrapvalue(r+1) : rotate object 1,r,r,r

sync: endwhile

delete image 1
delete object 1

end

or we could generate a texture with code and grab it as an image.

+ Code Snippet

sync on : sync rate 60


ink rgb(255,255,255),1
box 0,0,32,32
ink rgb(55,55,55),1
box 4,4,28,28
get image 1,0,0,32,32,1
cls



make object cube 1,1
texture object 1,1


disable escapekey : while escapekey()=0

   r = wrapvalue(r+1) : rotate object 1,r,r,r

sync: endwhile

delete image 1
delete object 1

end

if something requires a lot of complexity you will need to explore making a UV map from a 3d package.

Back to top

Profile PM Email

OneShot

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location:

Posted: 14th Jun 2007 08:49

Link

Oh wow...I like the second way. That can get really complicated...i've never really understood on how to generated images in the code

Just started! Help!!!!

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 14th Jun 2007 08:58

Link

keep practicing and making examples of the commands for yourself.
you will get the hang of it.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Can someone tell me why my screen is black?