Retrogamecoding(.org) > EGSL

Star-field

<< < (6/6)

GEEK:
FOUND A SOLUTION ;D


--- Code: ---openwindow(800,600,0,"Stars")
setframetimer(60)

function rand(minZahl,maxZahl)
   maxZahl = (maxZahl-minZahl)
   return int(rnd()*maxZahl+minZahl)
end

local col=0;sx=0;sy=0;anz=1000;speed=0.1;xscreen=800;yscreen=600
local xstern ={}
local ystern ={}
local zstern ={}

for i=0,anz do
   xstern[i] = rand(-(xscreen/2), (xscreen/2))*128
   ystern[i] = rand(-(yscreen/2), (yscreen/2))*128
   zstern[i] = rand(speed,255)
end

function updatestars()
   local i,co
   for i=0,anz do
      zstern[i] = zstern[i] - speed
      if zstern[i] <= speed then zstern[i] = 255; end
      sx = (xstern[i] / zstern[i]) + (xscreen/2)
      sy = (ystern[i] / zstern[i]) + (yscreen/2)
      co = (300 -zstern[i])*.8
      color(0,co,0)
      fillbox(sx,sy,sx+2,sy+2)
   end
end

repeat
k=getkey()
--cls()
alphachannel(5)
color(0,0,0)
fillbox(0,0,800,600)
alphachannel(255)
updatestars()
sync()
until k==27
closewindow()
--- End code ---

Navigation

[0] Message Index

[*] Previous page