home *** CD-ROM | disk | FTP | other *** search
/ The Guru Press Kit / The Guru Press Kit.iso / pc / theguru.dxr / 00008_postercode.ls < prev    next >
Encoding:
Text File  |  2002-12-17  |  838 b   |  37 lines
  1. property pPosterSprites, pRedDotSprites, spriteNum
  2. global gPosters
  3.  
  4. on beginSprite me
  5.   pPosterSprites = [15, 16]
  6.   pRedDotSprites = [19, 20]
  7. end
  8.  
  9. on mouseDown
  10.   sprite(spriteNum).member = "thesaved"
  11. end
  12.  
  13. on mouseUp
  14.   vNum = spriteNum - 16
  15.   if gPosters[vNum].Selected = "yes" then
  16.     sprite(pPosterSprites[vNum]).blend = 100
  17.     sprite(pRedDotSprites[vNum]).loc = point(-2000, -2000)
  18.     gPosters[vNum].Selected = "no"
  19.     sprite(spriteNum).member = member("save")
  20.   else
  21.     sprite(pPosterSprites[vNum]).blend = 50
  22.     vLeft = sprite(pPosterSprites[vNum]).left + 3
  23.     vTop = sprite(pPosterSprites[vNum]).top + 3
  24.     sprite(pRedDotSprites[vNum]).loc = point(vLeft, vTop)
  25.     gPosters[vNum].Selected = "yes"
  26.     sprite(spriteNum).member = member("thesaved")
  27.   end if
  28. end
  29.  
  30. on mouseEnter
  31.   cursor(280)
  32. end
  33.  
  34. on mouseLeave
  35.   cursor(-1)
  36. end
  37.