home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / elementl / source / whohead.dir / 00010.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  824 b   |  35 lines
  1. on enterFrame
  2.   if rollOver(1) then
  3.     repeat with x = 3 to 8
  4.       puppetSprite(x, 1)
  5.       set possibleColor to random(255)
  6.       set the foreColor of sprite x to possibleColor
  7.       updateStage()
  8.     end repeat
  9.   end if
  10.   repeat with x = 3 to 8
  11.     puppetSprite(x, 1)
  12.     set possibleColor to random(255)
  13.     if possibleColor = 47 then
  14.       set the foreColor of sprite x to possibleColor
  15.     else
  16.       if possibleColor = 17 then
  17.         set the foreColor of sprite x to possibleColor
  18.       else
  19.         if possibleColor = 255 then
  20.           set the foreColor of sprite x to possibleColor
  21.         end if
  22.       end if
  23.     end if
  24.     updateStage()
  25.   end repeat
  26.   repeat with y = 9 to 11
  27.     set the locV of sprite y to the locV of sprite y + random(1)
  28.     updateStage()
  29.   end repeat
  30. end
  31.  
  32. on exitFrame
  33.   go(the frame)
  34. end
  35.