home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / MazeCraze.dxr / 00011_Fan.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  915 b   |  44 lines
  1. property spriteNum, pFrame
  2. global gPaused
  3.  
  4. on beginSprite
  5.   pFrame = 1
  6. end
  7.  
  8. on exitFrame
  9.   if gPaused = 0 then
  10.     sprite(spriteNum).locH = mouseH()
  11.     sprite(spriteNum).locV = mouseV()
  12.     if sprite(spriteNum).locH < 0 then
  13.       sprite(spriteNum).locH = 0
  14.     else
  15.       if sprite(spriteNum).locH > 580 then
  16.         sprite(spriteNum).locH = 580
  17.       end if
  18.     end if
  19.     if sprite(spriteNum).locV < 0 then
  20.       sprite(spriteNum).locV = 0
  21.     else
  22.       if sprite(spriteNum).locV > 440 then
  23.         sprite(spriteNum).locV = 440
  24.       end if
  25.     end if
  26.     sprite(spriteNum).rotation = sprite(16).rotation + 180
  27.     AnimateFrames()
  28.   else
  29.     sprite(spriteNum).visible = 0
  30.   end if
  31. end
  32.  
  33. on AnimateFrames
  34.   pFrame = pFrame + 1
  35.   if pFrame > 11 then
  36.     pFrame = 1
  37.   end if
  38.   if pFrame < 10 then
  39.     sprite(spriteNum).member = "fan000" & pFrame
  40.   else
  41.     sprite(spriteNum).member = "fan00" & pFrame
  42.   end if
  43. end
  44.