Grandes Inventos/INVENTOS.bin/pc/media/shared.dxr/02125_ExpDown.ls

Text File | 1996-01-01 | 590 b | 20 lines

on mouseUp
  global gTheAnalyzer, gVideoSprite, gPermiteInteraccion
  set n to the castNum of sprite gVideoSprite
  put "ExpDown:" && "gPermiteInteraccion" && gPermiteInteraccion
  if gPermiteInteraccion = 1 then
    if the castType of cast n = #digitalVideo then
      set mr to the movieRate of sprite gVideoSprite
      set the movieRate of sprite gVideoSprite to 0
    end if
    go(label("ENDKOZMO"))
  else
    if n > 0 then
      if the castType of cast n <> #digitalVideo then
        sound playFile 1, "@:ANAL_AU:FX_NO.AIF"
      end if
    end if
    dontPassEvent()
  end if
end