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

WhatAmIDoing

Thu Apr 29, 2004 8:54 am


Screen Saver

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

This is my first screen saver.  It is acyually screen saver format and everything.  also is there any way to get rid of the title bar?? if so plz tell me i hate it.

var y, y2, x2, x, x3, y3, y4, x4, c, winID, mX1, mY1, mX, mY, button : int
winID := Window.Open ("title:Steve's Screensaver,graphics:780;520")
colorback (black)
cls
mousewhere (mX, mY, button)
mX1:=mX
mY1:=mY
%starting coordinates
y := 40
x := 40
x2 := maxx - 40
y2 := maxy - 40
y3 := maxy - 40
x3 := 40
y4 := 40
x4 := maxx - 40
%gets speed for each of the balls
var ySpeed, xSpeed : int := 10
var y2Speed, x2Speed : int := 10
var y3Speed, x3Speed : int := 10
var y4Speed, x4Speed : int := 10
%moves ball and bounces off side
loop
    mousewhere (mX, mY, button)
    %ball_1
    if mX not= mX1 or mY not= mY1 or button = 1 then
        Window.Close (winID)
        exit
    end if
    randint (c, 1, 50)
    if y >= maxy - 30 or y = maxx - 30 or x = maxy - 30 or y2 = maxx - 30 or x2 = maxy - 30 or y3 = maxx - 30 or x3 = maxy - 30 or y4 = maxx - 30 or x4