Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 SCREENSAVER IDEAS???????????????????
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
xmen




PostPosted: Wed Mar 31, 2004 6:37 pm   Post subject: 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
Sponsor
Sponsor
Sponsor
sponsor
jonos




PostPosted: Wed Mar 31, 2004 6:52 pm   Post subject: (No subject)

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




PostPosted: Wed Mar 31, 2004 8:41 pm   Post subject: (No subject)

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.
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
xmen




PostPosted: Wed Mar 31, 2004 10:04 pm   Post subject: (No subject)

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




PostPosted: Thu Apr 01, 2004 2:48 am   Post subject: (No subject)

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




PostPosted: Thu Apr 01, 2004 6:09 pm   Post subject: (No subject)

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




PostPosted: Thu Apr 01, 2004 10:56 pm   Post subject: (No subject)

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




PostPosted: Thu Apr 01, 2004 11:02 pm   Post subject: (No subject)

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.
Sponsor
Sponsor
Sponsor
sponsor
recneps




PostPosted: Fri Apr 02, 2004 5:35 pm   Post subject: (No subject)

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




PostPosted: Fri Apr 02, 2004 7:11 pm   Post subject: (No subject)

rename the .exe to .scr and put it with the rest. (i think it is .scr, have not done it in a bit)
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
recneps




PostPosted: Fri Apr 02, 2004 9:01 pm   Post subject: (No subject)

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




PostPosted: Fri Apr 02, 2004 9:17 pm   Post subject: (No subject)

ya, but i dont know how well it will work since turing can not go fullscreen any more...
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
ModestExtremist




PostPosted: Fri Apr 02, 2004 10:46 pm   Post subject: 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.

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
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 13 Posts ]
Jump to:   


Style:  
Search: