home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / baritone.dxr / 00022_STRIPS.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  438 b   |  24 lines
  1. on strip
  2.   return 80
  3. end
  4.  
  5. on TopStrip s, x, y
  6.   return y < (the top of sprite s + strip())
  7. end
  8.  
  9. on LeftStrip s, x, y
  10.   return x < (the left of sprite s + strip())
  11. end
  12.  
  13. on BottomStrip s, x, y
  14.   return y > (the bottom of sprite s - strip())
  15. end
  16.  
  17. on RightStrip s, x, y
  18.   return x > (the right of sprite s - strip())
  19. end
  20.  
  21. on AnyStrip s, x, y
  22.   return TopStrip(s, x, y) or LeftStrip(s, x, y) or BottomStrip(s, x, y) or RightStrip(s, x, y)
  23. end
  24.