SCREENSAVER IDEAS???????????????????

[xmen]

i ok need like two more screensavers..can someone just gimme ideas??
i cant hav ones that are TOO hard (cuz im only in grade 10) but i stil hope the screensavers are cool looking

apparently i alredi hav 3 screensavers of balls bouncing around the screen with collision, winking happy faces randomly, and a screensaver with the time running across the screen..................so don suggest me anythin like these

if anyone can think of any please reply

p.s.: if you hav or kno the codes for them it'll be great to post, but i will still modify if needed

[jonos]

random insults
zooming text
an animation (like in the water, etc)

[Dan]

make shure it exits when any key is hit or mouse moved. then u could uses it as a real screen saver for windows.

and if u do that, why not make it password porteced or somting cool like that.

[xmen]

lol im only in grade......still kinda newb in turing

btw how would i make floating ocean/water??it seems cool but is it hard only anythin?

[TheZsterBunny]

taadaa.

code:

setscreen ("graphics:max;max,offscreenonly,nobuttonbar") var text := Font.New ("Arial:30") var x, y, c : int var cx, cy : int colorback (black) cls x := maxx div 2 y := maxy div 2 c := 32 cx := Rand.Int (-5, 5) cy := Rand.Int (-5, 5) loop     Font.Draw ("I am so bored", x, y, text, c)     c += 1     if c + 1 > 103 then         c := 32     end if     if x + cx + 238 > maxx or x + cx < 0 then         cx := Rand.Int (1, 5) * round ((cx / abs (cx)))         cx := -cx     end if     if y + cy + 30 > maxy or y + cy < 0 then         cy := Rand.Int (1, 5) * round ((cy / abs (cy)))         cy := -cy     end if     y += cy     x += cx     delay (0)     View.Update end loop

Coinscidentally, i finished this just before checking out this site.

Will explain if messaged.

im tired.

-bunny

[Jodo Yodo]

Here's a very long program that's probably inefficient (since I'm too lazy). It tells the time, and scrolls. It even has a password (I'm like a God). And xmen, please don't create titles that have a million punctuation marks (aka question marks). We can understand if you put just one.

code:

setscreen ("offscreenonly") setscreen ("graphics:max;max, nobuttonbar") var timestuff : string var fontID : int fontID := Font.New (("Ariel:18x12:Italic")) var x, y, b : int var oldx, oldy : int var ch : string (1) var pass, entered : string var passed : boolean := false var fontx : int := 50 var fonty : int := 10 var xchange : int := 1 var winID : int colour (black) winID := Window.Open ("position:top;center,graphics:200;200") put "Enter a password: " .. get pass View.Update Window.Close (winID) colourback (black) cls mousewhere (x, y, b) oldx := x oldy := y loop     loop         drawfillbox (fontx, fonty - 10, maxx, maxy, black)         timestuff := Time.Date         Font.Draw (timestuff, fontx, fonty, fontID, brightgreen)         View.Update         if hasch then             exit         end if         mousewhere (x, y, b)         if x not= oldx then             exit         elsif y not= oldy then             exit         else             if fontx + 300 > maxx then                 fontx := 0                 if fonty + 70 > maxx then                     fonty := 10                 else                     drawfillbox (fontx, fonty - 10, maxx, maxy, black)                     fonty += 70                 end if             end if             fontx := fontx + xchange         end if     end loop     winID := Window.Open ("position:top;center,graphics:200;200")     put "ENTER PASSWORD!"     get entered     loop         if entered = pass then             passed := true             exit         else             put "FOOS!"             delay (500)             Window.Close (winID)             exit         end if     end loop     if passed = true then         exit     end if end loop Window.Close (winID) colourback (0) cls Font.Draw ("SUPER JUICY!", maxx div 2 - 70, maxy div 2, fontID, brightgreen)

There. Done.

[xmen]

is there any screensvaer thats cool with 3D stuff in it?

[jonos]

you could ask zylum or homer to incorporate their 3d engines into a screensave, or you can make a crappy, 3d like one where everything goes towards a point on the horizon, which isn't htat hard i think, though i haven't ried it.

[recneps]

how can you make an exe into a screensave that works with windows?

[Dan]

rename the .exe to .scr and put it with the rest. (i think it is .scr, have not done it in a bit)

[recneps]

really? thats pretty cool. And if you do something with lines or whatever you'll probably get a cool effect. (like the random lines all over the screen prog.)

[Dan]

ya, but i dont know how well it will work since turing can not go fullscreen any more...

[ModestExtremist]

To make a screensaver that can be used by windows, you have to have a few things on top of a sick idea for something flying around on your screen.

First of all, the program has to terminate itself when the mouse is moved.

code:

var main := Window.Open ("position:centre;centre, graphics:max;max") var mx, my, button : int := 0 var mx0, my0, count : int := 0 loop     count += 1     mx0 := mx     my0 := my     mousewhere (mx, my, button)     if count > 1 then         if my not= my0 or mx not= mx0 then             Window.Close (main)             exit         end if     end if end loop

Second, the program can only have one of itself running (not too sure why, but when I set my screensaver as my turing screensaver, it would reopen itself every few seconds after the initial 1 minute wait time had triggered the original screensaver). I haven't found my way around this second problem as of yet, though I just finished making the screensaver and I haven't really put much thought into it.


Anyway, here's my chunk of code I call my screensaver. Note, I did just make it, so there are probably some useless, unneeded pieces of code in there, but it looks cool (especially once it gets going) so give it a break.

code:

var main := Window.Open ("position:centre;centre, graphics:max;max") var dx, dy, dclr : int := 1 var clr : array 1 .. 4 of int var x : array 1 .. 100 of int var y : array 1 .. 100 of int for i : 1 .. 100     y (i) := ((i - 1) div 10) * 100 + 50     x (i) := ((i - 1) mod 10) * 100 + 50 end for colourback (black) cls for i : 1 .. 150     clr (1) := RGB.AddColour (0, i / 151, 0) end for for i : 1 .. 150     clr (2) := RGB.AddColour (i / 151, 0, 0) end for for i : 1 .. 150     clr (3) := RGB.AddColour (0, 0, i / 151) end for for i : 1 .. 150     clr (4) := RGB.AddColour (0, i / 151, i / 151) end for var mx, my, button : int := 0 var mx0, my0, count : int := 0 loop     count += 1     mx0 := mx     my0 := my     mousewhere (mx, my, button)     if count > 1 then         if my not= my0 or mx not= mx0 then             Window.Close (main)             exit         end if     end if     for i : 1 .. 100         drawdot (x (i), y (i), clr (1))     end for     if clr (1) = 257 then         dclr := 1     elsif clr (1) = 405 then         dclr := -1     end if     for i : 1 .. 4         if dclr = -1 then             clr (i) -= 1         elsif dclr = 1 then             clr (i) += 1         end if     end for     for i : 1 .. 100         x (i) := x (i) + dx         y (i) := y (i) + dy     end for     if x (1) <= 0 or x (1) >= 100 then         dx := -dx     end if     if y (1) <= 0 or y (1) >= 101 then         dy := -dy     end if end loop

Just change the value of the clr (1 to 4) in the drawdot to have the lines in different colours.
Either way, have fun, and see if you can find out how to get around this second problem. If you have any luck, get back to me.

MacDitty