Blinking text and image - GameCreators Forum

Author

Message

Gurology

6

Years of Service

User Offline

Joined: 14th Mar 2018

Location:

Posted: 19th Mar 2018 08:57

Link

When I compile, there is ever so slightly off a blink every now and then with all the text. But once the selection for "1. Cloud" is made, the picture goes haywire again. I've tried turning sync off and it's not working. Any suggestions? Thanks!

+ Code Snippet

hide mouse
sync off  (Sync off doesn't fully fix the issue)

Input "Please, input your name: ",name$

Print "Ok " + name$; ", welcome to Hajime!"
Print "The following is a list of popular video game characters. Select your character."
Print "____________________" + "      _______________________"
Print "FINAL FANTASY 7" + "           FINAL FANTASY 8"
Print "1. Cloud" + "                  11. Squall"
Print "2. Tifa"  + "                   12. Zel"
Print "3. Barrett" + "                13. Rinoa"
Print "4. Cait Sith"
Print "5. Vincent"
Print "6. Yuffie"
Print "7. Cid"
Print "8. Aeris"
Print "9. Red XIII"
Print "10. Sephiroth"
Print "____________________"
Input "Please choose the number of the character you'd like to use: ",char$

LOAD IMAGE "Cloud.jpg",1
cls
sync off
PASTE IMAGE 1,3,3
endif
REM Place Stats
wait key
end

Back to top

Profile PM

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 19th Mar 2018 13:11 Edited at: 19th Mar 2018 13:13

Link

Try something like this...

+ Code Snippet

LOAD IMAGE "Cloud.jpg",1
Input "Please, input your name: ",name$
sync on
sync rate 0
sync
do
    text 0,20, "Ok " + name$+ ", welcome to Hajime!"
    text 0,60, "The following is a list of popular video game characters. Select your character."
    text 0,80, "____________________" + "      _______________________"
    text 0,100, "FINAL FANTASY 7" + "           FINAL FANTASY 8"
    text 0,120, "1. Cloud" + "                  11. Squall"
    text 0,140, "2. Tifa"  + "                   12. Zel"
    set cursor 0,160
    if char$=""
        Input "Please choose the number of the character you'd like to use: ",char$
    endif
    if char$="1"
        PASTE IMAGE 1,3,3 
        text 0,200, "You chose Cloud!"
        text 0,240, "Press ESC to quit!"
    else
        text 0,200, "You didn't choose Cloud!"
        text 0,240, "Press ESC to quit!"
    endif
    
    sync
loop

Back to top

Profile PM Email

Gurology

6

Years of Service

User Offline

Joined: 14th Mar 2018

Location:

Posted: 19th Mar 2018 15:26

Link

So, your code definitely arranged things more logically. Now I'm having a problem closing 'nest'.. also, my text is still blinking.. check this out..

sync on
sync rate 0

`Load Images Into Compiler
LOAD IMAGE "Cloud.jpg",1
Load Image "Tifa.jpg",2
Load Image "Aeris.jpg",3
Load Image "Barrett.jpg",4
Load Image "CaitSith.jpg",5
Load Image "Cit.jpg",6
Load Image "RedXIII.jpg", 7
Load Image "Vincent.jpg", 8
Load Image "Yuffie.jpg", 9
Load Image "Sephiroth.jpg",10

Input "Please, input your name: ",name$

`MAIN LOOP
DO
    text 0,20, "Ok " + name$+ ", welcome to Hajime!"
    text 0,60, "The following is a list of popular video game characters. Select your character."
    text 0,80, "____________________" + "      _______________________"
    text 0,100, "FINAL FANTASY 7" + "           FINAL FANTASY 8"
    text 0,120, "1. Cloud" + "                  11. Squall"
    text 0,140, "2. Tifa"  + "                   12. Zel"
    text 0,160, "3. Aeris"
    text 0,180, "4. Barrett"
    text 0,200, "5. CaitSith"
    text 0,220, "6. Cid"
    text 0,240, "7. Red XIII"
    text 0,260, "8. Vincent"
    text 0,280, "9. Yuffie"
    text 0,300, "10. Sephiroth"
    set cursor 0,320
    
    if char$=""
        Input "Please choose the number of the character you'd like to use: ",char$
    endif
   
    if char$="1"
        cls
        PASTE IMAGE 1,3,3 
        text 0,340, "You chose Cloud!"
    else ifchar$="2"
        cls
        Paste Image 2,3,3
        text 0,340, "You chose Tifa!"
    endif
    
    if char$="3"
        cls
        Paste Image 3,3,3
        text 0,340, "You chose Aeris!"
    else if char$="4"
        cls
        Paste Image 4,3,3
        text 0,340, "You chose Barrett!"
    endif
    
    if char$="5"
        cls
        Paste Image 5,3,3
        text 0,340, "You chose Cait Sith!"
    else if char$="6"
        cls
        Paste Image 6,3,3
        text 0,340, "You chose Cid!"
    endif
      
    if char$="7"
        cls
        Paste Image 7,3,3
        text 0,340, "You chose Red XIII!"
    else if char$="8"
        cls
        Paste Image 8,3,3
        text 0,340, "You chose Vincent!" 
    endif
     
    if char$="9"
        cls
        Paste Image 9,3,3
        text 0,340, "You chose Yuffie!"   
    else if char$="10"
        cls
        Paste Image 10,3,3
        text 0,340, "You chose Sephiroth!"
    Endif

+ Code Snippet

sync on
sync rate 0

`Load Images Into Compiler
LOAD IMAGE "Cloud.jpg",1
Load Image "Tifa.jpg",2
Load Image "Aeris.jpg",3
Load Image "Barrett.jpg",4
Load Image "CaitSith.jpg",5
Load Image "Cit.jpg",6
Load Image "RedXIII.jpg", 7
Load Image "Vincent.jpg", 8
Load Image "Yuffie.jpg", 9
Load Image "Sephiroth.jpg",10

Input "Please, input your name: ",name$

`MAIN LOOP
DO
    text 0,20, "Ok " + name$+ ", welcome to Hajime!"
    text 0,60, "The following is a list of popular video game characters. Select your character."
    text 0,80, "____________________" + "      _______________________"
    text 0,100, "FINAL FANTASY 7" + "           FINAL FANTASY 8"
    text 0,120, "1. Cloud" + "                  11. Squall"
    text 0,140, "2. Tifa"  + "                   12. Zel"
    text 0,160, "3. Aeris"
    text 0,180, "4. Barrett"
    text 0,200, "5. CaitSith"
    text 0,220, "6. Cid"
    text 0,240, "7. Red XIII"
    text 0,260, "8. Vincent"
    text 0,280, "9. Yuffie"
    text 0,300, "10. Sephiroth"
    set cursor 0,320
    
    if char$=""
        Input "Please choose the number of the character you'd like to use: ",char$
    endif
   
    if char$="1"
        cls
        PASTE IMAGE 1,3,3 
        text 0,340, "You chose Cloud!"
    else ifchar$="2"
        cls
        Paste Image 2,3,3
        text 0,340, "You chose Tifa!"
    endif
    
    if char$="3"
        cls
        Paste Image 3,3,3
        text 0,340, "You chose Aeris!"
    else if char$="4"
        cls
        Paste Image 4,3,3
        text 0,340, "You chose Barrett!"
    endif
    
    if char$="5"
        cls
        Paste Image 5,3,3
        text 0,340, "You chose Cait Sith!"
    else if char$="6"
        cls
        Paste Image 6,3,3
        text 0,340, "You chose Cid!"
    endif
      
    if char$="7"
        cls
        Paste Image 7,3,3
        text 0,340, "You chose Red XIII!"
    else if char$="8"
        cls
        Paste Image 8,3,3
        text 0,340, "You chose Vincent!" 
    endif
     
    if char$="9"
        cls
        Paste Image 9,3,3
        text 0,340, "You chose Yuffie!"   
    else if char$="10"
        cls
        Paste Image 10,3,3
        text 0,340, "You chose Sephiroth!"
    Endif

Back to top

Profile PM

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 20th Mar 2018 00:28 Edited at: 20th Mar 2018 00:57

Link

You need more "endif"s

+ Code Snippet

    
    if char$="1"
        cls
        PASTE IMAGE 1,3,3 
        text 0,340, "You chose Cloud!"
    else 
        if char$="2"
            cls
            Paste Image 2,3,3
            text 0,340, "You chose Tifa!"
        endif
    endif

You start another "if" with the "else if" but you don't end it properly...look at my next post for a better solution using select/case

Back to top

Profile PM Email

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 20th Mar 2018 00:48

Link

You could also get rid of all the if/elses with select/case command

+ Code Snippet


select char$

case "1"
        cls
        PASTE IMAGE 1,3,3 
        text 0,340, "You chose Cloud!"
        endcase

case "2"
       cls
        Paste Image 2,3,3
        text 0,340, "You chose Tifa!"
        endcase

//[... etc with more case statements like above for you other characters]

//case default will let you know if they picked a number out of range.
case default
       cls
        text 0,340, "Character does not exist!"
        endcase
endselect

I'm not going to code your game for you

But you need a lot of work on this...

First thing I would recommend is for you to look into "functions" and/or "gosub"

You're not going to get far doing all your code "top down" like you have been doing

Back to top

Profile PM Email

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 20th Mar 2018 01:09

Link

I'd also suggest you start small with maybe 2 characters instead of 12 or 13.

You'll be re-doing your code many times before you get the hang of it.

So having only 2 chars will help you out as you learn.

Back to top

Profile PM Email

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 20th Mar 2018 01:11 Edited at: 20th Mar 2018 01:23

Link

@Zep; Does that redundant sync really stop the flickering. The reason I ask is because, other then early versions of 9Ex, I have never experienced this problem. I have used such code from WindowsXP to 10, without flicker. I seen a awful lot of post on the subject but, I have never heard if it actually worked. Some of the code I have seen supposed to remedy this, doesn't seem to relate. This isn't tested but, I would say check your graphics card settings. Buffering should be set to application controlled.

@Gurology: DarkBasic Professional has two modes, Synchronous and A-Synchronous. DB has certain functions that are designed for one or the other. Your code so far does not require turning sync on. Remember there are functions to turn sync or the backdrop off as well as on. Personally I turn sync on only when its needed.

DBPro don't have elseif. Your code is not frame rate dependent yet. So, you should use select case instead.

`load images Into Compiler
load image "Cloud.jpg", 1
load image "Tifa.jpg", 2
load image "Aeris.jpg", 3
load image "Barrett.jpg", 4
load image "CaitSith.jpg", 5
load image "Cit.jpg", 6
load image "RedXIII.jpg", 7
load image "Vincent.jpg", 8
load image "Yuffie.jpg", 9
load image "Sephiroth.jpg", 10

input "Please, input your name: ", name$

text 0,20, "Ok " + name$+ ", welcome to Hajime!"
text 0,60, "The following is a list of popular video game characters. Select your character."
text 0,80, "____________________" + "      _______________________"
text 0,100, "FINAL FANTASY 7" + "           FINAL FANTASY 8"
text 0,120, "1. Cloud" + "                  11. Squall"
text 0,140, "2. Tifa"  + "                   12. Zel"
text 0,160, "3. Aeris"
text 0,180, "4. Barrett"
text 0,200, "5. CaitSith"
text 0,220, "6. Cid"
text 0,240, "7. Red XIII"
text 0,260, "8. Vincent"
text 0,280, "9. Yuffie"
text 0,300, "10. Sephiroth"
set cursor 0,320

if char$=""
   input "Please choose the number of the character you'd like to use: ", char$
   char = val(Char$)
endif

cls
set cursor 0, 340

select char
   case 1:
      paste image 1, 3, 3
      print "You chose Cloud!"
   endcase

case 2:
      paste image 2, 3, 3
      print "You chose Tifa!"
   endcase

case 3:
      paste image 3, 3, 3
      print "You chose Aeris!"
   endcase

case 4:
      paste image 4, 3, 3
      print "You chose Barrett!"
   endcase

case 5:
      paste image 5, 3, 3
      print "You chose Cait Sith!"
   endcase

case 6:
      paste image 6, 3, 3
      print "You chose Cid!"
   endcase

case 7:
      paste image 7, 3, 3
      print "You chose Red XIII!"
   endcase

case 8:
      paste image 8, 3, 3
      print "You chose Vincent!"
   endcase

case 9:
      paste image 9, 3, 3
      print "You chose Yuffie!"
   endcase

case 10:
      paste image 10, 3, 3
      print "You chose Sephiroth!"
   endcase
endselect

wait key

+ Code Snippet

`load images Into Compiler
load image "Cloud.jpg", 1
load image "Tifa.jpg", 2
load image "Aeris.jpg", 3
load image "Barrett.jpg", 4
load image "CaitSith.jpg", 5
load image "Cit.jpg", 6
load image "RedXIII.jpg", 7
load image "Vincent.jpg", 8
load image "Yuffie.jpg", 9
load image "Sephiroth.jpg", 10

input "Please, input your name: ", name$

text 0,20, "Ok " + name$+ ", welcome to Hajime!"
text 0,60, "The following is a list of popular video game characters. Select your character."
text 0,80, "____________________" + "      _______________________"
text 0,100, "FINAL FANTASY 7" + "           FINAL FANTASY 8"
text 0,120, "1. Cloud" + "                  11. Squall"
text 0,140, "2. Tifa"  + "                   12. Zel"
text 0,160, "3. Aeris"
text 0,180, "4. Barrett"
text 0,200, "5. CaitSith"
text 0,220, "6. Cid"
text 0,240, "7. Red XIII"
text 0,260, "8. Vincent"
text 0,280, "9. Yuffie"
text 0,300, "10. Sephiroth"
set cursor 0,320

if char$=""
   input "Please choose the number of the character you'd like to use: ", char$
   char = val(Char$)
endif

cls
set cursor 0, 340

select char
   case 1:
      paste image 1, 3, 3
      print "You chose Cloud!"
   endcase

   case 2:
      paste image 2, 3, 3
      print "You chose Tifa!"
   endcase

   case 3:
      paste image 3, 3, 3
      print "You chose Aeris!"
   endcase

   case 4:
      paste image 4, 3, 3
      print "You chose Barrett!"
   endcase

   case 5:
      paste image 5, 3, 3
      print "You chose Cait Sith!"
   endcase

   case 6:
      paste image 6, 3, 3
      print "You chose Cid!"
   endcase

   case 7:
      paste image 7, 3, 3
      print "You chose Red XIII!"
   endcase

   case 8:
      paste image 8, 3, 3
      print "You chose Vincent!"
   endcase

   case 9:
      paste image 9, 3, 3
      print "You chose Yuffie!"
   endcase

   case 10:
      paste image 10, 3, 3
      print "You chose Sephiroth!"
   endcase
endselect

wait key

Back to top

Profile PM Email

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 20th Mar 2018 01:16

Link

Quote: "@Zep; Does that redundant sync really stop the flickering. The reason I ask is because, other then early versions of 9Ex, I have never experienced this problem. I "

I have no idea, I don't have any text flickering with or without the extra sync. I threw it in just in case.

Back to top

Profile PM Email

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 20th Mar 2018 01:35

Link

After removing all the sync related commands, removing the do/loop and adding a "wait key" at the end of the code

I still have no text flickering.

I suspect an older version of DBPRO he may be using.

Back to top

Profile PM Email

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 20th Mar 2018 02:03

Link

Quote: "I suspect an older version of DBPRO he may be using."

Must be a really old version. I have been here awhile and have been through many updates and have never experienced this.

Back to top

Profile PM Email

Gurology

6

Years of Service

User Offline

Joined: 14th Mar 2018

Location:

Posted: 20th Mar 2018 02:04

Link

I'm using version 1.071. I will try a few remedies and let you guys know how it turns out. I built a similar battle system using visual basic, so i decided to expand in darkbasic. learning new commands is obviously a weak point, but logic, not so much. thank you guys for all your help.

Back to top

Profile PM

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 20th Mar 2018 02:09

Link

Quote: "Must be a really old version. I have been here awhile and have been through many updates and have never experienced this.
"

Does the text flicker for you? I've stared at the screen for a solid 10 minutes in both windowed and fullscreen. No hint of a flicker at all.

Back to top

Profile PM Email

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 20th Mar 2018 02:41

Link

No flicker at all, ever. Except for the early versions of 9Ex.

@Gurology; Best of luck.

Back to top

Profile PM Email

Zep

21

Years of Service

User Offline

Joined: 31st Aug 2002

Location: From PA, USA. Currently reside in Hanoi, Vietnam

Posted: 20th Mar 2018 02:54

Link

Quote: "I'm using version 1.071"

Do you mean 1.0761? (That's the latest version)

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Blinking text and image