Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
So schaff das mal xD
| Uploader: |  AndT |
| Datum/Zeit: | 29.11.2007 23:42:45 |
'Nur ein kleines Minispiel, nichts besonderes ;)
'Ultra Edition xD
dim as integer x,y
dim as integer mouse_x,mouse_Y,mouse_b
dim as integer punkte
dim shared as integer meinepunkte
dim as integer runde
dim as integer leben
dim as double zeit
dim as integer highscore_main
sub make4eck (byval x as integer , byval y as integer)
line(x,y)-(x+15,y+15),14,bf
end sub
sub highscore
dim as integer highscor
open "highscore" for binary as #1
get #1,1,highscor
if meinepunkte > highscor then
print "Ein Neuer Highscore( um ";meinepunkte - highscor;" Punkte uebertroffen ^^) RESPEKT!"
put #1,1,meinepunkte
close #1
end if
print "Muss leider jetzt mit belibiger Taste beendet werden.."
sleep
end
end sub
function gethighscore as integer
dim as integer highscor
open "highscore" for binary as #1
get #1,1,highscor
print highscor
close #1
function = highscor
end function
screen 18
setmouse 320,240
highscore_main = gethighscore
do
do
getmouse mouse_x,mouse_y,,mouse_b
locate 5,1:print "cheaten ist nicht.. maustaste loslassen.."
sleep 1
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
Print "Highscore:";highscore_main
make4eck(int(rnd*640),int(rnd*480))
punkte = 1000+(runde*10)
runde+=1
If Runde=19 Then Print "Wow! Du hast das Spiel durch xD!":sleep:highscore
zeit = 10-(runde*.5)
do
locate 6:print "zeit:";
print using "#.##";zeit
sleep 1
zeit-=.002
if zeit <0 then Print "Du hast versagt!":sleep:highscore
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 : leben +=1:exit do
end if
if inkey=chr(27) then highscore
loop
loop
sleep