Graphics 1024,768

;Hier muss die Teamfarbe angegeben werden:
r=255
g=100
b=0
teamcolor= r*$10000 + g*$100 + b

;Und hier die Textur (Datei)

texturefile$="figur.bmp"

;Hier LoadTexture oder loadanimtexture!

texture=LoadTexture(texturefile$)

;Der Buffer indem die Textur bearbeitet wird!
SetBuffer TextureBuffer(texture)

xtex=TextureWidth(texture)
ytex=TextureHeight(texture)

;Die hier blauen Pixel gegen die ausgewählte Farbe ersetzen!
x=0
y=0

Repeat

rgb=ReadPixel( x,y ) And $FFFFFF
r=(rgb And $FF0000)/$10000
g=(rgb And $FF00)/$100
b= rgb And $FF

If r=0 And g=0 And b=255 Then


WritePixel x, y, teamcolor

End If

x=x+1

If x>xtex Then y=y+1 Mad=0

Until y>ytex