Probleme mit Buchstaben....

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

fliege

Betreff: Probleme mit Buchstaben....

BeitragMi, Dez 01, 2004 22:32
Antworten mit Zitat
Benutzer-Profile anzeigen
HI, ich versuche gerade ein Spiel zu schreiben, in dem man ein Wort aus den einzelnen Buchstaben zusammenschieben muss. Aber irgendwie scheint es hier ein paar Buchstaben auszulassen. Warum? Kann mir vielleicht jemand den Code so umschreiben, das er alle Buchstaben nimmt? Hier heißt
"<>"....ein leeres Feld
"fx"....f steht für fehlt, x ist der Buchstabe aus dem Wort
"mx"....m steht für missing, eigentlich das gleiche 8), nur das dass das Feld ist, auf das man den "fx" schieben muss, hier steht wieder x für einen belibigen Buchstaben.
Code: [AUSKLAPPEN]

Word\value$ = Word\value$ + "|"
   map(10-Len(Word\value$)/2, 10) = "m"+Left(Word\value$, 1)
   pos = 1
   Repeat
      pos = pos + 1
      map(10-Len(Word\value$)/2+pos-1, 10) = "m"+Mid(Word\value$, pos, 1)
   Until Mid(Word\value$, pos+1, 1) = "|"
   
   Repeat
      SeedRnd MilliSecs()
      zufall_x = Rand(2, 17)
      zufall_y = Rand(2, 17)
         If map(zufall_x, zufall_y) = "<>" Then
            map(zufall_x, zufall_y) = "f"+Left(Word\value$, 1)
         EndIf
   Until map(zufall_x, zufall_y) = "f"+Left(Word\value$, 1)
   pos = 2

   Repeat
      Repeat
         SeedRnd MilliSecs()
         zufall_x = Rand(2, 17)
         SeedRnd MilliSecs()
         zufall_y = Rand(2, 17)
            If map(zufall_x, zufall_y) = "<>"
               map(zufall_x, zufall_y) = "f"+Mid(Word\value$, pos, 1)
            EndIf
      Until map(zufall_x, zufall_y) = "f"+Mid(Word\value$,pos,1)
      pos = pos + 1
   Until pos = Len(Word\value$)
   For y = 0 To 19
      For x = 0 To 19
         If map(x,y) = "f|" Then map(x,y) = "<>"
      Next
   Next

Bitte helft mir schnell, ich will es unbedingt meinem Informatik - Professor zeigen!
Danke schon mal im Vorraus
Fliege
 

fliege

BeitragDo, Dez 02, 2004 21:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Kann mir denn keiner helfen? Wäre nämlich echt nett von euch, denn ich blicke nicht mehr durch!

Ralf

BeitragDo, Dez 02, 2004 23:57
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

wie soll Dir jemand helfen?
Erstmal verstehe ich Anhand Deiner Minibeschreibung überhaupt nicht wo Dein Problem liegt. Das könnte man eventuell noch nachvollziehen, wenn man das Programm starten könnte.
Das geht mit Deinem Codeschnipsel aber auch nicht.

Da ist jede Hilfe unmöglich.
Das ist in etwa so, als wenn ich Dir ein Bild von meinem Auto sende, und Dich frage warum meine Klimaanlage nicht funktioniert.

Ralf

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group