Progress bar? - GameCreators Forum

Author

Message

Mugen Wizardry

User Banned

Posted: 10th Aug 2010 00:03

How do I make this progress bar say 10%,20%,30% all the way up to 100%?

Function LoadGame()
Progress("Loaded "+str$(1.0/20.0)+"%",1.0/20.0)
cls
load_images(menuImage(healthtube),menuImage(healthbarleftside),menuImage(healthbarrightside))
Progress("Loaded "+str$(2.0/20.0)+"%",2.0/20.0)
cls
load_objects()
Progress("Loaded "+str$(3.0/20.0)+"%",3.0/20.0)
cls
make mesh from object 1,Object(obj).id
Progress("Loaded "+str$(4.0/20.0)+"%",4.0/20.0)
cls
make mesh from object 2,Object(obj2).id
Progress("Loaded "+str$(5.0/20.0)+"%",5.0/20.0)
cls
make mesh from object 3,Object(obj3).id
Progress("Loaded "+str$(6.0/20.0)+"%",6.0/20.0)
cls
make vector3 1
Progress("Loaded "+str$(7.0/20.0)+"%",7.0/20.0)
sync
cls
wait 1000
set text font "MS Gothic"
set text size 10
set text to bold
EndFunction

FUNCTION Progress(t$,prog#)
prog_x=(screen width()/2)-128
prog_y=(screen height()/2)
ink rgb(255,255,255),0
center text prog_x+128,prog_y-16,t$
ink rgb(16,16,16),0
box prog_x-1,prog_y-1,prog_x+257,prog_y+17
ink rgb(255,16,16),0
box prog_x-1,prog_y-1,prog_x+1+(prog#*256),prog_y+17
sync
ENDFUNCTION

+ Code Snippet

Function LoadGame()
Progress("Loaded "+str$(1.0/20.0)+"%",1.0/20.0)
cls
load_images(menuImage(healthtube),menuImage(healthbarleftside),menuImage(healthbarrightside))
Progress("Loaded "+str$(2.0/20.0)+"%",2.0/20.0)
cls
load_objects()
Progress("Loaded "+str$(3.0/20.0)+"%",3.0/20.0)
cls
make mesh from object 1,Object(obj).id
Progress("Loaded "+str$(4.0/20.0)+"%",4.0/20.0)
cls
make mesh from object 2,Object(obj2).id
Progress("Loaded "+str$(5.0/20.0)+"%",5.0/20.0)
cls
make mesh from object 3,Object(obj3).id
Progress("Loaded "+str$(6.0/20.0)+"%",6.0/20.0)
cls
make vector3 1
Progress("Loaded "+str$(7.0/20.0)+"%",7.0/20.0)
sync
cls
wait 1000
set text font "MS Gothic"
set text size 10
set text to bold
EndFunction

FUNCTION Progress(t$,prog#)
prog_x=(screen width()/2)-128
prog_y=(screen height()/2)
ink rgb(255,255,255),0
center text prog_x+128,prog_y-16,t$
ink rgb(16,16,16),0
box prog_x-1,prog_y-1,prog_x+257,prog_y+17
ink rgb(255,16,16),0
box prog_x-1,prog_y-1,prog_x+1+(prog#*256),prog_y+17
sync
ENDFUNCTION

thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 10th Aug 2010 11:12

Link

This is a neat one by HowDo (I think):

+ Code Snippet

function bar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
	rem gradient bar
	seg = width / 3
	box x, y, x+seg, y+height, rgb(0,0,0),rgb(0,0,0),rgb(85,0,0),rgb(85,0,0)
	box x+seg, y, x+seg+seg, y+height, rgb(85,0,0),rgb(85,0,0),rgb(170,0,0),rgb(170,0,0)
	box x+seg+seg, y, x+width, y+height, rgb(170,0,0),rgb(170,0,0),rgb(255,0,0),rgb(255,0,0)
	rem empty bit
	ink rgb(92,92,92),0
	box x+width*P#, y, x+width, y+height
	rem highlight
	c1 = 0xCCFFFFFF
	c2 = 0x33FFFFFF
	box x, y, x+width, y+height*0.5, c2,c1,c2,c1
	ink rgb(255,255,255)
endfunction

Back to top

Profile PM Email

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 10th Aug 2010 16:45

Link

Maybe you should just play an animation or something to show it hasn't crashed, but surely printing stuff to the screen and working out calculations and stuff whilst loading will only slow the process down?

Unless i'm wrong, in which case just ignore me.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

19

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 10th Aug 2010 16:57

Link

It's slower for sure but you're only running this once every time you load something (maximum).

Try this:

sync on
sync rate 0

t=timer()+10000

while timer()<t
	cls
	inc count
	bar(0,100,100,5,100)
	print "With Bar count:",count
	sync
endwhile

t=timer()+10000

while timer()<t
	cls
	inc count2
	print "With Bar count:",count
	print "Without Bar count:",count2
	sync
endwhile

while keystate(28)=0
	cls
	print "With Bar count:",count
	print "Without Bar count:",count2
	sync
endwhile

function bar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
        rem gradient bar
        seg = width / 3
        box x, y, x+seg, y+height, rgb(0,0,0),rgb(0,0,0),rgb(85,0,0),rgb(85,0,0)
        box x+seg, y, x+seg+seg, y+height, rgb(85,0,0),rgb(85,0,0),rgb(170,0,0),rgb(170,0,0)
        box x+seg+seg, y, x+width, y+height, rgb(170,0,0),rgb(170,0,0),rgb(255,0,0),rgb(255,0,0)
        rem empty bit
        ink rgb(92,92,92),0
        box x+width*P#, y, x+width, y+height
        rem highlight
        c1 = 0xCCFFFFFF
        c2 = 0x33FFFFFF
        box x, y, x+width, y+height*0.5, c2,c1,c2,c1
        ink rgb(255,255,255)
endfunction

+ Code Snippet

sync on
sync rate 0

t=timer()+10000

while timer()<t
	cls
	inc count
	bar(0,100,100,5,100)
	print "With Bar count:",count
	sync
endwhile

t=timer()+10000

while timer()<t
	cls
	inc count2
	print "With Bar count:",count
	print "Without Bar count:",count2
	sync
endwhile

while keystate(28)=0
	cls
	print "With Bar count:",count
	print "Without Bar count:",count2
	sync
endwhile

function bar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
        rem gradient bar
        seg = width / 3
        box x, y, x+seg, y+height, rgb(0,0,0),rgb(0,0,0),rgb(85,0,0),rgb(85,0,0)
        box x+seg, y, x+seg+seg, y+height, rgb(85,0,0),rgb(85,0,0),rgb(170,0,0),rgb(170,0,0)
        box x+seg+seg, y, x+width, y+height, rgb(170,0,0),rgb(170,0,0),rgb(255,0,0),rgb(255,0,0)
        rem empty bit
        ink rgb(92,92,92),0
        box x+width*P#, y, x+width, y+height
        rem highlight
        c1 = 0xCCFFFFFF
        c2 = 0x33FFFFFF
        box x, y, x+width, y+height*0.5, c2,c1,c2,c1
        ink rgb(255,255,255)
endfunction

I get it running 4000 odd times in ten seconds with the bar and over 6000 without. Basically about 30% slower but it's only run once between loads (vertually unnoticeable).

Back to top

Profile PM Email

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 10th Aug 2010 17:40

Link

I've made this it will sort of work but I cannot see why the bar does not update right, if I make the end 100 a 1000 the I get something but not a full line.

if anyone wants to look at this bit

P# = (loadingcount/loadingtotal*100.0)*width/100.0

it should move the bar along.

I think I must have something wrong but not sure what, it supposes to say the value of loadingcount(inc 1 to loadingtotal)loadingtotal of 1 to whatever, set to the width of the bar, so if you had 3 items to load it would be (1/3*100)*400/100
400 being the width of the bar.

Rem Created: Tuesday, August 10, 2010
rem star loading bar
autocam off
sync on
backdrop on
x=200
y=300
width=400
height=15

global count=1
global total=3
id=1
`repeat
wait 4000
sync

bar(x, y, width, height,18,"cube1.dbo","",id,0,count,total )
sync
inc count,1
inc id
wait 1000
bar(x, y, width, height,18,"sphere1.dbo","",id,0,count,total )
sync
inc count,1
inc id
wait 1000
bar(x, y, width, height,18,"cube1.dbo","",id,0,count,total )
sync
print "done"
wait key
`until spacekey()=1
end
function bar(x, y, width as float, height,filetype,filename as string,filename2 as string, idnumber,id2number,loadingcount as float,loadingTotal as float )
select filetype
case 1: load 3dsound filename,idnumber : endcase
case 2: load animation filename,idnumber : endcase
rem case 3: load array filename, filename2  : endcase
rem case 4: load array from datafile filename, idnumber  : endcase
rem case 5: load arrayptr from datafile filename,idnumber :endcase
case 6: load bitmap filename, idnumber :endcase 
case 7: load bsp filename,filename2 :endcase 
rem case 8: load camera effect filename,idnumber :endcase 
case 9: load cdmusic idnumber,id2number :endcase 
rem case 10: load cloth state filename,idnumber :endcase
case 11: load dll filename,idnumber :endcase
case 12: load dvd animation idnumber :endcase
rem case 13: load effect filename,idnumber,id2number :endcase
rem case 14: load icon (filename) :endcase
case 15: load image filename,idnumber :endcase
case 16: load mesh filename,idnumber :endcase
case 17: load music filename,idnumber :endcase
case 18: load object filename,idnumber :endcase
rem case 19: load sound filename,idnumber :endcase
rem case 20: load static objects filename,idnumber :endcase
rem case 21: load terrain filename,idnumber :endcase
case default : endcase 
endselect
text 0,0,str$(loadingcount)
rem pp#=(volume/12*100)*barsize_x/100
    P# = (loadingcount/loadingtotal*100.0)*width/100.0
    text 0,20,str$(p#)

if P#<0.0 then P#=0.0
        rem gradient bar
        seg = width / 3
        box x, y, x+seg, y+height, rgb(0,0,0),rgb(0,0,0),rgb(85,0,0),rgb(85,0,0)
        box x+seg, y, x+seg+seg, y+height, rgb(85,0,0),rgb(85,0,0),rgb(170,0,0),rgb(170,0,0)
        box x+seg+seg, y, x+width, y+height, rgb(170,0,0),rgb(170,0,0),rgb(255,0,0),rgb(255,0,0)
        rem empty bit
        ink rgb(92,92,92),0
        box x+width*P#, y, x+width, y+height
        rem highlight
        c1 = 0xCCFFFFFF
        c2 = 0x33FFFFFF
        box x, y, x+width, y+height*0.5, c2,c1,c2,c1
        ink rgb(255,255,255)
endfunction

+ Code Snippet

Rem Created: Tuesday, August 10, 2010
rem star loading bar
autocam off
sync on
backdrop on
x=200
y=300
width=400
height=15

global count=1
global total=3
id=1
`repeat
wait 4000
sync

bar(x, y, width, height,18,"cube1.dbo","",id,0,count,total )
sync
inc count,1
inc id
wait 1000
bar(x, y, width, height,18,"sphere1.dbo","",id,0,count,total )
sync
inc count,1
inc id
wait 1000
bar(x, y, width, height,18,"cube1.dbo","",id,0,count,total )
sync
print "done"
wait key
`until spacekey()=1
end
function bar(x, y, width as float, height,filetype,filename as string,filename2 as string, idnumber,id2number,loadingcount as float,loadingTotal as float )
select filetype
case 1: load 3dsound filename,idnumber : endcase
case 2: load animation filename,idnumber : endcase
rem case 3: load array filename, filename2  : endcase
rem case 4: load array from datafile filename, idnumber  : endcase
rem case 5: load arrayptr from datafile filename,idnumber :endcase
case 6: load bitmap filename, idnumber :endcase 
case 7: load bsp filename,filename2 :endcase 
rem case 8: load camera effect filename,idnumber :endcase 
case 9: load cdmusic idnumber,id2number :endcase 
rem case 10: load cloth state filename,idnumber :endcase
case 11: load dll filename,idnumber :endcase
case 12: load dvd animation idnumber :endcase
rem case 13: load effect filename,idnumber,id2number :endcase
rem case 14: load icon (filename) :endcase
case 15: load image filename,idnumber :endcase
case 16: load mesh filename,idnumber :endcase
case 17: load music filename,idnumber :endcase
case 18: load object filename,idnumber :endcase
rem case 19: load sound filename,idnumber :endcase
rem case 20: load static objects filename,idnumber :endcase
rem case 21: load terrain filename,idnumber :endcase
case default : endcase 
endselect
text 0,0,str$(loadingcount)
rem pp#=(volume/12*100)*barsize_x/100
    P# = (loadingcount/loadingtotal*100.0)*width/100.0
    text 0,20,str$(p#)

    if P#<0.0 then P#=0.0
        rem gradient bar
        seg = width / 3
        box x, y, x+seg, y+height, rgb(0,0,0),rgb(0,0,0),rgb(85,0,0),rgb(85,0,0)
        box x+seg, y, x+seg+seg, y+height, rgb(85,0,0),rgb(85,0,0),rgb(170,0,0),rgb(170,0,0)
        box x+seg+seg, y, x+width, y+height, rgb(170,0,0),rgb(170,0,0),rgb(255,0,0),rgb(255,0,0)
        rem empty bit
        ink rgb(92,92,92),0
        box x+width*P#, y, x+width, y+height
        rem highlight
        c1 = 0xCCFFFFFF
        c2 = 0x33FFFFFF
        box x, y, x+width, y+height*0.5, c2,c1,c2,c1
        ink rgb(255,255,255)
endfunction

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Progress bar?