fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Reaktionstraining

Uploader:	AndT
Datum/Zeit:	30.11.2007 15:35:05

' Einfach mit der Maus über das Viereck umso mehr desto schneller muss man sein..

' Schaffe mehr als 22 Runden ;)



sub make4eck(byval x as integer ,byval y as integer)

    line(x,y)-(x+15,y+15),14,bf

end sub



dim as integer X,Y

dim as integer klicks

dim as integer maus_x,maus_y,maus_b

dim as double zeit

dim as double speed

dim as double runde

setmouse 320/2,240/2

screen 14

zeit=10

rtr:

do

    ' Main Loop





    make4eck(int(rnd*320),int(rnd*240))

    do

        locate 1,1:print using "##.###"; zeit

        Print "RUNDE:"; runde

        print speed

        print maus_x

        print maus_y

        if zeit < 0 then

            cls:print runde ;"geschafft"

            if runde > 22 then print "Du hast dir Annerkennung verdient.. und zwar"

            if runde > 30 then print "so viel dass man dich als meister dieses Spiels ansehen koennte^^" else if runde > 23 then print "ehrenhaft" else print "trainiere weiter ;)":sleep:end

            end if

        getmouse maus_x,maus_y,,maus_b

        if point(maus_x,maus_y)=14 then

            cls

            runde+=1:zeit+=2+(speed*runde)

            speed +=.001

            exit do

            end if

        zeit-=.001+speed

        if multikey(&h01) then end

        sleep 1

    loop

    loop



sleep

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.