Sorry your browser is not supported!

_Setup_Character:
   charht#=300
   spd#=6
   Money#=5000
   Food#=100
   Bladder#=100
   foodsecond#=200
   Bladdersecond#=250
Return

_Control_Characterstuff:
   Rem Check food stuff
   dec foodsecond#
   if foodsecond#<0
      dec food#
      foodsecond#=200
   endif
      If food#>101 then food#=100
return

Scale sprite food#

REMSTART
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   How To Make Stastic Bars
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Statistic bars require 3 variables: minimum value, maximum value and current value.
Statistic bars do not require the use of an image (simple lines are fine) but for this example we will use one.
REMEND

`* Making the Stat Bar Image *
remstart
There are two methods of using statistic bar images: Cutting and Stretching.
_CUTTING
If we want a fancy bar that looks different all along its length we will have to draw the entire bar and then
cut the right percentage from the image to be displayed in the game.
_STRETCHING
If our bar looks the same along the entirety of its length, we only need to make 1% of the bar and then
stretch it to the right percentage.
For this example we will use a stretching bar.
remend
ink rgb(0,255,0),0
line 0,0,0,10
ink rgb(0,191,0),0
dot 0,9
ink rgb(0,128,0),0
dot 0,10
ink rgb(255,255,255),0
dot 0,1

get image 1,0,0,1,11

cls 255

line 200,190,200,200
line 300,190,300,200
set text size 7
center text 200,180,"0%"
center text 300,180,"100%"

sprite 1,201,201,1

sync on

rem 100% on the bar is 10,000% of the images original length
rem in a game x would be replaced by the statistic variable
for x = 0 to 100
   stretch sprite 1,100*x,100
   sync
   wait 40
next x

REMSTART
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   How To Make Stastic Bars
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Statistic bars require 3 variables: minimum value, maximum value and current value.
Statistic bars do not require the use of an image (simple lines are fine) but for this example we will use one.
REMEND

`* Making the Stat Bar Image *
remstart
There are two methods of using statistic bar images: Cutting and Stretching.
_CUTTING
If we want a fancy bar that looks different all along its length we will have to draw the entire bar and then
cut the right percentage from the image to be displayed in the game.
_STRETCHING
If our bar looks the same along the entirety of its length, we only need to make 1% of the bar and then
stretch it to the right percentage.
For this example we will use a stretching bar.
remend
hide mouse
sync on

ink rgb(0,255,0),0
line 0,0,0,10
ink rgb(0,191,0),0
dot 0,9
ink rgb(0,128,0),0
dot 0,10
ink rgb(255,255,255),0
dot 0,1
get image 1,0,0,1,11
sprite 1,201,201,1
cls

white = rgb(255,255,255)
gold = rgb(255,220,0)

stat=0
target=100 : j=-10

DO
   if stat<>target
      stat=stat+(target>stat)*2-1
   else
      target=rnd(100)
      `little text positioning
      if target<20 or target>80 then j=-10 else j=0
   endif

   cls 255
   ink white,0
   line 200,190,200,200
   line 300,190,300,200
   set text size 7
   center text 200,180,"0%"
   center text 300,180,"100%"
   ink gold,0
   line 200+target,190+j,200+target,200
   center text 200+target,180+j,str$(target)+"%"
   stretch sprite 1,100*stat,100
   sync
LOOP

#Include "ProgBarFunc.dba"
Set Display Mode 800,600,16
Set Text Opaque
Sync On
Randomize Timer()

Rem Countdown Timer Example Function Style 0 (Std Horiz)
Center Text 400,0,"Countdown Timer Example Function Style 0 (Std Horiz)"
Seconds=5
Text 200,100,"Time"
Sync
Rem          X    Y   Wid  Hig  Min  Max   Prog Bord Style  R  G B
Progressbar(240, 102, 200, 10,  0.0, 30.0,  30,  1,   0,   255,0,0)
T=Timer()
Repeat
  Elapsed=(Timer()-T)/1000
  TimeLeft=Seconds-Elapsed
  Progressbar(240,102,200,10,0.0,30.0,TimeLeft,1,0,255,0,0)
  Ink RGB(255,255,255),0
  Text 450,100,Str$(TimeLeft)+"    "
  Sync
Until TimeLeft=0
Center Text 400,580,"Press Any Key For Next Example"
Suspend For Key
CLS

Rem Power Meter Example Function Style 1 (Percentage Horiz)
Center Text 400,0,"Power Meter Example Function Style 1 (Percentage Horiz)"
Set Cursor 100,400: Input " Required Percentage: ";Percentage
Text 190,100,"Power"
Sync
Rem          X    Y   Wid  Hig  Min  Max   Progress%  Bord Style  R  G  B
Progressbar(240, 102, 200, 10,  0.0, 100.0,Percentage,  1,   1,   0,255,0)
Ink RGB(255,255,255),0
Text 450,100,Str$(Percentage)+"%"
Center Text 400,580,"Press Any Key For Next Example"
Suspend For Key
CLS

Rem Timer Example Function Style 2 (Std Vertical)
Center Text 400,0,"Timer Example Function Style 2 (Std Vertical)"
Seconds=30
Text 230,310,"Timer"
Sync
Rem          X    Y   Wid  Hig  Min  Max   Progress  Bord Style  R   G   B
Progressbar(240, 102, 20,  200, 0.0, 100.0,    0,       1,   2,  100, 0, 255)
T=Timer()
Repeat
  Elapsed=(Timer()-T)/1000
  Progressbar(240,102,20,200,0.0,30.0,Elapsed,1,2,100,0,255)
  Ink RGB(255,255,255),0
  Text 242,80,Str$(Elapsed)
  Sync
Until Elapsed=30
Center Text 400,580,"Press Any Key For Next Example"
Suspend For Key
CLS

Rem Timer Example Function Style 3 (Percentage Vertical)
Ink RGB(255,255,255),0
Center Text 400,0,"Timer Example Function Style 3 (Percentage Vertical)"
Energy=75
Ink RGB(255,255,255),0
Text 230,310,"Energy"
Text 242,80,Str$(Energy)
Ink RGB(255,0,255),0
Text 300,80,"Press A Key To Do Battle..."
Sync
Rem          X    Y   Wid  Hig  Min   Max   Progress  Bord Style  R    G  B
Progressbar(240, 102, 20,  200, 0.0, 100.0,    75,      1,   2,  255, 255,0)
T=Timer()
Repeat
  Suspend For Key
  Hit=Rnd(3)
  OldEnergy=Energy
  If Hit=0
    Ink RGB(0,255,0),0
    Text 300,100,"He Misses! You Recover a Little Energy.    "
    Inc Energy,10
  Endif
  If Hit=1
    Ink RGB(255,255,0),0
    Text 300,100,"A Glancing Blow...                                       "
    Dec Energy,10
  Endif
  If Hit=2
    Ink RGB(255,155,0),0
    Text 300,100,"Ooh That Must Have Hurt!                                 "
    Dec Energy,20
  Endif
  If Hit=3
    Ink RGB(255,0,0),0
    Text 300,100,"Arrrgh! Bang On Target!!                                 "
    Dec Energy,30
  Endif
  If Energy<0 Then Energy=0
  If Energy>100 Then Energy=100
  Text 242,80,Str$(Energy)
  If OldEnergy>Energy
    For N=OldEnergy to Energy step-1
      Progressbar(240,102,20,200,0.0,100.0,N,1,2,255,255,0)
      Ink RGB(255,255,255),0
      Text 242,80,Str$(N)
      Sync
    Next N
  Else
    For N=OldEnergy to Energy
      Progressbar(240,102,20,200,0.0,100.0,N,1,2,255,255,0)
      Ink RGB(255,255,255),0
      Text 242,80,Str$(N)
      Sync
    Next N
  Endif
  Sleep 1000
  Text 300,100,"                                                                           "
Until Energy<=0

Ink RGB(0,0,255),0
Text 300,100,"You died....                                 "
Ink RGB(255,255,255),0: Center Text 400,580,"Press Any Key To Exit Demo"
Suspend For Key
CLS

REMSTART
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   How To Make Stastic Bars
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Statistic bars require 3 variables: minimum value, maximum value and current value.
Statistic bars do not require the use of an image (simple lines are fine) but for this example we will use one.
REMEND

`* Making the Stat Bar Image *
remstart
There are two methods of using statistic bar images: Cutting and Stretching.
_CUTTING
If we want a fancy bar that looks different all along its length we will have to draw the entire bar and then
cut the right percentage from the image to be displayed in the game.
_STRETCHING
If our bar looks the same along the entirety of its length, we only need to make 1% of the bar and then
stretch it to the right percentage.
For this example we will use a stretching bar.
remend
hide mouse
sync on

`Stretching Image (1%)
ink rgb(0,255,0),0
line 0,0,0,10
ink rgb(0,191,0),0
dot 0,9
ink rgb(0,128,0),0
dot 0,10
ink rgb(255,255,255),0
dot 0,1
get image 1,0,0,1,11
sprite 1,201,201,1
cls

`Cutting Image (100%)
create bitmap 1,101,11

for s = 1 to 100
   r=s*2.55 : b=255-r
   ink rgb(r,0,b),0
   line s-1,0,s-1,10
   ink rgb(r*.75,0,b*.75),0
   dot s-1,9
   ink rgb(r*.5,0,b*.5),0
   dot s-1,10
   ink rgb(255,255,255),0
   dot s-1,1
next s
set current bitmap 0
cls

white = rgb(255,255,255)
gold = rgb(255,220,0)

stat=0
target=100 : j=-10

DO
   if stat<>target
      stat=stat+(target>stat)*2-1
   else
      target=rnd(100)
      `little text positioning
      if target<20 or target>80 then j=-10 else j=0
   endif

   cls 420
   ink white,0
   line 200,190,200,200
   line 300,190,300,200
   set text size 7
   center text 200,180,"0%"
   center text 300,180,"100%"
   ink gold,0
   line 200+target,190+j,200+target,200
   center text 200+target,180+j,str$(target)+"%"
   `stretching sprite
   stretch sprite 1,100*stat,100
   `cutting sprite
   set current bitmap 1
   if stat>0 then get image 2,0,0,stat,11
   set current bitmap 0
   if stat>0 then paste image 2,201,212
   sync
LOOP