bouncing balls

[gtahunter]

this program has balls continuously bouncing off the sides of the window






var xdir:int
var ydir:int
var xpos:int
var ypos:int

var xdir1:int
var ydir1:int
var xpos1:int
var ypos1:int

xdir :=1
ydir :=2
xpos :=50
ypos :=100

xdir1:=2
ydir1:=2
xpos1:=100
ypos1:=45

setscreen("graphics:400;400")

loop
cls
if xpos >= maxx or xpos <= 0 then
xdir*=-1
end if
if xpos1 >= maxx or xpos1 <= 0 then
xdir1*=-1
end if
if ypos >= maxy or ypos <= 0 then
ydir*=-1
end if
if ypos1 >= maxy or ypos1 <= 0 then
ydir1*=-1
end if

xpos+=xdir
ypos+=ydir
xpos1+=xdir1
ypos1+=ydir1

drawfilloval(xpos,ypos,10,10,255)
delay(5)

drawfilloval(xpos1,ypos1,10,10,255)
delay(5)
if xpos=xpos1 then
end if
end loop

[Prince Pwn]

It looks better like this:

Turing:

var xdir : int var ydir : int var xpos : int var ypos : int var xdir1 : int var ydir1 : int var xpos1 : int var ypos1 : int xdir := 1 ydir := 2 xpos := 50 ypos := 100 xdir1 := 2 ydir1 := 2 xpos1 := 100 ypos1 := 45 setscreen ("graphics:400;400") loop     cls     if xpos >= maxx or xpos <= 0 then         xdir *= -1     end if     if xpos1 >= maxx or xpos1 <= 0 then         xdir1 *= -1     end if     if ypos >= maxy or ypos <= 0 then         ydir *= -1     end if     if ypos1 >= maxy or ypos1 <= 0 then         ydir1 *= -1     end if     xpos += xdir     ypos += ydir     xpos1 += xdir1     ypos1 += ydir1     drawfilloval (xpos, ypos, 10, 10, 255)     delay (5)     drawfilloval (xpos1, ypos1, 10, 10, 255)     delay (5)     if xpos = xpos1 then     end if end loop

[lilmizeminem]

cooooooool.

[petree08]

er yeah try using an array

[Tallguy]

very cool, but is there a point to this?

[carGUY17]

sorry but that really sucks.

[TWizard]

Thought I would give this abit of an update.

There was some flickering, which is now removed.

I've removed the delays, and added a counter system.

code:

%bouncy balls %Creater: joe %April 24,2007 %Updated By: LithianCoth %August 13, 2017 setscreen ("offscreenonly,graphics:400;400") var xdir : int := 1 var ydir : int := 2 var xpos : int := 50 var ypos : int := 100 var xdir1 : int := 2 var ydir1 : int := 2 var xpos1 : int := 100 var ypos1 : int := 45 var counter : int := 0 loop     counter += 1     if counter >= 15 then         counter := 0         if xpos >= maxx or xpos <= 0 then             xdir *= -1         end if         if xpos1 >= maxx or xpos1 <= 0 then             xdir1 *= -1         end if         if ypos >= maxy or ypos <= 0 then             ydir *= -1         end if         if ypos1 >= maxy or ypos1 <= 0 then             ydir1 *= -1         end if         xpos += xdir         ypos += ydir         xpos1 += xdir1         ypos1 += ydir1     end if     drawfilloval (xpos, ypos, 10, 10, 255)     drawfilloval (xpos1, ypos1, 10, 10, 255)     View.Update ()     cls end loop