Function BColli(spr , img , color)
  
  
  rem asume que el sprite esta contenido en una imagen y que sus coordenadas son relativas a la
  rem coordenada 0,0 (top,left) de la imagen de 32 bits
  rem
  rem SPR =sprite to check
  rem IMG =image to check
  rem Color = Transparent Color
  
  Colision=0
  anch = Sprite width(spr)
  alto = Sprite height(spr)
  posx = Sprite x(spr)
  posy = Sprite y(spr)
  
  spriteimage=254
  backimage=255
  
  imagesource = Sprite image (spr)
  
  Make memblock from image spriteimage,imagesource
  Make memblock from image backimage,img
  
  ancho_imagen = Memblock dword (backimage,0)
  alto_image = Memblock dword (backimage,4)
  
  base=12
  
  For x=0 To anch -1
    For y=0 To alto -1
      
      ColorSpr= Memblock dword (spriteimage,12+x*4+y*anch*4)
      ColorImage=Memblock dword (backimage,12+(x+posx)*4+(y+posy)*ancho_imagen*4)
      
      If colorspr<>colr And colorimage<>colr Then colision=1:Exit
      
      If colision=1
        
        y=alto-1
        x=anch-1
        
      Endif
      
    Next y
  Next x
  
  Delete memblock 255
  Delete memblock 254
  
Endfunction Colision