Fix APlayer::singleShot

Look for datablock's `shootingDelay` property instead of the object's, and provide a default of 1s to prevent infinite loops.