#Super Mario Land - GBC, 4.2012
#Part 2
#World 3

#Start Declarations & Strings
global fps = 60
global width = 160
global height = 144
#GBC is 160x144x60p

#The function that converts the clip properties
function applyprops(clip t)
{
  t = (t.IsYV12 == false) ? t.ConvertAudioTo32bit() : t
  t = (t.Framerate != fps) ? t.ConvertFPS(fps) : t
  t = (t.Width != width) ? t.BilinearResize(width, height) : t
  t = (t.Height != height) ? t.BilinearResize(width, height) : t
  t = ResampleAudio(t, 48000)

  return t
}


#funcao para quadruplicar a velocidade do clip
function q_speed(clip t) {
  # roda o clipe 4/1 vezes mais rapido e muda o fps pra 60/1
  t = AssumeScaledFPS(t, 4, 1, False).ChangeFPS(60,1)

  # roda o audio 4x mais rapido mantendo o pitch
  t = TimeStretch(t, tempo=100.0*4)

  return t
}

#funcao para dar zoom em "frame" do clip "t", em ("x", "y"), de tamanho "len_x" por "len_y",
#por "duration" frames dublando com o audio "audio"
function zoomin(clip t, int frame, int duration, int x, int y, int len_x, int len_y, clip audio) {
   result = Trim(t, frame, frame + duration)
   result = freezeframe(result, 0, duration, 0).amplify(0)
   result = BilinearResize(result, t.Width(), t.Height, x, y, len_x, len_y)

   return AudioDub(result, audio)
}

video = AVISource("D:\gaems\emus\gba\avi\Super Mario Land p02.avi")
video = applyprops(video)

fallsound = WAVSource("D:\gaems\emus\gba\avi\43603__freqman__object-falls-5.wav")
fallsound = ResampleAudio(fallsound, 48000)

#transforma o mono em stereo copiando o mesmo canal nos 2 canais
fallsound = GetChannel(fallsound, 1, 1)


#MAY THE EDITS BEGIN
#Estes sao os cuts

final = Trim(video, 527, 5670)                         #comeco

#pausa o frame 5670 e toca fallsound
final = final ++ zoomin(video, 5670, 90, 0, 0, 160, 144, fallsound)

#zoom em 50,87 tamanho 50x45, tela toda, toca fallsound
final = final ++ zoomin(video, 5670, 90, 50, 87, 50, 45, fallsound)

#zoom em 64,111, tamanho 20x18, tela toda, toca fallsound
final = final ++ zoomin(video, 5670, 90, 64, 111, 20, 18, fallsound)

final = final ++ Trim(video, 5671, 9355)               #continuando
final = final ++ q_speed(Trim(video, 9355, 10591))     #morte 1
final = final ++ Trim(video, 10592, 20039)             #continuando
final = final ++ q_speed(Trim(video, 20040, 22466))    #morte 2
final = final ++ Trim(video, 22467, 27678)             #continuando
final = final ++ q_speed(Trim(video, 27679, 28031))    #fim acelerado
final = final ++ Trim(video, 28032, 28995)             #continuando
final = final ++ q_speed(Trim(video, 28996, 30116))    #morte 3
final = final ++ Trim(video, 30117, 31297)             #continuando
final = final ++ q_speed(Trim(video, 31298, 32596))    #moedas acelerado
final = final ++ Trim(video, 32597, 38357)             #continuando
final = final ++ q_speed(Trim(video, 38358, 39292))    #morte 4
final = final ++ Trim(video, 39293, 39803)             #continuando

#pausa o frame 39803 e toca fallsound
final = final ++ zoomin(video, 39803, 90, 0, 0, 160, 144, fallsound)

#zoom em 104,78 tamanho 50x45, tela toda, toca fallsound
final = final ++ zoomin(video, 39803, 90, 104, 78, 50, 45, fallsound)

#zoom em 118,99,  tamanho 20x18, tela toda, toca fallsound
final = final ++ zoomin(video, 39803, 90, 118, 99, 20, 18, fallsound)

final = final ++ Trim(video, 39804, 39901)             #continuando
final = final ++ q_speed(Trim(video, 39902, 40301))    #fim acelerado
final = final ++ Trim(video, 40301, 42085)             #final

return final