[Platon]

readpixelfast(buff) - здесь что-то не то

Конечно не-то - там недостает параметров x и y

Function ChangeAlpha(Px%, Py%, Alpha#, Buffer%)
   Local ARGB% = ReadPixelFast(Px, Py, Buffer)
   local A% = ((ARGB Shr 24) * Alpha) Shl 24
   WritePixelFast(Px, Py, A + (ARGB And $00FFFFFF), Buffer)
End Function