`,]']>S}Wup8d%qy)6o;]AsVl3S}Wup8d%qy)6o;]AsVl3>???????????????????0a 555::>>>>??????????????????? 0p0 04444777;;==>>>>???????????000???????????????????????????,                                C c C ccc C c C ccc                    bb  b b bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb C c C cCcCc C c C cCcCc # C # CCcCcCcCc C c C c # C # CCcCc C c C cCcCc # C # CCcCc # C # CCcC ccC C # C # CCcC ccC C # C # CCcC ccC C # C # CCcCBbbbbbbBbbbbbbbbbbbbbb ccC C # C # CCcC ccC C C Cc Cc Cc Cc CCCCCCCCC C c C cCcCc C c C c C c C cCcCcCcCc C c C cCcCc C c C cddddddEf f E Ef f E Ef f E Ef f E /     CcCc C c C c C c C cCcCcbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbCcCc C cCc C C c C c     CcCc C cCc C C c C cbbbbbbbb b b b b bbb& +    CcCc C c C cCcCc # C # C       CcCcCcCc C c C c # C # C   CcCc C c C cCcCc Cc Cc    Cc Cc C c C c C c C ccccccccc      ccccccccc cc cc cc cc cc cc cc cc cc cc cc c    c cc cc cc ccc C c C cccǏbbbbbbbbbbbbbb   cc C c C c C c C cccf5D5556H66H6 7L77N-yP(P8yʎ;/<<3==7>;?E-5   -- title: Offenbach - Can Can -- author: MegaBits21 -- desc: Can Can YTMPV recreated for TIC-80 (WIP) -- version: 1.1 (fixed a bit i forgor... release) -- script: lua mus_time=0 t=0 time0=0 time1=0 time2=0 time3=0 time4=0 music(0,-1,-1,false,true) -- enable music -- Config: DebugMode=false -- Start Function function OVR() if DebugMode then -- Setup Visualizer local channel0 = peek(0xFF9C+18*0+1)<<8|peek(0xFF9C+18*0) local channel1 = peek(0xFF9C+18*1+1)<<8|peek(0xFF9C+18*1) local channel2 = peek(0xFF9C+18*2+1)<<8|peek(0xFF9C+18*2) local channel3 = peek(0xFF9C+18*3+1)<<8|peek(0xFF9C+18*3) local freq0 = (channel0&0x68) local freq1 = (channel1&0x68) local freq2 = (channel2&0x68) local freq3 = (channel3&0x68) local volume0= (channel0&0xf000)>>9 local volume1= (channel1&0xf000)>>9 local volume2= (channel2&0xf000)>>9 local volume3= (channel3&0xf000)>>9 rect(0,74,240,73,14) -- draw final bg rect(3,101,130,33,15) -- draw CH view bg rectb(3,101,130,33,12) -- draw outline box rect(3,109,130,1,12) -- First Line rect(3,117,130,1,12) -- Second Line rect(3,125,130,1,12) -- Third Line rect(11,102,1,31,12) -- draw channels using vert. line rect(12,102,volume0,7,4) -- CH1: Vol rect(12,110,volume1,7,5) -- CH2: Vol rect(12,118,volume2,7,6) -- CH3: Vol rect(12,126,volume3,7,7) -- CH4: Vol rect(12,105,freq0,2,2) -- CH1: Freq rect(12,113,freq1,2,2) -- CH2: Freq rect(12,121,freq2,2,2) -- CH3: Freq rect(12,129,freq3,2,2) -- CH4: Freq print("1",6,103,12,nil,1,1) print("2",6,111,12,nil,1,1) print("3",6,119,12,nil,1,1) print("4",6,127,12,nil,1,1) -- Debug Channel Texts -- Channels are playing appeared texts print("Channel 1: Playing!",135,103,volume0) print("Channel 2: Playing!",135,111,volume1) print("Channel 3: Playing!",135,119,volume2) print("Channel 4: Playing!",135,127,volume3) -- Channels Info print("CH 1:".."\nVol: "..volume0.."\nFreq: "..freq0,3,82,4) -- CH1 print("CH 2:".."\nVol: "..volume1.."\nFreq: "..freq1,60,82,5) -- CH2 print("CH 3:".."\nVol: "..volume2.."\nFreq: "..freq2,115,82,6) -- CH3 print("CH 4:".."\nVol: "..volume3.."\nFreq: "..freq3,165,82,7) -- CH4 -- Meaning Info rect(3,75,5,5,2) print(": channel frequency color",9,75,12) -- Last to Finish Work Product! line(0,73,240,73,12) -- draw final line -- END OF CHANNEL DEBUG INFO print("Music Time: "..mus_time,3,66,12) end end function SCN(col) poke(0x3fc0,time1+col+time2+math.random(0,10)) poke(0x3fc1,time0+col+time1+math.random(0,20)) poke(0x3fc2,time2+col+time0+math.random(0,30)) poke(0x3fc0,col*time2*0.4) poke(0x3fc1,col*time1*0.5) poke(0x3fc2,col*time0*0.6) for i=0,3 do print("HELLO WORLD! WELCOME TO THE ZONE!!!",i+time3-200,i*time0+30,i+time()/200,false,i) end print("CAN CAN",75,time0+80,12,false,2) print("Recreated by MegaBits21!",50,time4+95,12) end function TIC() cls() --ConfigFunc() mus_time=mus_time+0.50 t=t+1 time0=time0+math.sin(t/10) time1=time1+math.sin(t/20) time2=time2+math.sin(t/30) time3=time3+math.sin(t/120) time4=time4+math.sin(t/11) -- Continue music -- 23.54 sec (for 0.001 time dur, UNUSED!) if mus_time==1184.5 then music(1,-1,-1,false,true)end -- reset (not enough continue because track patterns are limited: 60!!!) if mus_time==2223 then reset()end end -- EASTER EGG FOUND? GO TO SPRITE EDITOR: -- palette for bank1 (vbank2): -- 000000ffffffff000000ff000000ffffff00ff00ffff7500000000000000000000000000000000000000000000000000