Symbooli valikko - 'turhat' fontit käyttöön

[MAVmaggot]

Tommosen väsäsin eli tolla saa näyttävän valikon fantasiapeliin ilman objekteja ja kuvia.

Code: Select all

specialfont=LoadFont("symbol")
normalfont=LoadFont("times new roman", 15, OFF, ON)

Repeat
' valinnan liikuttaminen:
  If KeyHit(cbkeyup) And valinta>0 Then valinta-1
  If KeyHit(cbkeydown) And valinta<3 Then valinta+1
' tulostus:
  If valinta=0 Then Gosub valintateksti Else Gosub erikoisteksti
  Text 150,140,"Liikuta nuolista."
  If valinta=1 Then Gosub valintateksti Else Gosub erikoisteksti
  Text 150,160,"Hyvin liikkuu!"
  If valinta=2 Then Gosub valintateksti Else Gosub erikoisteksti
  Text 150,180,"Hello world!"
  If valinta=3 Then Gosub valintateksti Else Gosub erikoisteksti
  Text 150,200,"Lopeta painamalla esc."
  DrawScreen
Forever

valintateksti:
  SetFont normalfont
  Color cbred
Return

erikoisteksti:
  SetFont specialfont
  Color cbsilver
Return

[MaGetzUb]

Sori, mutta tossa ei oo mitää järkeä... Muuten ideana loistava..

[axu]

Sori, mutta tossa ei oo mitää järkeä... Muuten ideana loistava..

Väärin! Tämähän on mainio käännösohjelma hylialle ja muille zeldakielille

[MaGetzUb]

Niin mutta valinnat pitää ensin käydä läpitse, jos niitä ei ole tehty loogiseen järjestykseen..