Stupid...Flashing...Screen...(Yes, I have searched the forum)

Author

Message

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 8th Feb 2006 01:43

Link

Sorry for another question

Ok, I know about the flashing screen bug with Dark Basic, and I have put the cls at the top of the program, and tried it in many different areas. The difference here(from the other problems people have been having) is that I use set camera view.

Can you please help

`WHOLE GAME VARIABLES
`(Variables used the whole game and does not change)
Dim AmountLevels(0)
AmountLevels(0) = 1
Dim Amountofwaves(1)
Dim Wave(1,20,4)
Dim Level(0)
Level(0) = 1
Dim MPB(0)
MPB(0) = 49
Dim PlayerBullet(49,4)
Dim Shoot_Status(0)
Shoot_Status(0) = 1
Dim Keypress(0)

`GAME SETUP
set display mode 640,480,16
Sync on
hide mouse
autocam off
sync rate 0
cls

Load_Player
Load_Player_Bullets

Sync on
Set camera view 0,90,640,390
Position camera 0,0,-38
Point camera 0,0,1
sync rate 0
cls 0

`LEVEL VARIABLES
`(Variables that will change, and is only used for the level,
`and will need to be reset at the begining of each level)

`LEVEL SETUP

Load_Background(level(0))
Player_Intro

Do

control_player
Player_Shoot
Move_Player_Bullets

Text 2,100,str$(object position x(1))
Text 2,115,str$(object position y(1))

sync
Loop

Function Load_Background(level)

Load image "media/backgrounds/"+str$(level)+".png",1000
   If object exist(1000) = 1 then delete object 1000
   Make object plain 1000,64,50
   Texture object 1000,1000

endfunction

Function Load_Player()

Load image "media/Player.png",1
   Make object plain 1,5,3
   Texture object 1,1
   Set object 1,1,0,1

endfunction

Function Player_Intro()

Position object 1,-60,0,-1

For x = -60 to -20

Position object 1,x,object position y(1),object position z(1)
      sync
      sleep 10

Next x

endfunction

Function Control_Player()

If upkey() = 1 and object position y(1) < 21 then position object 1,object position x(1),object position y(1)+0.5,object position z(1)
   If downkey() = 1 and object position y(1) > -21 then position object 1,object position x(1),object position y(1)-0.5,object position z(1)
   If leftkey() = 1 and object position x(1) > -27 then position object 1,object position x(1)-0.5,object position y(1),object position z(1)
   If rightkey() = 1 and object position x(1) < 27 then position object 1,object position x(1)+0.5,object position y(1),object position z(1)

endfunction

Function Player_Shoot()

If controlkey() = 1 and keypress(0) = 0
      If shoot_status(0) = 1
         For I = 1 to MPB(0)
            If PlayerBullet(I,1) = 0
               PShoot(I,Object position x(1),object position y(1),0)
               goto exitthisfornextloop
            endif
         Next I
         exitthisfornextloop:
      endif
      keypress(0) = 1
   endif
   IF controlkey() = 0 then keypress(0) = 0

Endfunction

Function PShoot(Num,Bulletx#,Bullety#,angle)

PlayerBullet(Num,1) = 1
   PlayerBullet(Num,2) = Bulletx#
   PlayerBullet(Num,3) = Bullety#
   PlayerBullet(Num,4) = angle

Endfunction

Function Load_Player_Bullets

Load image "media/Bullet.bmp",1001

For I = 500 to 500+MPB(0)
      Make object plain I,1,0.5
      Texture object I,1001
   next I

Endfunction

Function Move_Player_Bullets()

For I = 1 to MPB(0)
      If PlayerBullet(I,1) = 1
         If playerBullet(I,2) > 30 then PlayerBullet(I,1) = 0
         PlayerBullet(I,2) = PlayerBullet(I,2) + 1
         Position object 499+I,PlayerBullet(I,2),PlayerBullet(I,3),-1
         zrotate object 499+I,PlayerBullet(I,4)
      endif
   next I

Endfunction

+ Code Snippet

`WHOLE GAME VARIABLES
`(Variables used the whole game and does not change)
Dim AmountLevels(0)
AmountLevels(0) = 1
Dim Amountofwaves(1)
Dim Wave(1,20,4)
Dim Level(0)
Level(0) = 1
Dim MPB(0)
MPB(0) = 49
Dim PlayerBullet(49,4)
Dim Shoot_Status(0)
Shoot_Status(0) = 1
Dim Keypress(0)

`GAME SETUP
set display mode 640,480,16
Sync on
hide mouse
autocam off
sync rate 0
cls

Load_Player
Load_Player_Bullets


Sync on
Set camera view 0,90,640,390
Position camera 0,0,-38
Point camera 0,0,1
sync rate 0
cls 0

`LEVEL VARIABLES
`(Variables that will change, and is only used for the level,
`and will need to be reset at the begining of each level)

`LEVEL SETUP

Load_Background(level(0))
Player_Intro

Do

control_player
Player_Shoot
Move_Player_Bullets

Text 2,100,str$(object position x(1))
Text 2,115,str$(object position y(1))

sync
Loop

Function Load_Background(level)

   Load image "media/backgrounds/"+str$(level)+".png",1000
   If object exist(1000) = 1 then delete object 1000
   Make object plain 1000,64,50
   Texture object 1000,1000

endfunction

Function Load_Player()

   Load image "media/Player.png",1
   Make object plain 1,5,3
   Texture object 1,1
   Set object 1,1,0,1

endfunction

Function Player_Intro()

   Position object 1,-60,0,-1

   For x = -60 to -20

      Position object 1,x,object position y(1),object position z(1)
      sync
      sleep 10

   Next x

endfunction

Function Control_Player()

   If upkey() = 1 and object position y(1) < 21 then position object 1,object position x(1),object position y(1)+0.5,object position z(1)
   If downkey() = 1 and object position y(1) > -21 then position object 1,object position x(1),object position y(1)-0.5,object position z(1)
   If leftkey() = 1 and object position x(1) > -27 then position object 1,object position x(1)-0.5,object position y(1),object position z(1)
   If rightkey() = 1 and object position x(1) < 27 then position object 1,object position x(1)+0.5,object position y(1),object position z(1)

endfunction

Function Player_Shoot()

   If controlkey() = 1 and keypress(0) = 0
      If shoot_status(0) = 1
         For I = 1 to MPB(0)
            If PlayerBullet(I,1) = 0
               PShoot(I,Object position x(1),object position y(1),0)
               goto exitthisfornextloop
            endif
         Next I
         exitthisfornextloop:
      endif
      keypress(0) = 1
   endif
   IF controlkey() = 0 then keypress(0) = 0

Endfunction

Function PShoot(Num,Bulletx#,Bullety#,angle)

   PlayerBullet(Num,1) = 1
   PlayerBullet(Num,2) = Bulletx#
   PlayerBullet(Num,3) = Bullety#
   PlayerBullet(Num,4) = angle

Endfunction

Function Load_Player_Bullets

   Load image "media/Bullet.bmp",1001

   For I = 500 to 500+MPB(0)
      Make object plain I,1,0.5
      Texture object I,1001
   next I

Endfunction

Function Move_Player_Bullets()

   For I = 1 to MPB(0)
      If PlayerBullet(I,1) = 1
         If playerBullet(I,2) > 30 then PlayerBullet(I,1) = 0
         PlayerBullet(I,2) = PlayerBullet(I,2) + 1
         Position object 499+I,PlayerBullet(I,2),PlayerBullet(I,3),-1
         zrotate object 499+I,PlayerBullet(I,4)
      endif
   next I

Endfunction

Take your time, I am in no rush, and this bug does not keep me from continueing on the progect. Sorry for the large amount of topics(I know it isn't really ALOT, but I think it is a little too much. I feel a little guilty

)

Hippopotomonstrosesquippedaliophobia-Fear of long words

Attachments

Login to view attachments

Back to top

Profile PM Email Website

GameKit

22

Years of Service

User Offline

Joined: 6th Mar 2003

Location: USA, Staring Blankly at a Computer

Posted: 8th Feb 2006 04:36 Edited at: 8th Feb 2006 04:48

Link

I couldn't really test your code because I use DBPro and because you linked to exterior images, but I did take an extensive look at your code.

Does the screen flashing occur during the player intro? If so, I think your problem lies in your use of the "sleep" command.

For x = -60 to -20
Position object 1,x,object position y(1),object position z(1)
sync
sleep 10
Next x

I would recommend never using the "sleep" command except for in simple text-based programs. You are causing the program to freeze momentarily every sync. If you want to slow down the speed of the player, try making a smaller for/next step value...

For x = -60 to -20 step 0.1

...or using a smaller sync rate...

sync rate 60

...a sync rate of 0 forces the computer to update the screen as fast as possible. Since the human eye can't see any more than about 60 frames per second, I would recommend not using a sync rate above 60. 30 frames per second is usually all you will ever need.

I don't think "cls" has anything to do with your screen flashing because you do not use it inside of your main loop, but I also discourage the use of "cls" over "sync". I'm sorry I couldn't test your game to figure out the true problem, but I hoped I helped anyways.

[Edit]: I have been trying for the longest time to figure out how to spell Hippopotomonstrosesquippedaliophobia. Thanks, I'm going to have to memorize it now. I've got antidisestablishmentarianism and Supercalifragilisticexpialidocious down. I hope your not Hippopotomonstrosesquippedaliophobic, or this would be a scary post.

The computer isn't an addiction; it's more of a mental and social dependency.

Back to top

Profile PM Email

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 8th Feb 2006 10:31

Link

I don't know why you have two sync on, cls, sync rate 0. I took them out. It doesn't flash now. Although, it didn't flash when I put them back in again either.

`WHOLE GAME VARIABLES
`(Variables used the whole game and does not change)
Dim AmountLevels(0)
AmountLevels(0) = 1
Dim Amountofwaves(1)
Dim Wave(1,20,4)
Dim Level(0)
Level(0) = 1
Dim MPB(0)
MPB(0) = 49
Dim PlayerBullet(49,4)
Dim Shoot_Status(0)
Shoot_Status(0) = 1
Dim Keypress(0)

`GAME SETUP
set display mode 640,480,16
Sync on
hide mouse
autocam off
sync rate 0
`cls

Load_Player
Load_Player_Bullets

`Sync on
Set camera view 0,90,640,390
Position camera 0,0,-38
Point camera 0,0,1
`sync rate 0
cls 0

`LEVEL VARIABLES
`(Variables that will change, and is only used for the level,
`and will need to be reset at the begining of each level)

`LEVEL SETUP

Load_Background(level(0))
Player_Intro

Do

control_player
Player_Shoot
Move_Player_Bullets

Text 2,100,str$(object position x(1))
Text 2,115,str$(object position y(1))

sync
Loop

Function Load_Background(level)

Load image "backgrounds/"+str$(level)+".png",1000
   If object exist(1000) = 1 then delete object 1000
   Make object plain 1000,64,50
   Texture object 1000,1000

endfunction

Function Load_Player()

Load image "Player.png",1
   Make object plain 1,5,3
   Texture object 1,1
   Set object 1,1,0,1

endfunction

Function Player_Intro()

Position object 1,-60,0,-1

For x = -60 to -20

Position object 1,x,object position y(1),object position z(1)
      sync
      sleep 10

Next x

endfunction

Function Control_Player()

If upkey() = 1 and object position y(1) < 21 then position object 1,object position x(1),object position y(1)+0.5,object position z(1)
   If downkey() = 1 and object position y(1) > -21 then position object 1,object position x(1),object position y(1)-0.5,object position z(1)
   If leftkey() = 1 and object position x(1) > -27 then position object 1,object position x(1)-0.5,object position y(1),object position z(1)
   If rightkey() = 1 and object position x(1) < 27 then position object 1,object position x(1)+0.5,object position y(1),object position z(1)

endfunction

Function Player_Shoot()

If controlkey() = 1 and keypress(0) = 0
      If shoot_status(0) = 1
         For I = 1 to MPB(0)
            If PlayerBullet(I,1) = 0
               PShoot(I,Object position x(1),object position y(1),0)
               goto exitthisfornextloop
            endif
         Next I
         exitthisfornextloop:
      endif
      keypress(0) = 1
   endif
   IF controlkey() = 0 then keypress(0) = 0

Endfunction

Function PShoot(Num,Bulletx#,Bullety#,angle)

PlayerBullet(Num,1) = 1
   PlayerBullet(Num,2) = Bulletx#
   PlayerBullet(Num,3) = Bullety#
   PlayerBullet(Num,4) = angle

Endfunction

Function Load_Player_Bullets

Load image "Bullet.bmp",1001

For I = 500 to 500+MPB(0)
      Make object plain I,1,0.5
      Texture object I,1001
   next I

Endfunction

Function Move_Player_Bullets()

For I = 1 to MPB(0)
      If PlayerBullet(I,1) = 1
         If playerBullet(I,2) > 30 then PlayerBullet(I,1) = 0
         PlayerBullet(I,2) = PlayerBullet(I,2) + 1
         Position object 499+I,PlayerBullet(I,2),PlayerBullet(I,3),-1
         zrotate object 499+I,PlayerBullet(I,4)
      endif
   next I

Endfunction

+ Code Snippet

`WHOLE GAME VARIABLES
`(Variables used the whole game and does not change)
Dim AmountLevels(0)
AmountLevels(0) = 1
Dim Amountofwaves(1)
Dim Wave(1,20,4)
Dim Level(0)
Level(0) = 1
Dim MPB(0)
MPB(0) = 49
Dim PlayerBullet(49,4)
Dim Shoot_Status(0)
Shoot_Status(0) = 1
Dim Keypress(0)

`GAME SETUP
set display mode 640,480,16
Sync on
hide mouse
autocam off
sync rate 0
`cls

Load_Player
Load_Player_Bullets


`Sync on
Set camera view 0,90,640,390
Position camera 0,0,-38
Point camera 0,0,1
`sync rate 0
cls 0

`LEVEL VARIABLES
`(Variables that will change, and is only used for the level,
`and will need to be reset at the begining of each level)

`LEVEL SETUP

Load_Background(level(0))
Player_Intro

Do

control_player
Player_Shoot
Move_Player_Bullets

Text 2,100,str$(object position x(1))
Text 2,115,str$(object position y(1))

sync
Loop

Function Load_Background(level)

   Load image "backgrounds/"+str$(level)+".png",1000
   If object exist(1000) = 1 then delete object 1000
   Make object plain 1000,64,50
   Texture object 1000,1000

endfunction

Function Load_Player()

   Load image "Player.png",1
   Make object plain 1,5,3
   Texture object 1,1
   Set object 1,1,0,1

endfunction

Function Player_Intro()

   Position object 1,-60,0,-1

   For x = -60 to -20

      Position object 1,x,object position y(1),object position z(1)
      sync
      sleep 10

   Next x

endfunction

Function Control_Player()

   If upkey() = 1 and object position y(1) < 21 then position object 1,object position x(1),object position y(1)+0.5,object position z(1)
   If downkey() = 1 and object position y(1) > -21 then position object 1,object position x(1),object position y(1)-0.5,object position z(1)
   If leftkey() = 1 and object position x(1) > -27 then position object 1,object position x(1)-0.5,object position y(1),object position z(1)
   If rightkey() = 1 and object position x(1) < 27 then position object 1,object position x(1)+0.5,object position y(1),object position z(1)

endfunction

Function Player_Shoot()

   If controlkey() = 1 and keypress(0) = 0
      If shoot_status(0) = 1
         For I = 1 to MPB(0)
            If PlayerBullet(I,1) = 0
               PShoot(I,Object position x(1),object position y(1),0)
               goto exitthisfornextloop
            endif
         Next I
         exitthisfornextloop:
      endif
      keypress(0) = 1
   endif
   IF controlkey() = 0 then keypress(0) = 0

Endfunction

Function PShoot(Num,Bulletx#,Bullety#,angle)

   PlayerBullet(Num,1) = 1
   PlayerBullet(Num,2) = Bulletx#
   PlayerBullet(Num,3) = Bullety#
   PlayerBullet(Num,4) = angle

Endfunction

Function Load_Player_Bullets

   Load image "Bullet.bmp",1001

   For I = 500 to 500+MPB(0)
      Make object plain I,1,0.5
      Texture object I,1001
   next I

Endfunction

Function Move_Player_Bullets()

   For I = 1 to MPB(0)
      If PlayerBullet(I,1) = 1
         If playerBullet(I,2) > 30 then PlayerBullet(I,1) = 0
         PlayerBullet(I,2) = PlayerBullet(I,2) + 1
         Position object 499+I,PlayerBullet(I,2),PlayerBullet(I,3),-1
         zrotate object 499+I,PlayerBullet(I,4)
      endif
   next I

Endfunction

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 8th Feb 2006 13:46

Link

Ok, thanks. I will try it when I get home. I know it is a graphics card problem. I will also post the graphics card type when I get home. Thanks.

BTW, the flashing DOES NOT occur during the player intro, it occurs after it at random times.

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 9th Feb 2006 01:54

Link

It doesn't work.

Specs:

Celeron CPU 2.40GHz
2.39 GHZ, 512 MB RAM
Intel 82865G Graphics Controller

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 9th Feb 2006 04:48

Link

I ran what you posted in the first message and didn't see any flashing at all.

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 9th Feb 2006 21:55

Link

Yes, it is a graphics card problem. It only has this trouble with a few kinds of graphics cards. It works on my other computer, but I would like for it wo work on almost all graphics cards.

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 9th Feb 2006 22:30

Link

I'm sure it'll work fine on most cards. I use a GeForce 5200 FX.

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 10th Feb 2006 20:23

Link

I have searched the forum and have found many instences like this. Just search "flashing". There are enough people who have this problem that I don't want this to happen too, much less my computer...

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2006 00:52

Link

It used to have something to do with static objects I think, but most people have upgraded their computers since the problems occured about 2 years ago.

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 11th Feb 2006 02:50

Link

I don't use any static objects...if that is what I think it is.

What are static objects?

I don't use any commands like make static objects...

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2006 14:10

Link

Don't know then. Could be that someone isn't using the right graphic card drivers. Or direct X 9c.

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 11th Feb 2006 19:15

Link

Thanks.

Do you know where I can find what version of Direct X I have?

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 11th Feb 2006 20:13

Link

run dxdiag

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 11th Feb 2006 22:18

Link

Thanks

I do have direct X 9c though

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 11th Feb 2006 22:40

Link

Thanks for your help, but I just suddenly thought of a good alternative that does almost the same thing, except it doesn't use camera view. thanks though!

I'm happy

GOOOOOODBYE STUPID FLASHING SCREEN!!!!!!!!!!

Hippopotomonstrosesquippedaliophobia-Fear of long words

Back to top

Profile PM Email Website

re faze

20

Years of Service

User Offline

Joined: 24th Sep 2004

Location: The shores of hell.

Posted: 12th Feb 2006 00:12