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

WhatAmIDoing

Fri Feb 27, 2004 2:36 pm


tripy ball program

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

hey this is my first program (screen saver) so tell me what you think of it

setscreen ("graphics")
%starting coordinates
var y, y2, x2, x, x3, y3, y4, x4, c : int := 10
y := 40
x := 40
x2 := maxx - 40
y2 := maxy - 40
y3 := maxy - 40
x3 := 40
y4 := 40
x4 := maxx - 40
%gets speed and clears the screen
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
    %ball_1
    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