Better version of COLOR OBJECT

This function, colorobject, textures an object with the color provided in a better way than the built in color object. This way is much more crisp and bright, it is even faster. And objects colored with this shade properly with lights whereas default colored ones are a strange grey in the dark.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    function colorobject(obj as integer, color as dword)
   i=2147483647
   repeat
      dec i
      until (image exist(i)) OR (i=1)
   if i>1
      dot 1,1,color : get image tex,1,1,2,2
      texture object obj,tex
      endif else color object obj,color
   endfunction