screenmelt.lua 405 B

1234567891011121314151617181920
  1. -- title: melty
  2. -- author: pixelbath
  3. -- desc: reference for screen melt effect
  4. function TIC()
  5. for x=1,238 do
  6. for y=1,134 do
  7. if math.random()>0.55 then
  8. dx = math.random(-1,1)
  9. dy = math.random(-1,1)
  10. pix(x ,y , pix(x + dx,y + dy))
  11. end
  12. end
  13. end
  14. end
  15. -- <PALETTE>
  16. -- 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
  17. -- </PALETTE>