11 lines
250 B
Lua
11 lines
250 B
Lua
q=1200
|
|
h={}for i=0,q do poke(i,rnd(99))end
|
|
function t(a)poke(q+p,a)p=(p-40)%q end
|
|
function update()srand(1)for i=0,39 do
|
|
h[i]=(h[i] or rnd(30))+(1/(rnd(5)+2))p=i+(flr(h[i])%30)*40
|
|
t(15)t(14)
|
|
for j=0,5 do t(10)end
|
|
for j=0,5 do t(2)end
|
|
t(8)t(0)
|
|
end
|
|
end |