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

Catch Me if U can

Uploader:MitgliedKey_Frogger
Datum/Zeit:25.09.2009 13:16:02

screen 18
Dim As Integer x, y, buttons





GetMouse (x, y, , buttons)
LINE (140, 80)-(180, 120), 15, BF
IF x = 140-180 then
    cls
    LINE (30, 80)-(70, 120), 15, BF
    sleep 75
end if
IF x = 80-120 then
    cls
    LINE (30, 80)-(70, 120), 15, BF
    sleep 75
end if



IF y = 140-180 then
    CLS
    Line (140, 200)-(180, 250), 15, BF
    sleep 75
end if

IF y = 80-120 then
    CLS
    Line (140, 200)-(180, 250), 15, BF
    sleep 75
end if





sleep