'************************************************************************
'                        LCD VIDEO
'************************************************************************

sub changevideo(vidnum)
	if (vidnum<=9) then
		ectomovie.image = "zcd_nunzioScoleri_hit_" & Right("000" & CStr(vidnum+1), 3)
	elseif (vidnum<=47) then
		ectomovie.image = "zcd_tonyScoleri_hit_" & Right("000" & CStr(vidnum-9), 3)
	elseif (vidnum<=66) then
		ectomovie.image = "zcd_nunzioScoleri_idle_" & Right("000" & CStr(vidnum-47), 3)
	elseif (vidnum<=90) then
		ectomovie.image = "zcd_ghost4_idle_" & Right("000" & CStr(vidnum-66), 3)
' I think this is a TPA bug - 029 is the first hit sequence, not 001
	elseif (vidnum<=99) Then
		ectomovie.image = "zcd_ghost4_hit_" & Right("000" & CStr(vidnum-90+28), 3)
	elseif (vidnum<=127) Then
		ectomovie.image = "zcd_ghost4_hit_" & Right("000" & CStr(vidnum-90-9), 3)
' end buggy sequence.
	elseif (vidnum<=173) then
		ectomovie.image = "zcd_SternLogo_" & Right("000" & CStr(vidnum-128), 3)
	elseif (vidnum=174) Then
		ectomovie.image = "zcd_GhostLogo"
	elseif (vidnum<=205) then
		ectomovie.image = "zcd_Jackpot_15fps_" & Right("000" & CStr(vidnum-173), 3)
	elseif (vidnum<=236) then
		ectomovie.image = "zcd_SuperJackpot_15fps_" & Right("000" & CStr(vidnum-205), 3)
	elseif (vidnum<=276) then
		ectomovie.image = "zcd_slimer_idle_" & Right("000" & CStr(vidnum-236), 3)
	elseif (vidnum<=294) then
		ectomovie.image = "zcd_slimer_small_hit_" & Right("000" & CStr(vidnum-276), 3)
	elseif (vidnum<=313) then
		ectomovie.image = "zcd_tonyScoleri_small_idle_" & Right("000" & CStr(vidnum-294), 3)
	elseif (vidnum<=418) then
		ectomovie.image = "zcd_Taxi" & Right("000" & CStr(vidnum-313), 3)
	elseif (vidnum<=464) then
		ectomovie.image = "zcd_Cat" & Right("000" & CStr(vidnum-418), 3)
	end if
end sub