-----------------------------------

Dannyd534

Mon Nov 13, 2006 8:05 pm


"New Windows Screen Saver" V3

-----------------------------------

this is a continuation for windsurfers windows screen savers  :P  its not as great as his moving one but its cool


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

Sat Dec 09, 2006 10:05 am



-----------------------------------

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: 



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

Sat Dec 09, 2006 4:41 pm



-----------------------------------

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