;Dieses Skript müssen Sie in ihr BB Skript einfügen. Beispiel: include \"farben.bb\"

;Damit Sie nicht immer color r,g,b schreiben muessen. Sie schreiben jetzt einfach das Wort der Farbe.

;Dieses Skript wird andauernd erweitert und hat bisher [21] Farben.

;letztes Update am 16.01.04

Function weis() : Color 255,255,255 :End Function

Function schwarz() : Color 0,0,0 :End Function

Function rot() : Color 255,0,0 :End Function

Function gruen() : Color 0,255,0 :End Function

Function blau() : Color 0,0,255 :End Function

Function gelb() : Color 255,255,0 :End Function

Function orange() : Color 255,128,0 :End Function

Function lila() : Color 128,0,255 :End Function

Function pink() : Color 255,0,255 :End Function

Function braun() : Color 128,64,0 :End Function

Function tuerkis() : Color 0,255,255 :End Function

Function grau() : Color 128,128,128 :End Function

Function dunkelgrau() : Color 64,64,64 :End Function

Function hellgrau() : Color 192,192,192 :End Function

Function hellgruen() : Color 128,255,128 :End Function

Function dunkelgruen() : Color 0,128,0 :End Function

Function dunkelblau() : Color 0,0,128 :End Function

Function hellrot() : Color 255,128,128 :End Function

Function dunkelrot() : Color 128,0,0 :End Function

Function hellgelb() : Color 255,255,128 :End Function

Function dunkelila() : Color 128,0,128 :End Function

;geschrieben von Mike Pierre Stüven, www.mpsgames.de 

Function rgb(farbe$)
  Select(farbe)
    Case(\"rot\")
    Color(255, 0, 0)

    Case(\"grün\")
    Color(0, 255, 0)

    Case(\"blau\")
    Color(0, 0, 255)
  End Select
End Function

Const CLRED   = $FF0000
Const CLGREEN = $00FF00
Const CLBLUE  = $0000FF

.
.
.

Function SetColor(col)
   Color col Shr 16, (col Shr 8) And $FF00, col And $FF
End Function

Const Rot = $FF0000
Const Gruen = $00FF00
Const Blau = $0000FF

Color 0,0,Rot
Color 0,0,Gruen
Color 0,0,Blau