home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1996 December / PC_Shareware-1996-12.iso / windows / formula / ball.sx_ / ball.sx
Encoding:
Text File  |  1995-08-13  |  527 b   |  19 lines
  1. ///////////////////////////////
  2. // Color ball sprite handler
  3.  
  4. init: name, xpos, ypos, xmov, ymov
  5.     load $name bitmap bmp palette pal
  6.     compose palette pal
  7.     remap bitmap bmp palette pal
  8.     ball = new sprite
  9.     xlen,ylen = bmp.dim[1]/2,bmp.dim[0]/2
  10.  
  11. show:
  12.     sprite ball bitmap bmp trans 0,255,0 at xpos-xlen,ypos-ylen depth ypos
  13.     xpos = xpos + xmov
  14.     ypos = ypos + ymov
  15.     if xpos < 0 then xmov = -xmov
  16.     if ypos < 0 then ymov = -ymov
  17.     if xpos > GRAPHICS_XMAX then xmov = -xmov
  18.     if ypos > GRAPHICS_YMAX then ymov = -ymov
  19.