"New Windows Screen Saver" V3

[Dannyd534]

this is a continuation for windsurfers windows screen savers 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

[Hackmaster]

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!

[frank26080115]

thats actually pretty good if you want to make something like a space shooter game, or raiden!