̬̬̬̈̬̬̬̬̈̬̬̬̬̬̪쬪̬̬̬̪쬪 >?   x z  f ` `  mo  [`` | ` N  Щf  x l w`` `pz y p hpp w   ٠` x΀pe  G  wj pjmx ՟ tޠ`  Ym`  u lTĨ` ~Wа u PE`͐` v ﰫ` E  n`  [`V p ` z     {  `W} f Ϡު`f ۩ p x PĄ     n``y ] `ةp f` ˛   `    mz ` LE l   `    `  `  Ep PP؝o g ``o jv`߰l ஐ@ Vn ߀j v`  fpН  pZo XN@  npv ` lz p`D PV< ܻ   ` й u ll@|U M y fs yz  pPp lF$ X  ɾ | p vp7Р m V  X\f\ h[ oРЗf l k ~ `  eЛ ϋ v y`4 PDg MLzj` p̮y`p  А    ΅Հe̓j m  dpKD k [neGg̗ : jiZT}   P {k P ]v i٫`wV Kf iU}ްZ ЋoF; 0vjf`e jdf FoVtՎφfUHw٨yCfX`Ohf@k g#fUɻjɰ {ڵF fY`gHHS z@v5F`hh pee]TdVPU kY?ePJ` tp J VeT8p\Fvvel :evVSv7|f djkZGjfUP PgfP~UFUdlΘYVeP{`暄`mhؕT`D )Fc8` ]Nu=w_dgiDLkօPFFx{TTVfd.^a IVwMCgRT xqd [ܕġ` TkX̞ 3CPÆedg\KcvU_FMMvfwF(tdf6FK@e`\ %2RdvvUv~44$f `YWEwFF&C LzjeiY;4Cdg6"WghSZUĸzV*NnifWEgf`SiFwmFJdiŤ`BEfG\WNf kcDbu3iDDf4*Yjէ/EbCbZfYCBEe\eZfSzfe%e$NdefYD4FfP "PObyKv:j&JDGtid8%ܪDdY%(htUP3VTS75T3 PuYEJa3V4Ok&FUV]hKR 6g|)%5c&ccTVIUQ2CgUP1f8UUvIFf4 Y <Ц5Bvj5#åHdECr 0f(iEx|Iwz61(9 uwJ6C5T=SyQFF%s&TCcg܉:CSE/F8Ve$3e0d3feX0a2bVEP%UgvyfDt'f[9j6&%9SdHYId4(&D3bsf36538YyS$U$35uU6tUE2xTfdUyff3c4RҖDb32fCCXUcUUS%PbiV:)SVh^hEax1_U"zf+@RbsxI5Ss0eRe33wf!o@2`E&dBSiX!ht!1VbC3"aU3dg7Ps@5Cf(hmB63$CE31XsVED5fhESwR6uXhQDV2!BV!6'&1Rb51q7Q%5vs#!S1VS(c hg18F$rEbQVATfR#CTA!G6(RWD5DgadDD3eU4SrfD&33v-- title: Fire Demo -- author: Tim Oertel -- desc: Inspired by the Doom fire demo on tic80.com -- site: https://manax.org -- license: MIT License (change this to your license of choice) -- version: 0.1 -- script: lua PAD_UP=0 PAD_DOWN=1 PAD_LEFT=2 PAD_RIGHT=3 PAD_A=4 PAD_B=5 PAD_X=6 PAD_Y=7 function BOOT() -- poke(0x3FF0, 0) -- Set up palette poke(0x3FC0, 0x00) poke(0x3FC1, 0x00) poke(0x3FC2, 0x00) for c = 1, 7 do poke(0x3FC0 + c*3, 0xFF - 0x08 * c) poke(0x3FC1 + c*3, 0xFF - 0x10 * c) poke(0x3FC2 + c*3, 0x00) trace("palette["..c.."] = ".. string.format("%02X",peek(0x3FC0+c*3)).. string.format("%02X",peek(0x3FC1+c*3)).. string.format("%02X",peek(0x3FC2+c*3))) end for c = 8, 15 do poke(0x3FC0 + c*3, 0xFF - 0x04 * c) poke(0x3FC1 + c*3, 0xFF - 0x10 * c) poke(0x3FC2 + c*3, 0x00) trace("palette["..c.."] = ".. string.format("%02X",peek(0x3FC0+c*3)).. string.format("%02X",peek(0x3FC1+c*3)).. string.format("%02X",peek(0x3FC2+c*3))) end -- Set up palette map for c = 0, 7 do poke(0x3FF0+c, (c*2+1 << 4) | (c*2)) -- Little endian trace("map["..c.."] = ".. string.format("%02X", peek(0x3FF0+c))) end -- Game init cls(0) for x = 0, 239 do pix(x, 135, math.random(0,1)) end end c = 0 pause = false function TIC() -- Game updates if (keyp(48)) then pause = not pause end -- "Draw" screen if (not pause) then for y = 0, 135 do for x = 0, 239 do c = pix(x, y) if (c == 0) then pix(x, y, 0) else if (y < 90) then if (math.random() < .15) then c = c + 1 end elseif (c < 0x07) then if (math.random() < .04) then c = c + 1 end elseif (c < 0x0B) then if (math.random() < .10) then c = c + 1 end else if (math.random() < .15) then c = c + 1 if (c > 0x0F) then c = 0 pix(x, y, c) end end end if (math.random() < .05) then pix(x + math.random(-1,1), y- math.random(1,2), c) else pix(x, y, c) end end end end for x = 0, 239 do c = pix(x, 135) if (c == 0 or c > 0x08) then pix(x, 135, math.random(0,1)) end end end end