diff --git a/Zframework/badapple.dat b/Zframework/badapple.dat
new file mode 100644
index 00000000..ccd45051
Binary files /dev/null and b/Zframework/badapple.dat differ
diff --git a/Zframework/bg.lua b/Zframework/bg.lua
index 6753c7e5..7eaaf357 100644
--- a/Zframework/bg.lua
+++ b/Zframework/bg.lua
@@ -202,14 +202,56 @@ back.fan={
 	end,
 }
 
+local video
+back.badapple={
+	init=function()
+		if not video then
+			video=_G.love.data.decompress("string","zlib",_G.love.filesystem.read("Zframework/badapple.dat"))
+		end
+		t=0
+		BG.resize()
+	end,
+	resize=function()
+		local W,H=SCR.w,SCR.h
+		if H/W>=20/27 then
+			K=W/27
+			X,Y=0,(H-W*20/27)*.5
+		else
+			K=H/20
+			X,Y=(W-H*27/20)*.5,0
+		end
+	end,
+	update=function()
+		t=t+1
+		if t==1404*6 then
+			t=0
+		end
+	end,
+	draw=function()
+		gc.clear(.2,.2,.2)
+		gc.push("transform")
+		gc.origin()
+		gc.translate(X,Y)
+		gc.scale(K)
+		gc.setColor(.4,.4,.4)
+		local t=int(t/6)
+		for i=0,539 do
+			if video:byte(540*t+i+1)==48 then
+				gc.rectangle("fill",(i%27),int(i/27),1,1)
+			end
+		end
+		gc.pop()
+	end,
+	discard=function()
+		video=nil
+	end
+}
+
 back.welcome={
 	init=function()
 		t=rnd()*2600
 		txt=gc.newText(_G.getFont(80),"Welcome To Techmino")
 	end,
-	resize=function()
-		W,H=SCR.w,SCR.h
-	end,
 	update=function(dt)
 		t=t+dt
 	end,
diff --git a/Zframework/widgetList.lua b/Zframework/widgetList.lua
index 8819883a..db5322c3 100644
--- a/Zframework/widgetList.lua
+++ b/Zframework/widgetList.lua
@@ -92,7 +92,7 @@ local SLClist={
 	opponent={0,1,2,3,4,5,6,7,8,9,10},
 	life={0,1,2,3,5,10,15,26,42,87,500},
 	pushSpeed={1,2,3,5,15},
-	bg={"none","grey","glow","rgb","flink","wing","fan","welcome","aura","bg1","bg2","rainbow","rainbow2","lightning","lightning2","matrix","space"},
+	bg={"none","grey","glow","rgb","flink","wing","fan","badapple","welcome","aura","bg1","bg2","rainbow","rainbow2","lightning","lightning2","matrix","space"},
 	bgm=BGM.list,
 }