Привет! План таков!
1) MaskImage, почитай про эту функцию.
2) Честно говоря, какой-то страшный у тебя код. Православнее так:
Graphics3D 640,480
SetBuffer BackBuffer()
Global img = LoadImage("captain1.jpg")
MaskImage(img,100,100,100); Теперь прозрачный цвет - серо-какой-то
While Not KeyHit(1)
;как-бэ очистка
Cls();
;здесь логика
if(KeyHit(2)) then ILikeDrugs();
;здесь как-бэ 3д обновка-отрисовка
UpdateWorld
RenderWorld
;здесь как-бэ 2д отрисовка - DrawImage img,0,0
; Здесь буферы флип-флип , и выводится на монитор.
Flip()
Wend
Function ILikeDrugs()
While Not KeyHit(2)
Cls();
RenderWorld
DrawImage img,0,0
Flip
Wend
End Function