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
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