+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: Qbasic "like" compilers/interpreters (http://qbasicnews.com/newforum/forum-5.html)
+--- Forum: FB Discussion & Programming Help (http://qbasicnews.com/newforum/forum-15.html)
+---- Forum: FB Projects (http://qbasicnews.com/newforum/forum-16.html)
+---- Thread: blue ball! (/thread-6078.html)
Pages:
1
2
blue ball! - xteraco - 02-16-2005
oh yeah!!! i'm 1337 now!!! chek these 1337 coding skills....someday i'll rule the world
Code:
screen 13
circle (a,20),5,1
go:
for i = 1 to 320
cls
circle (a,20),5,1
a = a + 1
sleep 10
if a = 320 then
goto bounce end if
next
sleep 1500
bounce:
for i = 1 to 320
cls
circle (a,20),5,1
a = a - 1
sleep 10
if a = 1 then
goto go end if
nextblue ball! - whitetiger0990 - 02-16-2005
It doesn't work... At all. Win98SE
blue ball! - Z!re - 02-16-2005
We know.. xteraco double posted.
Fixed code:
[syntax="QBASIC"]screen 13
circle (a,20),5,1
goo:
for i = 1 to 320
cls
circle (a,20),5,1
a = a + 1
if a = 320 then
goto bounce
end if
next
sleep 1
bounce:
for i = 1 to 320
cls
circle (a,20),5,1
a = a - 1
if a = 1 then
goto goo
end if
next [/syntax]
blue ball! - xteraco - 02-16-2005
i didnt have any trouble w/ it in freebasic
blue ball! - Z!re - 02-16-2005
It's only two lines that needs to be fixed:
Quote: goto bounce end ifShould be:
Quote: goto bounce
end if
blue ball! - whitetiger0990 - 02-16-2005
win98SE people... Am I the only one that uses old stuff? =P
Z!re your code doesn't work either... Just makes my cursor into the hour glass thinking thingy and i have the ctrlaltdel to get out of it.
blue ball! - Z!re - 02-16-2005
It's QB code...
And I'm on win98 first edition. ha!
blue ball! - whitetiger0990 - 02-16-2005
The why the heck is it in a FB projects section >_>
blue ball! - Z!re - 02-16-2005
I dunno...
xteraco isnt exactly known for following the rules is he?
blue ball! - xteraco - 02-16-2005
i compiled it and ran it and made it w/ freebasic...thats why i decided to post in the fb section, i'm using winxp pro...