Ei onnistu noin, koska cbred yms muutetaan käännösvaiheessa kolmeksi numeroksi. Lisäksi datalistat toimivat niin heikosti, että niitä käyttämällä kusee omaan korvaansa.sankja wrote:Mitenkähän tuon värin sais pelaamaan korteille , kiitokset etuajoissa neuvosta.Code: Select all
'Tehtävä a9: 'Tee muistipeli. Käännetyt kortit on järjestetty 'ruudulle 4*4 muodostelmaan, eli yhteensä 16 korttia. 'Kortit valitaan hiirellä. Grafiikkaa kortteihin 'ei tarvitse tehdä. Riittää, että jokainen pari on erivärinen. 'Peliä pelataan hiirellä. Lopuksi peli kertoo kuinka monta 'kääntöä pelaaja joutui tekemään. 'jos parin löytää niin, pari jätetään auki ,näin peli 'helpottuu loppua kohden 'jos paria ei löydy , niin eriparit käännetään kiinni Type KORTIT Field muoto Field vari As String EndType SCREEN 600,600 Dim varit(8) As String Restore Varivakiot For i=1 To 8 varit(i)=Read() Next i 'luodaan kortti kuvana ja... img_kortti=MakeImage(3*32,6*32) DrawToImage img_kortti Box 0,0,3*32,6*32 DrawToScreen 'tehdään siitä objekti obj_kortti=MakeObject() PaintObject obj_kortti,-img_kortti ShowObject obj_kortti,OFF 'luodaan kortti-kloonit ,2 kpl samaa väriä , eli 8 paria For i=1 To 2 For j=1 To 8 k.KORTIT=New(KORTIT) k\muoto=CloneObject(obj_kortti) k\vari=varit(j) Next j Next i 'asetellaan kortit nätisti 4x4 muodostelmaan i=0:rivi=0 For k.KORTIT=Each KORTIT If i<4 Color k\vari ScreenPositionObject k\muoto,100+i*32,100+rivi*32 i+1 Else i=0:rivi+1 EndIf Next k DrawScreen WaitKey Varivakiot: Data "cbred","cborange","cbyellow","cbgreen" Data "cbblue","cbpurple","cblightred","cbwhite"
Voisit tehdä taulukon jossa olisi kaksi ulottuvuutta ja laittaisit värit sinne suoraan numeroilla.