Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Befreie die Maus
| Uploader: |  flittchen |
| Datum/Zeit: | 27.01.2009 12:40:50 |
screen 20
DIM x AS INTEGER
DIM y AS INTEGER
SETMOUSE 475,375
sleep 500
DO
cls
locate 40,1
Print "Druecke b zum beeden"
locate 6,45
color 2
Print "Deine Maus wurde gefangen genommen"
locate 7,37
Print "Befreie Sie aus dem roten Kreis, oda sie stirbt"
locate 8,37
Print "Schuettel sie so dolle du kannst."
locate 9,45
GETMOUSE x,y
PRINT USING "###,###";x;y
circle (475,380),200,4,,,,f
SETMOUSE 475,375
sleep 10
IF x > 680 then
cls
locate 15,50
color 3
Print "Du bist rechts entkommen gut gemacht"
Sleep 3000
ENDIF
IF x < 270 then
cls
locate 15,50
color 3
Print "Du bist links entkommen gut gemacht"
Sleep 3000
ENDIF
IF y < 175 then
cls
locate 15,50
color 3
Print "Du bist oben entkommen gut gemacht"
Sleep 3000
ENDIF
IF y > 575 then
cls
locate 15,50
color 3
Print "Du bist unten entkommen gut gemacht"
Sleep 3000
ENDIF
LOOP until inkey = "b"
END