Q-PYTHIA - a Monte Carlo implementation for jet quenching