ÎÌÌÌ̈ˆˆ¬ªªª¬ˆˆˆ¬ÌÌ̬ÌÀ̬ÌÀ̬ÌÀÌÌÌìÌÀÀî̬ÀÌÀ¬ÀÀÀ¬ÀÀÀ¬ÀÀÎÌÌÌ̈ˆˆ¬ªªª¬ˆˆˆ¬ÌÌ̬ÌÌ̬ÌÀ̬ÌÀÌÌÌìÌÀÀî̬ÀÌ̬ÀÀÀ¬ÀÀÀ¬ÀÀ¬ÌÌ̬ªªª¬ª¬ª¬ªÊ̬ªªªŒˆˆˆÌÀÌÎÌÌÎ̬̪ªÀ쬪ÀÀÀÌîÀìîÌÌîî¬ÌÌ̬ªªª¬ª¬ª¬ªÊ̬ªªªŒˆˆˆÌÀÌÎÌÌÎ̬̪ªÀ쬪ÀÀÀÌîÀìîÌÌîî >¿?0p00ðð0ð0ð00p00ð0p0pðð1ð0pp0p00ð0pp00p0pp00ð0pð0ð00p33pp0p00ðpóp0p0pð000ppp0ð0ð000ðpp1ñ100ððp0p00pð0p00wwwwwwwwww00ð0ðp07?00pp0p00ð0ð00p1ð0ðp0ð0p000p3333333333ðð0ð00pós000ððð0001pðð1pð0ñ1q1ñ00p0pð0ðp00p0ðð7ÿÿ00p0p0pð00700ðð00ð1p0pðp0p030ðpp000ðp33333333333ppð0p000ððsó00pð0q00pp0pp0ñ0ð000p0ðpp0p?0ð00ppp0q000ð0ð0q001ñ1qpp00ó00p0ðð00ð0pð0ó33333333333ððp0ð000ppósðp0ð0pñ00ð0p0ð01pð1ñ1q1ñ00p0pðp0ð01ðp0ð00ð?ÿÿÿÿÿÿÿÿÿÿÿ000p0ppð07?700ð0ð01ðð0ð0p0p0ñ00ð1q1ñ1ðð0ð0s30ð0pp00p0ðpp3ppð000ðó001ðpppðpwñ007p0p0000q1ñ1qppp00ðð0pðóðp1ð0000q0qp07pð00ÿÿÿ0p1p0ð0?7ððp0q0ñ000p000ðð0ó333333333333ðp0p00pósóð00p1pppp00ð?wwww30ðð1ðp0?7?3ppð0ñ0q0000ð3ð0ð000ñpp0p07s33333333333ððp0q0ð000ppósðð011q0qpð07ðÿp0ð0ðp01ðp00p0ð00ð0?0p0q0ð3ñ000ð0ñ1q1ñ1q1ððp0ð0ð330ðpp110ð0póp00ð0p0ð0q0q0p0ð0pp0s7w0p0ð0wwww3wwwwwwww0000ðð10ðððp0ð0?7?00pðqñ1ð1000ðs300p0ðð00ð0ppð0óÿ00ð0q1ñ0ð0ðð00ÿ10pðññ1q1000ppp?ÿÿÿÿ3ÿÿÿÿÿÿÿÿ0000pp10pppð0p07?700ðpñq1p1000pó0300ð0pp10p0ðð0p0sóp00ð0p0ð0q0q0p0ð0pp0s7pw00pðp100ðð0?ww0wwwwwwww0ð0ð1ñ1ð0p0s7?03q000p0q1ñ1q1ñ1ppð0p0pó333ð33333333pp1q0000pósðð0011q0qpðð07ðÿð0ð00ñp0ð0ð0070ðp0ð0ðð0ð1ñ1ñ00ð0p00p0s030ð0p00qq00ðð0p0ðp0ðsw00p0ñ1q0p0pp00pw00pðp100ðð0?ww00ð0ð0ñ1ð0p0s0?3qð001p1ñ1q1ðpp00p0ó33333333333ððp0q0ð000psósðÿ1ðpð0p1ñ1q1ñ1q000p0p0?ÿÿÿÿ3ÿÿÿÿÿÿÿÿ0000pp1p10pppð0p07?73ñ001ð1ñ1q1ñ1q1ððp0ð7ð3333w33333333pðpð10ñp0000ó0sósów1pðq0ñ1q1ñ1q1ñ000ð0ó0wwwww3wwwwwwww0000ñð10ðððpp?ð07?7?3q00ð1pð1q1ñ1q1ñ11p1pð0p?p3333ÿ33333333ðpðp10qð0000s0ósósÿ1ðpñ0q1ñ1q1ñ1q000p0s0ÿÿÿÿ3ÿÿÿÿÿÿÿÿ0000qp1p10pppð7p?7?703ñ000ð0ñ1q1ñ1q1ððp0ð0ðs3333w33333333pðpð00ñ0ñp0000ð0pósów10ðpq1q1ñ1q000ðð0ð7ww0wwwwwwww0ð0ð1ñ1ð0p0s7?03pðð00101ñ1ñqppp000ðsÿ00ð0qp1ñ10ð0ðð00ðÿ0p0ð0ðp1ð1ð1p00p0ð0p?ó7?0ðp0ð0ðð0ð1ñ1ñ00ð0p00p?s0300ð0pq10p0ðð?p0sópwpð00001p1ñ0ñ1ðqppð00p0?www0wwwwwwwww01ñ1ðð0pó?7?r -- title: Super Zombie -- author: ps d={ 8, 8, 8, 2, 0, 2, 5, 1, 0, 1, 0, 1, 0, 1, 0, 3, 3, 4, 5, 2, 2, 3, 2, 3, 3, 6, 7, 3, 3, 5, 4, 7, 7, 8, 8, 0, 0, 0, 0, 4, 4, 5, 5, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 2, 3, 2, 3, 2, 3, 0, 0, 0, 0, 4, 5, 4, 5, 0, 0, 0, 0, 0, 0, 7, 6, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, } --{ t=0 --p=0 trace("SUPER ZOMBIE",1) --} function TIC() poke(0x3FFB,0) vbank(0) --poke(0x3FF8,p) cls() for k=0,3 do p=t//512 -- orderlist pos poke(65764,16) -- set chn 0 wave poke(65962,32) -- set chn 3 wave e=t*d[k+1]//8 -- envelope pos -- n is note (semitones), 0=no note n=d[ 8*d[8*k+p+72]+0 -- patstart +e//16%8 -- patrow ]-- or 0 -- can sometimes be removed -- save envelopes for syncs -- d[0] = chn 0, d[-1] = chn 1... -- % ensures if n=0|pat=0 then env=0 d[-k]=-e%16%(16*n*d[8*k+p+72]+1) sfx( k, -- channel k uses wave k -2 -- global pitch: +12*d[k+4] -- octave +n -- note -e%16*d[k+86] -- pitch drop +( 0 .5 then for x = 0, w do for y = 0, 136 do --c = pix(x1 + x, y) pix(x2 + x, y, pix(x1 + x, y)) end end else for y = 0, 136 do --c = pix(x1, y) for x = 0, w do pix(x2 + x, y, pix(x1, y)) end end end -- end --vbank(0) --[[ rect(208,126,30,8,0) print("tpolm",209,127,12) rect(224,126,14,8,12) clip(224,126,14,8) print("tpolm",209,127,0) clip() --]] t=t+1,t<4095 or exit() end --function BDR(l) --poke(0x3ffa,math.sin(time()/100+l/64)*d[-2]*2) --poke(0x3ff9,math.sin(time()/1e3+l/16+d[-2])*d[-1]) --end