horrible put routine up for grabs, jeje

[Anonymous]

Code:

sub rput (onposx%, onposy%, sprite() as short, offset%)

  

  xsize = sprite(offset%) \ 8
  ysize = sprite(offset% + 1)

  for yput = 0 to ysize - 1
    
    for xput = 0 to xsize - 1
        
      color16 = sprite(yput * (xsize \ 2) + (xput \ 2) + offset% + 2)

      
      select case xput mod 2
            
        
        case 0
            color8 = color16 and 255
            
        case 1
            color8 = color16 shr 8
            
        
      end select
        
      
      if color8 <> 0 then pset(xput + onposx%,yput + onposy%), color8
        
    next
    
  next


end sub

im so glad noone replied to my stupid @$$ questions b4 i edited it :phew:

EDIT # 1287382:

and then i see the trans mode.