Health, Mana ja Exp

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
mato1223
Member
Posts: 69
Joined: Sat Aug 16, 2008 12:04 pm
Location: Rääkkylä

Health, Mana ja Exp

Post by mato1223 »

Teinpä tämmösen pikku Health, Mana ja Exp palkki jutun =P

Code: Select all

Game:
SCREEN 800,600 //Asettaa ruudun kooksi x800 ja y600
ArialS = LoadFont("arial",12) //muuttuja niinkun muutama seuraavakin
ArialN = LoadFont("arial",15)
Health# = 54
Lvl# = 1
MaxHealth# = 54
Exp# = 0
MaxExp# = 250
Mana# = 50
MaxMana# = 50
Repeat    
    SetFont ArialS //Asettaa fontin
    Text 10,40,"Level:"+Lvl
    Text 10,50,"Exp:"+Exp
    If KeyHit(cbKeyReturn) Then Health = Health - 10 //Jos näppäintä Enter painetaan elkkaa menee 10 pistettä
    If KeyHit(cbKeySpace) Then Exp = Exp+10 //Jos näppäintä SpaceBar painetaan Exp nousee 10 pistettä
    If Exp = MaxExp Then Lvl = Lvl+1 : Exp = 0 //Jos Exp = MaxExp niin tulee leveli
    If KeyHit(cbKeyLcontrol) Then Mana = Mana - 10 //Jos painetaan näppäintä Vasen Control niin Manaa menee 10 pistettä
    If Lvl# = 2 Then MaxExp = 450 : MaxMana = 75 : MaxHealth = 68 //Leveli nousee ja Mana Health myös
    If Lvl# = 3 Then MaxExp = 600 : MaxMana = 125 : MaxHealth = 89 //-||-
    If Lvl# = 4 Then MaxExp = 1000 : MaxMana = 146 : MaxHealth = 109 //-||-
    If Lvl# = 5 Then MaxExp = 1500 : MaxMana = 200 : MaxHealth = 150 //-||-
    If Health<0 Then Health=0 //Jos elkkaa vähemmän kuin 0 niin elkka ei tipu
    If Mana<0 Then Mana=0 //Sama asia manalle
    If Exp>MaxExp Then Exp = MaxExp //Jos Exp enemmän kun MaxExp niin Exp on MaxExp
    Color 255,255,255 // R,G,B Värin asettelu
    Box 10,10,60,7,0 //Turhake
    Box 10,520,780,7,0 //Turhake
    Box 10,20,60,7,0 //Turhake
    Color 255,0,0
    Box 11,11,Health#/MaxHealth#*58,5,1 //Piirtää elkka laatikon
    Color 100,0,100
    Box 11,521,Exp#/MaxExp#*778,5,1 //Sama Expelle
    Color 0,0,255
    Box 11,21,Mana#/MaxMana#*58,5,1 //Sama Manalle
    Color 255,255,255
    DrawScreen
Forever
Kommentoikaa!
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 4:53 pm

Re: Health, Mana ja Exp

Post by Jani »

Muuten ehkä...
Hieman siistimistä.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
mato1223
Member
Posts: 69
Joined: Sat Aug 16, 2008 12:04 pm
Location: Rääkkylä

Re: Health, Mana ja Exp

Post by mato1223 »

Onhan siinä siistimistä! Mutta nyt olen vähän lisää saanut:

Code: Select all

Menu:
Const REUNUSTUS_X = 10
Const REUNUSTUS_Y = 4

Cursor = LoadImage("Cursor.bmp")

font = LoadFont("Tahoma", 13)
SetFont font

Global clicked

Repeat
    ShowMouse Cursor
    
    If MouseHit(1) Then clicked = True Else clicked = False

    If ClickButton(40, 100, "Start",0) Then Goto Game
    If ClickButton(40, 150, "Options", 0) Then End
    If ClickButton(40, 200, "Quit", 0) Then End

    DrawScreen
Forever



Function ClickButton(x, y, txt$, hoover = 1)
    txtwidht = TextWidth(txt$)
    txtheight = TextHeight(txt$)
    Color 192, 192, 192
    If MouseX() >= x And MouseX() <= x+txtwidth+REUNUSTUS_X*6 And MouseY() >= y And MouseY() <= y+txtheight+REUNUSTUS_Y*2 Then
        If hoover Then
            Color 152, 152, 152
        EndIf
        If clicked Then temp = True
    EndIf
    Box x, y, txtwidth+REUNUSTUS_X*6, txtheight+REUNUSTUS_Y*2, 1
    Color 95, 89, 79
    Box x, y, txtwidth+REUNUSTUS_X*6, txtheight+REUNUSTUS_Y*2, 0
    Text x+REUNUSTUS_X, y+REUNUSTUS_Y, txt$
    If temp Then Return True Else Return False
End Function

Game:
SCREEN 800,600
ArialS = LoadFont("arial",12)
ArialN = LoadFont("arial",15)
Health# = 54
Lvl# = 1
MaxHealth# = 54
Exp# = 0
MaxExp# = 250
Mana# = 50
MaxMana# = 50
Attack# = 67
Defense# = 84
Cursor = LoadImage ("Cursor.bmp")
Repeat
    ShowMouse Cursor
    SetFont ArialS
    Text 10,40,"Level:"+Lvl
    Text 10,50,"Exp:"+Exp
    Text 10,60,"Attack:"+Attack
    Text 10,70,"Defense:"+Defense
    If KeyHit(cbKeyRcontrol) Then Health = Health - 10
    If KeyHit(cbKeySpace) Then Exp = Exp+10
    If Exp = MaxExp Then Lvl = Lvl + 1 : Exp = 0 : Health = Health + 1000000 : Mana = Mana + 1000000
    If KeyHit(cbKeyLcontrol) Then Mana = Mana - 10
    
    If Lvl# = 2 Then MaxExp = 450 : MaxMana = 75 : MaxHealth = 68 : Attack = 86 : Defense = 105
    If Lvl# = 3 Then MaxExp = 600 : MaxMana = 125 : MaxHealth = 89 : Attack = 100 : Defense = 136
    If Lvl# = 4 Then MaxExp = 1000 : MaxMana = 146 : MaxHealth = 109 : Attack = 134 : Defense = 168
    If Lvl# = 5 Then MaxExp = 1500 : MaxMana = 200 : MaxHealth = 150 : Attack = 150 : Defense = 200
    If lvl# = 6 Then MaxExp = 2000 : MaxMana = 236 : MaxHealth = 173 : Attack = 187 : Defense = 248
    If lvl# = 7 Then MaxExp = 3000 : MaxMana = 259 : MaxHealth = 206 : Attack = 204 : Defense = 279
    If lvl# = 8 Then MaxExp = 4500 : MaxMana = 300 : MaxHealth = 278 : Attack = 247 : Defense = 338
    
    If Health>MaxHealth Then Health = MaxHealth
    If Mana>MaxMana Then Mana = MaxMana
    If Mana<0 Then Mana=0
    If Exp>MaxExp Then Exp = MaxExp
    Color 255,255,255
    Box 10,10,60,7,0
    Box 10,520,780,7,0
    Box 10,20,60,7,0
    Color 255,0,0
    Box 11,11,Health#/MaxHealth#*58,5,1
    Color 100,0,100 
    Box 11,521,Exp#/MaxExp#*778,5,1
    Color 0,0,255
    Box 11,21,Mana#/MaxMana#*58,5,1
    Color 255,255,255
    DrawScreen
Forever
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Health, Mana ja Exp

Post by MaGetzUb »

Polut voisi olla ihan perus esimerkkimuodossa: "Media\Cursor.Bmp".. Kun vaihdettiin suurenpaan ruutuun lykkäsipä cbrun pari Mavia ja virheilmoituksen: "cbrun.exe lakkasi toimimasta".. Mikähän mahtaa olla syy? :?
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
Post Reply