fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Noch'n screensaver

Uploader:	The_Muh
Datum/Zeit:	28.09.2007 16:34:34

screenres 1024, 768,32,,1

dim as integer abstandX,abstandY,zeile,aktuellezeile,x,y

setmouse 0,0

randomize timer

do

    abstandY += 20

    if abstandY = 800 then abstandY = 0

    for zeile = 1 to 1024 step +20

        color int(rnd*(2^32))

        for aktuellezeile = 1 to 1000

            Pset (rnd*10+ zeile+5,rnd*10+ abstandY+5)

            if inkey <> "" then end

            getmouse x,

            if x or y <> 0 then end 'die zeile funzt net... ohne die gehts

        next aktuellezeile

    next zeile

    sleep 1

loop until inkey <> ""

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.