Computer Science Canada

"New Windows Screen Saver" V3
Author:  Dannyd534 [ Mon Nov 13, 2006 8:05 pm ]
Post subject:  "New Windows Screen Saver" V3
this is a continuation for windsurfers windows screen savers Razz its not as great as his moving one but its cool

code:

View.Set ("offscreenonly")
colorback (black)
cls

type SnowType :
    record
        X, Y, Spd, Size : int
    end record

var Snow : array 1..100 of SnowType

for rep : 1..100
    Snow (rep).X := Rand.Int (5, 645)
    Snow (rep).Y := Rand.Int (5, 475)
    Snow (rep).Spd := Rand.Int (1, 6)
    Snow (rep).Size := Snow (rep).Spd
end for
var iCount : int := 0
loop
    delay (10)
for rep : 1..100
        Snow (rep).Y -= Snow (rep).Spd
        if Snow (rep).Y < Snow (rep).Size then
            Snow (rep).Y := Rand.Int (475, 575)
        end if
        if iCount = 4 then
            Snow (rep).X += Rand.Int (-1, 1)
        end if
        drawfillstar (Snow (rep).X, Snow (rep).Y, Snow (rep).X + Snow (rep).Size, Snow (rep).Y + Snow (rep).Size, yellow)
    end for
 if iCount = 4 then
        iCount := 0
    else
        iCount += 1
    end if
    View.Update
    cls
end loop
Author:  Hackmaster [ Sat Dec 09, 2006 10:05 am ]
Post subject: 
nice effort... nice effort...


but...

screensavers don't have much of a purpose if they only take up a window on the screen! make it fullscreen!

the command is simple:

code:


setscreen("graphics: max; max, nobuttonbar")



now, if you did that, you would need to change your statement about where the snow appears to maxx, and maxy, repectivley.

and... it's snow! make it white! lol...

it was good though, keep up the good work!
Author:  frank26080115 [ Sat Dec 09, 2006 4:41 pm ]
Post subject: 
thats actually pretty good if you want to make something like a space shooter game, or raiden!

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy