Removing text? Simple or what? - GameCreators Forum

Author

Message

JJJ0han

16

Years of Service

User Offline

Joined: 4th Oct 2007

Location: Brisbane, Australia

Posted: 6th Oct 2007 06:28

Link

This question is making me feel kinda stupid for asking due to the simplicity, but anyway, I've been looking for a way to remove text.

I've got a load screen, and I need a way to update the percentage text without using a loop. I've tried using a "for" command, but all it's doing writing the text over the old one instead of replacing it.

Is there anyway to replace or remove text? I've tried doing a search but my search results are clogged with "texture"

.

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 6th Oct 2007 12:38 Edited at: 6th Oct 2007 12:39

Link

Simple? Yes.

You can't 'undraw' something, but you can draw over it again with what you previously had in that position.

One way is to simply redisplay the whole background again, but then you need to redraw everything else that you need to keep displayed.

If you don't want to do a full redraw each time, then use GET IMAGE once at the start for the area you want to write to, then PASTE IMAGE back to the same area just before you write the new text.

This example shows the second method:

+ Code Snippet

sync on
sync rate 30

` Draw the background
for i = 1 to 1000
   Width = rnd(59)+1
   Height = rnd(59)+1
   x = rnd(640 - Width)
   y = rnd(480 - Height)
   Colour = rgb(rnd(255), rnd(255), rnd(255))
   box x, y, x + Width, y + Height, Colour, Colour, Colour, Colour
next

` Grab the area where the text will be drawn
get image 1, 300, 251, 340, 270, 1

Percentage = 0
while Percentage < 100

   if spacekey() then inc Percentage

   ` Draw the progress bar
   Colour = rgb(0, 0, 0)
   box 218, 230, 422, 250, Colour, Colour, Colour, Colour
   Colour = rgb(0, 255, 0)
   box 220, 232, 220 + (Percentage * 2), 248, Colour, Colour, Colour, Colour

   ` Remove the previous text
   paste image 1, 300, 251, 0

   ` Draw our new text
   center text 320, 251, str$(Percentage) + " %"

   sync
endwhile

Hold down the spacebar to increase the percentage.

Image = Texture, so that's why your search results were clogged. They were actually posts that you needed to read

Utility plugins collection and
http://www.matrix1.demon.co.uk for older plug-ins and example code

Back to top

Profile PM Email Website

JJJ0han

16

Years of Service

User Offline

Joined: 4th Oct 2007

Location: Brisbane, Australia

Posted: 6th Oct 2007 15:09

Link

Awesome. Now I need to figure out how to make to make the progress bar show the progress depending on everything it has loaded

.

And maybe a "loading blahblahblah" (objects for example) thing, but I'll just add another line for that.

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 6th Oct 2007 15:54

Link

Simple method - count the files and calculate the percentage:

(Number of files loaded + 0.0) / (Total number of files) * 100.0

Utility plugins collection and
http://www.matrix1.demon.co.uk for older plug-ins and example code

Back to top

Profile PM Email Website

JJJ0han

16

Years of Service

User Offline

Joined: 4th Oct 2007

Location: Brisbane, Australia

Posted: 7th Oct 2007 03:43

Link

I'm getting a bit lost now.

I've managed to get the content loading, but how exactly do I count the files so it uses that in the percentage bar?

Here's the loading code I have, excuse the mess:

Percentage = 0
while Percentage < 100

if spacekey() then inc Percentage

` Draw the progress bar
   Colour = rgb(50, 0, 0)
   box 300, 293, 500, 309, Colour, Colour, Colour, Colour
   Colour = rgb(20, 20, 20)
   box 280, 100, 525, 550, Colour, Colour, Colour, Colour
   Colour = rgb(0, 255, 0)

box 300, 293, 300 + (Percentage * 2), 309, Colour, Colour, Colour, Colour

` Remove the previous text
   paste image 1, 300, 251, 0

` Draw our new text
   center text screen width()/2,screen height()/2-70,"UNNAMED"
   center text screen width()/2,screen height()/2-8,"LOADING"
   center text screen width()/2,screen height()/2-50,"Made By Johan Rensenbrink"
   center text screen width()/2,screen height()/2-28, str$(Percentage) + " %"

if percentage=5
   center text screen width()/2,screen height()/2+50,"Loading Images..."
 FireImg=3 : load image "images\fire.bmp",FireImg
 CrossHairImg=2 : load image "images\crosshair.bmp",CrossHairImg
   endif
   if percentage>5
   center text screen width()/2,screen height()/2+50,"Loading Images..."
   endif
   if percentage>30
   center text screen width()/2,screen height()/2+70,"Images Loaded"
   endif
   if percentage=35
   center text screen width()/2,screen height()/2+110,"Loading Sounds..."
 GunFire=1 : load sound "sounds\gun\fire.wav",GunFire
 GunClipIn=2 : load sound "sounds\gun\clipin.wav",GunClipIn
 GunClipOut=3 : load sound "sounds\gun\clipout.wav",GunClipOut
 GunEmpty=4 : load sound "sounds\gun\empty.wav",GunEmpty
 ImpactSnd=5 : load 3dsound "sounds\impact.wav",ImpactSnd
 DieSnd=6 : load sound "sounds\die.wav",DieSnd
   endif
   if percentage>35
   center text screen width()/2,screen height()/2+110,"Loading Sounds..."
   endif
   if percentage>70
   center text screen width()/2,screen height()/2+130,"Sounds Loaded"
   endif
   if percentage=75
   center text screen width()/2,screen height()/2+170,"Loading Remaining Content..."
   endif
speed#=0
radius# = 7.0
gravity# = -0.1
slope# = 0.5
ground = 1
jumptimer = 0
sprint = 1000
health = 100
ammo = 30
maxammo = 30
clips = 5
maxclips = 5
reload=0
third=0
time#=0
delay_fire=delay_fire_max
delay_reload=-1
delay_empty=delay_empty_max
   if percentage>75
   center text screen width()/2,screen height()/2+170,"Loading Remaining Content..."
   endif
   sync
endwhile

+ Code Snippet

Percentage = 0
while Percentage < 100

   if spacekey() then inc Percentage

   ` Draw the progress bar
   Colour = rgb(50, 0, 0)
   box 300, 293, 500, 309, Colour, Colour, Colour, Colour
   Colour = rgb(20, 20, 20)
   box 280, 100, 525, 550, Colour, Colour, Colour, Colour
   Colour = rgb(0, 255, 0)

   box 300, 293, 300 + (Percentage * 2), 309, Colour, Colour, Colour, Colour

   ` Remove the previous text
   paste image 1, 300, 251, 0

   ` Draw our new text
   center text screen width()/2,screen height()/2-70,"UNNAMED"
   center text screen width()/2,screen height()/2-8,"LOADING"
   center text screen width()/2,screen height()/2-50,"Made By Johan Rensenbrink"
   center text screen width()/2,screen height()/2-28, str$(Percentage) + " %"

   if percentage=5
   center text screen width()/2,screen height()/2+50,"Loading Images..."
 FireImg=3 : load image "images\fire.bmp",FireImg
 CrossHairImg=2 : load image "images\crosshair.bmp",CrossHairImg
   endif
   if percentage>5
   center text screen width()/2,screen height()/2+50,"Loading Images..."
   endif
   if percentage>30
   center text screen width()/2,screen height()/2+70,"Images Loaded"
   endif
   if percentage=35
   center text screen width()/2,screen height()/2+110,"Loading Sounds..."
 GunFire=1 : load sound "sounds\gun\fire.wav",GunFire
 GunClipIn=2 : load sound "sounds\gun\clipin.wav",GunClipIn
 GunClipOut=3 : load sound "sounds\gun\clipout.wav",GunClipOut
 GunEmpty=4 : load sound "sounds\gun\empty.wav",GunEmpty
 ImpactSnd=5 : load 3dsound "sounds\impact.wav",ImpactSnd
 DieSnd=6 : load sound "sounds\die.wav",DieSnd
   endif
   if percentage>35
   center text screen width()/2,screen height()/2+110,"Loading Sounds..."
   endif
   if percentage>70
   center text screen width()/2,screen height()/2+130,"Sounds Loaded"
   endif
   if percentage=75
   center text screen width()/2,screen height()/2+170,"Loading Remaining Content..."
   endif
speed#=0
radius# = 7.0
gravity# = -0.1
slope# = 0.5
ground = 1
jumptimer = 0
sprint = 1000
health = 100
ammo = 30
maxammo = 30
clips = 5
maxclips = 5
reload=0
third=0
time#=0
delay_fire=delay_fire_max
delay_reload=-1
delay_empty=delay_empty_max
   if percentage>75
   center text screen width()/2,screen height()/2+170,"Loading Remaining Content..."
   endif
   sync
endwhile

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Removing text? Simple or what?