PureBoard

Code: Alles auswählen

Procedure Quadrat(farbe1,farbe2,x,y,laenge,hoehe)
          ConsoleLocate(x,y);Zum Rand des Quadrats
          ConsoleColor(farbe1,farbe2) ;Farbe Setzen
          PrintN(LSet("",laenge,"a")) ;Und mit "a" den oberen Rand schreiben
          laenge=laenge-1 ;ein abziehen, da das quadrat sonst zu breit wird
          For a=1 To hoehe  ;die schleife für die rechten und linken wände
                      ConsoleLocate(x,y+a) ;linke seite aufsuchen
                      ConsoleColor(farbe1,farbe2) ;farbe setzen
                      Print("a") ;den rand setzen 
                      ConsoleLocate(x+laenge,y+a) ;weiter zum rechten rand
                      Print("a") ;setzen
           Next           
           ConsoleLocate(x,y+hoehe) ;die untere seite
          laenge=laenge+1
          ConsoleColor(farbe1,farbe2)
          PrintN(LSet("",laenge,"a"))
EndProcedure

OpenConsole()
     a=0
      Repeat 
            ConsoleColor(0,0) ;Sonst wirds mir zu bunt
            ClearConsole()
            For  a=0 To 4
                   Quadrat(Random(16),Random(16),Random(20),Random(20),4+Random(20),4+Random(20)) 
            ;Hier werden dann halt irgendwelche Quadrate gezeichnet
            Next 
             Delay(1200)
      Until a=40