[phoenix29]

Привет всем!

Сразу прошу прощение, если данный вопрос уже здесь неоднократно звучал и на него также неоднократно отвечали. Я находил конечно такие темы, но там альфа канал добавлялся в картинку, затем картинку загружали, например, как спрайт с альфа свойством и все было хорошо.

У меня же вот какая задача. Нужно изобразить спрайтом число, которое изменяется по ходу игры. Ну или вообще картинку, которую я сначала рисую в блитзе. Конечно, с альфа каналом. То есть я создаю спрайт, создаю текстуру, рисую на текстуре изображение, вставляю альфа канал, назначаю спрайту эту текстуру... и вот я даже не знаю, должно оно такое работать или нет?

score_spr=CreateSprite()
SpriteViewMode score_spr,2
ScaleSprite score_spr,150,25
PositionEntity score_spr,550,1,100
TurnEntity score_spr,90,0,0

score_spr_tex=CreateTexture(300,50,2)
SetBuffer TextureBuffer(score_spr_tex)
ClsColor 254,100,254
Cls
Color 100,250,100
SetFont rusfont
Text 0,0,"1234567890"

score_spr_tex_2=CreateTexture(300,50,2)
SetBuffer TextureBuffer(score_spr_tex_2)
ClsColor 100,100,100
Cls
Color 254,254,254
SetFont rusfont
Text 0,0,"amncjoewlmn"

SetBuffer BackBuffer()
LoadAlphaChannel(score_spr_tex,score_spr_tex_2)
EntityTexture score_spr,score_spr_tex

где функция LoadAlphaChannel:

Function LoadAlphaChannel(id,tex4)
 If tex4<>0
  If TextureWidth(id)=TextureWidth(tex4)
   If TextureHeight(id)=TextureHeight(tex4)
    SetBuffer TextureBuffer(id)
    LockBuffer(TextureBuffer(tex4))
    LockBuffer(TextureBuffer(id))
    For j=0 To TextureHeight(tex4)-1
     For i=0 To TextureWidth(tex4)-1
      argb=ReadPixelFast(i,j,TextureBuffer(tex4)) And $ffffff
      r=(argb Shr 16)And $FF
      g=(argb Shr 8)And $FF
      b=argb And $FF
      grey= ((r+g+b)/3)
      If grey > 255 Then grey=255
      rgb=(ReadPixelFast(i,j,TextureBuffer(id))) And $FFFFFF
      WritePixelFast i,j,rgb Or (grey Shl 24),TextureBuffer(id)
     Next
    Next
    UnlockBuffer(TextureBuffer(tex4))
    UnlockBuffer(TextureBuffer(id))
    SetBuffer BackBuffer()
   EndIf
  EndIf
  FreeTexture tex4
 EndIf
End Function

В результате появляется полупрозрачный (Color 100,100,100) фиолетовый спрайт. Текста нету, ни в альфе ни в просто текстуре. Объясните пожалуйста почему так и где ошибки. Если это не так делается, то расскажите, как?