Qbasicnews.com
February 25, 2021, 10:57:33 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: [1]
  Print  
Author Topic: horrible put routine up for grabs, jeje  (Read 1996 times)
Anonymous
Guest
« on: March 13, 2005, 08:57:45 AM »

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.
Logged
Pages: [1]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!