home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1998 December / PCW1298.ISO / Tonline / Director / ANSNETZ.DXR / 00025.ls < prev    next >
Encoding:
Text File  |  1998-08-22  |  522 b   |  24 lines

  1. global retFrame, retMovie
  2.  
  3. on mouseDown
  4.   set button to the mouseCast
  5.   set channel to the clickOn
  6.   repeat while the stillDown
  7.     set buttondown to button + 1
  8.     set the castNum of sprite channel to buttondown
  9.     updateStage()
  10.   end repeat
  11.   set the castNum of sprite channel to button
  12.   updateStage()
  13.   if rollOver(channel) then
  14.     if soundBusy(2) then
  15.       sound stop 2
  16.     end if
  17.     if voidp(retMovie) or voidp(retFrame) then
  18.       go(1, "T-Online")
  19.     else
  20.       go(retFrame, retMovie)
  21.     end if
  22.   end if
  23. end
  24.