home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1996 December / PC_Shareware-1996-12.iso / windows / formula / killsold.sx_ / killsold.sx
Encoding:
Text File  |  1995-08-28  |  582 b   |  31 lines
  1. /////////////////////////////////
  2. // KILL MUNGER Soldier ball
  3. ///////////////
  4.  
  5. message "Execute KILLMAIN"
  6. return
  7.  
  8. initialize: bitmaps
  9.     s = new sprite
  10.     r = floor (rnd 3)
  11.     b = bitmaps get r
  12.     u,v = b.dim[1]/2,b.dim[0]/2
  13.     x,y = -u,-v
  14.     vx,vy = rnd 12 - 6, rnd 12 - 6
  15.     mvx,mvy = mod vx, mod vy
  16.     vx,vy = vx+mvx, vy+mvy
  17.     return @s
  18.  
  19. update_pos:
  20.     x = x + vx
  21.     y = y + vy
  22.     t = bound x,y to 0-u,GRAPHICS_XMAX+u; 0-u,GRAPHICS_YMAX+u mode TILE
  23.     call draw_frame
  24.  
  25. draw_frame:
  26.     b = bitmaps get r
  27.     sprite s bitmap b trans 0,255,0 at x-u,y-v depth y
  28.  
  29. get_pos:
  30.     return x,y
  31.