palkki on koko ajan täynnä, jos panoksia on enemmän kuin palkin pituus niin tulee mav tai sitten palkki näyttää täydeltä! (kuten sanoin )
(Jos painat liia kaua vasenta näppäintä tulee virhe!)
No.. asiaan:
Code: Select all
Screen 500,300
c=0
maxmaara=1000
imglifebar=LoadImage("Media/life.jpg")
Repeat
If c=<0 Then c=0
Text 0,15,"Panosten määrä: "+c+"/"+maxmaara
Text 0,0,"Näytä panosten määrä prossina: "+Prosents(c,maxmaara)+"%"
If c=>maxmaara Then c=maxmaara
DrawImageBox imglifebar,10,50,0,0,Prosents(c,maxmaara)*2,26
Text 0,30,"Vähennä/lisää"+chr(34)+"panosten"+chr(34)+"määrää Ylös/alas näppäimillä."
Text 0,45,"Vähennä/lisää"+chr(34)+"panosten"+chr(34)+"maksimi määrää oikea/vasen näppäimillä"
C=c+UpKey()-DownKey()
maxmaara=maxmaara+rightkey()-leftkey(cbkeys)
DrawScreen
Forever
//Itse funktio
Function Prosents(howmuch,MaxM)
Return howmuch*100/MaxM
EndFunction
EDIT:
Offtopick: Mutta eihän tämä mikään turha asia ole, eihän?
EDIT:
2. mutta jos haluaa saada drawimage box:in toimimaan kannattaa käyttää tuota mun omaa tietääkseni.