home *** CD-ROM | disk | FTP | other *** search
/ Fun Online 1997 March / FOL0397.ISO / bindata / sound.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  501 b   |  22 lines
  1. on idle
  2.   global buttliste, mcalt, onetime
  3.   if (mcalt <> the mouseCast) and (onetime = 1) then
  4.     set the visible of sprite mcalt to 0
  5.     set onetime to 0
  6.   end if
  7.   set mc to the mouseCast
  8.   if mc > 0 then
  9.     set bn to the name of member mc
  10.     set LP to getPos(buttliste, bn)
  11.     if LP > 0 then
  12.       set BNR to getAt(buttliste, LP + 1)
  13.       set the visible of sprite BNR to 1
  14.       set onetime to 1
  15.       set mcalt to BNR
  16.       updateStage()
  17.     else
  18.       set mc to 0
  19.     end if
  20.   end if
  21. end
  22.