home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1996 December / PC_Shareware-1996-12.iso / windows / formula / killfire.sx_ / killfire.sx
Encoding:
Text File  |  1995-08-15  |  514 b   |  29 lines
  1. /////////////////////////////
  2. // KILL MUNGER Gun fire
  3. //////////
  4.  
  5. message "Execute KILLMAIN"
  6. return
  7.  
  8. initialize: bitmaps, x, y, ix, iy
  9.     s = new sprite
  10.     u,v = 10,10
  11.     f = 0
  12.     return @s
  13.  
  14. update_fire:
  15.     b = bitmaps get f
  16.     if f == 2 then d = 0
  17.     else d = y
  18.     sprite s bitmap b trans 0,255,0 at x-u,y-v depth d
  19.     x = x + ix
  20.     y = y + iy
  21.     k = bound x,y to u,GRAPHICS_XMAX-u; v,GRAPHICS_YMAX-v mode TEST
  22.     if f then f = f + 1
  23.     return f == 3 || k == 0
  24.  
  25. blast:
  26.     f = 1
  27.     u,v = 40,40
  28.     z = call update_fire
  29.