home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00523.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  643 b   |  29 lines
  1. on mouseDown
  2.   global theMenu, linePtr
  3.   if theMenu = EMPTY then
  4.     set me to the clickOn
  5.     set x to the castNum of sprite me
  6.     set the castNum of sprite me to x + 1
  7.     repeat while the mouseDown
  8.       updateStage()
  9.     end repeat
  10.     set the castNum of sprite me to x
  11.     updateStage()
  12.     if rollOver(me) then
  13.       if linePtr >= 0 then
  14.         set x to line linePtr + 1 of field 463
  15.         if x <> EMPTY then
  16.           setUpSprites("16-35;37-48", 0)
  17.           selectMovie(x)
  18.         else
  19.           beep()
  20.           notify(37, 619)
  21.         end if
  22.       else
  23.         beep()
  24.         notify(37, 619)
  25.       end if
  26.     end if
  27.   end if
  28. end
  29.