Tekstipelin "rahajärjestelmä"

[pikkuleipä]

Moi,
rekkasin täänne ihan vasta ja tämä on mun ensinmäinen viestini.
Anteeksi jos on jotenkin epäselkonen.

Eli tein tälläsen tekstipelin "rahajärjestelmän":

Code: Select all

SCREEN 800,600
Dim hinta(3)
Dim nimi$(3)
Dim tila(3)
Dim nappaimet(9)
nappaimet(1) = 79
nappaimet(2) = 80
nappaimet(3) = 81
nappaimet(4) = 75
nappaimet(5) = 76
nappaimet(6) = 77
nappaimet(7) = 71
nappaimet(8) = 72
nappaimet(9) = 73
nimi(4) = "wii"
hinta(4) = 1000
tila(4) = 2
nimi(1) = "hampurilainen"
hinta(1) = 5
tila(1) = 2
nimi(2) = "pirtelö"
hinta(2) = 2
tila(2) = 2
nimi(3) = "mehu"
hinta(3) = 2
tila(3) = 2
tm = 4
raha = 110011
shop_mode = 1
bank_mode = 1
mode = 1
valittu = 1
Repeat
     If mode = 1 Then
     Cls
     Line 0,25,800,25
     Line 195,0,195,600
     Line 0,50,800,50
          For i=1 To tm
               If valittu = i And KeyHit(28) Then 
                    If tila(i) = 2 Then
                         raha = raha - hinta(i)
                         tila(i) = 1
                    ElseIf tila(i) = 1
                         raha = raha + hinta(i)
                         tila(i) = 2
                    EndIf
               EndIf
          Next i
          Text 10,30,"kauppa:"
          For i=1 To tm
               If valittu = i Then Color cbgreen
               If tila(i) = 2 Then
                    Text 10,i*10+40,nimi(i)
                    Text 200,i*10+40,"..."
               ElseIf tila(i)=1 Then
                    Text 200,i*10+40,nimi(i)
                    Text 10,i*10+40,"..."
               Else
                    Text 200,i*10+40,"..." 
                    Text 10,i*10+40,"..."
               EndIf
               Color 255,255,255
          Next i
          Text 200,30,"reppu:"
          Text 200,10,"rahaa: " + raha + "e"
          If KeyHit(cbkeyo) Then shop_mode = 1
          If KeyHit(cbkeym) Then shop_mode = 2
          If KeyHit(cbkeyp) Then mode = 2
          If KeyHit(200) Then valittu = valittu - 1
          If KeyHit(208) Then valittu = valittu + 1
          If valittu < 1 Then valittu = 1
          If valittu > tm Then valittu = tm
     EndIf
     If mode=2 Then
          Cls
          Line 0,25,800,25
          Line 195,0,195,600
          Line 0,50,800,50
          If KeyHit(cbkeyt) Then bank_mode = 1
          If KeyHit(cbkeyn) Then bank_mode = 2
          If bank_mode = 1 Then
                For i=1 To tm
                    If valittu = i And KeyHit(28) Then 
                        If tila(i) =1 Then
                             raha = raha
                             tila(i) = 3
                        ElseIf tila(i) = 3
                             raha = raha
                             tila(i) = 1
                        EndIf
                   EndIf
                Next i
          EndIf
          Text 10,30,"reppu:"
          Text 200,30,"pankki:"
          Text 200,10,"rahaa: " + raha + "e"
          For i=1 To tm
               If valittu = i Then Color cbgreen
               If tila(i) = 1 Then
                    Text 10,i*10+40,nimi(i)
                    Text 200,i*10+40,"..."
               ElseIf tila(i) = 3 Then
                    Text 200,i*10+40,nimi(i)
                    Text 10,i*10+40,"..."
               Else
                    Text 200,i*10+40,"..." 
                    Text 10,i*10+40,"..."
               EndIf
               Color 255,255,255
          Next i
          If KeyHit(cbkeyk) Then mode = 1
          If KeyHit(200) Then valittu = valittu - 1
          If KeyHit(208) Then valittu = valittu + 1
          If valittu < 1 Then valittu = 1
          If valittu > tm Then valittu = tm
     EndIf
     DrawScreen
Forever

saa kommentoida!
EDIT:
nyt toimii taulukoilla ja navigoidaan nuoli näppäimillä ja entterillä:

ylös = valintaa siirretään ylemmäs
alas = valintaa siirretään alemmas
enter = siirtää valinnan sjaintia(esim. repusta -> pankkiin tai toiste päin)
k = kauppaan
p = pankiin

[legend]

Aika hyvä hmm...
Voisit parannella joitakin kohtia harjoituksen vuoksi, esim:
"if hampurilainen =2 then text 10,25, ... else text 10,50,.."
noi kohdat voisit tehdä näin
"text 10,hampurilainen*25,..."
Eli jos hampurilainen 1 tekstin kohta on 25, jos se on 2 tekstin kohta on 50.

EDIT: Muokkasin tekstiä todella paljon =)

[pikkuleipä]

joo, eli päivittelin tota vähän.

[KilledWhale]

Hieno systeemi, tulen varmasti käyttämään tätä monissa omissa peleissäni

[jaahas]

miten saisin ton sillai et jos rahat ei riitä silloin tulee kyltti että rahat ei riitä?
ja miten voisin tehä sillai et voi ostaa monta samaa tavaraa?

[MikkoK]

miten saisin ton sillai et jos rahat ei riitä silloin tulee kyltti että rahat ei riitä?
ja miten voisin tehä sillai et voi ostaa monta samaa tavaraa?

Code: Select all

     If rahat =< "hinta" Then
     Text 0, 0, "Rahat eivät riitä!"
     EndIf

En sittn tiedä että onko oikein. Tuon lykkäät johonkin koodissa käyn testaamassa ja edittaan jos pitää.

EDIT:

Nyt toimii. Vasempaan yläreunaan tulee teksti että rahat eivät riitä.

[jaahas]

miten saisin ton sillai et jos rahat ei riitä silloin tulee kyltti että rahat ei riitä?
ja miten voisin tehä sillai et voi ostaa monta samaa tavaraa?

Code: Select all

     If rahat =< "hinta" Then
     Text 0, 0, "Rahat eivät riitä!"
     EndIf

En sittn tiedä että onko oikein. Tuon lykkäät johonkin koodissa käyn testaamassa ja edittaan jos pitää.

EDIT:

Nyt toimii. Vasempaan yläreunaan tulee teksti että rahat eivät riitä.

ei toimi

[jaahas]

miten saisin ton sillai et jos rahat ei riitä silloin tulee kyltti että rahat ei riitä?
ja miten voisin tehä sillai et voi ostaa monta samaa tavaraa?

Code: Select all

     If rahat =< "hinta" Then
     Text 0, 0, "Rahat eivät riitä!"
     EndIf

En sittn tiedä että onko oikein. Tuon lykkäät johonkin koodissa käyn testaamassa ja edittaan jos pitää.

EDIT:

Nyt toimii. Vasempaan yläreunaan tulee teksti että rahat eivät riitä.

ei toimi

siis se pitäs olla et ei sitä voi ostaa jos rahat ei riitä ja se teksti on siel koko aja nyt pelaan cs

[Awaclus]

siis se pitäs olla et ei sitä voi ostaa jos rahat ei riitä ja se teksti on siel koko aja nyt pelaan cs

Niin aivojahan saa käyttää.

Code: Select all

If haluat_ostaa And rahat_riittää Then
    osta()
ElseIf haluat_ostaa And rahat_ei_riitä Then
    älä_osta()
EndIf

[jaahas]

siis se pitäs olla et ei sitä voi ostaa jos rahat ei riitä ja se teksti on siel koko aja nyt pelaan cs

Niin aivojahan saa käyttää.

Code: Select all

If haluat_ostaa And rahat_riittää Then
    osta()
ElseIf haluat_ostaa And rahat_ei_riitä Then
    älä_osta()
EndIf

variable "osta" can't be used like this.

[Viltzu]

And you are troll? Or just kidding? (or just s....)

Niin aivojahan saa käyttää.

1. Käytä aivojasi rekkaamiseen foorumeille
2. Käytä aivojasi tuon "osta()" funktion kanssa
3. Käytä aivojasi (sekä silmiäsi ja lukutaitoa) tuon "Funktio" sanan lukemiseen.
4. Käytä aivojasi googlaamiseen funktiosta lisää tietoa, tai cb:n manuaalista etsi tietoa.

[jaahas]

And you are troll? Or just kidding? (or just s....)

Niin aivojahan saa käyttää.

1. Käytä aivojasi rekkaamiseen foorumeille
2. Käytä aivojasi tuon "osta()" funktion kanssa
3. Käytä aivojasi (sekä silmiäsi ja lukutaitoa) tuon "Funktio" sanan lukemiseen.
4. Käytä aivojasi googlaamiseen funktiosta lisää tietoa, tai cb:n manuaalista etsi tietoa.

olen allottanu tän homman paripäivää sitte etten oo kovin hyvä viel!

[legend]

Suosittelen käymään tutoriaalit läpi. (F8 näppäin)

EDIT:

Ohjelmointi on loogista, sitten kun sen tajuaa.
(Tee jotain, kun joku on jotain.)

[jaahas]

Suosittelen käymään tutoriaalit läpi. (F8 näppäin)

EDIT:

Ohjelmointi on loogista, sitten kun sen tajuaa.
(Tee jotain, kun joku on jotain.)

käyty on

[temu92]

Vähän sama sanoa tuohon noin kuin että kouluun ei tarvitse enää mennä kun kerran siellä on käynyt. Jos et sisäistä niitä esimerkkejä eli ymmärrä mitä joka ikinen kohta esimerkistä tekee, niistä ja niiden lukemisesta ei ole mitään hyötyä.