Hello,
A little bit fog.
--' by peter wirbelauer.
function rand(minZahl,maxZahl)
maxZahl= (maxZahl-minZahl)
return int(rnd()*maxZahl+minZahl)
end
function sprite(id,x,y,w,h,fx)
drawimage(w*fx,0,w,h,x,y,id)
end
screen(800,600,0,"fog")
backcolor(0,0,0)
setframetimer(200)
local i,t,xres,yres,u,fz,h,w = 0,0,800,600,0,0,0,0
local cloudx={}
local cloudy={}
local clouds={}
w = screenwidth() /2
h = screenheight()/2
u = loadimage("png/ufostrip.png")
for i=1,250 do
cloudx[i]=rand(1,xres-2)
cloudy[i]=rand(1,yres-2)
clouds[i]=rand(1,4)
end
function move_clouds()
for i=1,250 do
alphachannel(35)
color(200,200,200)
fillcircle(cloudx[i],cloudy[i],90)
cloudx[i] = cloudx[i]+clouds[i]
if cloudx[i] > xres+128 then
cloudx[i] = -128
cloudy[i] = rand(1,yres -2)
clouds[i] = rand(1,4)
end
end
end
repeat
t=getkey()
cls()
alphachannel(255)
sprite(u,w,h,199,85,fz)
move_clouds()
fz=fz+1
if fz==8 then fz=0;end
redraw()
until t==27
closewindow()