Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 [Source Code] Meteor Shower Screensaver
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
PHP God




PostPosted: Fri Jun 20, 2003 10:28 am   Post subject: [Source Code] Meteor Shower Screensaver

her it is... extreme boredom bears fruit...

code:

var raindropx,raindropy:array 1..150 of int
var screen:int:=Window.Open("fullscreen")
colorback (black)
setscreen ("graphics,nocursor,noecho")
cls

% Randomize starting locations

for i:1..150
 randint(raindropx(i),0,maxx)
 randint(raindropy(i),0,maxy)
end for

% Rain Procedure

loop

% Down and Left

for ii:1..200
 % run raindrops
 for i:1..150
  drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)-2,red)
  raindropx(i):=raindropx(i)-1
  raindropy(i):=raindropy(i)-2
  drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)-2,brightgreen)
 end for
 for i:1..150
  if raindropy(i) <= 0 then
     drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)-2,red)
     raindropy(i) := maxy
     randint (raindropx(i),0,maxx)
     drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)-2,red)
  end if
 end for
end for

% Down and Right

for ii:1..200
 % run raindrops
 for i:1..150
  drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)-2,red)
  raindropx(i):=raindropx(i)+1
  raindropy(i):=raindropy(i)-2
  drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)-2,brightgreen)
 end for
 for i:1..150
  if raindropy(i) <= 0 then
     drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)-2,red)
     raindropy(i) := maxy
     randint (raindropx(i),0,maxx)
     drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)-2,red)
  end if
 end for
end for

% Up and Right

for ii:1..200
 % run raindrops
 for i:1..150
  drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)+2,black)
  raindropx(i):=raindropx(i)+1
  raindropy(i):=raindropy(i)+2
  drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)+2,brightgreen)
 end for
 for i:1..150
  if raindropy(i) >= maxy then
     drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)+2,black)
     raindropy(i) := 0
     randint (raindropx(i),0,maxx)
     drawline (raindropx(i),raindropy(i),raindropx(i)+1,raindropy(i)+2,black)
  end if
 end for
end for

% Up and Left

for ii:1..200
 % run raindrops
 for i:1..150
  drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)+2,black)
  raindropx(i):=raindropx(i)-1
  raindropy(i):=raindropy(i)+2
  drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)+2,brightgreen)
 end for
 for i:1..150
  if raindropy(i) >= maxy then
     drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)+2,black)
     raindropy(i) := 0
     randint (raindropx(i),0,maxx)
     drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)+2,black)
  end if
 end for
end for
end loop
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 1 Posts ]
Jump to:   


Style:  
Search: