home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 165 / XENIATGM165.ISO / cddata / main.dxr / 00031_play_pause2.ls < prev    next >
Encoding:
Text File  |  2003-05-29  |  445 b   |  24 lines
  1. property sp, presenta
  2.  
  3. on new me
  4. end
  5.  
  6. on mouseUp me
  7.   global volgen, channel, svolgen
  8.   mb = sprite(26).mediaBusy
  9.   if (mb >= 0) and (mb <= 1) then
  10.   else
  11.     return 
  12.   end if
  13.   case mb of
  14.     0:
  15.       videoplay(sprite(26))
  16.       sound(channel).volume = 0
  17.       sendSprite(44, #mSetConstrainPos, 1 - (sound(channel).volume / 255.0), 0)
  18.       sprite(50).visible = 0
  19.     1:
  20.       videopause(sprite(26))
  21.       sprite(50).visible = 1
  22.   end case
  23. end
  24.