>svbank(0) for i=0,15 do a=0x3FC0+i*3 v=i*255/15 poke(a,(v/255)*255) poke(a+1,(v/255)*255) poke(a+2,(v/255)*255) end vbank(1) for i=0,15 do a=0x3FC0+i*3 v=i*255/15 poke(a,(v/255)*255) poke(a+1,(v/255)*255) poke(a+2,(v/255)*255) end tt=4 sin=math.sin cos=math.cos abs=math.abs function TIC() cls(1) t=time()/100 dt=time()/1000 fw=t*8%4 tt=tt-0.02 poke(0x3ffb,0) vbank(0) cls(0) if tt>=1 then rect(40,0,160,140,math.random()*2+2) line(120,0,120,150,1) circ(120,68+fw,30,4) line(120,68,120+sin(t/1.3)*30,68-cos(t/1.3)*30,1) print(string.sub(tt//1,1,1),116,59+fw,12,true,4,true) end vbank(1) cls(1) for i=0,32 do rect(8,i*16-(t*128)%32,16,12,0) rect(214,i*16-(t*128)%32,16,12,0) end rect(40,9+fw,158,116,0) rect(40,-115+fw,158,116,0) rect(40,132+fw,158,116,0) vbank(0) if dt>=3 and dt<=5 then scene1() elseif dt>=5 and dt<=8 then scene2() elseif dt>=8 and dt<=11 then scene3() elseif dt>=11 and dt<=13 then scene4() elseif dt>=13 and dt<=17 then scene5() elseif dt>=17 and dt<=19 then scene6() elseif dt>=19 and dt<=21 then scene7() elseif dt>=21 and dt<=24 then scene8() elseif dt>=24 and dt<=28 then scene9() end if dt>=29 then trace("greetz to the besties, NOBODY ELSE") exit() end for i=0,32 do pix(math.random()*200+20,math.random()*132,0) end --scene9() --vbank(1) --print(dt) end function scene9() rect(40,9+fw,158,116,2) rect(40,-115+fw,158,116,2) rect(40,132+fw,158,116,2) rectb(45,16+fw,148,104,7) print("Fin.",105,57+fw/2,12,true,2,true) print(" MMXXV",95,107+fw/2,12,true,1,true) end function scene8() rect(40,9+fw,158,116,10) rect(40,-115+fw/2,158,116,10) rect(40,132+fw,158,116,10) circ(87,50+fw/2,30,5) circ(87,50+fw/2,20,10) circ(87+60,50+fw/2,30,5) circ(87+60,50+fw/2,20,10) rect(78,20+fw/2,79,60,5) circ(117,70+fw/2,39,5) rect(108,70+fw/2,79/4,60,5) print("FIRST\nPLACE",98,35+fw/2,15,true,2,true) print("DEMO COMPO",79,69+fw/2,15,true,2,true) end s7t=0 function scene7() s7t=s7t+.4 rect(40,9+fw,158,116,11) rect(40,-115+fw/2,158,116,11) rect(40,132+fw,158,116,11) rect(55,50+fw/2,30,80,2) circ(70,50+fw/2,20,8) for i=-10,0 do circ(69+i,56+sin(i/4+2)*3+sin(t*2)//1+fw/2,1,5) end for i=0,10 do circ(72+i,56+sin(i/4+1)*3+sin(t*2)//1+fw/2,1,5) end rect(55,8+fw/2,31,21,1) rect(50,29+fw/2,40,6,2) rect(50,70,10,50,2) rect(70,70,30+s7t,10,2) rect(95+s7t,60+fw/2,4,20,1) rect(92+s7t,70+fw/2,10,20,1) rect(154,50+fw/2,32,80,8) circ(170,50+fw/2,20,10) print("ORGA",155,80+fw/2,12,true,2,true) rect(148,70+fw/2,6,50,8) rect(186,70+fw/2,6,50,8) end s6t=-20 function scene6() s6t=s6t+.4 if s6t>20 then s6t=20 end rect(40,9+fw,158,116,11) rect(40,-115+fw/2,158,116,11) rect(40,132+fw,158,116,11) rect(25,100+fw/2,180,30,1) rect(55,60+fw/2,130,50,6) for i=0,2 do rect(60+i*32,70+fw/2,30,30,9) rectb(60+i*32,70+fw/2,30,30,2) end rect(160,70+fw/2,20,41,9) rectb(160,70+fw/2,20,41,2) rect(42,45+fw/2,155,20,9) print('"',173,48+fw/2,15,true,2,true) print("Spirituosengeschaft",45,52+fw/2,15,true,2,true) circ(60+s6t,112+fw/2,7,0) circ(90+s6t,112+fw/2,7,0) rect(60+s6t,88+fw/2,30,15,11) rect(50+s6t,98+fw/2,50,15,4) end function scene5() rect(40,9+fw,158,116,2) rect(40,-115+fw,158,116,2) rect(40,132+fw,158,116,2) rectb(45,16+fw,148,104,7) print('"',50,30+fw/2,12,true,2) print('"',175,100+fw/2,12,true,2) print("Not to fear!\n I have a\n solution!",55,55+fw/2,12,true,2,true) end function scene4() rect(40,9+fw,158,116,2) rect(40,-115+fw,158,116,2) rect(40,132+fw,158,116,2) rectb(45,16+fw,148,104,7) print('"',50,30+fw/2,12,true,2) print('"',175,100+fw/2,12,true,2) print("Oh schiesse!\n The deadline!",55,55+fw/2,12,true,2,true) end function scene3() rect(40,9+fw,158,116,14) rect(40,-115+fw,158,116,14) rect(40,132+fw,158,116,14) rectb(70,58+fw/2,94,25,2) print("SUBMIT DEMO",73,66+fw/2,12,true,2,true) line(75+87,59+fw/2,71,81+fw/2,6) line(75+87,81+fw/2,71,59+fw/2,6) print(" Submission No\nLonger Possible",85,42+fw/2,2,true,1,true) print("https://demoparty.berlin",45,12+fw/2,2,true,1,true) line(40,20+fw/2,200,20+fw/2,2) end function scene2() rect(40,9+fw,158,116,2) rect(40,-115+fw,158,116,2) rect(40,132+fw,158,116,2) rectb(45,16+fw,148,104,7) print('"',50,30+fw/2,12,true,2) print('"',175,100+fw/2,12,true,2) print(" My demo is\nfinally complete!",55,55+fw/2,12,true,2,true) end function scene1() rect(40,9+fw,158,116,11) rect(40,-115+fw,158,116,11) rect(40,132+fw,158,116,11) rect(98,22+fw,46,160,2) rect(40,109+fw,160,20,5) for i=0,13 do rect(37+i*12,106+fw,10,8,7) end circ(120,38+fw,25,8) rect(100,8+fw,40,16,1) rect(90,20+fw,60,8,2) for i=-10,0 do circ(118+i,48+sin(i/4+2)*3+sin(t*2)//1+fw,1,5) end for i=0,10 do circ(122+i,48+sin(i/4+1)*3+sin(t*2)//1+fw,1,5) end circ(70+sin(t)*16,100-abs(sin(t*2))*12+fw,15,7) circ(170+sin(t+1)*16,100-abs(sin(t*2+1))*12+fw,15,7) end