----------------------------------- xmen Wed Mar 31, 2004 6:37 pm SCREENSAVER IDEAS??????????????????? ----------------------------------- 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 Wed Mar 31, 2004 6:52 pm ----------------------------------- random insults zooming text an animation (like in the water, etc) ----------------------------------- Dan Wed Mar 31, 2004 8:41 pm ----------------------------------- 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 Wed Mar 31, 2004 10:04 pm ----------------------------------- 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 Thu Apr 01, 2004 2:48 am ----------------------------------- taadaa. 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 Thu Apr 01, 2004 6:09 pm ----------------------------------- 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. 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 Thu Apr 01, 2004 10:56 pm ----------------------------------- is there any screensvaer thats cool with 3D stuff in it? ----------------------------------- jonos Thu Apr 01, 2004 11:02 pm ----------------------------------- 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 Fri Apr 02, 2004 5:35 pm ----------------------------------- how can you make an exe into a screensave that works with windows? ----------------------------------- Dan Fri Apr 02, 2004 7:11 pm ----------------------------------- rename the .exe to .scr and put it with the rest. (i think it is .scr, have not done it in a bit) ----------------------------------- recneps Fri Apr 02, 2004 9:01 pm ----------------------------------- 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 Fri Apr 02, 2004 9:17 pm ----------------------------------- ya, but i dont know how well it will work since turing can not go fullscreen any more... ----------------------------------- ModestExtremist Fri Apr 02, 2004 10:46 pm Screensavers ----------------------------------- 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. 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. 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) = 100 then dx := -dx end if if 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