Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Ein kleines Minispiel *g* (ultra edition)
| Uploader: |  AndT |
| Datum/Zeit: | 29.11.2007 23:41:48 |
'Nur ein kleines Minispiel, nichts besonderes ;)
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 mouse_x,mouse_Y,mouse_b
dim as integer punkte
dim as integer meinepunkte
dim as integer runde
screen 18
setmouse 320,240
do
do
getmouse mouse_x,mouse_y,,mouse_b
locate 5,1:print "cheaten ist nicht.. maustaste loslassen.."
loop until mouse_b=0
cls
locate 1,1:
Print "Ziel ist es so schnell wie moeglich immer das gelbe Viereck anzuklicken"
print "umso schneller, desto mehr Punkte ;)"
Print "Runde:";runde
Print "Punkte:";meinepunkte
make4eck(int(rnd*640),int(rnd*480))
punkte = 1000
runde+=1
do
sleep 1
punkte -=1
if punkte < 0 then punkte = 0
getmouse mouse_x,mouse_y,,mouse_b
if mouse_b=1 then
if point(mouse_x,mouse_y)=14 then meinepunkte + = punkte : exit do
end if
if inkey=chr(27) then end
loop
loop
sleep