Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

ball bouncer

Uploader:MitgliedKey_Frogger
Datum/Zeit:21.09.2009 19:16:08

screen 18,24
Print "Mega Bounce by Key_Frogger!"
Dim YN as string
Input "Do you want to start? Type [y]es or [n]o:", YN
IF YN = "y" then
line (240,120)-(240,120), rgb(250,250,250)

sleep
cls
CIRCLE (240, 120), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 125), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 130), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 135), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 140), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 145), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 150), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 155), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 160), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 165), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 170), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 175), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 180), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 185), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 190), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 195), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 200), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 205), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 210), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 215), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 220), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 225), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 230), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 235), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 240), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 245), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 250), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 255), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 260), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 265), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 270), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 275), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 280), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 285), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 290), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 295), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 300), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 305), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 310), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 315), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 320), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 325), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 330), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 335), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 340), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 345), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 350), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 355), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 360), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 365), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 370), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 385), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 390), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 395), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 400), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 405), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 410), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 415), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 420), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 425), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 430), 50, 15, , , , F
sleep 75
cls
CIRCLE (240, 430), 50, 15, , , 0.9, F
sleep 75
cls
CIRCLE (240, 435), 50, 15, , , 0.8, F
sleep 75
cls
CIRCLE (240, 440), 50, 15, , , 0.7, F
sleep 75
cls
CIRCLE (240, 445), 50, 15, , , 0.6, F
sleep 75
cls
CIRCLE (240, 450), 50, 15, , , 0.5, F
sleep 75
cls
CIRCLE (240, 455), 50, 15, , , 0.4, F
sleep 75
cls
CIRCLE (240, 460), 50, 15, , , 0.3, F
sleep 75
cls
CIRCLE (240, 465), 50, 15, , , 0.2, F
sleep 75
cls
CIRCLE (240, 470), 50, 15, , , 0.1, F
sleep 3000
CLS
Print "OMG, you have kill`d the ball, you Bastard!"
sleep

else
    Print "okay, good bye!"
    sleep


end if