Sprite menu syncing - GameCreators Forum

Author

Message

thechew

20

Years of Service

User Offline

Joined: 20th Feb 2006

Location: under there

Posted: 25th Jan 2013 22:53

Link

I have written a game that has a menu system that uses sprites. With the game I have made a program to help edit data for the game. There can be many menus open at one time, but I kinda need to not sync through all the menus because it creates a massive lag. Is there a way to refresh certain sprites and still display all of them?

My sprite painting method:

function show_AlWin
  load image "Menu/bkrnd.bmp",1
  load image "Menu/Close.bmp",2
  OTS=text size()
  spn=1
  for wc=0 to numWin-1
    rem ***Win
     if Win(wc).Bkrnd
       sprite spn,Win(wc).xPos,Win(wc).yPos,1
       size sprite spn,Win(wc).xSize,Win(wc).ySize
       hide sprite spn
       diff_sprite(spn, "bkrnd")
       paste sprite spn,Win(wc).xPos,Win(wc).yPos
       spn=spn+1
     else
       spn=spn+1
     endif
     if Win(wc).Top=1
       sprite spn,Win(wc).xPos,Win(wc).yPos-15,1
       size sprite spn,Win(wc).xSize,15
       hide sprite spn
       diff_sprite(spn, "White")
       paste sprite spn,Win(wc).xPos,Win(wc).yPos-15
       spn=spn+1
       cxp=Win(wc).xPos+Win(wc).xSize-12
       cyp=Win(wc).yPos-12
       sprite spn,cxp,cyp,2
       size sprite spn,10,10
       hide sprite spn
       paste sprite spn,cxp,cyp
     else
       spn=spn+1
     endif
     cimg=3
    rem ****Buttons
    if Win(wc).Btn_min>=0
     for wb=Win(wc).Btn_min to Win(wc).Btn_max
       xmn=Btn(wb).xPos+Win(wc).xPos
       xmx=xmn+Btn(wb).xSize
       xch2=mousex()>=xmn and mousex()<=xmx
       ymn=Btn(wb).yPos+Win(wc).yPos
       ymx=ymn+Btn(wb).ySize
       ych2=mousey()>=ymn and mousey()<=ymx
       if xch2 AND ych2 AND file exist("Menu/"+Btn(wb).Img$+"2.bmp")=1
         load image "Menu/"+Btn(wb).Img$+"2.bmp",cimg
       else
         load image "Menu/"+Btn(wb).Img$+".bmp",cimg
       endif
       sprite spn,Btn(wb).xPos+Win(wc).xPos,Btn(wb).yPos+Win(wc).yPos,cimg
       size sprite spn,Btn(wb).xSize,Btn(wb).ySize
       hide sprite spn
       if Btn(wb).Enabled=0
         set sprite alpha spn,128
       else
         set sprite alpha spn,255
       endif
       paste sprite spn,Btn(wb).xPos+Win(wc).xPos,Btn(wb).yPos+Win(wc).yPos
       cimg=cimg+1
       spn=spn+1
     next wb
    endif
    rem ****labels
    if Win(wc).Lbl_min>=0
     for wl=Win(wc).Lbl_min to Win(wc).Lbl_max
      Lbl(wl).sNum=spn
      sprite spn,Lbl(wl).xPos+Win(wc).xPos,Lbl(wl).yPos+Win(wc).yPos,1
      size sprite spn,Lbl(wl).xSize,Lbl(wl).ySize
      hide sprite spn
      paste sprite spn,Lbl(wl).xPos+Win(wc).xPos,Lbl(wl).yPos+Win(wc).yPos
      ink rgb(0,0,0), rgb(255,255,255)
      if Lbl(wl).Data$=""
        Lbl(wl).Data$=Lbl(wl).Name$
      endif
      set text font "Arial"
      set text size Lbl(wl).ySize
      text Lbl(wl).xPos+Win(wc).xPos,Lbl(wl).yPos+Win(wc).yPos,Lbl(wl).Data$
      set text size 15
      spn=spn+1
     next wl
    endif
  next wc
  while sprite exist(spn)
    delete sprite spn
    spn=spn+1
  endwhile
endfunction

+ Code Snippet


function show_AlWin
  load image "Menu/bkrnd.bmp",1
  load image "Menu/Close.bmp",2
  OTS=text size()
  spn=1
  for wc=0 to numWin-1
    rem ***Win
     if Win(wc).Bkrnd
       sprite spn,Win(wc).xPos,Win(wc).yPos,1
       size sprite spn,Win(wc).xSize,Win(wc).ySize
       hide sprite spn
       diff_sprite(spn, "bkrnd")
       paste sprite spn,Win(wc).xPos,Win(wc).yPos
       spn=spn+1
     else
       spn=spn+1
     endif
     if Win(wc).Top=1
       sprite spn,Win(wc).xPos,Win(wc).yPos-15,1
       size sprite spn,Win(wc).xSize,15
       hide sprite spn
       diff_sprite(spn, "White")
       paste sprite spn,Win(wc).xPos,Win(wc).yPos-15
       spn=spn+1
       cxp=Win(wc).xPos+Win(wc).xSize-12
       cyp=Win(wc).yPos-12
       sprite spn,cxp,cyp,2
       size sprite spn,10,10
       hide sprite spn
       paste sprite spn,cxp,cyp
     else
       spn=spn+1
     endif
     cimg=3
    rem ****Buttons
    if Win(wc).Btn_min>=0
     for wb=Win(wc).Btn_min to Win(wc).Btn_max
       xmn=Btn(wb).xPos+Win(wc).xPos
       xmx=xmn+Btn(wb).xSize
       xch2=mousex()>=xmn and mousex()<=xmx
       ymn=Btn(wb).yPos+Win(wc).yPos
       ymx=ymn+Btn(wb).ySize
       ych2=mousey()>=ymn and mousey()<=ymx
       if xch2 AND ych2 AND file exist("Menu/"+Btn(wb).Img$+"2.bmp")=1
         load image "Menu/"+Btn(wb).Img$+"2.bmp",cimg
       else
         load image "Menu/"+Btn(wb).Img$+".bmp",cimg
       endif
       sprite spn,Btn(wb).xPos+Win(wc).xPos,Btn(wb).yPos+Win(wc).yPos,cimg
       size sprite spn,Btn(wb).xSize,Btn(wb).ySize
       hide sprite spn
       if Btn(wb).Enabled=0
         set sprite alpha spn,128
       else
         set sprite alpha spn,255
       endif
       paste sprite spn,Btn(wb).xPos+Win(wc).xPos,Btn(wb).yPos+Win(wc).yPos
       cimg=cimg+1
       spn=spn+1
     next wb
    endif
    rem ****labels
    if Win(wc).Lbl_min>=0
     for wl=Win(wc).Lbl_min to Win(wc).Lbl_max
      Lbl(wl).sNum=spn
      sprite spn,Lbl(wl).xPos+Win(wc).xPos,Lbl(wl).yPos+Win(wc).yPos,1
      size sprite spn,Lbl(wl).xSize,Lbl(wl).ySize
      hide sprite spn
      paste sprite spn,Lbl(wl).xPos+Win(wc).xPos,Lbl(wl).yPos+Win(wc).yPos
      ink rgb(0,0,0), rgb(255,255,255)
      if Lbl(wl).Data$=""
        Lbl(wl).Data$=Lbl(wl).Name$
      endif
      set text font "Arial"
      set text size Lbl(wl).ySize
      text Lbl(wl).xPos+Win(wc).xPos,Lbl(wl).yPos+Win(wc).yPos,Lbl(wl).Data$
      set text size 15
      spn=spn+1
     next wl
    endif
  next wc
  while sprite exist(spn)
    delete sprite spn
    spn=spn+1
  endwhile
endfunction

no not that thechew guy again

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 26th Jan 2013 19:50

Link

What do you mean by 'refresh certain sprites'?

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 26th Jan 2013 22:50

Link

It sounds like he wants to paste a sprite once then not have to update or clear that portion of the screen. And I think in QB that would be possible, but not in DB.

You should be able to paste hundreds of sprites without speed issues. I think the issue lies somewhere else in your code logic and not in the drawing operations.

"You're not going crazy. You're going sane in a crazy world!" ~Tick

Back to top

Profile PM Email Website

Nytus Sermus

13

Years of Service

User Offline

Joined: 17th Jan 2013

Location:

Posted: 28th Jan 2013 05:51

Link

what thechew is talking about is the fact that he has alot of interfaces and they are all checking for mouse-over, mouse click functions and that is where the lag is, not in the sprites.
I had started a project this way using sprites, but the mouse codes just wouldnt work right for me with sprites, i ended up just using images and image commands and doing away with sprites as menu buttons.
@ TheChew: if you want to speed your program up and still use all of your graphics then i suggest you split your program up differently, call one function first that checks for the mouse moving over the buttons, once the mouse is found to be over any one certain button, the routine should end; obviously your not going to be over 2 buttons at the same time.

The second function should then check the state of an array that is linked to your buttons (telling which on is off or on (0, 1)), that way only one button has to be detected, and you can simply set the state of the onscreen images according to this array, which is much faster because only the button that is over or on will actually execute any instructions,.... just saying..

use an array like:

dim buttonstates(300) `for the number of buttons you need

Hope this helps.

You could be done already.....stop trying to re-invent the wheel.

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 28th Jan 2013 13:55

Link

There's no need to have an array that stores states. Just add a state variable to your button type. It sounds like thechew is trying to lock out sprites that don't need checking/updating. This is simply a bounds check on the parent of it's children, meaning whatever buttons extra are attached to. You first check if you are within the bounds of say a window, if you are then you only check/update the buttons extra of that window, this again being another bounds check.

But more to the point is that code you've got there, I can see many things that will slow you down incredibly, the main one being Set Text Font. That alone will kill FPS. The second one being that you keep loading the same images over and over and lastly constantly creating and deleting sprites will slow you down also.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Sprite menu syncing