Need help with experience bar - GameCreators Forum

Author

Message

Red Rain

15

Years of Service

User Offline

Joined: 28th Aug 2009

Location:

Posted: 26th Jan 2010 18:05

Link

I'm working on a Role Player Game which of all of you know needs to include an experience point gaudge to level up your character, right? I've made my gaudge sprite and a box text to incress the length when the character gains experience. But when the character levels up to 2, needing more experience to level up again. The box text exceeds longer then my sprite gaudge. How do I stop it from doing this from going beyong my gaudge?

Back to top

Profile PM

Teh Stone

14

Years of Service

User Offline

Joined: 12th Dec 2009

Location:

Posted: 26th Jan 2010 18:44

Link

Post code I'll try to help

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 26th Jan 2010 20:13

Link

Have a look at this link, might be what you are after in the code it show how to keep a bar at x length but the value you are using is bigger than the bars length.

http://forum.thegamecreators.com/?m=forum_view&t=161256&b=6

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Red Rain

15

Years of Service

User Offline

Joined: 28th Aug 2009

Location:

Posted: 27th Jan 2010 04:07

Link

Here's my coding so far. It's pretty much all in text just to make things easyier

set display mode 1024,768,32
backdrop on : color backdrop 0

set text font "times new roman" : set text size 16
set text transparent

sync on : sync rate 20

gosub Setup

do
 gosub Control_Exp
 gosub Control_Stats
 sync
loop
`----------------------------------------------------------------------------------------
Control_Exp:
if returnkey()=1 then inc Experience,1
 if Experience = ExpA then Lvl=1
return
`----------------------------------------------------------------------------------------
Control_Stats:
center text 512,50,"Press RETURN-KEY to increase Experience Bar"
line 400,123,651,123 : line 400,133,651,133
line 399,123,399,134 : line 650,123,650,134

rem make the exp bar
Text 375,121,"Xp:" : Exp$=" "+str$(Experience)+" / "+str$(ExpA)
box 400,124,Experience+400,133,rgb(0,0,200),rgb(0,0,200),rgb(0,0,200),rgb(0,0,200)
text 490,105,Exp$

rem display character lvl
text 375,105,"Lv: " : Lvl$=" "+str$(Lvl) : text 395,105,Lvl$
return
`----------------------------------------------------------------------------------------
Setup:
rem stats
Lvl=0
Experience=0
ExpA=250
return

+ Code Snippet

set display mode 1024,768,32
backdrop on : color backdrop 0

set text font "times new roman" : set text size 16
set text transparent

sync on : sync rate 20

gosub Setup

do
 gosub Control_Exp
 gosub Control_Stats
 sync
loop
`----------------------------------------------------------------------------------------
Control_Exp:
if returnkey()=1 then inc Experience,1
 if Experience = ExpA then Lvl=1
return
`----------------------------------------------------------------------------------------
Control_Stats:
center text 512,50,"Press RETURN-KEY to increase Experience Bar"
line 400,123,651,123 : line 400,133,651,133
line 399,123,399,134 : line 650,123,650,134

rem make the exp bar
Text 375,121,"Xp:" : Exp$=" "+str$(Experience)+" / "+str$(ExpA)
box 400,124,Experience+400,133,rgb(0,0,200),rgb(0,0,200),rgb(0,0,200),rgb(0,0,200)
text 490,105,Exp$

rem display character lvl
text 375,105,"Lv: " : Lvl$=" "+str$(Lvl) : text 395,105,Lvl$
return
`----------------------------------------------------------------------------------------
Setup:
rem stats
Lvl=0
Experience=0
ExpA=250
return

Back to top

Profile PM

Red Rain

15

Years of Service

User Offline

Joined: 28th Aug 2009

Location:

Posted: 29th Jan 2010 16:00

Link

I've upgraded it some what. But still need help

+ Code Snippet

backdrop on : color backdrop 0
sync on : sync rate 20

Lvl = 0
Xp=0 : Xp1=50 : Xp2=100 : Xp3=150

do
Text 5,5,"Press RETURNKEY to increase Exp points"

Lv$="Lv: "+str$(Lvl) : text 5,20,Lv$
Xp$="Xp: "+str$(Xp)+"/"+str$(Xp1) : text 5,35,Xp$

if returnkey()=1 then inc Xp

if Xp = Xp1
 gosub LevelUp
endif

if Xp = Xp2
 gosub LevelUp2
endif

sync
loop

LevelUp:
 Lvl = Lvl+1
  dec Xp,Xp1
 Xp1 = Xp2
return

LevelUp2:
 Lvl = Lvl + 1
  dec Xp,Xp2
return

Back to top

Profile PM

CodeCriminal

14

Years of Service

User Offline

Joined: 29th Jan 2010

Location:

Posted: 30th Jan 2010 03:27

Link

Think percentages, instead of having the gauge measured by the actual XP gained, do something like this

( CurrentXp / NextLvlXp ) * HealthBarWidth

then no mater what amount of XP is needed the bar should never exeed its 'container'

PS: i hope i understood your problem correctly, your last update didnt have any 'sprite' drawing of any kind... then again i wouldnt really know, im new to darkbasic (using it at college) im a C++ programmer myself

Back to top

Profile PM

NightX

15

Years of Service

User Offline

Joined: 3rd Apr 2009

Location: Australia, QueensLand

Posted: 11th Feb 2010 13:46

Link

i edited your code, i would make it different but for the sake of it, here u go -

set display mode 1024,768,32
backdrop on : color backdrop 0

set text font "times new roman" : set text size 16
set text transparent

sync on : sync rate 20

gosub Setup

do
 gosub Control_Exp
 gosub Control_Stats
 sync
loop
`----------------------------------------------------------------------------------------
Control_Exp:
if returnkey()=1 then inc Experience,1
 ` if its ** "BIGGER" OR EQUAL ** than ExpA, then inc level and set experience to 0
 if Experience >= ExpA 
    Inc Lvl
    Experience = 0
 endif 
return
`----------------------------------------------------------------------------------------
Control_Stats:
center text 512,50,"Press RETURN-KEY to increase Experience Bar"
line 400,123,651,123 : line 400,133,651,133
line 399,123,399,134 : line 650,123,650,134

rem make the exp bar
Text 375,121,"Xp:" : Exp$=" "+str$(Experience)+" / "+str$(ExpA)
box 400,124,Experience+400,133,rgb(0,0,200),rgb(0,0,200),rgb(0,0,200),rgb(0,0,200)
text 490,105,Exp$

rem display character lvl
text 375,105,"Lv: " : Lvl$=" "+str$(Lvl) : text 395,105,Lvl$
return
`----------------------------------------------------------------------------------------
Setup:
rem stats
Lvl=0
Experience=0
ExpA=250
return

+ Code Snippet

set display mode 1024,768,32
backdrop on : color backdrop 0

set text font "times new roman" : set text size 16
set text transparent

sync on : sync rate 20

gosub Setup

do
 gosub Control_Exp
 gosub Control_Stats
 sync
loop
`----------------------------------------------------------------------------------------
Control_Exp:
if returnkey()=1 then inc Experience,1
 ` if its ** "BIGGER" OR EQUAL ** than ExpA, then inc level and set experience to 0
 if Experience >= ExpA 
    Inc Lvl
    Experience = 0
 endif 
return
`----------------------------------------------------------------------------------------
Control_Stats:
center text 512,50,"Press RETURN-KEY to increase Experience Bar"
line 400,123,651,123 : line 400,133,651,133
line 399,123,399,134 : line 650,123,650,134

rem make the exp bar
Text 375,121,"Xp:" : Exp$=" "+str$(Experience)+" / "+str$(ExpA)
box 400,124,Experience+400,133,rgb(0,0,200),rgb(0,0,200),rgb(0,0,200),rgb(0,0,200)
text 490,105,Exp$

rem display character lvl
text 375,105,"Lv: " : Lvl$=" "+str$(Lvl) : text 395,105,Lvl$
return
`----------------------------------------------------------------------------------------
Setup:
rem stats
Lvl=0
Experience=0
ExpA=250
return

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th Feb 2010 14:41

Link

A little bit different.

backdrop on : color backdrop 0

set text font "times new roman" : set text size 16
set text transparent

sync on : sync rate 20

gosub Setup
color=255
a=0
b=0
do
 gosub Control_Exp
 gosub Control_Stats
 sync
loop
`----------------------------------------------------------------------------------------
Control_Exp:
if returnkey()=1 then inc Experience,1
 ` if its ** "BIGGER" OR EQUAL ** than ExpA, then inc level and set experience to 0
 if Experience >= ExpA
    Inc Lvl
    Experience = 0
 endif
return
`----------------------------------------------------------------------------------------
Control_Stats:

center text 512,50,"Press RETURN-KEY to increase Experience Bar"
line 400,123,651,123 : line 400,133,651,133
line 399,123,399,134 : line 650,123,650,134

rem make the exp bar
Text 375,121,"Xp:" : Exp$=" "+str$(Experience)+" / "+str$(ExpA)
ink rgb(0,0,255),1
if lvl=1 then ink rgb(255,255,0),1
if lvl=2 then ink rgb(255,0,0),1
if lvl=3 then ink rgb(0,255,0),1
box 400,124,Experience+400,133
ink rgb(255,255,255),1
text 490,105,Exp$

rem display character lvl
text 375,105,"Lv: " : Lvl$=" "+str$(Lvl) : text 395,105,Lvl$
return
`----------------------------------------------------------------------------------------
Setup:
rem stats
Lvl=0
Experience=0
ExpA=250
return

+ Code Snippet

backdrop on : color backdrop 0

set text font "times new roman" : set text size 16
set text transparent

sync on : sync rate 20

gosub Setup
color=255
a=0
b=0
do
 gosub Control_Exp
 gosub Control_Stats
 sync
loop
`----------------------------------------------------------------------------------------
Control_Exp:
if returnkey()=1 then inc Experience,1
 ` if its ** "BIGGER" OR EQUAL ** than ExpA, then inc level and set experience to 0
 if Experience >= ExpA
    Inc Lvl
    Experience = 0
 endif
return
`----------------------------------------------------------------------------------------
Control_Stats:



center text 512,50,"Press RETURN-KEY to increase Experience Bar"
line 400,123,651,123 : line 400,133,651,133
line 399,123,399,134 : line 650,123,650,134

rem make the exp bar
Text 375,121,"Xp:" : Exp$=" "+str$(Experience)+" / "+str$(ExpA)
ink rgb(0,0,255),1
if lvl=1 then ink rgb(255,255,0),1
if lvl=2 then ink rgb(255,0,0),1
if lvl=3 then ink rgb(0,255,0),1
box 400,124,Experience+400,133
ink rgb(255,255,255),1
text 490,105,Exp$

rem display character lvl
text 375,105,"Lv: " : Lvl$=" "+str$(Lvl) : text 395,105,Lvl$
return
`----------------------------------------------------------------------------------------
Setup:
rem stats
Lvl=0
Experience=0
ExpA=250
return

cheers.

learning every day

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Need help with experience bar